I don't find my code! Then I post it there:
en=20:Dim Df(en+1):Dim Dist(en+1):set display mode 1024,768,32:create bitmap 1,32,128:for y=0 To 31:de=rnd(47):ink rgb(255,255,0),0:line y,de+8,y,de+15:for x=0 to 7:n=x*32:ink rgb(n,n,0),0:dot y,de+x:dot y,(de+23)-x:next x:next y
get image 1,0,0,32,128:delete bitmap 1:set current bitmap 0:set text size 16:backdrop on:color backdrop rgb(0,0,0):autocam off:hide mouse:sync rate 0:sync on:make object sphere 1,1:color object 1,rgb(255,255,0):hide object 1:tuto=1:flag=0
do:explo=0:qqch=en:fini=0:for n=2 to en+1:Df(n)=0:Dist(n)=0:if object exist(n)=0:make object sphere n,1:Endif:If object exist(n+en)=1:delete object n+en:Endif:position object n,rnd(10)-rnd(20),rnd(10)-rnd(20),rnd(20):next n
position camera 0,0,0:rotate camera 0,0,0:move camera 0-20:sync:ink rgb(255,255,255),0:T=Timer():Do:If tuto>0:If Tuto=1:Text 0,0,"Move yourself with arrows keys...":flag=(flag|((upkey()|downkey() )+((leftkey()|rightkey() )*2) ) ):if flag=3
Tuto=3:endif:EndIf:If Tuto=3:Text 0,0,"Now point one of these spheres, using the mouse.":Set Text Size 32:if ok=0:For n=2 To en+1:If Sqrt((Object Screen x(n)-(Screen Width()/2.0))^2+(Object Screen Y(n)-(Screen Height()/2.0))^2)<3.0
at=Timer():id=n:ok=1:EndIf:Next n:endif:if ok =1:If Sqrt((Object Screen x(id)-(Screen Width()/2.0))^2+(Object Screen Y(id)-(Screen Height()/2.0))^2)>3.0:ok=0:endif:endif:if (ok=1) and ((timer()-at)>1000):Tuto=5:endif:EndIf:If Tuto=5
SeT Text Size 64:Text 0,0,"Press Shift key":EndIf:If Tir:Tuto=0:T=Timer():EndIf:Else:Text 0,0,Str$(en-qqch)+"/"+Str$(en):Text 0,64,Str$((timer()-t)/1000):EndIf:circle screen width()/2,screen height()/2,8:tir=(tir|shiftkey() ):if shiftkey()
set object to camera orientation 1:position object 1,camera position x(),camera position y(),camera position z():show object 1:endif:if tir:move object 1,1:For n=2 to en+1:if object exist(n)
if sqrt((object position x(1)-object position x(n) )^2+(object position y(1)-object position y(n) )^2+(object position z(1)-object position z(n) )^2)<1.0
explo = n:impact = timer():hide object 1:If qqch>1:Delete Object n:move object 1, 5:Make object sphere explo,5:set object to object orientation explo,1:xrotate object explo,90:texture object explo,1:fact#=0.05
Position Object explo,object position x(1),object position y(1),object position z(1):EndIf:qqch=qqch-1:tir=0:exit:endif:endif:next n:endif:if qqch=0:x=Object Position x(explo):y=Object Position y(explo):z=Object Position z(explo)
Delete Object Explo:For n=2 To en+1:Make Object Sphere n,1:Position Object n,x,y,z:Rotate Object n,Rnd(359),Rnd(359),1+Rnd(10):Next n:For m = 0 To 119:For n=2 To en+1:Move Object n,Object Angle z(n)/5.0:Next n:Sync:Next t:For n=2 To en+1
Delete Object n:Next n:BackDrop Off:Cls:Text 0, 0,"WON! ("+Str$(en)+"killed : "+str$(int((timer()-t)/1000))+"sec)":exit:endif:For n=2 To en+1:If ((df(n)=0) and object exist(n)) And (Rnd(99+((Tuto&1)*9000))=0):make object sphere n+en,1
color object n+en,rgb(255,0,0):position object n+en,object position x(n),object position y(n),object position z(n):xrotate object n+en,90:fix object pivot n+en:point object n+en, camera position x(),camera position y(),camera position z()
df(n)=1:EndIf:If df(n)=1:move object n+en,0.5:dist(n)=dist(n)+1:if (sqrt((camera position x()-object position x(n+en) )^2+(camera position y()-object position y(n+en) )^2+(camera position z()-object position z(n+en) )^2)<1.0) And (Tuto=0)
fini=1:exit:endif:if (dist(n)>300):dist(n)=0:delete object n+en:df(n)=0:endif:endif:Next n:if fini=1:if explo:if object exist(explo):delete object explo:endif:endif:BackDrop Off:Cls
Text 0,Screen Height()-64,"LOST! (Only "+str$(en-qqch)+" killed)":exit:endif:if leftkey():turn camera left 90:move camera 1:turn camera right 90:endif:if rightkey():turn camera right 90:move camera 1:turn camera left 90:endif
move camera (upkey()-downkey() ):turn camera right mousemovex()/4.0:pitch camera down mousemovey()/4.0:if explo:scroll object texture explo,0.0,fact#:fact#=fact#*.95:if (timer()-impact)>1000:delete object explo:explo=0:EndIf:endif:sync
loop:Text 0,64,"[Enter] New game":Text 0,128,"[Other] End":do:k$=inkey$():if k$<>"":exit:endif:sync:loop:if k$<>chr$(13):exit:endif:BackDrop On:Sync:Loop