Retro-Nachbau des Input64 Magazin-Intro von 1987.
[Blockierte Grafik: http://s24.postimage.org/mi7i0s6mp/Screen_08_03_2013_14_Uhr_20_55_Sek.jpg]
Code
'Retro-Nachbau Input64 Magazin-Intro © 1987 Verlag Heinz Heise, (w) 2013 Frank Abbing
'Mit freundlicher Genehmigung des Heise Zeitschriften Verlag GmbH & Co. KG, Jürgen Seeger
'
[B]'Internet-Verbindung und Soundkarte erforderlich, Gif-und Midi-Datei werden zur Laufzeit aus dem Web
'geladen, der Code setzt keine eigene Dateien voraus![/B]
'
'Interpreter XProfan X12 erforderlich, aus zeitlichen Gründen Kompiler empfohlen
'
ImportDLL("kernel32","")
Declare tx$,ms$,pic&,x&,y&,t&,t2&,l&,web&
WindowStyle 26+512:WindowTitle "Retro-Nachbau Input64 Magazin-Intro © 1987 Verlag Heinz Heise, (w) 2013 Frank Abbing"
Window 800,480:Cls 0
ms$=$tempdir+"4kfr.mid":DownloadFile("http://www.midiworld.com/download/4341",ms$)
While %Loading:Sleep 10:EndWhile
tx$=$tempdir+"4kfr.gif":DownloadFile("http://vic-20.de/x1541/input64/input64.gif",tx$)
While %Loading:Sleep 10:EndWhile
pic&=Create("hPic",-1,tx$)
MCls 284,64,0:StartPaint -1:DrawPic pic&,0,0;-1,$FFFFFF:EndPaint
DeleteObject Pic&:DeleteFileA(tx$):
MCISend$("OPEN "+ms$+" TYPE SEQUENCER ALIAS MIDI"):MCISend$("PLAY MIDI")
Sleep 4250
t&=&gettickcount
t2&=t&
While 1
x&=Rnd(284):y&=Rnd(64)
MCopySizedBmp x&,y&-1,1>x&+x&+100,y&+y&+80-2,2;0
Case (&gettickcount-t&)>=8300:BREAK
EndWhile
t&=&gettickcount
x&=0:y&=0
WhileLoop 0,7
WhileLoop 0,35
MCopySizedBmp x&*8,y&*8-8,8>x&*16+100,y&*16+80-16,16;0
x&=x&+1
EndWhile
Sleep 150
x&=0:y&=y&+1
EndWhile
While 1:Case (&gettickcount-t2&)>=12000:BREAK:EndWhile
Usefont "Lucida Console",16,11,0,0,0
WhileLoop 20
TextColor Rgb(Rnd(255),Rnd(255),Rnd(255)),-1
Case &loop=20:TextColor Rgb(255,240,50),-1
DrawText 212,192,"Infos·News·Programme·Unterhaltung·Tipps"
Sleep 100
EndWhile
While 1:Case (&gettickcount-t2&)>=15000:BREAK:EndWhile
TextColor Rgb(255,0,0),-1
DrawText 72,16,"DAS ELEKTRONISCHE MAGAZIN"
DrawText 440,420,"DAS ELEKTRONISCHE MAGAZIN"
Usefont "Lucida Console",16,11,1,0,0
While 1:Case (&gettickcount-t2&)>=16000:BREAK:EndWhile
WhileLoop 300,0,-30
TextColor Rgb(0,255,0),-1:DrawText 666-&loop,16-(&loop/10),"2/13":DrawText 72+&loop,420+(&loop/10),"2/13"
Sleep 100:TextColor 0,0:DrawText 666-&loop,16-(&loop/10),"2/13":DrawText 72+&loop,420+(&loop/10),"2/13"
EndWhile
TextColor Rgb(0,255,0),-1
DrawText 666,16,"2/13":DrawText 72,420,"2/13"
While 1:Case (&gettickcount-t2&)>=19500:BREAK:EndWhile
Usefont "Lucida Console",16,13,0,1,0
TextColor Rgb(255,240,50),-1
DrawText 330,242,"Copyright"
DrawText 240,266,"Verlag Heinz Heise GmbH"
DrawText 304,298,"Hannover 2013"
DrawText 198,330,"Redaktion:"
DrawText 218,354,"R. Hülsenbusch W.Möhle"
DrawText 218,378,"K.-F. Probst J.Seeger"
While 1
WaitInput
Case %key = 2 : BREAK
EndWhile
MCISend$("CLOSE MIDI")
DeleteFileA(ms$)
End
Alles anzeigen