TheGameCreators - CodeBase

Category: Miscellaneous

Version: 1.0

Information

Uploaded: 12th Feb 2005 17:06

Modified: 12th Feb 2005 17:10

Author: Mobiius

Summary

AI Source code for simple zombie AI. They walk around randomly and if they get near to you, they come for you! Oh yeah, to change the amount of AI's on screen, change the value held in NumberOfAIs. (Its a global variable) Must be declared BEFORE the DIMmed Variables.

Full Description

AI Source code for simple zombie AI. They walk around randomly and if they get near to you, they come for you! Thats about it. Move the cursor to the left / right edge of te screen to turn, LMB shoots!

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 800,600,32

sync on

sync rate 30

autocam off

randomize timer()

hide mouse

Backdrop On

Color Backdrop 0

load sound "rifle.wav", 1

Global CrosshairImage = 1

Global CrosshairSprite = 1

Global YourPlayer = 1

Global NumberOfAIs = 10

`=============================================================================================Feel Free To Remove These Lines.

Global MatrixNumber = 1

Global MatrixImage = 2

Dim RandomObjects(NumberOfAIs)

`============================================================================================================================

Dim AIBaseX#(NumberOfAIs)

Dim AIBaseY#(NumberOfAIs)

Dim AIBaseZ#(NumberOfAIs)

Dim AIAlive(NumberOfAIs)

Dim AiDoSomthing#(NumberOfAIs)

Dim AIYAngle(NumberOfAIs)

Dim AIYAngle#(NumberOfAIs)

Dim AIDistanceFromHome#(NumberOfAIs)

Dim AIDistanceFromYou#(NumberOfAIs)

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, 1

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

Offset Sprite CrosshairSprite, 16, 16

Make Object Cube YourPlayer, 5

hide object 1

Position Object YourPlayer, 0, 3, 0

`=============================================================================================Feel Free To Remove These Lines.

Create Bitmap 1, 64, 64

Set Current Bitmap 1

Ink Rgb(64, 255, 64), Rgb(64, 255, 64)

Box 0, 0, 64, 64

For A = 1 to 1000

Dot Rnd(64), Rnd(64), Rgb(Int(Rnd(192)), Int(Rnd(192)), Int(Rnd(192)))

Next A

Blur Bitmap 1, 10

Get Image MatrixImage, 0, 0, 64, 64

Delete Bitmap 1

Make Matrix MatrixNumber, 2000, 2000, 60, 60

Position Matrix MatrixNumber, -1000, 0, -1000

Prepare Matrix Texture MatrixNumber, MatrixImage, 1, 1

Randomize Timer()

For Id = 1 To NumberOfAIs

RandomObjects(Id) = Id + 1

Load Object "pong.x" ,RandomObjects(Id)

Scale Object RandomObjects(Id),1000,1000,1000

YRotate Object RandomObjects(Id), 180

Fix Object Pivot RandomObjects(Id)

AIBaseX#(Id) = Int(Rnd(200) - 100)

AIBaseY#(Id) = 5

AIBaseZ#(Id) = Int(Rnd(200) - 100)

Position Object RandomObjects(Id), AIBaseX#(Id), AIBaseY#(Id), AIBaseZ#(Id)

AIYAngle(Id) = Int(Rnd(359))

AIYAngle#(Id) = AIYAngle(Id)

YRotate Object RandomObjects(Id), AIYAngle(Id)

AIAlive(Id) = 1

Next Id

ShotFlag = 0

P# = Pick Object(MouseX(), MouseY(), 2, NumberOfAIs + 1)

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

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

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

For Object = 1 To NumberOfAIs

AI_X# = Object Position X(RandomObjects(Object)):` Gets The Ememys X Position

AI_Y# = Object Position Y(RandomObjects(Object)):` Gets The Ememys Y Position

AI_Z# = Object Position Z(RandomObjects(Object)):` Gets The Ememys Z Position

Dist_X# = AIBaseX#(Object) - AI_X#:` Gets The X Distance From The Enemys Start Position To Its Current Position

Dist_Y# = AIBaseY#(Object) - AI_Y#:` Gets The Y Distance From The Enemys Start Position To Its Current Position

Dist_Z# = AIBaseZ#(Object) - AI_Z#:` Gets The Z Distance From The Enemys Start Position To Its Current Position

`Gets The Actual Distance From The Enemys Start Position To Its Current Position

AIDistanceFromHome#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

Your_X# = Object Position X(1):` Gets Your X Position

Your_Y# = Object Position Y(1):` Gets Your Y Position

Your_Z# = Object Position Z(1):` Gets Your Z Position

Dist_X# = Your_X# - AI_X#:` Gets The X Distance From The Enemys Current Position To Your Current Position

Dist_Y# = Your_Y# - AI_Y#:` Gets The Y Distance From The Enemys Current Position To Your Current Position

Dist_Z# = Your_Z# - AI_Z#:` Gets The Z Distance From The Enemys Current Position To Your Current Position

`Gets The Actual Distance From The Enemys Start Position To Your Current Position

AIDistanceFromYou#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

If AIDistanceFromYou#(Object) >= 10

If AIAlive(Object) = 1

Move Object RandomObjects(Object), 0.5

Loop Object RandomObjects(Object),2,18

EndIf

Else

Move Object RandomObjects(Object), 0

If AIAlive(Object) = 1 Then Stop Object RandomObjects(Object)

Make Object Plain 1000, 1, 1:` Make A Dummy Object

Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where The Enemy Is

Point Object 1000, Object Position X(1), Object Position Y(1), Object Position Z(1):` Point The Enemy At You

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly

Delete Object 1000:` Deletes The Dummy Object

EndIf

If AIDistanceFromHome#(Object) >= 100:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.

`                  (Stops The Enemy Wandering Too Far Away!)

Make Object Plain 1000, 1, 1:` Make A Dummy Object

Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is

Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly

Delete Object 1000:` Deletes The Dummy Object

EndIf

If AIDistanceFromHome#(Object) >= 150:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.

`                  (Stops The Enemy Wandering Too Far Away!)

Make Object Plain 1000, 1, 1:` Make A Dummy Object

Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is

Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly

AIYAngle#(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly

Delete Object 1000:` Deletes The Dummy Object

EndIf

If AiDoSomthing#(Object) <= Timer():` If A Certain Time Has Elapsed, Then Tell The Enemy To Do Somthing.

Randomize Timer():` Makes The Randum Number More Random

AIYAngle(Object) = WrapValue(Object Angle Y(RandomObjects(Object)) + (Rnd(180)-90)):` Picks A Random Direction For The Enemy

AiDoSomthing#(Object) = (Timer() + 2500):` Resets The Timer

EndIf

AIYAngle#(Object) = CurveValue(AIYAngle(Object), AIYAngle#(Object), 40)

If AIAlive(Object) = 1 Then YRotate Object RandomObjects(Object), AIYAngle#(Object)

Text 0, 10 * Object, Str$(AIDistanceFromHome#(Object))

Next Object

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

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

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

` Hit the fricken dudet code

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

If P# <> 0

P = Int(P#) - 1

If MouseClick() <> 0 And AIAlive(P) = 1

play object P#, 59,75: AIAlive(P) = 0

Make Object Plain 1000, 1, 1:` Make A Dummy Object

Position Object 1000, Object Position X(P#), Object Position Y(P#), Object Position Z(P#):` Place It Where The Enemy Is

Point Object 1000, Camera Position X(), Camera Position Y(), Camera Position Z():` Point The Enemy At You

P = int(P#)

AIYAngle(P - 1) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly

YRotate Object P#, AIYAngle(P - 1)

Delete Object 1000:` Deletes The Dummy Object

EndIf

If MouseClick() <> 0 And ShotFlag = 0

Play Sound 1

ShotFlag = 2

EndIf

If MouseClick() = 0 And ShotFlag = 2 Then ShotFlag = 0

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

If P# = 0

Text 0, 0, "No Object Pointed At"

Else

Text 0, 0, "Object " + Str$(P#) + " Pointed At"

EndIf

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

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

If MouseX() < 20 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - .75)

If MouseX() > (Screen Width() - 20) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + .75)

If MouseX() < 10 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - 1.5)

If MouseX() > (Screen Width() - 10) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + 1.5)

Set Camera To Follow Object Position X(YourPlayer), Object Position Y(YourPlayer), Object Position Z(YourPlayer), Object Angle Y(YourPlayer), 30, 10, 1, 0

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

CodeBase - Zombie AI Code

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Mobiius
CodeBase Entries:	5