Sorry your browser is not supported!

Rem Collision System
Struck=object hit (1,0)
If Struck=0
Print "No objects hit"
else
Print "Object hit!!! ZOMG!"
end
Endif

Rem Load Setup
Set window on
Autocam off

Rem position camera
Position camera 0,0,5,0

Rem load media 
'Load object "",1
'Load object "",2
make object cube 1,1
make object cylinder 2,50

Rem Position objects
position object 1,0,5,10
position object 2,0,0,50 

Rem make Matrix Place-Holder
Make matrix 1,200,200,20,20
position matrix 1,10,0,0

Rem Chase-Cam 
Lock object on 1

Set global collision on

Do

Rem player movment 
Control camera using arrowkeys 0,0.01,0.01

Rem Collision System
Struck=object hit (1,0)
If Struck=0
Print "No objects hit"
else
Print "Object hit!!! ZOMG!"
end
Endif

loop

Sync On: CLS 0
Sync Rate 60
AutoCam Off
Hide Mouse
Make Matrix 1,2000,2000,20,20
Create Bitmap 1,128,128
CLS RGB(0,128,0)
Get Image 1,0,0,128,128
Set Current Bitmap 0
Delete Bitmap 1
Prepare Matrix Texture 1,1,1,1
Make Object Cube 1,3: Rem Our Cube
Position Object 1,1000,3,990
Color Object 1,RGB(255,0,0)
Make Object Cube 2,3
Position Object 2,1000,3,1000
Position Camera 1000,50.0,980
Point Camera 1000,3,980
Do
  If UpKey()=1 Then Move Object 1,0.1
  If DownKey()=1 Then Move Object 1,-0.1
  If LeftKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)-2.0)
  If RightKey()=1 Then YRotate Object 1,WrapValue(Object Angle Y(1)+2.0)
  ObjPosX#=Object Position X(1)
  ObjPosY#=Object Position Y(1)
  ObjPosZ#=Object Position Z(1)
  Position Camera ObjPosX#,30.0,ObjPosZ#
  If OBJECT HIT(1,2)=1
    for i=1 to 10
      Color Object 2,0
    `  Sleep 20
      sync
    next i
    Repeat
    Until OBJECT HIT(1,2)=0
    Color Object 2,RGB(255,255,255)
  Endif
  Sync
Loop
End

rem Setup Demo
sync on
sync rate 60
autocam off



rem Make a grid for a sense of position. This is in no way related to the COLLISION part of the program.
make matrix 1,1000,1000,20,20
position matrix 1,-500,0,-500

rem Make the little box we will control.
make object box 1,10,10,20

rem Make lots of other boxes that we can collide with. Position them randomly around the grid.
for c = 2 to 50
   make object cube c,10
   position object c,-400+rnd(800),0,-400+rnd(800)
next c

do

   rem Allow the box to be moved with the arrow keys.
   if upkey() then move object 1,3
   if downkey() then move object 1,-3
   if rightkey() then yrotate object 1,wrapvalue( object angle y(1)+2 )
   if leftkey() then yrotate object 1,wrapvalue( object angle y(1)-2 )

   rem Check to see if there's a collision, and store the returned value in a variable.
   Collision=object collision(1,0)

   rem If a collision occured, then print some text to the screen.
   if Collision>0
      ink rgb(255,0,0),0
      set cursor 10,10
      print "-=-=-=-= Objects 1 is colliding with object ",Collision," =-=-=-=-"

      rem Now, color the collision object RED
      color object Collision,rgb(255,0,0)
   endif


   rem Control the camera.
   position camera object position x(1),500,object position z(1)
   yrotate camera object angle y(1)
   xrotate camera 90

   sync
loop

set text size 16

Rem Load Setup
Set window on
Autocam off

Rem position camera
Position camera 0,0,5,0

Rem load media
'Load object "",1
'Load object "",2
make object cube 1,1      : color object 1,rgb(255,0,0)
make object cylinder 2,50

Rem Position objects
position object 1,0,5,10
position object 2,0,0,50

Rem make Matrix Place-Holder
Make matrix 1,200,200,20,20
position matrix 1,10,0,0

Rem Chase-Cam
Lock object on 1   ` A mistake of how to use.

Set global collision on

Do
  Rem player movment
  Control camera using arrowkeys 0, 0.1, 0.1

  Rem Collision System
  Struck=object hit (1,0)
  If Struck=0
    Print "No objects hit"
  else
    Print "Object hit!!! ZOMG!"
    end
  Endif

text 0,100, "object1:  "+str$(OBJECT POSITION X(1))+"  "+str$(OBJECT POSITION Y(1))+"  "+str$(OBJECT POSITION Z(1))
text 0,120, "object2:  "+str$(OBJECT POSITION X(2))+"  "+str$(OBJECT POSITION Y(2))+"  "+str$(OBJECT POSITION Z(2))
text 0,140, "CAMERA:   "+str$(CAMERA POSITION X()) +"  "+str$(CAMERA POSITION Y()) +"  "+str$(CAMERA POSITION Z())

loop

set text size 16

Rem Load Setup
Set window on
Autocam off

Rem position camera
Position camera 0,0,5,0

Rem load media
'Load object "",1
'Load object "",2
make object cube 1,1      : color object 1,rgb(255,0,0)
make object cylinder 2,50

Rem Position objects
position object 1,0,5,10
position object 2,0,0,50

Rem make Matrix Place-Holder
Make matrix 1,200,200,20,20
position matrix 1,10,0,0

Rem Chase-Cam
` Lock object on 1

Set global collision on
SHOW OBJECT BOUNDS 1
SHOW OBJECT BOUNDS 2

Do
  Rem player movment
  Control camera using arrowkeys 0, 0.1, 0.1

  IF KEYSTATE(17)=1 THEN MOVE OBJECT       1, 0.1
  IF KEYSTATE(31)=1 THEN MOVE OBJECT       1,-0.1
  IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT  1, 0.1
  IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1, 0.1

  Rem Collision System
  Struck=object hit (1,0)
  If Struck=0
    Print "No objects hit"
  else
    Print "Object hit!!! ZOMG!"
    end
  Endif

text 0, 80, "move: WSAD "
text 0,100, "object1:  "+str$(OBJECT POSITION X(1))+"  "+str$(OBJECT POSITION Y(1))+"  "+str$(OBJECT POSITION Z(1))
text 0,120, "object2:  "+str$(OBJECT POSITION X(2))+"  "+str$(OBJECT POSITION Y(2))+"  "+str$(OBJECT POSITION Z(2))
text 0,140, "CAMERA:   "+str$(CAMERA POSITION X()) +"  "+str$(CAMERA POSITION Y()) +"  "+str$(CAMERA POSITION Z())

loop

Do
  Rem player movment
`  Control camera using arrowkeys 0, 0.1, 0.1
  SET CAMERA TO FOLLOW   OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1), 0, 5, 1, 2, 1