BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Basic AI movement", by grim_1_2_3

Computer controlled character chases the character that you move with the arrow keys around the screen. Also has collision detection. A very early piece of code -- Will be a lot shorter in the next version.

Please Note:

You will have to change the 3 bitmaps to pics of you're own, Since the pics aren't included.

Also, I apologize for the lack of comments, But it should be easy to understand --- I will add comments to the revised version!

Code

;Early Maze Game code By: Grim_1_2_3

;Has basic AI and collision detection.
;*************************************************************************
Graphics 640,480

SetBuffer BackBuffer()

SeedRnd MilliSecs()

Global maze = LoadImage("bigmaze.bmp")
Global guy = LoadImage("guy.bmp")
Global drag = LoadImage("dragon.bmp")

Global gx = 163
Global gy = 52
Global gx2 = 265
Global gy2 = 221
Global coll = 0
Global lastkey = 0
Global upkey = 0
Global downkey = 0
Global rightkey = 0
Global leftkey = 0
Global dragcanmove = 1
Global lastmove = 0
Global movedir = 4
Global movedir2 = 4
Global wallhit = 2
Global canmove = 1
Global wait = CreateTimer(30)

startgame()

Function startgame()
While Not KeyHit(1)
WaitTimer(wait)
Text 0,0, "Upkey is:" + upkey
Text 0,10, "Downkey is:" + downkey
Text 0,20, "Rightkey is:" + Rightkey
Text 0,30, "Leftkey is:" + Leftkey
Text 0,40, "GX is:" + gx
Text 0,50, "GY is:" + gy
Text 0,60, "Dmove is:" + dragcanmove
Text 0,70, "Canmove is:" + canmove
Text 0,80, "lastmove is:" + lastmove
Text 0,90, "Movedir is:" + movedir
MaskImage maze,255,255,255
DrawImage maze,120,50
DrawImage guy,gx,gy
DrawImage drag,gx2,gy2
If runkey = 1 Then
runkeys()
EndIf
If dragcanmove = 1 Then
dragmove()
EndIf
If Not ImagesCollide (guy,gx,gy,0,maze,120,50,0) Then
runkey = 1
Else 
runkey = 0
checkkey()
EndIf
dragcanmove = 1
Flip
Cls
Wend
End Function

Function runkeys()
If KeyDown(200) And downkey = 0 And leftkey = 0 And rightkey = 0 Then ; Upkey
upkey = 1
lastkey = 1
gy = gy - 1
EndIf
If Not KeyDown(200) Then
upkey = 0
EndIf
If KeyDown(208) And upkey = 0 And leftkey = 0 And rightkey = 0 Then ; Downkey
downkey = 1
lastkey = 2
gy = gy + 1
EndIf
If Not KeyDown(208) Then
downkey = 0
EndIf
If KeyDown(205) And upkey = 0 And downkey = 0 And leftkey = 0 Then ; Rightkey
rightkey = 1
lastkey = 3
gx = gx + 1
EndIf
If Not KeyDown(205) Then
rightkey = 0
EndIf
If KeyDown(203) And upkey = 0 And downkey = 0 And rightkey = 0 Then ; Leftkey
leftkey = 1
lastkey = 4
gx = gx - 1
EndIf
If Not KeyDown(203) Then
leftkey = 0
EndIf
End Function

Function checkkey()
Select lastkey
Case 1
If downkey = 0 And leftkey = 0 And rightkey = 0 Then
gy = gy + 1
EndIf
Case 2
If upkey = 0 And leftkey = 0 And rightkey = 0 Then
gy = gy - 1
EndIf
Case 3
If upkey = 0 And downkey = 0 And leftkey = 0 Then
gx = gx - 1
EndIf
Case 4
If upkey = 0 And downkey = 0 And rightkey = 0 Then
gx = gx + 1
EndIf
End Select
End Function

Function checkcollis()
Select movedir
Case 2
gy2 = gy2 + 1
Case 4
gx2 = gx2 + 1
Case 5
gx2 = gx2 - 1
Case 7
gy2 = gy2 - 1
End Select
End Function

Function follow()
If gx2 > gx And gy2 > gy Then
movedir = 1
EndIf
If gx2 = gx And gy2 > gy Then
movedir = 2
EndIf
If gx2 < gx And gy2 > gy Then
movedir = 3
EndIf
If gx2 > gx And gy2 = gy Then
movedir = 4
EndIf
If gx2 < gx And gy2 = gy Then
movedir = 5
EndIf
If gx2 > gx And gy2 < gy Then
movedir = 6
EndIf
If gx2 = gx And gy2 < gy Then
movedir = 7
EndIf
If gx2 < gx And gy2 < gy Then
movedir = 8
EndIf
End Function

Function dragmove()
follow()
If movedir = 1 Then
dir = Rnd(1,6)
If dir = 1 Or dir = 2 Then
gx2 = gx2 - 1
Else
If dir = 3 Or dir = 4 Then
gy2 = gy2 - 1
Else
If dir = 5 Then 
gx2 = gx2 - 2
Else
If dir = 6 Then
gy2 = gy2 - 2
EndIf
EndIf
EndIf
EndIf
EndIf
If movedir = 2 And gy2 > gy + 4 Then
dir = Rnd(1,3)
If dir = 1 Then
gy2 = gy2 - 1
Else
If dir = 2 Then
gy2 = gy2 - 1
Else
If dir = 3 Then
gy2 = gy2
EndIf
EndIf
EndIf
EndIf
If movedir = 3 Then
dir = Rnd(1,2)
If dir = 1 Then
gx2 = gx2 + 1
Else
If dir = 2 Then
gy2 = gy2 - 1
EndIf
EndIf
EndIf
If movedir = 4 And gx2 > gx + 4 Then
dir = Rnd(1,3)
If dir = 1 Then
gx2 = gx2 - 1
Else
If dir = 2 Then
gx2 = gx2 - 1
Else
If dir = 3 Then
gx2 = gx2
EndIf
EndIf
EndIf
EndIf
If movedir = 5 And gx2 < gx - 4 Then
dir = Rnd(1,3)
If dir = 1 Then
gx2 = gx2 + 1
Else
If dir = 2 Then
gx2 = gx2 + 1
Else
If dir = 3 Then
gx2 = gx2
EndIf
EndIf
EndIf
EndIf
If movedir = 6 Then
dir = Rnd(1,2)
If dir = 1 Then
gx2 = gx2 - 1
Else
If dir = 2 Then
gy2 = gy2 + 1
EndIf
EndIf
EndIf
If movedir = 7 And gy2 < gy - 4 Then
dir = Rnd(1,3)
If dir = 1 Then
gy2 = gy2 + 1
Else
If dir = 2 Then
gy2 = gy2 + 1
Else
If dir = 3 Then
gy2 = gy2
EndIf
EndIf
EndIf
EndIf
If movedir = 8 Then
dir = Rnd(1,2)
If dir = 1 Then
gx2 = gx2 + 1
Else
If dir = 2 Then
gy2 = gy2 + 1
EndIf
EndIf
EndIf
End Function

Code software created by Krylar's Kreations