Sorry your browser is not supported!

` Dimensionalize the array
dim EnemyHealth(100)

` Do this FOR/NEXT loop 101 times (including zero)
for t=0 to 100
 `Define all enemies health to 100
 EnemyHealth(t)=100
next t

` Do this LOOP forever (no exit)
do

 ` Clear the screen
 cls
 ` Randomly pick an enemy number (0 to 5)
 a=rnd(5)
 ` Lower enemys health (by 1 is default)  USE dec EnemyHealth(a),5 to reduce by 5
 dec EnemyHealth(a)
 ` Show 5 enemys health status
 for t=0 to 5
  print "EnemyHealth("+str$(t)+") = "+str$(EnemyHealth(t))
 next t
 print ""
 ` Wait for a keypress
 wait key
 
loop

` Create the enemy type
type enemies
   ` Any variable declared here (which can even be that of another type)
   ` will be available from any variable declared as enemy.
   ` (The fields will, of course, be separate between separate variables
   ` though; ie. enemy1.health does not need to equal enemy2.health).

   name     as string
   health   as word
   strength as word
   defence  as word
   isAlive  as boolean

   ` ... you get the idea
endtype

` Set up the enemy array
dim enemy(100) as enemies ` That will set it to our custom type 'enemies'.

` Then we can do stuff like this
for e = 0 to 100
   enemy(e).name   = "Enemy " + str$(e + 1) ` Very generic...
   enemy(e).health = 100 ` Default the health for all enemies
   
   ` ... etc.
next e

type MyMonster
ObjNum as integer
Health as Float
endtype

dim Monsters(10) as MyMonster

do

// SHoot routine

// a for loop from the number where monster object numbers start to where monster object number ends
for x = StartMonsterNum to EndMonsterNum
// Check for monster shot
MonsterCollision = MonsterShot(StartMonsterNum)
// It'll return a number if it hit a zombie, thats the object number of the zombie hit
if MonsterCollision > 0
ArCount = Array COunt(Monsters())
// loop through the array and check if the array objnum is the same as the collision num
for y = 0 to ArCount
if Monsters(y).ObjNum = MonsterCollision
// do you health stuff etc.
dec Monsters(y).Health, 10
// Exit out of the loop, since you only need one hit. if you need more, get it out of the loop
exit
endif
next y
next x

endif
loop

// First we define the type
type MyMonster
ObjNum as Integer // Object Number of the zombie object
HitBoxNum as Integer // Object Number of the Hitbox
endtype

// Now we define an array for the monsters, we'll make ten monsters
dim Monster(10) as MyMonster

// here you could make a for loop that fills the monster array with data about teh object numbers

// Main Loop:
do

// Position the hitboxes at the heads position
// Count the array for enemys
ArCount = Array Count(Monster())

// Do the zombie AI Stuff

// A for loop for looping through the enemies to update the hitboxes
for ID = 1 to ArCount
position object Monster(ID).HitBoxNum, Object position X(Monster(ID).ObjNum), Object position Y(Monster(ID).ObjNum)+10, Object position Z(Monster(ID).ObjNum)
next ID

loop

// First we define the type
type MyMonster
ObjNum as Integer // Object Number of the zombie object
HitBoxNum as Integer // Object Number of the Hitbox
endtype

// Now we define an array for the monsters, we'll make ten monsters
dim Monster(10) as MyMonster

// here you could make a for loop that fills the monster array with data about teh object numbers

// Main Loop:
do

// Position the hitboxes at the heads position
// Count the array for enemys
ArCount = Array Count(Monster())

// Do the zombie AI Stuff

// A for loop for looping through the enemies to update the hitboxes
for ID = 1 to ArCount
position object Monster(ID).HitBoxNum, Object position X(Monster(ID).ObjNum), Object position Y(Monster(ID).ObjNum)+10, Object position Z(Monster(ID).ObjNum)
next ID
intersect object

// Now that we updated the hitboxes, we can check for collision

// check for mouseclickm, if thats your primary "SHoot" button :P
If mouseclick() = 1
// First we get the Array size, so we'll loop through every enemy
ArCount = Array Count(Monster())

// Loop through the array for the object hitbox and number data
for ID = 1 to ArCount
// First we check for collision for the hitbox. i'm using an imaginary function here
// but its posiible to make a real one. this "imaginary function" will return if i have hit the 
// object or not. if i did, it'll return a 1. otherwise, a 0
HitBoxCollision = CheckForMonsterHit(Monster(ID).HitBoxNum)

// Here i check if the value returned by the "Imaginary function" was true. if it is, i send my
// program to the HeadShotMade routine were it handles health of the currently hit zombie
if HitBoxCollision = 1 then gosub HeadShotMade

// Now i'm gonna check for collision with the Body of the zombie. but first we check if we've hitted
// the hitbox already, because we don;t want double hits and stuff. if its one, we don;t check for collision
// with the body. if its zero, which means we didn;t make a headshot ((:O))  we check for collision with the body

if HitBoxCollision = 0
// Here we check for collision the body object of the enemy
BodyCollision = CheckForMonsterHit(Monster(ID).ObjNum)

// If we hitted the Body object of the enemy, we send the porgram to the NormalShotMade routine
if BodyCollision = 1 then Gosub NormalShotMade
endif

// And when that's all done, on to the next enemy!
next ID

// this should look familliar. if not, read the beginners tutorial
endif

// this should look familliar too. if not, read the beginners tutorial
loop

TotalSpawnTime = 10000 // milliseconds, 10 secs
ZombieNums = 40 // Zombies

// Variable for delay of spawning zombies
ZombieSpawnDelay = TotalSpawnTime/ZombieNums

// Delay variable so you not spawn them all at once
Delay = Timer()

// Zombie count variable, so you don;t spawn over the maximum
ZombieCount = 0

do
	// Movement Routine

	// SHooting routine :P

	// Now the zombie spawn routine
	// Check for: if we can still spawn zombies, if there are less than the level maximum, and
	// if we waited long enough to spawn another. if all of these are true, we
	// create another ZOMBIEH
	if ZombieSpawn = 1 AND ZombieCount <= ZombieNums AND Timer()-Delay => ZombieSpawnDelay then Gosub SpawnZombie
loop

SpawnZombie:
	// First we choose a random spawn point. lets say you have a array that
	// contains 4 spawn points
	// Here we choose a random spawn point, 0-1-2-3
	SpawnPoint = rnd(3)
	
	// then, we copy the locations to separate variables for easy reading.
	// I guess you know how arrays and Types work?
	X# = SpawnPoints(SpawnPoint).X
	Y# = SpawnPoints(SpawnPoint).Y
	Z# = SpawnPoints(SpawnPoint).Z
	
	// Now i use a imaginary function. this function may conatin stuff liek clone object,
	// and add an extra array item for storage of the health etc. the parameters are the
	// X, Y and Z positions we read from the Array
	AddZombie(X#, Y#, Z#)
	
	// Increase the zombie count so we won;t spawn over the level maximum
	Inc ZombieCount
	
	// Reset the delay so we have to wait to spawn another one
	Delay = Timer()
return