Sorry your browser is not supported!

sync on
sync rate 30
AI start

rem make ground
load image \"images\\grass.jpg\",1
make object box 40,1000,3,1000
position object 40 ,0,-40,0
texture object 40,1

rem Player creation
load object \"Link\\Link\\link.x\" ,1
position object 1,0,object position y(1)-20,0
AI add player 1
playerhealth = 15

rem zombie creation
for x= 2 to 11
   load object \"bloody ZOMBIE\\Zombie.x\",x
   position object x,rnd(2000)-1000,object position y(x)-35,rnd(2000)-1000
   scale object x,250,250,250

   AI add enemy x
   AI set entity aggressive x
   AI entity add target x,1
   AI set entity view range x, 2000
   AI set entity avoid distance x,90
   AI set entity attack distance x,100
   AI set entity speed x, 150
next x

do


rem Zombie controls
   for x= 2 to 11
      if AI get entity is moving(x)
         ZombieWalkF(x)
         Zdoing = 1
      endif
      if AI Get Entity Can Fire(x) = 1 and distance#<=100
         Zdoing = 1
         ZombieAttack(x)
      endif
      ZposX#=object position x(x)
      ZposZ#=object position z(x)
      c= abs((PposX#-ZposX#)^2)+abs((PposZ#-ZposZ#)^2)
      distance# = sqrt(c)
      if Zdoing = 0 then ZombieIdle(x)
      if object frame(x) = 13 or object frame(x) = 35 then playerhealth = playerhealth - 3
   next x
   ZDoing = 0

   rem health bar
   if playerhealth = 0
      set cursor 0,10
      print \"DEAD!\"
   endif
   set cursor 0,0
   print playerhealth

rem Player control
   SET CAMERA TO FOLLOW  object position x(1),object position y(1), object position z(1), object angle y(1), 100, 75, 1, 0

   if upkey()=1
      LinkWalkF()
      Ldoing=1
   endif

   if downkey()=1
      LinkWalkB()
      Ldoing = 1
   endif

   if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-3)

   if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+3)

   PposX#=object position x(1)
   PposZ#=object position z(1)

   if Ldoing = 0 then LinkIdle()

    LDoing = 0

AI update

sync
loop

function LinkWalkF()

   stop object 1
   loop object 1,0,51
   move object 1,7
endfunction

function LinkWalkB()
   stop object 1
   loop object 1,51,0
   move object 1,-7
endfunction

function LinkIdle()
   loop object 1,52,415
endfunction

function LinkFire()
   stop object 1
   loop object 1,418,482
endfunction

function ZombieWalkF(x)

   stop object x
   loop object x,507,534

endfunction x


function ZombieIdle(x)

   loop object x,265,336
endfunction x

function ZombieFlinch()
   stop object 2
   loop object 2,188,199
endfunction

function ZombieDeathIP()
   stop object 2
   loop object 2,155,183
endfunction

function ZombieDeathF()
   stop object 2
   loop object 2,122,150
endfunction

function ZombieDeathB()
   stop object 2
   loop object 2,60,117
endfunction

function ZombieBite(x)
   loop object x,26,55
endfunction

function ZombieAttack1(x)
   loop object x,1,20
endfunction

function ZombieJumpIP()
   stop object 2
   loop object 2,341,390
endfunction

function ZombieJump()
   stop object 2
   loop object 2,395,443
endfunction

function ZombieStrafeL()
   stop object 2
   loop object 2,448,473
   move object left 2,3
endfunction

function ZombieStrafeR()
   stop object 2
   loop object 2,478,502
   move object right 2,3
endfunction

function ZombieAttack(x)

   if object frame(x)>=20 and object frame(x) <=26 or object frame(x) >= 55 or object frame(x) <=1

   attack = rnd(5)
   if attack <=2
      ZombieAttack1(x)

      exitfunction
   endif

   if attack >=3
      ZombieBite(x)

      exitfunction
   endif
endif

endfunction x

c= abs((PposX#-ZposX#)^2)+abs((PposZ#-ZposZ#)^2)

if AI Get Entity Can Fire(x) = 1 and distance#<=100
	Zdoing = 1
    	ZombieAttack(x)
endif

sync on
sync rate 60
set window off
hide mouse

`use a matrix to give sometime to gauge relative speeds and position to the world coordinates
make matrix 1, 1000, 1000, 10, 10

`make a green box for the player
make object box 1, 20,50,20
color object 1, rgb(0,255,0)
position object 1, 500,25,500

`make ten boxes for the zombies
for i = 2 to 11
	make object box i, 20,50,20
	position object i, rnd(1000),25,rnd(1000)
next i


`set a variable for the facing of the player
player_facing# = 0.0



`main game loop
do 

	`wasd movement
	if keystate(17) = 1 then move object 1, 5
	if keystate(31) = 1 then move object 1, -5
	if keystate(30) = 1 then move object left 1, 5
	if keystate(32) = 1 then move object right 1, 5
	
	`mouse look (i.e. turning)
	player_facing# = wrapvalue(player_facing# + mousemovex()*0.5)
	
	`rotate the player	
	yrotate object 1, player_facing#

	`zombie controls	
	for i = 2 to 11

		old_zombie_x# = object position x(i)
		old_zombie_y# = object position y(i)
		old_zombie_z# = object position z(i)
	
		`point the zombie at the player
		point object i, object position x(1), object position y(1), object position z(1)
		`move the zombie toward the player
		move object i, 2
		
		`stop zombies walking through each other
		for j = 2 to 11
			if j <> i
				if object collision(i,j) = 1
					`if the zombie has walked into another zombie
					`position zombie at old coordinates
					`this makes it look as it hasn't moved
					position object i, old_zombie_x#, old_zombie_y#, old_zombie_z#
				endif 
			endif
		next j

		`calculate the distance between the player and the zombie
		distance# = sqrt((object position x(1)-object position x(i))^2 + (object position z(1)-object position z(i))^2)
	
		`if zombie is close to the player
		if distance# < 200
			`if the zombie is close, turn it red
			color object i, rgb(250,250,0)
		else
			`if the zombie is further away, turn it yellow
			color object i, rgb(250,0,0)
		endif	
		
	next i

	`set the camera to follow the player
	set camera to follow object position x(1), object position y(1), object position z(1), player_facing#, 100, 75, 5, 0
	
	set cursor 0,0
	print "wasd and mouse to move"

	sync

loop