Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|391\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> AI and Movement

Hotshot	Created : 13 June 2007 Edited : 13 June 2007 AI game Tutorial
; 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 --v

Comments
Wednesday, 13 June 2007, 06: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.
Wednesday, 13 June 2007, 07:03
Hotshot	thanks for commets and it is learn from people like you. cheers
Wednesday, 13 June 2007, 07: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..)
Wednesday, 13 June 2007, 07: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.
Wednesday, 13 June 2007, 09: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.
Thursday, 14 June 2007, 09:32
Hotshot	it is very old code! Thanks teasy and everyone too
Thursday, 14 June 2007, 14:42
iusinbello	Where is the AI??? I see only a quad followed by another quad... O_o

AI game Tutorial

Comments