TheGameCreators - CodeBase - Zombie AI Code 2

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 21st Feb 2005 16:07

Modified: 1st Jan 1970 01:00

Author: Mobiius

Summary

Yet Another Zombie AI Code Thing With Worse AI, and really bad car physics! But you CAN run the zombies down! he he he

Full Description

Well this description is the same as the short description just longer! :)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`Right, Here I Go Again Writing You Some Code Instead Of Finishing The Game That'll Make Me Money!

`This Is A Bunch Of Comments Explaining Stuff To You. CHANGE ONLY THE VARIABLES I TELL YOU TO!

````````````````````````````````` SETUP ``````````````````````````````````````````````````

`How Many Enemies do you want in the game?

Global NumberOfEnemies = 10:`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Enter A Number HERE!

`How Many Cars do you want in the game?

Global NumberOfCars = 1:`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Enter A Number HERE!

`This Line Creates A Variable Holding The TOTAL Number Of Objects In Your World

Global TotalObjects

TotalObjects = (NumberOfEnemies + NumberOfCars):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - -DO NOT CHANGE THIS!

`This Line Creates The Array Holding All Object Numbers

Dim ObjectNumber(TotalObjects):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO NOT CHANGE THIS!

`This Sets The Variable For The Object Number You Will Use To Move Around The World With

Global YourObject

`The Next 3 Lines Creates The Arrays Which Will Hold All the Objects X, Y, And Z Positions

Dim XPosition#(TotalObjects):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO NOT CHANGE THIS!

Dim YPosition#(TotalObjects):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO NOT CHANGE THIS!

Dim ZPosition#(TotalObjects):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO NOT CHANGE THIS!

Dim Flag(TotalObjects):`<- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DO NOT CHANGE THIS!

````````````````````````````````` Code ``````````````````````````````````````````````````

sync on

sync rate 30

autocam off

randomize timer()

hide mouse

Backdrop On

Color Backdrop 0

load sound "gun.wav",1

Global CrosshairImage = 1

Global CrosshairSprite = 1

ink rgb(255, 0, 0), 0

line 15, 0, 15, 10

line 15, 20, 15, 32

line 0, 15, 10, 15

line 20, 15, 32, 15

Get Image CrosshairImage, 0, 0, 32, 32, 2

Sprite CrosshairSprite, MouseX(), MouseY(), CrosshairImage

Offset Sprite CrosshairSprite, 16, 16

`This Bit Creates Your Placeholder So You Can Move Around

YourObject = (TotalObjects + 1)

Make Object Plain YourObject, 1, 1

Hide Object YourObject

Position Object YourObject, 0, 10, 0

`End Of Your Placeholder Bit.

`This Bit Is The Bit Which Loads As Many Cars Into The World As Were Requested At The Top Of The Code.

For Id = NumberOfEnemies + 1 To NumberOfEnemies + NumberOfCars

ObjectNumber(Id) = Id

load object "car.x", ObjectNumber(Id)

Position Object ObjectNumber(Id), 0, 8, 0

yrotate object ObjectNumber(Id),180

fix object pivot ObjectNumber(Id)

Scale Object ObjectNumber(Id), 1000, 1000, 1000

`  Store The Cars X, Y, And Z Position For Later.

XPosition#(Id) = 0

YPosition#(Id) = 6

ZPosition#(Id) = 0

Flag(Id) = 1:` This Is The Cars Alive Flag. 1 = alive :: 0 = dead

Next Id

`````````````````````````````````````````````````````````

load image "world.bmp" ,2

make matrix 2, 1000, 1000, 50, 50

prepare matrix texture 2, 1, 1, 1

````````````````````````````````````````````````````````

`This Bit Is The Bit Which Loads As Many Enemies Into The World As Were Requested At The Top Of The Code.

For Id = 1 To NumberOfEnemies

ObjectNumber(Id) = Id

load object "pong.x" , ObjectNumber(Id)

scale object ObjectNumber(Id),1000,1000,1000

position object ObjectNumber(Id), (rnd(200) - 100), 6.5, int (rnd(200) - 100)

set object speed ObjectNumber(Id),100

`  Store The Enemies X, Y, And Z Position For Later.

XPosition#(Id) = Object Position X(ObjectNumber(Id))

YPosition#(Id) = 6.5

ZPosition#(Id) = Object Position Z(ObjectNumber(Id))

Flag(Id) = 1:` This Is The Enemies Alive Flag. 1 = alive :: 0 = dead

Next Id

P# = Pick Object((Screen Width() / 2), MouseY(), 1, TotalObjects)

`----------------------------------------------------------------------------------------------------- Move All The Zombies

For Id = 1 To NumberOfEnemies

If Flag(Id) = 1

move object ObjectNumber(Id), 0.5

yrotate object ObjectNumber(Id), object angle y(ObjectNumber(Id)) + (rnd(20)-10)

XPosition#(Id) = Object Position X(ObjectNumber(Id))

YPosition#(Id) = Object Position Y(ObjectNumber(Id))

ZPosition#(Id) = Object Position Z(ObjectNumber(Id))

endif

Next Id

`--------------------------------------------------------------------------------------------------------------------------

`------------------------------------------------------------------------------------ Start Of The Worst Enemy AI Code Ever

For Id = 1 To NumberOfEnemies

If YourObject <= TotalObjects And Flag(Id) = 1 And Object Collision(YourObject, Id) = 1 Then Flag(Id) = 0: Set Object Speed ObjectNumber(Int(P#)), 50: Play Object Id, 59, 75

Next Id

`-------------------------------------------------------------------------------------- End Of The Worst Enemy AI Code Ever

`----------------------------------------------------------------------------------------- Start Of The Shoot Enemy AI Code

If MouseClick() <> 0 then play sound 1

If MouseClick() <> 0 And P# > 0 And P# <= NumberOfEnemies And Flag(Int(P#)) <> 0 Then Set Object Speed ObjectNumber(Int(P#)), 50: Play Object P#, 59, 75: Flag(Int(P#)) = 0

If MouseClick() <> 0 and P# > NumberOfEnemies Then YourObject = P#

`------------------------------------------------------------------------------------------- End Of The Shoot Enemy AI Code

`-------------------------------------------------------------------------------------------------------------- Move Player

If UpKey() = 1 Then Move Object YourObject, 1

If DownKey() = 1 Then Move Object YourObject, -1

YRotate Object YourObject, WrapValue(Object Angle Y(YourObject) + (MouseMoveX() / 4))

If YourObject <= TotalObjects Then Set Camera To Follow Object Position X(YourObject), Object Position Y(YourObject), Object Position Z(YourObject), Object Angle Y(YourObject), 30, 10, 20, 0

If YourObject > TotalObjects Then Set Camera To Follow Object Position X(YourObject), Object Position Y(YourObject), Object Position Z(YourObject), Object Angle Y(YourObject), 30, 10, 1, 0

Point Camera Object Position X(YourObject), Object Position Y(YourObject), Object Position Z(YourObject)

CodeBase - Zombie AI Code 2

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Mobiius
CodeBase Entries:	5