Sorry your browser is not supported!

MaxObjects=200:color backdrop rgb(3,61,39):autocam off

for m=1 to MaxObjects
make object cube m,.1    
position object m,rnd(15)-rnd(15),0,rnd(15)-rnd(15)
color object m,rgb(0,rnd(100),rnd(100))
NEXT

Player=4000
make object sphere Player,.4:color object Player,rgb(200,0,0)
position camera 0,10,0
pitch camera down 90

sync on:sync rate 25
do
Nearest#=100000:Closest=0
for m=1 to MaxObjects
dist#=100000:Speed#=0
if object exist(m) and NoPoint<>m then point object m,0,0,0
for c=1 to MaxObjects
Go=0
if object exist(c) and object exist(m) then Go=1
if c<>m and Go=1
xdist#=abs(object position x(m)-object position x(c))
zdist#=abs(object position z(m)-object position z(c))
Tdist#=sqrt((xdist#*xdist#)+(zdist#*zdist#))
if Tdist#<dist# then dist#=Tdist#:ThisGuy=c
ENDIF
next
Speed#=dist#*.01
if dist#<.2 then Speed#=Speed#*.5:yrotate object m,object angle y(m)+12:move object m,-Speed#*2:NoPoint=m:Move Object ThisGuy,Speed#*2 `yrotate object c,object angle y(c)+rnd(3)
if object exist(m)
xdist#=abs(object position x(m)-object position x(Player))
zdist#=abs(object position z(m)-object position z(Player))
dist2#=sqrt((xdist#*xdist#)+(zdist#*zdist#))
if dist2#<Nearest# then Nearest#=dist2#:Closest=m
if dist2#<.4 then delete object m else move object m,Speed#
ENDIF
NEXT
if Closest>0 then if object exist(Closest) then move object Closest,.01
sync
LOOP

Rem Project: test13
Rem Created: Sunday, May 18, 2014

Rem ***** Main Source File *****
make object box 1, 20, 10, 10: color object 1,RGB(255,0,0): rem player object
make object box 2, 10, 10, 10: color object 2, RGB(192,0,0): rem player attack object
make object sphere 3, 60: hide object 3


numberofenemies = 35
for a = 10 to numberofenemies
make object sphere a, 20: set object wireframe a, 1: hide object a: rem collision boundary
make object box a + 100, 20, 10, 10: color object a + 100, RGB(192,255,0): rem enemy
make object box a + 200, 10, 10, 10: hide object a + 200: rem forward collision detection
make object box a + 300, 2, 2, 30: set object collision off a + 300: rem spear
glue object to limb a + 300, a + 100, 0: offset limb a + 300, 0, 10, 0, 0: rotate limb a + 300, 0, 0, -15, 0
make object cone a + 400, 10: set object collision off a + 400: rem spearhead
glue object to limb a + 400, a + 300, 0: offset limb a + 400, 0, 0, 0, 20: rotate limb a + 400, 0, 90, 0, 0

yrotate object a + 100, rnd(360): move object a + 100, rnd(300) + rnd(100)
set object collision off a + 100

dim updown(a)
next

sync on
do

REM CAMERA
position camera object position x(1), 350, object position z(1)
point camera object position x(1), 0, object position z(1)

REM PLAYER CONTROLS
position object 3, object position x(1), object position y(1), object position z(1)

if upkey() = 1
	position object 2, object position x(1), object position y(1), object position z(1)
	set object to object orientation 2, 1: move object 2, 15
	if object collision (2, 0) < 10 or object collision (2, 0) > 10 + numberofenemies then move object 1, .5
endif

if downkey() = 1
	position object 2, object position x(1), object position y(1), object position z(1)
	set object to object orientation 2, 1: move object 2, -15
	if object collision (2, 0) < 10 or object collision (2, 0) > 10 + numberofenemies then move object 1, -.5
endif
	
if leftkey() = 1 then turn object left 1, 1
if rightkey() = 1 then turn object right 1, 1

if spacekey() = 1
	position object 2, object position x(1), object position y(1), object position z(1)
	set object to object orientation 2, 1: move object 2, 15
	else 
	position object 2, 0, -5000, 0
endif

REM ENEMY
for a = 10 to numberofenemies

REM ENEMY GETTING HIT
set object collision on a + 100
if object collision (2, a + 100) = 1
	updown(a) = 1
endif
set object collision off a + 100

if updown(a) => 1 and updown(a) < 100
	position object a + 100, object position x(a + 100), object position y(a + 100) + .5, object position z(a + 100)
	move object a + 100, -.5
	inc updown(a), 1
endif
if updown(a) => 100 and object position y(a + 100) => 0
	position object a + 100, object position x(a + 100), object position y(a + 100) - .5, object position z(a + 100)
	move object a + 100, -.5
	inc updown(a), 1
endif

if updown(a) > 100 and object position y(a + 100) <= 0 
	position object a + 100, object position x(a + 100), 0, object position z(a + 100)
	updown(a) = 0
endif

REM ENEMY MOVEMENT AND OVELAPPING AVOIDANCE
point object a + 100, object position x(1), object position y(1), object position z(1)
position object a, object position x(a + 100), object position y(a + 100), object position z(a + 100)
position object a + 200, object position x(a + 100), object position y(a + 100), object position z(a + 100)
set object to object orientation a + 200, a + 100: move object a + 200, 20

if object collision (a, 0) > 0
	col = object collision (a, 0)
	distancea = Abs(Sqrt((object position x(1) - object position x(a)) ^ 2 + (object position y(1) - object position y(a)) ^ 2 + (object position z(1) - object position z(a)) ^ 2))
	distanceb = Abs(Sqrt((object position x(1) - object position x(col)) ^ 2 + (object position y(1) - object position y(col)) ^ 2 + (object position z(1) - object position z(col)) ^ 2))
endif

if object collision (a + 200, 0) <= 0 or object collision (a, 0) > 0 and distancea < distanceb and object collision (a, 1) = 0 and object collision (a + 200, 0) <= 0
	if updown(a) = 0 then move object a + 100, .2
endif

REM ENEMY SPEAR ATTACK
set object collision on 3
if object collision(a, 3) = 1
	offset limb a + 300, 0, 10, 0, 10
	else
	offset limb a + 300, 0, 10, 0, -10
endif
set object collision off 3

next

set cursor 0, 0: print "Use Arrow Keys to control the player and Spacebar to hit enemies"

sync
loop