Heyah! I found this old program when going trough my old posts.. I compressed it to 20 lines nothing more..
So here it is..
(
WARNING! Contains fast flickering colors that can cause epilepsy so if u want to watch it without any risk remove or rem the line 10!!)
sync on:sync rate 60:disable escapekey
y=225:xy=1:ok=download("http://www.psci.net/~djkress/IDIOTA-1.WAV","idiot.wav"):ok2=download("http://www.andromedus.com/misc/smiley.png","smiley.png")
do
Center text screen width()/2,screen height()/2,"Intiliazing Please Wait"
if ok and ok2 then exit
sync
loop
load image "smiley.png",1:load sound "idiot.wav",1:loop sound 1:set sound volume 1,100:sprite 1,screen width()/2-250,screen height()/2-20,1:sprite 2,screen width()/2-50,screen height()/2-20,1:sprite 3,screen width()/2+150,screen height()/2-20,1
do
cls rgb(rnd(255),rnd(255),rnd(255))
text screen width()/2-80,screen height()/2-100,"YOU ARE AN IDIOT!":text screen width()/2-80,screen height()/2+100,"YOU ARE AN IDIOT!":for i=1 to 3:SET SPRITE DIFFUSE i, y, y, y:next i:if xy=1:dec y,5:endif:if y=<50:xy=0:endif:if y=>225:xy=1:endif:if xy=0:inc y,5:endif:if escapekey()=1:delete sound 1:delete file "idiot.wav":delete sprite 1:delete sprite 2:delete sprite 3:delete image 1:delete file "smiley.png":wait 2000:end:endif:sync:loop
function download(w$,f$)
if file exist(f$) then delete file f$
load dll "urlmon",1
a=CALL DLL(1,"URLDownloadToFileA",0,w$,f$,0,0)
delete dll 1
ok=(a=0)
endfunction ok
[B] - LINKIN PARK - [/B]