Hey, my first time posting here, just thought i'd give it a try, basically, these red dots will move about your screen randomly, and you are the white dot, and you must dodge them using your mouse to move, simple.
I can't see why it won't work in Dbc too.
Compressed:
Set Display mode 800,600,32:sync on:sync rate 60:Print "Press A Key When You Are Ready":Print "You Are The White Dot,Dodge The Red Dots":sync:sync
wait key:t#=timer():dim dots(50000,4):hide mouse:lvl=1:do:if (lvl^2)*100<=50000:Totaldots=(lvl^2)*30:endif:print "Level " + str$(lvl)
Print "Seconds "+str$(seconds):print "Dots " + str$(totaldots):seconds=(timer()-t#)/1000:for i=1 to totaldots:if dots(i,1)=dots(i,3) then Dots(i,3)=rnd(800)
if dots(i,2)=dots(i,4):dots(i,4)=rnd(600):endif:if dots(i,1)<dots(i,3):inc dots(i,1):endif:if dots(i,2)<dots(i,4):inc dots(i,2):endif
if dots(i,1)>dots(i,3):dec dots(i,1):endif:if dots(i,2)>dots(i,4):dec dots(i,2):endif:if dots(i,1)=mousex() and dots(i,2)=mousey():dead=1:endif
dot dots(i,1),dots(i,2),rgb(255,0,0):next i:ink rgb(255,255,255),0:dot mousex(), mousey(),rgb(255,255,255)
if seconds>lvl+10 and dead=0 then cls:Print "Level Complete":Print "Press Any Key":sync:inc lvl:wait key:t#=timer()
if dead=1:cls:Print "You Lose!":Print "You Got to Level "+ str$(lvl):sync:wait key:end:endif
sync:cls
loop
Uncompressed:
Set Display mode 800,600,32
sync on:sync rate 60
Print "Press A Key When You Are Ready"
Print "Dodge The Red Dots"
sync
wait key
t#=timer()
dim dots(50000,4)
hide mouse
lvl=1
do
if (lvl^2)*100<=50000
Totaldots=(lvl^2)*30
endif
print "Level " + str$(lvl)
Print "Seconds "+str$(seconds)
print "Dots " + str$(totaldots)
seconds=(timer()-t#)/1000
for i=1 to totaldots
if dots(i,1)=dots(i,3) then Dots(i,3)=rnd(800)
if dots(i,2)=dots(i,4) then dots(i,4)=rnd(600)
if dots(i,1)<dots(i,3) then inc dots(i,1)
if dots(i,2)<dots(i,4) then inc dots(i,2)
if dots(i,1)>dots(i,3) then dec dots(i,1)
if dots(i,2)>dots(i,4) then dec dots(i,2)
if dots(i,1)=mousex() and dots(i,2)=mousey() then dead=1
dot dots(i,1),dots(i,2),rgb(255,0,0)
next i
ink rgb(255,255,255),0
dot mousex(), mousey(),rgb(255,255,255)
if seconds>lvl+10 and dead=0 then cls:Print "Level Complete":Print "Press Any Key":sync:inc lvl:wait key:t#=timer()
if dead=1
cls
Print "You Lose!"
sync
wait key
end
endif
sync
cls
loop
Hope You Like It
Omricon W.I.P
