Sorry your browser is not supported!

Rem ***** Main Source File *****
sync on
sync rate 0
color backdrop 0
set image colorkey 5,5,5
autocam off
position camera 0,0,0,-10
make object cylinder 1,1
make mesh from object 1,1
make object sphere 2,1
make mesh from object 2,2
delete object 2
add limb 1,1,1
add limb 1,2,2
link limb 1,1,2
offset limb 1,2,0,.5,0
scale limb 1,2,200,10,200
add limb 1,3,1
offset limb 1,3,.7,0,0
scale limb 1,3,25,100,25
add limb 1,4,1
scale limb 1,4,25,100,25
offset limb 1,4,-.7,0,0
add limb 1,5,1
scale limb 1,5,25,100,25
offset limb 1,5,0,0,.7
add limb 1,6,1
scale limb 1,6,25,100,25
offset limb 1,6,0,0,-.7
add limb 1,7,1
rotate limb 1,7,45,0,90
offset limb 1,7,.4,.2,.4
scale limb 1,7,15,110,15
add limb 1,8,1
rotate limb 1,8,45,0,90
offset limb 1,8,-.4,.2,-.4
scale limb 1,8,15,110,15
add limb 1,9,1
rotate limb 1,9,135,0,90
offset limb 1,9,.4,.2,-.4
scale limb 1,9,15,110,15
add limb 1,10,1
rotate limb 1,10,135,0,90
offset limb 1,10,-.4,.2,.4
scale limb 1,10,15,110,15

add limb 1,11,1
rotate limb 1,11,45,0,90
offset limb 1,11,.4,-.2,.4
scale limb 1,11,15,110,15
add limb 1,12,1
rotate limb 1,12,45,0,90
offset limb 1,12,-.4,-.2,-.4
scale limb 1,12,15,110,15
add limb 1,13,1
rotate limb 1,13,135,0,90
offset limb 1,13,.4,-.2,-.4
scale limb 1,13,15,110,15
add limb 1,14,1
rotate limb 1,14,135,0,90
offset limb 1,14,-.4,-.2,.4
scale limb 1,14,15,110,15
rem make images
rem cargo image
center text screen width()/2,screen height()/2,"Making images please wait..."
sync
sync

DO
center text screen width()/2,0,"FPs="+str$(screen fps())+" Poly's="+str$(statistic(1))
`if object in screen(1)=1 then center text object screen x(1),object screen y(1)-45,"Craft angle X="+str$(object angle x(1))+" Y="+str$(object angle y(1))+" Z="+str$(object angle z(1))
turnobject()

sync
loop



function turnobject()
yrotate object 1,wrapvalue(object angle y(1))+.1
xrotate object 1,wrapvalue(object angle x(1))+.1
zrotate object 1,wrapvalue(object angle z(1))+.1

endfunction

rem Created by RiiDii
Rem ***** Main Source File *****
Sync On:
Sync Rate 60:
Autocam Off:
Global n#:
Global cFlag as Integer:
Global LimbMatrix As Integer:
Global EyeVector As Integer:
Global LookAtVector As Integer:
Global LookUpVector As Integer:
Global DropDown as Integer:
Global dd as Integer:
Global tx#:
Global ty#:
Global tz#:
Global MaxArry as Integer:
Global Score as Integer:
Dim KickFlag(1) as Float:
Dim Kick(5):
Dim cFlag(0) as Integer:
Dim n(0) as Float
Dim PreLimb(0):LimbMatrix=6:EyeVector=3:
LookAtVector=4:LookUpVector=5:
For i = 1 to 6
   r=Make Vector3(i):
Next i:
r = Make Matrix4( LimbMatrix )
Make Object Sphere 1,6,8,8
Prepare_Limb(1,0,2)
Delete Object 1
Make Object Sphere 1,6,15,15:
Set Object Collision To Spheres 1:
Make Object Box 2,100,5,120:
Make Object Box 3,20,11,5:
Offset Limb 3,0,8,0,0:
Make Mesh From Object 3,3:
Delete Object 3:
Add Limb 2,1,3
Prepare_Limb(2,1,.001):
Offset Limb 2,1,-20,2.6,-50:
Rotate Limb 2,1,0,30,0:
Color Limb 2,1,Rgb(50,50,100):
Add Limb 2,2,3:
Prepare_Limb(2,2,.001):
Offset Limb 2,2,20,2.6,-50:
Rotate Limb 2,2,0,-210,0:
Color Limb 2,2,Rgb(50,50,100):
Add_Limb(2,7,10,120,-50,3,0,0,0,0):
Add_Limb(2,7,10,120,50,3,0,0,0,0):
Add_Limb(2,100,10,7,0,3,60,0,0,0):
Add_Limb(2,4,6,4,0,3,30,0,42,0):
Add_Limb(2,4,6,4,-9,3,20,0,45,0):
Add_Limb(2,4,6,4,9,3,20,0,48,0):
Add_Limb(2,18,8,4,-30,3,-45,0,20,0):
Add_Limb(2,18,8,4,30,3,-45,0,-200,0):
Add_Limb(2,6,6,6,-47,3,-30,0,45,0):
Add_Limb(2,6,6,6,47,3,-30,0,45,0):
rr=Add_Limb(2,2,8,7,20,3,35,0,0,0)
Add_Limb(2,2,8,7,29,3,34,0,0,0):
Add_Limb(2,2,8,7,38,3,33,0,0,0):
Add_Limb(2,21,8,3,-31,3,-27,0,40,0):
Add_Limb(2,21,8,3,31,3,-27,0,-220,0):
dd=Add_Limb(2,20,8,4,-30,2.4,53,0,0,0):
Add_Limb(2,5,7,5,-36,3,-41,0,20,0):
Add_Limb(2,5,7,5,36,3,-41,0,-200,0):
l=Add_Limb(2,100,.1,120,0,8.5,0,0,0,0):
Hide Limb 2,l:
Color Limb 2,0,RGB(100,100,254):
Set Object Collision Off 2:
Position Camera 0,70,-80:
Point Camera 0,0,0:
Make Object Sphere 3,9:
Scale Object 3,100,40,100:
Make Mesh From Object 3,3:
Delete Object 3:
Pitch Object Up 2,3:
For i = 0 to 2:
   Make Object 11+i,3,0
   Position Object 11+i,Limb Position X(2,6+i),Limb Position Y(2,6+i)+2.0,Limb Position Z(2,6+i):
   Set Object Collision To Spheres 11+i:
   Color Object 11+i,Rgb(255,0,0):
Next i:
Make Object Box 14,17,7,1:
Position Object 14,Limb Position X(2,16)+1.2,Limb Position Y(2,16)+.1,Limb Position Z(2,16)+1.2:
Rotate Object 14,0,40,0:
Set Object Collision To Boxes 14:
Color Object 14,rgb(255,0,0):
Clone Object 15,14:
Position Object 15,Limb Position X(2,17)-1.2,Limb Position Y(2,17)+.1,Limb Position Z(2,17)+1.2:
Rotate Object 15,0,-220,0:
Set Object Collision To Boxes 15:
Color Object 15,rgb(255,0,0):
For i = 1 to 3:
   Make Object Box 15+i,.5,.5,4:
   Position Object 15+i,16+(i*9),Limb Position Y(2,rr+(i-1))+1,36-i:
   Color Object 15+i,0:
   Set Object Collision To Boxes 15+i:
Next i
For i = 1 to 3:
   Make Object Box 18+i,4,6.5,2:
   Position Object 18+i,-40+(i*5),Limb Position Y(2,dd),51:
   Color Object 18+i,Rgb(255,0,0):
   Set Object Collision To Boxes 18+i:
Next i:
Position Object 1,0,-20,40:
Do:
   Balls=0:Score=0:
   Do:
   If ReturnKey() And Object Position Y(1)<-20:
      Balls=Balls+1:
      Position Object 1,35,6,45:
      Set Vector3 2,-(Rnd(20.0)/10.0)-.5,0,0:
   Endif:
   tx#=Object Position X(1):
   ty#=Object Position Y(1):
   tz#=Object Position Z(1):
   If SpaceKey()
      Position Object 2,0,0,.5:
   Else:
      Position Object 2,0,0,0:
   Endif:
   LV3#=Length Vector3(2):
   If LV3#>2.9:
      Scale Vector3 2,2,2.9/LV3#:
   Endif
   Position Object 1,Object Position X(1)+X Vector3(2),Object Position Y(1)+Y Vector3(2)-.2,Object Position Z(1)+Z Vector3(2):
   Kickers():
   c=Check_Collision(1,0,2,1,0):
   Position Object 1,X Vector3(20), Y Vector3(20), Z Vector3(20):
   Set Vector3 2,(Object Position X(1)-tx#),(Object Position Y(1)-ty#),(Object Position Z(1)-tz#):
   Flipper(1):
   Flipper(2):
   Sync_Flag=(Sync_Flag<3)+(Sync_Flag<2)+(SyncFlag<1):
   If Sync_Flag=1:
      Set Cursor 0,0:
      Print "Score: ";Score:
      Print "Ball:  ";Balls
      Print Prelimb(20):
      Sync:
   Endif:
   if Balls=5 And Object Position Y(1)<-19:
   Exit
   Endif
   Loop
   Wait 300
   Clear Entry Buffer
   Do
   Set Cursor 0,0:
   Print "Score: ";Score:
   Print "Ball:  ";Balls:
   Print:
   Print "Game Over. Press Any Key":
   If Inkey$()<>""
      Exit
   Endif
   Sync
   Loop
Loop
Function Flipper(side):
ks=(side=1)*29+(side=2)*157:
ang#=(side=1)*30+(side=2)*-210:
If KickFlag(side-1)<60 and (KeyState(ks) or KickFlag(side-1)>0):
   KickFlag(side-1)=KickFlag(side-1)+7:
   Rotate Limb 2,side,0,ang#-KickFlag(side-1)*((side=1)-(side=2)),0:
   c=Check_Collision(2,side,1,1,0):
      If c
         Set Vector3 2,X Vector3(2),Y Vector3(2),.5+(Z Vector3(2)*(Z Vector3(2)>0)):
         Position Object 1,Object Position X(1)+X Vector3(2)*.15,Object Position Y(1)+Y Vector3(2)*.15,Object Position Z(1)+Z Vector3(2):
      Endif
Endif
If KickFlag(side-1)>59 and KeyState(ks)=0:
   KickFlag(side-1)=0:
   Rotate Limb 2,side,0,ang#,0:
Endif
Endfunction:
Function Kickers():
k=Object Collision(1,0):
Select k:
   Case 11,12,13:
   If Kick(k-11)<1:dx#=(Object Position X(1)-Object Position X(k))*.2+X Vector3(2)*.1
      dy#=(Object Position Y(1)-Object Position Y(k))*.2+Y Vector3(2)*.15:
      dz#=(Object Position Z(1)-Object Position Z(k))*.2+Z Vector3(2)*.1:
      Position Object 1,Object Position X(1)-dx#,Object Position Y(1)-dy#,Object Position Z(1)-dz#
      tx#=Object Position X(1):
      ty#=Object Position Y(1):
      tz#=Object Position Z(1):
      Position Object 1,Object Position X(1)+dx#,Object Position Y(1)+dy#,Object Position Z(1)+dz#:
      Kick(k-11)=7:Score=Score+10:
      Set Object Emissive k,Rgb(255,100,100):
   Endif:
EndCase:
Case 14
   Position Object 1,Object Position X(1)-(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):
   tx#=Object Position X(1):
   ty#=Object Position Y(1):
   tz#=Object Position Z(1):
   Position Object 1,Object Position X(1)+(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):
   Set Object Emissive 14,Rgb(255,100,100):Kick(3)=7:
   Score = Score + 1:
EndCase:
Case 15:
   Position Object 1,Object Position X(1)+(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):
   tx#=Object Position X(1):
   ty#=Object Position Y(1):
   tz#=Object Position Z(1):
   Position Object 1,Object Position X(1)-(1.5+X Vector3(2)*.2),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):
   Set Object Emissive 15,Rgb(255,100,100):
   Kick(4)=7:
   Score = Score + 1:
EndCase:
Case 16,17,18
   Score = Score + 2:
EndCase:
Case 19,20,21:
   Position Object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)+(1.5+Z Vector3(2)*.2):
   tx#=Object Position X(1):
   ty#=Object Position Y(1):
   tz#=Object Position Z(1):
   Position Object 1,Object Position X(1),Object Position Y(1),Object Position Z(1)-(1.5+Z Vector3(2)*.2):
   Position Object k,0,-10,0:
   DropDown=DropDown+1:
   Kick(4)=7:
   Score = Score + 10:
EndCase:
EndSelect
For i = 11 to 15:
   Kick(i-11)=Kick(i-11)-(Kick(i-11)>0):
   If Kick(i-11)=1:
      Set Object Emissive i,0:
   Endif
`   A_Constant 0
next i
EndFunction
Function Add_Limb(ObjectID,sx#,sy#,sz#,px#,py#,pz#,ax#,ay#,az#)
Make Object Box 3, sx#,  sy#, sz#
Make Mesh From Object 3,3

Delete Object 3
i = 1
Do
If Limb Exist(ObjectID,i)=0:
   Exit
Endif
i = i + 1
Loop
Add Limb ObjectID,i,3:
Offset Limb ObjectID,i,px#,py#,pz#:
Rotate Limb ObjectID,i,ax#,ay#,az#
EndFunction i
function Prepare_Limb(ObjectID,LimbID,C_Factor#)

arry = ObjectID * 20 + LimbID
max = 1
If MaxArry>1
For i = 1 to MaxArry
   If max<PreLimb(i)
      max=PreLimb(i)
   Endif:
Next i
Endif
If MaxArry<arry:
   MaxArry=arry:
   Dim PreLimb(arry) as Integer:
   PreLimb(arry)=1
   Dim LMX(arry,max) as Float:
   Dim LMY(arry,max) as Float:
   Dim LMZ(arry,max) as Float:
Endif:
Lock VertexData for Limb ObjectID,LimbID:
VIC=Get Vertexdata Index Count():
n=0:
LMX(arry,n)=Get VertexData Position X(Get IndexData(0)):
LMY(arry,n)=Get VertexData Position Y(Get IndexData(0)):
LMZ(arry,n)=Get VertexData Position Z(Get IndexData(0)):
c#=C_Factor#*C_Factor#:n=1:
For i = 1 to VIC:
   tx#=Get VertexData Position X(Get IndexData(i)):
   ty#=Get VertexData Position Y(Get IndexData(i)):
   tz#=Get VertexData Position Z(Get IndexData(i)):
   flag=0:
   For j=1 to n:
      d#=((tx#-LMX(array,j))*(tx#-LMX(array,j))+(ty#-LMY(array,j))*(ty#-LMY(array,j))+(tz#-LMZ(array,j))*(tz#-LMZ(array,j))):
      if d#<c# or (tx#=LMX(arry,0) and ty#=LMY(arry,0) and tz#=LMZ(arry,0))
         flag=1:
         Exit:
      Endif:
   Next j:
   If flag=0:n=n+1:
      If n>max:max=n:PreLimb(arry)=n:
         Dim LMX(arry,n) as Float:
         Dim LMY(arry,n) as Float:
         Dim LMZ(arry,n) as Float:
      Endif:
      LMX(arry,n)=tx#:LMY(arry,n)=ty#:LMZ(arry,n)=tz#:
   Endif:
Next i:
PreLimb(arry)=n:
Unlock VertexData
Endfunction:
Function LimbMatrix4(ResultMatrix, Object, Limb):
AX#=Limb Direction X( Object, Limb ) :
AY#=Limb Direction Y( Object, Limb ) :
AZ#=Limb Direction Z( Object, Limb ):
CX#=Cos(AX#) :
SX#=Sin(AX#) :
CY#=Cos(AY#) :
SY#=Sin(AY#) :
CZ#=Cos(AZ#) :
SZ#=Sin(AZ#):
Set Vector3 EyeVector, Limb Position X( Object, Limb), Limb Position Y( Object, Limb), Limb Position Z( Object, Limb):
Set Vector3 LookAtVector, -1.0*SZ#*(-1.0*SX#)+CZ#*SY#*CX#+Limb Position X(Object,Limb), CZ#*(-1.0*SX#)+SZ#*SY#*CX#+Limb Position Y(Object,Limb), CY#*CX#+Limb Position Z(Object,Limb):
Set Vector3 LookUpVector, -SZ#*CX#+CZ#*SY#*SX#, CZ#*CX#+SZ#*SY#*SX#, CY#*SX#:
Build LookAt LHMatrix4 ResultMatrix, EyeVector, LookAtVector, LookUpVector:
r=Inverse Matrix4( ResultMatrix, ResultMatrix ):
`#Constant A_Constant 0
DropDown = DropDown+(DropDown>2):
If DropDown>10
   Score = Score + 100:
   DropDown=0
   For i = 1 to 3
      Position Object 18+i, -40+(i*5), Limb Position Y(2,dd), 51
   Next i
Endif
EndFunction

Function Check_Collision(ObjectID as DWord,LimbID as DWord,TargetID as DWord,accuracy#,cycles):
arry=ObjectID*20+LimbID:
r=Make Vector3(arry):
if Array Count(cflag(0))<arry:
   Dim cFlag(arry) as Intger:
   Dim n(arry) as Float:
Endif:
LimbMatrix4(LimbMatrix, ObjectID, LimbID):
st=1.0/accuracy#:
MC=PreLimb(arry):
If cFlag(arry)=0:n(arry)=1:
   Set Vector3 arry,Limb Position X(ObjectID,LimbID),Limb Position Y(ObjectID,LimbID),Limb Position Z(ObjectID,LimbID):
   Else:
   if n(arry)>1:n(arry)=2:
      Set Vector3 arry,X Vector3(arry)+Limb Position X(ObjectID,LimbID),Y Vector3(arry)+Limb Position Y(ObjectID,LimbID),Z Vector3(arry)+Limb Position Z(ObjectID,LimbID):
   Endif:
Endif
For i = 0+cFlag(arry) to MC step st:
   Set Vector3 1,LMX(arry,i),LMY(arry,i),LMZ(arry,i):
   Transform Coords Vector3 1, 1, LimbMatrix:
   d#=Intersect Object(TargetID,Limb Position X(ObjectID,LimbID),Limb Position Y(ObjectID,LimbID),Limb Position Z(ObjectID,LimbID),X Vector3(1),Y Vector3(1),Z Vector3(1)):
   if d#>0:
      Set Vector3 1,X Vector3(1)-Limb Position X(ObjectID,LimbID),Y Vector3(1)-Limb Position Y(ObjectID,LimbID),Z Vector3(1)-Limb Position Z(ObjectID,LimbID):
      d2#=Length Vector3(1):
      id2#=d2#-d#:
      Multiply Vector3 1,-(id2#/d2#):
      Set Vector3 arry,X Vector3(arry)+(Limb Position X(ObjectID,LimbID)+X Vector3(1))*id2#,Y Vector3(arry)+(Limb Position Y(ObjectID,LimbID)+Y Vector3(1))*id2#,Z Vector3(arry)+(Limb Position Z(ObjectID,LimbID)+Z Vector3(1))*id2#:
      n(arry)=n(arry)+id2#:
   Endif:
Next i:
cFlag(arry)=cFlag(arry)+1:
if cFlag(arry)>cycles:
   cFlag(arry)=0:
Endif:
Set Vector3 arry,X Vector3(arry)/n(arry),Y Vector3(arry)/n(arry),Z Vector3(arry)/n(arry):
Hit=(n(arry)>1)
EndFunction Hit


`Thanks to Dmitry K for the LimbMartix4() function!

Sync On:Sync Rate 60:Autocam Off

Dim Momentum(10) as Vector

Type Vector
   x as Float
   y as Float
   z as Float
EndType


For i = 1 to 10
   Make Object Sphere i,10,8,8
   Color Object i,Rgb(rnd(255),rnd(255),rnd(255))
   Set Object Collision On i
   Set Object Collision To Spheres i
   Position Object i,rnd(100)-50,rnd(100)-50,rnd(100)-50
   Momentum(i).x=Rnd(100.0)/100.0-Rnd(100.0)/100.0
   Momentum(i).y=Rnd(100.0)/100.0-Rnd(100.0)/100.0
   Momentum(i).z=Rnd(100.0)/100.0-Rnd(100.0)/100.0
Next i

Make Object Cube 100,110
Set Object Cull 100,0
Set Object Emissive 100,Rgb(100,100,100)
Set Object Collision Off 100

Position Camera 0,0,-55

Do
   Set Cursor 0,0
   For i = 1 to 10
      oldx#=Object Position X(i)
      oldy#=Object Position Y(i)
      oldz#=Object Position Z(i)

      newx#=oldx#+Momentum(i).x
      newy#=oldy#+Momentum(i).y
      newz#=oldz#+Momentum(i).z


      `box collision

      If newx#>55
         Momentum(i).x=-Momentum(i).x
         newx#=54
      Endif
      If newx#<-55
         Momentum(i).x=-Momentum(i).x
         newx#=-54
      Endif
      If newy#>55
         Momentum(i).y=-Momentum(i).y
         newy#=54
      Endif
      If newy#<-55
         Momentum(i).y=-Momentum(i).y
         newy#=-54
      Endif
      If newz#>55
         Momentum(i).z=-Momentum(i).z
         newz#=54
      Endif
      If newz#<-55
         Momentum(i).z=-Momentum(i).z
         newz#=-54
      Endif

      `Ball Collision
      co=Object Collision(i,0)
      if co>0
         Momentum(i).x=Momentum(i).x*.3+(Object Position X(i)-Object Position X(co))*.03+Momentum(co).x*.3
         Momentum(i).y=Momentum(i).y*.3+(Object Position Y(i)-Object Position Y(co))*.03+Momentum(co).y*.3
         Momentum(i).y=Momentum(i).Z*.3+(Object Position Z(i)-Object Position Z(co))*.03+Momentum(co).z*.3
         Momentum(co).x=Momentum(co).x*.3+(Object Position X(co)-Object Position X(i))*.03+Momentum(i).x*.3
         Momentum(co).y=Momentum(co).y*.3+(Object Position Y(co)-Object Position Y(i))*.03+Momentum(i).y*.3
         Momentum(co).y=Momentum(co).Z*.3+(Object Position Z(co)-Object Position Z(i))*.03+Momentum(i).z*.3
      Endif

      Position Object i,newx#,newy#,newz#
   Next i


   Sync
Loop

angle# = atanfull(newX - oldX, newY - oldY)

Null=Make Vector3(1) :` Just need this line to create the vector. Ignore the "Null", it is just needed (can be any variable)

Set Vector3 1,2,3,4 :` Setting our vector

Print Length Vector3(1) :` Print the length of our vector.

Print Sqrt(2^2+3^2+4^2) :` Print the length the hard and slow way.

Wait Key :`Wait for a key.

End

`Connect to the FTP account
Print "Connecting...":FTP Connect "ftp.computerxtools.com","xxxxxx","xxxxxx":Sync
`Check if it connected
If Get FTP Status()=1
   `If it did connect...
   Print "Connection successful":Print "Getting file 'yourfile.ext'...":Sync
   `Set the directory to location of all DBPro related files, and get the file
   FTP Set Dir "DBPro":FTP Get File "yourfile.ext","yourfile.ext"
   `Check if it was successful
   If Get FTP Failure()=0
      Print "Get file succeeded!"
   Else
      Print "Get file failed!"
   Endif
   Sync
Else
   `If it didn't connect
   Print "Connection failed"
Endif

`Your Program
Do

Loop

rem PINBALL by Lewis Yates

make object sphere 1,2

make object cube 2,5 ; scale object 2,150,30,30
make object cube 3,5 ; scale object 3,150,30,30

rem objects 4 to 10 are walls
for x=4 to 10
  make object cube x,5
  scale object x,300,25,25
next x

rem make a wall, that will make the ball
rem bounce to the flipper more betterer :)
zrotate object 4,45
position object 4,26,4.5,0
rem same thing, on the other side
zrotate object 5,315
position object 5,4,4.5,0
rem make the four vertical walls with
rem a gap in between for the fans to go in!
for x=6 to 7
 scale object x,150,25,25
  zrotate object x,90
 next x

for x=8 to 9
 scale object x,300,25,25
  zrotate object x,90
 next x

rem make fans!
for x=11 to 12
  make object cube x,4
  if x=11 then position object x,-2,19,0
  if x=12 then position object x,32,19,0
next x

position object 6,-1,13,0
position object 7,31,13,0
position object 8,-1,28,0
position object 9,31,28,0

rem put the roof on the arena
scale object 10,670,25,25
position object 10,15,36,0

rem put the flippers in the right places and
rem put the ball a little way up so it can fall
position object 2,10,-1,0
position object 3,20,-1,0
position object 1,15,25,0
position camera 15,20,-30

rem set up collision
for x=2 to 10
  set object collision to polygons x
next x

set object collision to spheres 1


rem begin polishing!
rem set object colours:

for x=4 to 10
  color object x,RGB(255,128,192)
next x
cls rgb(255,255,0) ; get image 1,0,0,16,16
color object 1,rgb(255,0,0)
color object 2,rgb(0,0,255)
color object 3,rgb(0,0,255)
color backdrop rgb(0,0,0)
make light 1
color light 1,0,255,0
set ambient light 10
color object 11,rgb(0,0,0)
color object 12,rgb(0,0,0)
make particles 1,1,10000,1
set particle life 1,20


rem set variables
x#=object position x(1)
y#=object position y(1)
velocity#=0.1
direction#=51
lives=4

sync on




do

if gravity#<0.001 then gravity#=gravity#+0.00001

wind#=0

rem control flippers
if keystate(30)=1 then leftflipper#=leftflipper#+10
if LeftFlipper#>90 then leftflipper#=90
if leftflipper#>0 then leftflipper#=leftflipper#-5
zrotate object 2,wrapvalue(leftflipper#)

if keystate(32)=1 then rightflipper#=rightflipper#-10
if RightFlipper#<-90 then Rightflipper#=-90
if Rightflipper#<0 then Rightflipper#=Rightflipper#+5
zrotate object 3,wrapvalue(Rightflipper#)

rem control wind
if rightkey()=1
  wind#=0.001
  xrotate object 11,object angle x(11)+10
endif
if leftkey()=1
  wind#=-0.001
  xrotate object 12,object angle x(12)+10
endif


               rem control ball
               for x=4 to 12
                  if object collision(1,x)=1
                    direction#=wrapvalue(direction#+45)
                    x#=newxvalue(x#,direction#,1)
                    y#=newzvalue(y#,direction#,1)
                    velocity#=velocity#/1.2
                    gravity#=0
                  endif
               next x

               if object collision(1,2)=1
                 if leftflipper#>oldleft# then velocity=velocity*2
                 direction#=wrapvalue(direction#+90)
                 x#=newxvalue(x#,direction#,1)
                 y#=newzvalue(y#,direction#,1)
                 gravity#=0
               endif

               if object collision(1,3)=1
                 if rightflipper#<oldright# then velocity#=velocity#*2
                 direction#=wrapvalue(direction#+90)
                 x#=newxvalue(x#,direction#,1)
                 y#=newzvalue(y#,direction#,1)
                 gravity#=0
               endif

               rem do wind
               if y#>15 and y#<23 then x#=x#+wind#

               rem sort out gravity
               y#=y#-gravity#

               x#=newxvalue(x#,direction#,velocity#)
               y#=newzvalue(y#,direction#,velocity#)

               position object 1,x#,y#,0

               cx#=curvevalue(x#,cx#,100)
               cy#=curvevalue(y#,cy#,100)

               position camera cx#,cy#,-25
               position light 1,x#,y#,-2
               position light 0,cx#,cy#,-10
               point light 0,x#,y#,0
               position particle emissions 1,x#,y#,0
               oldleft#=leftflipper#
               oldright#=rightflipper#

               a#=15-x#
               b#=15-y#
               c#=(a#*a#)+(b#*b#)
               dis#=sqrt(c#)
               if dis#>40
                 lives=lives-1
                 x#=rnd(10)+15
                 y#=rnd(10)
                 direction#=rnd(360)
               endif


text 0,0,"Lives Remaining: "+str$(lives)

rem recalculate direction, to calculate for any changes
direction#=ATANFULL(x#-oldx#,y#-oldy#)
oldx#=x#
oldy#=y#

rem end of loop
sync
loop

Sync ON: Sync Rate 100: Autocam Off

Make Object Cube 1,1
Position Object 1,-10,-6,20
Do
   Update_TimeFactor()
   Move Object 1,.3 * TimeFactor
   Turn Object Right 1,4.0 * TimeFactor

   If SpaceKey()=1
      Sync Rate 30
   Else
      Sync Rate 0
   Endif
   Set Cursor 0,0
   Print "FPS = ";Screen FPS()
   Print "Miliseconds = "; TimeFactor
   Print
   Print "Press Spacebar to lower FPS."

   Sync
Loop

#Constant TimeFactor TimeFactor(0)
Function Update_TimeFactor()
   Dim TimeStamp(0) as integer
   Dim TimeFactor(0) as float
   If TimeStamp(0)=0 Then TimeStamp(0)=Timer()-16
   t#=Timer()-TimeStamp(0)
   Timestamp(0)=Timer()
   `Shooting for 60 FPS, or 16 milliseconds each update.
   `If t#=16, then Timefactor = 1, or normal speed.
   `If t#=32 (approx 30 FPS), then the Timefactor = 2, or twice normal speed (because there are half as many updates)
   TimeFactor(0)=t#/16.0
Endfunction

update = 10 : `every 100th of a second
timestamp = timer()

DO
   rem movement/etc... all gets updated here
   if timer() >= timestamp+update

      timestamp = timer()
   endif

   sync
LOOP

Rem Speed, defined as DBP units per millisecond
objSpeed#=30.0/1000.0
objTimer=timer()

do
   Rem First we get the elapsed time, then multiply it times the speed
   time=timer()-objTimer
   timeStamp#=time*objSpeed#

   Rem Now we apply an absolute value to the movement
   if upkey() then move object obj, timeStamp#
   objTimer=timer()
loop