TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 24th Feb 2010 15:51

Modified: 2nd Apr 2010 10:37

Author: Tonys

Summary

Use the arrow keys to direct the cat around a grid collecting bones while avoiding being caught by the dog

Full Description

The Cat moves around a grid in an anticlockwise direction "eating" fish bones, while the dog moves in a clockwise direcion trying to catch the cat. The dog will always try to get into the same lane as the cat. Your task is to guide the cat around the lanes while avioding the dog.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

remstart

*************************************************

*  CAT AND DOG                                  *

* A ZX Spectrum style game written in Dark Basic*

* To run in Lite version, rem out sound commands*

* Version 1.0 Tony Spence February 2010         *

*************************************************

remend

Rem Setup the window

Set window on

Set window layout 1,1,1

Set window title "Cat and Dog"

Set window position 100,200

Set window size 640,480

load bitmap "CatandDog22c.bmp",1

load sound "hollow.wav",1

load sound "dog.wav",2

rem Grab images for characters

rem the bitmap is 7 by 20*20 squares horizontal (140*20 total)

rem each square is picture as below

rem cat

get image 2,21,0,40,20

rem dog

get image 3,41,0,60,20

rem grid

get image 4,0,0,20,20

rem spot (Fish Bones)

get image 5,61,0,80,20

rem blank

get image 6,81,0,100,20

rem explosion

get image 7,101,0,120,20

rem dog mouth open

get image 8,121,0,140,20

rem Delete character bitmap

delete bitmap 1

set current bitmap 0

sync on

sync rate 30

dim grid$(24)

dim spot(32,24)

dim wall(32,24)

dim blank(32,24)

dim lane(32,24)

rem data for grid

grid$(1)="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

grid$(2)="x111111111111aaaaa111111111111x"

grid$(3)="x1xxxxxxxxxxxbbbbbxxxxxxxxxxx1x"

grid$(4)="x1x2222222222bbbbb2222222222x1x"

grid$(5)="x1x2xxxxxxxxxcccccxxxxxxxxx2x1x"

grid$(6)="x1x2x33333333ccccc33333333x2x1x"

grid$(7)="x1x2x3xxxxxxxdddddxxxxxxx3x2x1x"

grid$(8)="x1x2x3x444444ddddd444444x3x2x1x"

grid$(9)="x1x2x3x4xxxxxxxxxxxxxxx4x3x2x1x"

grid$(10)="xabbccddxxxxxxxxxxxxxxxddccbbax"

grid$(11)="xabbccddxxxxxxxxxxxxxxxddccbbax"

grid$(12)="xabbccddxxxxxxxxxxxxxxxddccbbax"

grid$(13)="xabbccddxxxxxxxxxxxxxxxddccbbax"

grid$(14)="x1x2x3x4xxxxxxxxxxxxxxx4x3x2x1x"

grid$(15)="x1x2x3x444444ddddd444444x3x2x1x"

grid$(16)="x1x2x3xxxxxxxdddddxxxxxxx3x2x1x"

grid$(17)="x1x2x33333333ccccc33333333x2x1x"

grid$(18)="x1x2xxxxxxxxxcccccxxxxxxxxx2x1x"

grid$(19)="x1x2222222222bbbbb2222222222x1x"

grid$(20)="x1xxxxxxxxxxxbbbbbxxxxxxxxxxx1x"

grid$(21)="x111111111111aaaaa111111111111x"

grid$(22)="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

gosub introscreen

rem start game

start:

score = 0

round = 1

rem next round

round:

rem display grid

for y = 0 to 24

for x=0 to 32

if mid$(grid$(y),x+1) = "x"

paste image 4,x*20,y*20

wall(x,y)=1

lane(x,y)=0

endif

if mid$(grid$(y),x+1) = "1"

paste image 5,x*20,y*20

spot(x,y)=10

lane(x,y)=1

endif

if mid$(grid$(y),x+1) = "2"

paste image 5,x*20,y*20

spot(x,y)=10

lane(x,y)=2

endif

if mid$(grid$(y),x+1) = "3"

paste image 5,x*20,y*20

spot(x,y)=10

lane(x,y)=3

endif

if mid$(grid$(y),x+1) = "4"

paste image 5,x*20,y*20

spot(x,y)=10

lane(x,y)=4

endif

if mid$(grid$(y),x+1) = "a"

blank(x,y)=5

lane(x,y)=1

endif

if mid$(grid$(y),x+1) = "b"

blank(x,y)=5

lane(x,y)=2

endif

if mid$(grid$(y),x+1) = "c"

blank(x,y)=5

lane(x,y)=3

endif

if mid$(grid$(y),x+1) = "d"

blank(x,y)=5

lane(x,y)=4

endif

next x

next y

rem put box for text in centre of screen

ink rgb(0,0,0),1

box 200,200,420,280

rem cat starting positions

xposcat=200

yposcat=380

dxcat =0

dycat=0

catright = 1

catup=0

catleft=0

catdown=0

rem dog starting positions

xposdog=20

yposdog=240

dxdog =0

dydog=0

dogright=0

dogup=1

dogleft=0

dogdown=0

rem rounds

if round >4 then round = 4

if round = 1

dogmaxlanechange=1

endif

if round = 2

dogmaxlanechange=1

endif

if round = 3

dogmaxlanechange=2

endif

if round = 4

dogmaxlanechange=3

endif

blankx = xposcat

blanky=yposcat

rem main program loop

rem move

if catright=1 then dxcat=dxcat+20

if catup=1 then dycat = dycat -20

if catleft=1 then dxcat = dxcat-20

if catdown =1 then dycat = dycat +20

if dogright=1 then dxdog=dxdog+20

if dogup=1 then dydog = dydog -20

if dogleft=1 then dxdog = dxdog-20

if dogdown =1 then dydog = dydog +20

rem change cat lane using arrow keys

rem if cat is in gaps between lanes

if blank((xposcat+dxcat)/20,(yposcat+dycat)/20)=5

if leftkey()=1

xposcat = xposcat-40

if xposcat + dxcat <20 then xposcat =20 - dxcat

if wall((xposcat+dxcat)/20,(yposcat+dycat)/20)=1 then xposcat = xposcat +40

endif

if rightkey()=1

xposcat = xposcat +40

if xposcat + dxcat >580 then xposcat = 580 - dxcat

if wall((xposcat+dxcat)/20,(yposcat+dycat)/20)=1 then xposcat = xposcat -40

endif

if upkey()=1

yposcat = yposcat -40

if yposcat + dycat <40 then yposcat = 40 - dycat

if wall((xposcat+dxcat)/20,(yposcat+dycat)/20)=1 then yposcat = yposcat +40

endif

if downkey() = 1

yposcat = yposcat +40

if yposcat + dycat >420 then yposcat =420 - dycat

if wall((xposcat+dxcat)/20,(yposcat+dycat)/20)=1 then yposcat = yposcat -40

endif

rem draw cat and dog

gosub cat

rem adjust game play for different rounds

if round = 1

sleep 50

else

if round = 2

sleep 25

else

sleep 0

endif

gosub doglane

gosub dog

rem complete a round

if score =2080 or score = 4160 or score = 6240 or score = 8320

rem cls

rem print "You cleared the screen"

rem print "Loading next level..."

center text 320,210, "You cleared the screen"

center text 320,230, "Press any key to continue"

round = round +1

rem print "Press any key to continue"

wait key

cls

goto round:

endif

rem dog eats cat

if sprite collision(2,1)=1

for explosion = 1 to 3

play sound 2

sprite 2,xposdog + dxdog,yposdog + dydog,3

sleep 100

sprite 2,xposdog + dxdog,yposdog + dydog,8

sleep 300

next explosion

rem end of game...

center text 320, 210, "Press N for new game,"

center text 320, 230, "Any other key to exit"

wait 100

repeat

a$ = inkey$()

until len(a$)>0

if a$ = "n" or a$="N"

round=1

goto Start

else

exit

endif

loop

end

rem *********************************************************************

cat:

rem increment score

if spot((xposcat+dxcat)/20,(yposcat+dycat)/20)>0

play sound 1

score = score + spot((xposcat+dxcat)/20,(yposcat+dycat)/20)

ink rgb(0,0,0),1

box 0,0,620,20

ink rgb(255,255,255),1

text 1,1, "score " + str$(score)

text 120,1, "Round " + str$(round)

spot((xposcat+dxcat)/20,(yposcat+dycat)/20)=0

endif

rem move cat

sprite 1,xposcat + dxcat,yposcat + dycat,2

rem remove spot

paste image 6,blankx,blanky

sync

blankx = xposcat+dxcat

blanky = yposcat+dycat

rem check for corner

if catright = 1 and wall((xposcat+dxcat+20)/20,(yposcat+dycat)/20)=1

catright=0

catup=1

return

endif

if catup=1 and wall((xposcat+dxcat)/20,(yposcat+dycat-20)/20)=1

catup=0

catleft=1

return

endif

if catleft = 1 and wall((xposcat+dxcat-20)/20,(yposcat+dycat)/20)=1

catleft =0

catdown=1

return

endif

if catdown=1 and wall((xposcat+dxcat)/20,(yposcat+dycat+20)/20)=1

catdown=0

catright=1

return

endif

return

rem ***************************************************************************

dog:

sprite 2,xposdog + dxdog,yposdog + dydog,3

sync

if dogup=1 and wall((xposdog+dxdog)/20,(yposdog+dydog-20)/20)=1

dogup=0

dogright=1

currentdoglane = lane((xposdog+dxdog)/20,(yposdog+dydog)/20)

return

endif

if dogright=1 and wall((xposdog+dxdog+20)/20,(yposdog+dydog)/20)=1

dogright =0

dogdown=1

currentdoglane = lane((xposdog+dxdog)/20,(yposdog+dydog)/20)

return

endif

if dogdown=1 and wall((xposdog+dxdog)/20,(yposdog+dydog+20)/20)=1

dogdown=0

dogleft=1

currentdoglane = lane((xposdog+dxdog)/20,(yposdog+dydog)/20)

return

endif

if dogleft=1 and wall((xposdog+dxdog-20)/20,(yposdog+dydog)/20)=1

dogleft=0

dogup=1

currentdoglane = lane((xposdog+dxdog)/20,(yposdog+dydog)/20)

return

endif

return

rem ******************************************************************************

doglane:

rem if dog is in gaps between lanes

if blank((xposdog+dxdog)/20,(yposdog+dydog)/20)=5

rem if dog lane is inside cat lane

if lane((xposdog+dxdog)/20,(yposdog+dydog)/20) < lane((xposcat+dxcat)/20,(yposcat+dycat)/20)

if dogdown = 1

xposdog = xposdog -40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then xposdog = xposdog+40

endif

if dogup =1

xposdog=xposdog+40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then xposdog = xposdog-40

endif

if dogleft=1

yposdog=yposdog-40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then yposdog = yposdog+40

endif

if dogright=1

yposdog= yposdog +40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then yposdog = yposdog-40

endif

return

endif

rem if dog lane is outside cat lane

if lane((xposdog+dxdog)/20,(yposdog+dydog)/20) > lane((xposcat+dxcat)/20,(yposcat+dycat)/20)

if dogup = 1

xposdog = xposdog -40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then xposdog = xposdog+40

endif

if dogdown = 1

xposdog =xposdog +40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then xposdog = xposdog-40

endif

if dogleft =1

yposdog=yposdog+40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then yposdog = yposdog-40

endif

if dogright = 1

yposdog=yposdog -40

if abs(currentdoglane - lane((xposdog+dxdog)/20,(yposdog+dydog)/20))> dogmaxlanechange then yposdog = yposdog+40

endif

return

endif

return

rem ***************************************************************************

IntroScreen:

set text size 70

ink rgb(255,255,0),1

center text 320, 80, "CAT AND DOG"

set text size 10

ink rgb(244,214,210),1

center text 320,240, "Guide the cat around the grid avoiding the dog."

center text 320,260, "Collect as many fish bones as you can."

center text 320,280, "Use the left,right, up and down arrow keys to change lanes."

center text 320,300, "You (the cat) can move across as many lanes as you like."

center text 320,320, "The dog can only change one lane at a time. (in rounds 1 and 2)"

center text 320,340, "The dog will always try to get into the same lane as the cat."

CodeBase - Cat and Dog

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Tonys
CodeBase Entries:	1