Heres my MMORPG Libary For dbpro! Enjoy..
REM MMORPG Constants!!!
#Constant Make_Uber_MMORPG_What_Supports_Up_To_Minus_One_Players_And_Has_Uber_Weapons_And_ETC_UBER_Things_Put_Me_In_Credits Execute()
REM End OF MMORPG Constants!!!
REM STARTED ON 24/6/2007 Clock : 16:36
REM THIS IS THE CODE!!
Make_Uber_MMORPG_What_Supports_Up_To_Minus_One_Players_And_Has_Uber_Weapons_And_ETC_UBER_Things_Put_Me_In_Credits
REM END OF THE CODE!!
REM FINISHED ON 24/6/2007 Clock : 16:36
REM MMORPG LIBARY!!
Function Execute()
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: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
endfunction
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
REM END OF MMORPG LIBARY!!
[B] - LINKIN PARK - [/B] 
