Sorry your browser is not supported!

function make_bullet(player,hand$,bloom#) `============================================
    
      
    num = get_num()
    make object cylinder num,1
    scale object num,10,100,10
    rotate object num,90,0,0
    fix object pivot num
    position object num,object position x(players(player).obj),object position y(players(player).obj),object position z(players(player).obj)
    `put bloom into the shot
    derection = rnd(1)
    bloomanount# = rnd(bloom# * 20.0)
    if derection = 0
    rotate object num,0,wrapvalue(object angle y(players(player).obj) + bloomanount# / 20.0),0
    else
    rotate object num,0,wrapvalue(object angle y(players(player).obj) - bloomanount# / 20.0),0
    endif
    
   
    array insert at bottom rounds(0)
    rounds(array count(rounds())).player = player
    rounds(array count(rounds())).obj = num
    rounds(array count(rounds())).life = 2000
    SC_setupObject rounds(array count(rounds())).obj,10,2
   
       rounds(array count(rounds())).x = object position x(num) <--- saves the x cord of the place of start
       rounds(array count(rounds())).z = object position z(num) <--- saves the z cord of the place of start

    
ENDFUNCTION

function move_projectles() `================================================
  if array count(rounds()) > 0  
    for b = 1 to array count(rounds())
    done = 0
    
    print rounds(b).x
    `check sound
    move object rounds(b).obj,0.7
    SC_updateObject rounds(b).obj 
    dec rounds(b).life,gameTime*(1000.0/1000.0)  
        `if bullets life is up distroy it
        if rounds(b).life < 0 then remove_bullet(b) : done = 1
            `if impact with a wal distory it.
             if done = 0 then hit = SC_groupCollision(rounds(b).obj,1) <> 0
             if done = 0 and hit <> 0 then remove_bullet(b) : dec b,1 : done = 1
                `if impact with enemy. remove some of there health <------------- this is the start of the part that checks for a hit with an enemy in particular vs a wall hit or time to death.
               if done = 0
                hit = SC_groupCollision(rounds(b).obj,11)
                 if hit <> 0
                 hitx# = SC_getStaticCollisionX()
                 hitz# = SC_getStaticCollisionz()
                 ai_hit(hit,b,hitx#,hitz#) 
                 remove_bullet(b) 
                 dec b,1 
                 done = 1 <---------- this is the end of said check
                 
                 endif
                endif
               
    next b
  endif  
ENDFUNCTION

function ai_hit(ai,roundnum,hitx#,hitz#) `============================
    
    
    
    x1# = hitx#
    z1# = hitz#
    
    x2# = rounds(roundnum).x
    z2# = rounds(roundnum).z    
   
    dec testhealth,5
    dist# = distance(x1#,0,z1#,x2#,0,z2#)
    print "distance = ",dist#
    print "x1 = ",x1#," x2 = ",x2#
    print "z1 = ",z1#," z2 = ",z2#
    sync
    wait key
    
    
ENDFUNCTION

autocam off
sync on
hide mouse

`making 10 objects to add as limbs to the main one
for i= 1 to 10
  make object box i,40,2,40
  position object i,rnd(100),rnd(100),rnd(100)
  rotate object i,rnd(360),rnd(360),rnd(360)
  make mesh from object i,i
next i

`making the final object to add all limbs
make object box 11,0,0,0

for i= 1 to 10
   add limb 11,i,i
   offset limb 11,i,object position x(i),object position y(i),object position z(i)
   delete object i
next i
color object 11,rgb(200,0,200)

`intersect object
make object sphere 2,2:color object 2,rgb(255,0,0):set object radius 2,50

position camera -50,50,-50
do
set cursor 316,230
ink rgb(255,0,0)
print "."
`saving camera coords before moving
x#=camera position x()
y#=camera position y()
z#=camera position z()

`moving camera 1000 units and saving coords. after moving
move camera 1000

lx#=camera position x()
ly#=camera position y()
lz#=camera position z()

`moving camera back after saving coords.
move camera -1000

`distance is checked with both saved coords.
dis#= intersect object(11,x#,y#,z#,lx#,ly#,lz#)

`camera control.
control camera using arrowkeys 0,0.1,0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.1
if rightkey() then move camera right 0.1


`positioning object 2 in camera coords and moving it the distance (dis)
position object 2,x#,y#,z#
rotate object 2,cam#,a#,0
move object 2,dis#


for i= 1 to 10
  if limb collision(11,i,2,0)>0 then coll=i
next i

set cursor 225,10
ink rgb(255,255,0)
if dis#>0 then print "YOU PICK LIMB ",coll ,  "    at distance:" ,dis#

set cursor 0,0
if intersect object(11,x#,y#,z#,lx#,ly#,lz#)
   x= object position x(2)   :print "point of collision X  ",x: rem   collision x
   y= object position y(2)   :print "point of collision Y  ",y: rem   collision y
   z= object position z(2)   :print "point of collision Z  ",z: rem   collision z
endif

turn#=turn#+0.03
rotate limb 11,1,0,turn#,0
sync
loop