This code was cancelled from Ric's Crhistmas chalengse so i got idea to post it here
WARNING!!!!
Contains fast flickering bright colours.
And a bad joke!
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 then dec y,5
if y=<50 then xy=0
if y=>225 then xy=1
if xy=0 then inc y,5
if escapekey()=1 then 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
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
Soul Alchemist W.I.P Thread coming soon!
