Messages

Hello!
I make a small remake from a Atari ST intro.... It's not a 100% remake, i only want to test somethink.. But i hope you have fun.

Hi!
Nice work.

KrazyK, i know you lost many Sources of your Libs, so i update the Source to a no Lib Version.
Your lib was build with the very old "pbosl", this Source use Memdll. Its very fast and easy to use...
I hope this help to rebuild your lib Sources.

Ah, ok. If you want, i can help to recode the libs

Hello! First of all thanks for the great source codes. But i have one question, why all the libraries? Come an unfavorable Pure Basic update and you can no longer use the source codes. For own use such libraries are ok, but when you share the source code you should remove the libraries or publish the source codes. I'm not concerned with the source code of the libraries, but i've seen it very often with Purebasic that the source code is no longer useful because the libraries are not working anymore and no source code is available.

Hi !
Here you find my new Intro/Remake...

Sorry, but Windows 10 Defender don't like it  , you must add an exception. There is no Virus or Trojaner.

Here the Link : https://www15.zippyshare.com/v/gtpyoND6/file.html

Hi!
Here is the Intro without Lib....

Code Select Expand

InitSprite()
InitKeyboard()
InitMovie()
UsePNGImageDecoder()

#SCREEN_CX=759
#SCREEN_CY=545

text.s =UCase("                                                             salut tous, petit retroremake purebasic Amstrad cpc" +
        " de la demo numero deux de  logon system je n'ai pas repris le texte du scrolling car trop long a taper de plus a cette epoque " +
        "le texte ne servait qu a illustrer les capacites techniques du scrolling la par exemple je fais du remplissage pour que vous " +
        "puissiez apprecier la musique qui d apres l auteur certaienement serge alias longshot est du jeu rampage "+
        "en fait c est rampart ce qui est pareil que rampage mais avec des chevaliers a la place des dinosaures bref "+
        "je vais m attaquer a un peu plus technique comme retroremake la prochaine fois j en profite pour remercier google " +
        "de m avoir supprime mon compte developpeur pour des raisons obscures  ce jour     c est pas demain que je vais faire " +
        "fortune avec mes applis android    pas grave l espoir fait vivre             ")

;Create Window
OpenWindow(0, 0, 0, #SCREEN_CX, 545, "Logon Sytem démon N°2 1988 JmG@2017", #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, #SCREEN_CX, #SCREEN_CY)
SetFrameRate(60)
;Create Window End

;Create Logo
SpriteLogo_1 = CatchSprite(#PB_Any,?Sprite)
;Create Logo

;Create Scroller
Dim spriteFonts.l(65)
fnt=CatchImage(#PB_Any, ? Font)
For i = 0 To 65
  yCharPos = i / 10 *32
  xCharPos = i % 10 *32
  tempImage_Scroll = GrabImage(fnt , #PB_Any, xCharPos, yCharPos, 32, 32)
  spriteFonts(i) = CreateSprite(#PB_Any, 32, 32)
  StartDrawing(SpriteOutput(spriteFonts(i)))
  DrawAlphaImage(ImageID(tempImage_Scroll), 0, 0)
  StopDrawing()
Next
FreeImage(fnt)
FreeImage(tempImage_Scroll)
VirtualLength_Scroll.l = Len(Text)*32
;Create Scroller End

;Create MP3 Sound
CreateFile(1,GetTemporaryDirectory()+"Sound.mp3")
WriteData(1, ?chiptune, ?endchiptune-?chiptune)
CloseFile(1)
LoadMovie(0, GetTemporaryDirectory()+"Sound.mp3")
PlayMovie(0,0)
;Create MP3 Sound End

Repeat
  ExamineKeyboard()
  While WindowEvent() : Wend
 
  ;Loop MP3 Aound
  If MovieStatus(0)=0
    PlayMovie(0,0)
    Repeat
    Until MovieStatus(0)>1
  EndIf
  ;Loop MP3 Sound End
   
  ClearScreen(RGB(0,0,0))
 
  ;Display Logo
  DisplaySprite (SpriteLogo_1, 0, 0)
  ;Display Logo End
 
  ;Display Scrolltext
  Scroll_x=Scroll_x-10
  If Scroll_x<-VirtualLength_Scroll
    Scroll_x=#SCREEN_CX+64
  EndIf
  For i = 1 To Len(Text)
    LetterID_Scroll.b = Asc(Mid(Text, i, 1))-32
    XPositionScroll.w = Scroll_x + ((i-1)*32)
    If XPositionScroll>#SCREEN_CX+64
      Break
    EndIf
    If XPositionScroll> -32
      DisplaySprite(spriteFonts(LetterID_Scroll),XPositionScroll,485)
    EndIf
  Next i
  ;Display Scrolltext End
       
  FlipBuffers()
       
Until Event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
;Delete Temp MP3 Sound
DeleteFile(GetTemporaryDirectory()+"sound.mp3")
;Delete Temp MP3 Sound End

DataSection
  sprite:
  IncludeBinary "scr1.png"
  endsprite:
  chiptune:
  IncludeBinary "chiptune1.mp3"
  endchiptune:
  Font:
  IncludeBinary "fnt.bmp"
  endfont:
EndDataSection

Hi!

Install this : http://www.flasharts.de/mpz/mp33_beta/MP3D_Installer.exe

and in PB set Compiler Options -> Library Subsystem: DX9

Hello there!
I have some Time, so i coded this small Intro.....
Have Fun!

( No Virus, Packed with MPress )

I Update the Framework to 0.0.3

Hello!
I want to show you my last 2 Musicprojects...

File 1 is a Remake of  Concerning Hobbits. I think anyone know the Film. I made this File for a Friend, he need some Backgroundmusic for he's Fanpage.

File 2 is only a Just4fun Project. I use it to test some Functions...

Hi!
I just upload a new Version of the OSDM

http://www.mediafire.com/?l9o7e6jjc4jobbq

Hi!
I use FL Studio, not an St Prog

Hello!
Some Days ago i found a very old Disk from my Atari St. I put the Disk into the Drive and i found some old Soundfiles....
I try to push one File a Bit, here is the result

I hope you Like it

Hello!
After my last Remix i get some requests for Remixes. I done it all , here are the 4 requests :

Title: Final Fantasy III - Celes' Theme
Orgional Composer: Tsuyoshi Sekito and Keiji Kawamori
System: SNES
Year: 1990
Orginal: http://www.youtube.com/watch?v=MMVA6yNTrwU

Title: Donkey Kong Country 2 - Hot Head Hop
Orgional Composer: David Wise
System: SNES
Year: 1995
Orginal: http://www.youtube.com/watch?v=cTEuL3jltQ0

Title: Rings of Medusa
Orgional Composer: Jochen Hippel
System: Amiga/Atari ST
Year: 1989
http://www.youtube.com/watch?v=zI7mlrVjkGQ

Title: Chambers of Shaolin
Orgional Composer: Jochen Hippel
System: C64, Amiga, Atari ST
Year: 1989
http://www.youtube.com/watch?v=Vp7FMVZzyrg


Sorry, but the File is 26 MB and here is a 10 MB limit to upload. So i use a Freehoster.....

Download : http://uploaded.to/file/exwtbjuv

I hope you have fun with the Sounds...

Hi and thanks.

Here is the Orginal : http://www.youtube.com/watch?v=4Qp0_NE8M1c

I use Fl Studio for the Remake

Hello!
I want to show you my first Remix 

Game: Donkey Kong Country 2: Diddy's Kong Quest (Nintendo, 1995, SNES)
Orgional Composer: David Wise
Song: Kannon's Klaim (  Mines )

Hi!
Very funny with Santa
Nice Work, and thanks for the greet !

Thanks
I've uploaded a new version. the old one had a spelling error 

Hi there!
I have also code a small Christmas demo.

Merry Christmas to everyone!

cu
Bobo

Yes, Bass don't play sndh..
But you can use StSound to Play the Orginal YM Files 
So you don't need to include a dll into the Exe

http://leonard.oxg.free.fr/