AI game Tutorial/Code Snippet (SoCoder)

Created 13 June 2007 | Last Edited 13 June 2007)

AI game Tutorial by Hotshot | No Votes

For general use

; THIS IS COMMETS THAT U WANT TO SAY ANYTHINGS U LIKE AS IT DOESNT AFFECT IT

; Sarah FIRST PROGRAM =P

; WINDOW TITLE 
AppTitle "MY VERY FIRST COMPUTER AI PROGRAM"

; SHOPPING LIST 
;-----------------------------------------------------------------------
; WINDOW SETUP
Const SCREEN_WIDTH  =640
Const SCREEN_HEIGHT =480
Const DEPTH                  =16

; Either put 1 for full Screen or Put 2 for Windows
Const WINDOW_MODE     =2

; KEY CODE FOR PRESSING ESCAPE WHEN PEOPLE ARE  BORE OF THE GAME
Const PRESS_ESCAPE     =1

; HERE THE KEY CODE FOR THE KEYBOARDS...
Const Right           =203
Const Left             =205
Const UP              =200
Const DOWN        =208
Const SPACEBAR =57

Const PLAYER_SPEED=5

Const CPU_SPEED       =4

; SETTING THE PLAYER POSITIONS...

;POSITION PLAYER X

Global PLAYER_X=100 

;POSITION PLAYER Y
Global PLAYER_Y=100 

; POSITIONS FOR COMPUTER PLAYER
Global CPU_X          =480
Global CPU_Y          =450 

; HOW BIG IS THE SIZE
Const SIZE    =10

Global START_GAME
Global Die
Global Timer
;------------------------------------------------- END OF SHOPPING LIST

Graphics SCREEN_WIDTH,SCREEN_HEIGHT,DEPTH,WINDOW_MODE
;To Stop THE FLICKER
SetBuffer BackBuffer()
HidePointer()

; SET THE FONTS
Global fntArial=LoadFont("Arial",24)

Global PLAYER=CreateImage (SIZE,SIZE)
Global CPU  =CreateImage (SIZE,SIZE)

SetBuffer ImageBuffer(PLAYER)
        ;DRAW PLAYER Graphics 
        Color 0,0,255
        Rect 0,0,SIZE,SIZE   
SetBuffer BackBuffer()

SetBuffer ImageBuffer(CPU)
        ; DRAW CPU GRAPHICS 
        Color 255,0,0
        Rect 0,0,SIZE,SIZE   
SetBuffer BackBuffer()


START_GAME=False
HI_Timer  =100


; MAIN LOOP
While Not KeyDown(PRESS_ESCAPE)

        If START_GAME=False
                MENU_SCREEN
        Else
                STATUS_BAR
                CONTROL_PLAYER
                CPU
                COLISIONS
        EndIf
        
        Flip:Cls
        
Wend
; Clear all the fonts from memory!
FreeFont fntArial

; KILL IT 
End

; TO SHOW THE MENU SCREEN 
Function MENU_SCREEN()
        Die=0

        Color 255,255,255
        ; Set the font and print text
        SetFont fntArial
        Text 350,100,"SARAH VERY FIRST LITTLE GAME!!",True
        
        If Timer>HI_Timer
           HI_Timer=timer
        EndIf 
        
        Text 200,200,"Highest Timer Score ="+HI_Timer
        Text 350,300,"PRESS ANY KEYS TO START!",True
        
        If KeyDown( SPACEBAR ) Then START_GAME=True

End Function

Function STATUS_BAR()

        Text 10,0,"Player Health"
        
        ; put in white color
        Color 255,255,255
        
        ; draw the rectangle around it
        Rect 0,25,640,455,0
        
        Color 255,255,0
        Rect 145,8,155-die,10
        
        timer=timer+1
        
        Text 500,0,"Timer ="+Timer
        
End Function
        

; THIS IS FOR PRESSING KEYBOARD TO CONTROL THE PLAYER
Function CONTROL_PLAYER()


        ; LET MAKE SOME CONTROL FOR KEYBOARD FOR U TO PRESS
        If KeyDown(  UP   ) Then PLAYER_Y=PLAYER_Y-PLAYER_SPEED
        If KeyDown(  Down ) Then PLAYER_Y=PLAYER_Y+PLAYER_SPEED
        
        If KeyDown(  Left ) Then PLAYER_X=PLAYER_X+PLAYER_SPEED
        If KeyDown(  Right) Then PLAYER_X=PLAYER_X-PLAYER_SPEED
        

        ; STOP PLAYER X GOING OFF EITHER SCREEN
        If PLAYER_X<=3   Then PLAYER_X=3
        If PLAYER_X>=627 Then PLAYER_X=627
        
        If PLAYER_Y<=27  Then PLAYER_Y=27
        If PLAYER_Y>=467 Then PLAYER_Y=467
        
        DrawImage PLAYER,PLAYER_X,PLAYER_Y
                             
End Function


Function CPU()

        ; COMPUTER CHASE THE PLAYER UP AND DOWN
        If CPU_Y>PLAYER_Y Then CPU_Y=CPU_Y-CPU_SPEED        
        If CPU_Y<PLAYER_Y Then CPU_Y=CPU_Y+CPU_SPEED
        
        ; COMPUTER PLAYER MOVE LEFT AND RIGHT TO CHASE THE PLAYER
        If CPU_X>PLAYER_X Then CPU_X=CPU_X-CPU_SPEED
        If CPU_X<PLAYER_X Then CPU_X=CPU_X+CPU_SPEED

        DrawImage CPU,CPU_X,CPU_Y

End Function


Function COLISIONS()
        Text 300,0,die
        
        If die=>157 Then Game_Over()

        If  ImagesCollide (PLAYER,PLAYER_X,PLAYER_Y,0,CPU,CPU_X,CPU_Y,0)
                DIE=DIE+1
        EndIf 
        
End Function



Function Game_Over()

        SetFont fntArial
        Text 200,200,"G  A  M  E    O  V  E  R"
        Flip
        
        Delay 1000
        
        ; Set the Start Game to False mean return to the Menu
        START_GAME=False
End Function

-->

Latest Comments

Posted : Wednesday, 13 June 2007, 05:30

JL235

That's not really AI, it's just following the player continuously. AI is suppost to have decisions, so it might track the player but be off at some point. This helps to give the illusion (if only minor) that you are playing against someone.

Even then, it only moves in eight directions. You should find the angle between the computer and the player, then move along the x and y axis using sin and cos. This will also fix the bug that the computer moves faster diagonally then when moving vertically or horizontally (as it's moving both vertically and horizontally).

You should NOT capitalize a non-constant. This is because by capitalizing a constant it helps to show it's a constant. If I wrote 'SPEED' and 'angle' in my code, you can then know instinctively that SPEED is a constant and angle isn't.

Finally, there are tags for code, [ code ] and [ /code ] (with the spaces removed). There used to be a window explaining those tags.

Posted : Wednesday, 13 June 2007, 06:03

Hotshot

thanks for commets and it is learn from people like you.

cheers

Posted : Wednesday, 13 June 2007, 06:27

Jayenkai

When properly dealing with Constants*, I prefer to symbolise which is which using a more specific manner, like placing "C_" before the variable name.
Beats having to uncapitalise everything else, anyway.

(* Honestly though, I rarely use constants..)

Posted : Wednesday, 13 June 2007, 06:58

JL235

The convention used in the industry, and by the vast majority of programmers, it to fully capitalize constants and not to fully capitalize non-constants.

Posted : Wednesday, 13 June 2007, 08:39

Teasy

Or use syntax highlighting where constants, globals and locals all have a different visual representation (note explicitly to read the code with advanced syntax highlighting

)

Nice tutorial, Hotshot

It's very clear when reading it.

Posted : Thursday, 14 June 2007, 08:32

Hotshot

it is very old code!
Thanks teasy and everyone too

Posted : Thursday, 14 June 2007, 13:42

iusinbello

Where is the AI??? I see only a quad followed by another quad... O_o