Sorry your browser is not supported!

sync rate 60
make object cube 1,50 : set object collision on 1 : color object 1,RGB(255,0,0)
make object cube 2,50 : set object collision on 2 : color object 2,RGB(0,0,255)
make object cube 3,50 : set object collision on 3 : color object 3,RGB(0,255,0)
color backdrop rgb(0,0,0)
move1#=0
move2#=0
move3#=0
dogs#=0
position camera 0,1000,0
xrotate camera 90
position object 1,0,0,-500
position object 3,0,0,-100
position object 3,0,0,300

center text 320,16,"PRESS UP AND DOWN TO GAIN SPEED" : sync

do
if upkey()=1 then goto game
if downkey()=1 then goto game
center text 320,16,"PRESS UP AND DOWN TO GAIN SPEED" :loop

game:

do
if upkey()=1 then move1#=move1#+2
if downkey()=1 then move1#=move1#-2

move object 1,move1#
move object 2,move2#
move object 3,move3#

if move1#>0 then move1#=move1#-1
if move1#<0 then move1#=move1#+1
if move2#>0 then move2#=move2#-1
if move2#<0 then move2#=move2#+1
if move3#>0 then move3#=move3#-1
if move3#<0 then move3#=move3#+1
if move1#<1 and move1#>-1 then move1#=0
if move2#<1 and move2#>-1 then move2#=0
if move3#<1 and move3#>-1 then move3#=0

if object collision(1,2)=1 then move2#=move2#+move1#/2 : move1#=move1#/2-1
if object collision(1,3)=1 then move3#=move3#+move1#/2 : move1#=move1#/2-1
if object collision(2,3)=1 then move3#=move3#+move2#/2 : move2#=move2#/2-1

sync
loop

remstart
--------------------------------------------------------------

                    Rotated Box Collision
                      by Emperor-Baal

note:
-This method is not finished, im still tweaking it, but it works.

 It also works with sliding collision, which is explained in my tutorial:
 http://www.geocities.com/hatesurvivor/MathColl.htm

-This method only works with Y-rotated boxes (x and z size are the same)

-You may alter my code if you want. If you find a better way to check for
 collision with rotated boxes then email me at once ;)
 [email protected]
-------------------------------------------------------------
remend


rem Use this line to call the function

rem Rotated_Box_Collision( moving object number,  hard object number, hard object size / 1.414)



rem Sets the refresh rate to the maximum
sync on
sync rate 0


rem Lets make the cube that's hard
make object cube 2,10


`This is tha part that needs fixing
`**************************
`scale object 2,200,100,100
`**************************


rem Positions the cube at the center
position object 2,0,0,0


rem Lets make 291 spheres that will move towards the cube
for a=10 to 300
 make object sphere a,0.4
 position object a,rnd(100)-50,0,rnd(100)-50
 point object a,0,0,0
next a





rem Start of the main-loop
do

rem Check for collision with the spheres, if there's no collision then move the sphere closer.
for a=10 to 300

 rem Check if collision is possible, using a position check, if you have a pillar then you should change this
 if object position y(a) > object position y(2)-(object size y(2)/2.0)
  if object position y(a) < object position y(2)+(object size y(2)/2.0)
      rem rotated_box_collision(moving object, hard object, size of object 2 / 1.414
      if rotated_box_collision(a,2,object size x(2)/1.414) = 0 then move object a,0.05
  endif
 endif

next a


rem If the user presses the spacekey, the cube will rotate and every sphere that collides with the cube is repositioned to a random location
if spacekey()=1
 yrotate object 2,wrapvalue(object angle y(2)+0.2)
 for a=10 to 300
  if rotated_box_collision(a,2,10.0) = 1
  position object a,rnd(100)-50,0,rnd(100)-50
  point object a,0,0,0
  endif
 next a
endif



position camera 10,30,0
point camera 0, 0,0


sync
loop








function rotated_box_collision(a,b,size#)

rem Get some position values
x# = object position x(a)
y# = object position y(a)
z# = object position z(a)

x2# = object position x(b)
y2# = object position y(b)
z2# = object position z(b)

rem Get the angle for the distance check
ya# = wrapvalue(360-object angle y(b)) + 45.0 + atanfull(x#-x2#,z#-z2#)

rem 0.95 is the magical tweak number, try changing it by steps of 0.1
fla# = (0.95 - cos(45)) / 45.0


rem ---------------------------------------------------


rem Make sure it lies between 0.0 and 90.0
while ya# > 90.0
 ya# = ya# - 90.0
endwhile

while ya# < 0.0
 ya# = ya# + 90.0
endwhile


rem ---------------------------------------------------


rem This will try to get "real" distance to the cube
if ya# <= 45.0
 yb# = 1.0 - (ya# * fla#)
 rem Returns a value between 1.0 and 0.7
else
 yb# = 1.0 - ((45.0 - (ya# - 45.0))*fla#)
 rem Returns a value between 0.7 and 1.0
endif


rem ---------------------------------------------------


rem Reset the result
result = 0

rem Final Distance
superim# = size# * yb#

rem Ordinary distance check using the freshly calculated distance
if SQRT( (x#-x2#)^2 + (z#-z2#)^2 ) < superim# then result = 1
endfunction result

set display mode 800,600,32,1
sync on
sync rate 0
position camera 0,0,350,0
distance=100
turnspeed#=1
speed=400
dim hounds#(10,10)
for n=10 to 19
   make object cube n,10
   make object cube n+10,20
   position object n+10,0,0,1000
   yrotate object n+10,270
   make object cube n+20,20
   position object n+20,0,0,0
   yrotate object n+20,90
   hounds#(n-10,0)=distance+((n-10)*(object size(n)+5))
   hounds#(n-10,2)=(rnd(speed)/100)+1
   arc#=(hounds#(n-10,0)*3.141)/2
   arc2#=(arc#/hounds#(n-10,2))

   hounds#(n-10,1)=90/arc2#
next n

do

position camera 0,0,150,-400
point camera 0,0,0
for n=10 to 19
   if object position z(n)<=object position z(n+20)
      yrotate object n+10,270
      yrotate object n+20,wrapvalue(object angle y(n+20)+hounds#(n-10,1))
      hounds#(n-10,3)=newxvalue(object position x(n+20),object angle y(n+20),hounds#(n-10,0))
      hounds#(n-10,4)=newzvalue(object position z(n+20),object angle y(n+20),hounds#(n-10,0))
      yrotate object n,object angle y(n+20)
   endif
   if object position z(n)>object position z(n+20) and hounds#(n-10,4)<object position z(n+10)
      if object angle y(n+20)>90
         hounds#(n-10,3)=newxvalue(object position x(n),0,hounds#(n-10,2))
         hounds#(n-10,4)=newzvalue(object position z(n),0,hounds#(n-10,2))
      endif
      if object angle y(n+10)<270
         hounds#(n-10,3)=newxvalue(object position x(n),180,hounds#(n-10,2))
         hounds#(n-10,4)=newzvalue(object position z(n),180,hounds#(n-10,2))
      endif
   endif
   if object position z(n)=>object position z(n+10)
      yrotate object n+10,wrapvalue(object angle y(n+10)+hounds#(n-10,1))
      hounds#(n-10,3)=newxvalue(object position x(n+10),object angle y(n+10),hounds#(n-10,0))
      hounds#(n-10,4)=newzvalue(object position z(n+10),object angle y(n+10),hounds#(n-10,0))
      yrotate object n,object angle y(n+10)
      yrotate object n+20,90
   endif
   position object n,hounds#(n-10,3),y#,hounds#(n-10,4)
next n



sync
loop