TheGameCreators - CodeBase - SNAKE REVISED A BIT more

Category: Complete Applications

Version: 1.0

Information

Uploaded: 14th Aug 2004 22:11

Modified: 15th Aug 2004 16:36

Author: code spinneker

Summary

This is a revised version of a snake code, will be adding new level system as soon as possible to promote better gameplay and such! Feel free to screw around with it and make your own versions to post on code base!

Full Description

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync rate 0

sync on

hide mouse

backdrop on

color backdrop 900900900

repeat

center text 320,240,"press space to start"

sync

until spacekey()=1

`   our snake sprite

ink rgb(000,999,000),0

box 1,1,15,15

get image 1,0,0,16,16

`   our fruit

ink rgb(444,111,111),0

box 1,1,15,15

get image 2,0,0,16,16

`   our border

ink rgb(0,0,255),0

box 1,1,15,15

get image 3,0,0,16,16

dim grid(40,30)

for a=0 to 40

grid(a,0) = 1201

grid(a,29) = 1201

next a

for a=0 to 30

grid(0,a) = 1201

grid(39,a) = 1201

next a

d = 2

x = 320

y = 240

eaten = 1

score = 0

speed = 75

length = 2

placed = 0

t = timer() + speed

set text opaque

ink rgb(111,111,255),0

create bitmap 1,640,480

cls 0

if upkey() and d<>3 then d=1

if downkey() and d<>1 then d=3

if leftkey() and d<>2 then d=4

if rightkey() and d<>4 then d=2

if timer()>t

if d=1 then dec y,16

if d=2 then inc x,16

if d=3 then inc y,16

if d=4 then dec x,16

if grid(x/16,y/16) > 0 and grid(x/16,y/16) < 1500

goto dead

endif

` re

if grid(x/16,y/16) = 1500

inc length

grid(x/16,y/16) = length

eaten = 1

inc score,25

else

grid(x/16,y/16) = length

endif

t = timer() + speed

for a=0 to 40

for b=0 to 30

if grid(a,b) > 0 and grid(a,b) < 1201

temp = grid(a,b)

dec temp

grid(a,b) = temp

endif

next b

next a

endif

if eaten = 1

repeat

fx = 2 + rnd(37)

fy = 2 + rnd(27)

if grid(fx,fy) = 0 then placed = 1

until placed = 1

grid(fx,fy) = 1500

eaten = 0

placed = 0

endif

for a=0 to 40

for b=0 to 30

tempg = grid(a,b)

if tempg > 0

if tempg = 1500 then paste image 2,a*16,b*16

if tempg = 1201 then paste image 3,a*16,b*16

if tempg < 1201 then paste image 1,a*16,b*16

endif

next b

next a

t$ = "X: " + str$(x/16) + " Y: " + str$(y/16) + " FPS: " + str$(screen fps()) + " Length: " + str$(length) + "   "

t$ = "SCORE: " + str$(score) + "      "

text 0,0,t$

copy bitmap 1,0

sync

loop

dead:

blur bitmap 0,2

set current bitmap 0

repeat

center text 320,240,"You have lost, you are sad, you cannot win a game of snake"

center text 320,340,"press space to quit, P.S. this game is unbeatable:)"

sync

color backdrop 900900900

until spacekey()=1

end

Download

Please login to download

Comments

No comments yet.

Author Name:	code spinneker
CodeBase Entries:	1

CodeBase - SNAKE REVISED A BIT more

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments