ok now DB original compatible:
Randomize Timer() : Dim Properties#(102, 5) : Autocam Off : Set Text Font "Comic Sans MS" : Set Text Size 20
Set Text To Bold : Ink RGB(0,255,0), 0 : Color Backdrop RGB(0,0,0) : Make Object Box 101, 30.0, 1.0, 20.0 : Make Object Box 102, 30.0, 1.0, 20.0
Position Object 101, 10.0, 60.0, 100.0 : Position Object 102, -240.0, 60.0, 100.0 : Make Object Sphere 2000, 6.0 : Color Object 2000, RGB(6,255,0) : Set Object Collision To Boxes 2000
Position Object 2000, 10.0, 65.0, 100.0 : Position Camera -105.0, 100, -100.0 : Make Light 1 : Position Light 1, -105.0, 100, -100.0 : Point Light 1, 0.0,0.0,0.0
Hide Mouse : For I=1 To 10 : Properties#(I*10, 1)=-1.0^Rnd(2) : Properties#(I*10, 2)=Rnd(20) : Properties#(I*10, 3)=(Rnd(50))/50.0
For N=1 To 10 : Num=(I-1)*10+N : Make Object Box Num, 20.0, 1.0, 20.0 : Position Object Num, 0.0-I*21.0, 0.0+(N-1)*20.0+Properties#(I*10, 2), 100.0 : Make Object Sphere 1000+Num, 8.0:scale object 1000+Num,100, 25 , 50
Set Object Collision To Boxes 1000+Num : Position Object 1000+Num, 0.0-I*21.0, 0.0+(N-1)*20.0+Properties#(I*10, 2), 100.0 : Color Object Num, Rgb(Rnd(255), Rnd(255), Rnd(255)) : Color Object 1000+Num, Rgb(255, Rnd(255), Rnd(255))
Ghost Object On 1000+Num
Properties#(Num, 4)=(1+Rnd(4))*10 : Properties#(Num, 5)=Properties#(I*10, 2) : Next N : Next I : Sync Rate 60
Sync On : Do : For I=1 To 10 : For N=1 To 10 : Num=(I-1)*10+N
NewY#=Object Position Y(Num)+(Properties#(I*10, 3)*Properties#(I*10, 1)) : If NewY# > 200.0 : NewY#=0.0 : EndIf : If NewY# < 0.0 :
NewY#=200.0 : EndIf : Position Object Num, Object Position X(Num), NewY#, Object Position Z(Num) : Position Object 1000+Num, Object Position X(Num), NewY#+5.0, Object Position Z(Num) : If (Object Visible(1000+Num)=0) And RND(1000)=777
Show Object 1000+Num : Set Object Collision On 1000+Num : EndIf : Next N : Next I
If RightKey() :turn object right 2000,90: Move Object 2000, 1.0:turn object left 2000,90 : EndIf : If LeftKey() : turn object left 2000,90:Move Object 2000, 1.0:turn object right 2000,90
EndIf :xrotate object 2000,wrapvalue(object angle x(2000)+90) :Move Object 2000, 3.0 : xrotate object 2000,wrapvalue(object angle x(2000)-90) :Obj=Object Collision(2000, 0) : If Obj => 1000 And Obj <= 1100 : Set Object Collision Off Obj
Hide Object Obj : LPoints=Properties#(Obj-1000, 4) : TPoints=TPoints+LPoints : Text Object Screen X(Obj), Object Screen Y(Obj)-30, Str$(LPoints) : Inc TGems
Obj=Obj-1000 : EndIf : If Obj > 0 And Obj <= 1000 : Position Object 2000, Object Position X(2000), Object Position Y(Obj)+4.0, Object Position Z(2000) : EndIf
If Object Position Y(2000) > 200.0 Or Object Position Y(2000) < 0.0 : Set Text Size 36 : Center Text Screen Width()/2, Screen Height()/2, "Game Over. Your Score: "+Str$(TPoints) : Sync : Wait Key
End : EndIf : Text 10, 10, "Gem Hunter by DMiTR0S: Left/Right - Arrow Keys; FPS = "+Str$(Screen Fps())+Chr$(10)+"Score: "+Str$(TPoints)+Chr$(10)+"Total Gems: "+Str$(TGems) : Sync : Loop
but... i dont know if my conversion is right for 1 thing cause i dont have dbpro...:
i have replaced that:
Make Object Sphere 1000+Num, 8.0, 2.0, 4.0
by that:
Make Object Sphere 1000+Num, 8.0:scale object 1000+Num,100, 25 , 50
does it right?
