My First DarkBasic Game: "Blake the Snake"

Author

Message

Zaxtor99

13

Years of Service

User Offline

Joined: 27th Jul 2011

Location: Boise, Idaho, USA

Posted: 10th Aug 2011 03:48 Edited at: 10th Aug 2011 06:14

Link

Here is my first ever Dark Basic game, that I named "Blake the Snake", and yes it is yet another classic worm game.

While the graphics lack any glitter, it does seem to allow the game to run very fast even on old computers.

I'm sure there are bugs and suggestions for this project as it stands, so I will welcome all advice/suggestions/comments

It was programmed in Dark Basic Classic and as of right now, only uses 3 sounds that are included in the Dark Basic Classic media folder under the sounds folder. Those sounds are "explode1", "hum1", and "select".

Here is my code:

sync rate 30:sync on
randomize timer()
dim pos(62,48)
dim app(62,48)
dim dx(260)
dim dy(260)
dim wall(64,48)

load sound "select.wav",1:load sound "explode1.wav",2
load sound "hum1.wav",3

newgame:
lf=4
CLS:backdrop off
hide mouse
ink 16761125,1
set text size 25
center text 310,100,"Blake"
wait 1200
center text 310,140,"the"
wait 1200
center text 310,190,"Snake"
wait 2000
ink 15132922,1
set text size 10
center text 310,240,"Created By:   Zaxtor99"
wait 3000
ink 14276889,1
center text 310,300,"[W] = UP  :  [S] = DOWN  :  [A] = LEFT  :  [D] = RIGHT"
center text 310,320,"OR USE THE ARROW KEYS"
wait 1500
center text 310,350,"---> Use [Space Bar] To Pause Game <---"
wait 3500
ink 65535,1
center text 310,400,"Press {W key} -or- {UP Arrow} to Begin Game!"
wait 50
pressupkey:
if scancode()=17 or scancode()=200 then goto begin
goto pressupkey
begin:
play sound 1
cls
ink 8388352,1
set text size 20
center text 310,200,"GET READY !!"
wait 3000
set text size 10

start:
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
SCORE=0:SCSUBT=0
RM=0
REM ************************ MAIN LOOP ***************************
newroom:
rm=rm+1
if rm=3 or rm=6 then cls:ink 8388352,1:center text 310,200,"EXTRA LIFE !!":lf=lf+1:wait 5000
if rm>1 then cls:ink 15132922,1:center text 310,240,"Entering Room "+str$(rm):wait 3000
lg=7:apl=10:ap=0:ScSubt=0:ap=0:od=0
Gosub roomdraw
if EG=1 then EG=0:goto gamecomp

goat:
gosub roomspecs
xc=xp:yc=yp:sp=10:ln=0

mnlp:
if ap=2 then goto mnlp3
if ap=0 then ax=rnd(55):ay=rnd(42):ax=(ax)+2:ay=(ay)+3
if ap=0 and ax>=xap1 and ax<=xap2 and ay>=yap1 and ay<=yap2 then goto mnlp
if ap=0 and ax>=xap3 and ax<=xap4 and ay>=yap3 and ay<=yap4 then goto mnlp

if ap=0 then ap=1:ink 16711680,1:text ax*10,ay*10,chr$(211)
mnlp3:
sc=scancode()
if sc=200 and dr=2 or sc=17 and dr=2 then goto mnlp2
if sc=203 and dr=4 or sc=30 and dr=4 then goto mnlp2
if sc=205 and dr=3 or sc=32 and dr=3 then goto mnlp2
if sc=208 and dr=1 or sc=31 and dr=1 then goto mnlp2

if sc=200 or sc=17 then dr=1
if sc=203 or sc=30 then dr=3
if sc=205 or sc=32 then dr=4
if sc=208 or sc=31 then dr=2

if sc=57 then gosub pauze

mnlp2:
if dr=1 then yc=yp-sp:ty=sp
if dr=2 then yc=yp+sp:ty=sp
if dr=3 then xc=xp-sp:tx=sp
if dr=4 then xc=xp+sp:tx=sp

if pos(xc/10,yc/10)=1 then goto krash
if xp=ax*10 and yp=ay*10 then ink 0,1:play sound 1:text ax*10,ay*10,chr$(211):ap=0:lg=lg+15:gosub apple
if lg>157 then lg=157

dx(ln)=xc:dy(ln)=yc
ln=ln+1:if ln>=lg then ln=ln-lg:Dis=1
xp=xc:yp=yc:pos(xp/10,yp/10)=1
ink 0,1
if dis=1 then text dx(ln),dy(ln),chr$(164):pos(dx(ln)/10,dy(ln)/10)=0
ink 8388352,1
text xp,yp,chr$(164)
SCSUBT=SCSUBT+1
if wall(xc/10,yc/10)>=1 then goto chkexit
sync
goto mnlp

REM *********  PAUSE GAME  **********
pauze:
ink 14276889,1
center text 315,220,"GAME PAUSED"
wait 500
spckey:
if scancode()=57 then ink 0,1:center text 315,220,"GAME PAUSED":wait 300:return
goto spckey

REM *********  CRASH INTO SELF OR WALL **********
krash:
play sound 2
ink 14276889,1
center text 315,220,"OOPS! THAT HURT!"
wait 3000
ink 0,1
text ax*10,ay*10,chr$(211)
if od>0 then ap=2
if od=0 then ap=0
for x=0 to lg:text dx(x),dy(x),chr$(164):next x
center text 315,220,"OOPS! THAT HURT!"
center text 200,0,"LIVES: "+str$(lf)
lf=lf-1:if lf=0 then goto gameover
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
goto goat

REM *************  LOST ALL LIVES  *************
gameover:
CLS
ink 14276889,1
center text 310,240,"That's all of your lives!"
REM **** GAME OVER DUE TO COMPLETE ALL ROOMS ****
gamecomp:
wait 2000
ink 15132922,1
center text 310,310,"Your FINAL SCORE was: "+str$(SCORE)
wait 3500
ink 167400339,1
center text 310,370,"Play Again?  (Y/N)"
chkplayagain:
if inkey$()="y" then goto newgame
if inkey$()="n" then end
sync
goto chkplayagain

REM ***********  EAT AN APPLE  ************
apple:
ink 0,1
center text 50,0,"SCORE: "+str$(SCORE)

ScApp=200-ScSubt:IF ScApp<10 then ScApp=10
SCORE=SCORE+ScApp:ScSubt=0
apl=apl-1:if apl<=0 then goto oprm1

center text 520,0,"APPLES LEFT: "+str$(apl+1)
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
ink 16711680,1
center text 520,0,"APPLES LEFT: "+str$(apl)
return

REM ***********  OPEN RANDOM DOOR  ************
oprm1:
ink 0,1
center text 520,0,"APPLES LEFT: "+str$(apl+1)
ink 0,1:play sound 1:text ax*10,ay*10,chr$(211):ap=0
ink 16711680,1
center text 530,0,"GREAT! NOW EXIT THIS ROOM !!"
ink 0,1
od=rnd(3)+1
if od=1 then line 10,225,10,275
if od=2 then line 610,225,610,275
if od=3 then line 285,25,335,25
if od=4 then line 285,475,335,475
ap=2:ax=-5:ay=-5
return

rem *********** CHECK FOR EXIT ROOM OR CRASH ***********
chkexit:
exrm1:
if od=0 then goto krash
if od=1 and xc<15 and yc>=220 and yc<=270 then goto dissnake1
if od=2 and xc>605 and yc>=220 and yc<=270 then goto dissnake1
if od=3 and yc<25 and xc>=285 and xc<=335 then goto dissnake1
if od=4 and yc>465 and xc>=285 and xc<=335 then goto dissnake1
goto krash

rem *********** DELETE SNAKE FOR SCORE ON ROOM EXIT ***********
dissnake1:
for x=0 to ln
ink 0,1 
text dx(x),dy(x),chr$(164)
center text 50,0,"SCORE: "+str$(SCORE)
SCORE=SCORE+2:play sound 3
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
wait 3
next x
for x=ln to lg
ink 0,1
text dx(x),dy(x),chr$(164)
center text 50,0,"SCORE: "+str$(SCORE)
score=score+2:play sound 3
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
wait 3
next x
wait 2000
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
goto newroom

REM ************* DRAW NEW ROOM ************
roomdraw:
CLS:hide mouse

ap=0
rem clear room wall data on next line
for x=0 to 64:for y=0 to 48:wall(x,y)=0:next y:next x
ink 15132922,1
for x=1 to 60:wall(x,2)=wall(x,2)+1:wall(x,47)=1:next x
for y=2 to 46:wall(1,y)=wall(1,y)+2:wall(61,y)=2:next y
if rm=2 then for x=25 to 37:wall(x,20)=wall(x,20)+1:wall(x,29)=wall(x,29)+1:next x:xap1=25:xap2=38:xap3=0:xap4=0
if rm=2 then for y=20 to 28:wall(25,y)=wall(25,y)+2:wall(38,y)=wall(38,y)+2:next y:yap1=20:yap2=29:yap3=0:yap4=0
if rm=3 then for x=10 to 21:wall(x,15)=wall(x,15)+1:wall(x,35)=wall(x,35)+1:next x:xap1=10:xap2=22
if rm=3 then for y=15 to 34:wall(10,y)=wall(10,y)+2:wall(22,y)=wall(22,y)+2:next x:yap1=15:yap2=35
if rm=3 then for x=40 to 51:wall(x,15)=wall(x,15)+1:wall(x,35)=wall(x,35)+1:next x:xap3=40:xap4=52
if rm=3 then for y=15 to 34:wall(40,y)=wall(40,y)+2:wall(52,y)=wall(52,y)+2:next x:yap3=15:yap4=35
if rm=4 then for x=10 to 26:wall(x,12)=wall(x,12)+1:wall(x,38)=wall(x,38)+1:next x:xap1=10:xap2=27
if rm=4 then for y=12 to 37:wall(10,y)=wall(10,y)+2:wall(27,y)=wall(27,y)+2:next x:yap1=12:yap2=38
if rm=4 then for x=35 to 51:wall(x,12)=wall(x,12)+1:wall(x,38)=wall(x,38)+1:next x:xap3=35:xap4=52
if rm=4 then for y=12 to 37:wall(35,y)=wall(35,y)+2:wall(52,y)=wall(52,y)+2:next x:yap3=12:yap4=38
if rm=5 then for x=22 to 40:wall(x,21)=wall(x,21)+1:next x:xap1=22:xap2=41
if rm=5 then for y=2 to 20:wall(22,y)=wall(22,y)+2:wall(41,y)=wall(41,y)+2:next x:yap1=2:yap2=21
if rm=5 then for x=22 to 40:wall(x,28)=wall(x,28)+1:next x:xap3=22:xap4=41
if rm=5 then for y=28 to 46:wall(22,y)=wall(22,y)+2:wall(41,y)=wall(41,y)+2:next x:yap3=28:yap4=47
if rm=6 then for x=1 to 47:wall(x,11)=wall(x,11)+1:wall(x,14)=wall(x,14)+1:next x:xap1=1:xap2=48
if rm=6 then for y=11 to 13:wall(48,y)=wall(48,y)+2:next y:yap1=10:yap2=13
if rm=6 then for x=14 to 60:wall(x,18)=wall(x,18)+1:wall(x,21)=wall(x,21)+1:next x:xap3=14:xap4=61
if rm=6 then for y=18 to 20:wall(14,y)=wall(14,y)+2:next y:yap3=17:yap4=20
if rm>=7 then center TEXT 310,200,"You have completed every room built so far!"
if rm>=7 then center text 310,220,"However, more levels are coming soon...."
if rm>=7 then EG=1:return

REM *** DRAW SPECIFIC ROOM WALLS ***
for x=0 to 64:for y=0 to 48
if wall(x,y)=1 then line x*10,y*10+5,(x*10)+10,y*10+5
if wall(x,y)=2 then line x*10,y*10+5,x*10,(y*10)+15
if wall(x,y)=3 then line x*10,y*10+5,(x*10)+10,(y*10)+5:line x*10,y*10+5,x*10,Y*10+15
next y:next x
return

REM ******** ROOM STATS & START LOC, START DIRECTION *********
roomspecs:
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
ink 8388352,1
center text 200,0,"LIVES: "+str$(lf)
ink 15132922,1
center text 360,1,"ROOM: "+str$(rm)
ink 16711680,1
if od=0 then center text 520,0,"APPLES LEFT: "+str$(apl)

if rm=1 then xp=310:yp=440:dr=1:return
if rm=2 then xp=20:yp=440:dr=4:return
if rm=3 then xp=310:yp=440:dr=1:return
if rm=4 then xp=310:yp=440:dr=1:return
if rm=5 then xp=60:yp=440:dr=1:return
if rm=6 then xp=60:yp=440:dr=4:return
do
loop

+ Code Snippet

sync rate 30:sync on
randomize timer()
dim pos(62,48)
dim app(62,48)
dim dx(260)
dim dy(260)
dim wall(64,48)

load sound "select.wav",1:load sound "explode1.wav",2
load sound "hum1.wav",3

newgame:
lf=4
CLS:backdrop off
hide mouse
ink 16761125,1
set text size 25
center text 310,100,"Blake"
wait 1200
center text 310,140,"the"
wait 1200
center text 310,190,"Snake"
wait 2000
ink 15132922,1
set text size 10
center text 310,240,"Created By:   Zaxtor99"
wait 3000
ink 14276889,1
center text 310,300,"[W] = UP  :  [S] = DOWN  :  [A] = LEFT  :  [D] = RIGHT"
center text 310,320,"OR USE THE ARROW KEYS"
wait 1500
center text 310,350,"---> Use [Space Bar] To Pause Game <---"
wait 3500
ink 65535,1
center text 310,400,"Press {W key} -or- {UP Arrow} to Begin Game!"
wait 50
pressupkey:
if scancode()=17 or scancode()=200 then goto begin
goto pressupkey
begin:
play sound 1
cls
ink 8388352,1
set text size 20
center text 310,200,"GET READY !!"
wait 3000
set text size 10

start:
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
SCORE=0:SCSUBT=0
RM=0
REM ************************ MAIN LOOP ***************************
newroom:
rm=rm+1
if rm=3 or rm=6 then cls:ink 8388352,1:center text 310,200,"EXTRA LIFE !!":lf=lf+1:wait 5000
if rm>1 then cls:ink 15132922,1:center text 310,240,"Entering Room "+str$(rm):wait 3000
lg=7:apl=10:ap=0:ScSubt=0:ap=0:od=0
Gosub roomdraw
if EG=1 then EG=0:goto gamecomp

goat:
gosub roomspecs
xc=xp:yc=yp:sp=10:ln=0

mnlp:
if ap=2 then goto mnlp3
if ap=0 then ax=rnd(55):ay=rnd(42):ax=(ax)+2:ay=(ay)+3
if ap=0 and ax>=xap1 and ax<=xap2 and ay>=yap1 and ay<=yap2 then goto mnlp
if ap=0 and ax>=xap3 and ax<=xap4 and ay>=yap3 and ay<=yap4 then goto mnlp

if ap=0 then ap=1:ink 16711680,1:text ax*10,ay*10,chr$(211)
mnlp3:
sc=scancode()
if sc=200 and dr=2 or sc=17 and dr=2 then goto mnlp2
if sc=203 and dr=4 or sc=30 and dr=4 then goto mnlp2
if sc=205 and dr=3 or sc=32 and dr=3 then goto mnlp2
if sc=208 and dr=1 or sc=31 and dr=1 then goto mnlp2

if sc=200 or sc=17 then dr=1
if sc=203 or sc=30 then dr=3
if sc=205 or sc=32 then dr=4
if sc=208 or sc=31 then dr=2

if sc=57 then gosub pauze

mnlp2:
if dr=1 then yc=yp-sp:ty=sp
if dr=2 then yc=yp+sp:ty=sp
if dr=3 then xc=xp-sp:tx=sp
if dr=4 then xc=xp+sp:tx=sp

if pos(xc/10,yc/10)=1 then goto krash
if xp=ax*10 and yp=ay*10 then ink 0,1:play sound 1:text ax*10,ay*10,chr$(211):ap=0:lg=lg+15:gosub apple
if lg>157 then lg=157

dx(ln)=xc:dy(ln)=yc
ln=ln+1:if ln>=lg then ln=ln-lg:Dis=1
xp=xc:yp=yc:pos(xp/10,yp/10)=1
ink 0,1
if dis=1 then text dx(ln),dy(ln),chr$(164):pos(dx(ln)/10,dy(ln)/10)=0
ink 8388352,1
text xp,yp,chr$(164)
SCSUBT=SCSUBT+1
if wall(xc/10,yc/10)>=1 then goto chkexit
sync
goto mnlp

REM *********  PAUSE GAME  **********
pauze:
ink 14276889,1
center text 315,220,"GAME PAUSED"
wait 500
spckey:
if scancode()=57 then ink 0,1:center text 315,220,"GAME PAUSED":wait 300:return
goto spckey


REM *********  CRASH INTO SELF OR WALL **********
krash:
play sound 2
ink 14276889,1
center text 315,220,"OOPS! THAT HURT!"
wait 3000
ink 0,1
text ax*10,ay*10,chr$(211)
if od>0 then ap=2
if od=0 then ap=0
for x=0 to lg:text dx(x),dy(x),chr$(164):next x
center text 315,220,"OOPS! THAT HURT!"
center text 200,0,"LIVES: "+str$(lf)
lf=lf-1:if lf=0 then goto gameover
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
goto goat

REM *************  LOST ALL LIVES  *************
gameover:
CLS
ink 14276889,1
center text 310,240,"That's all of your lives!"
REM **** GAME OVER DUE TO COMPLETE ALL ROOMS ****
gamecomp:
wait 2000
ink 15132922,1
center text 310,310,"Your FINAL SCORE was: "+str$(SCORE)
wait 3500
ink 167400339,1
center text 310,370,"Play Again?  (Y/N)"
chkplayagain:
if inkey$()="y" then goto newgame
if inkey$()="n" then end
sync
goto chkplayagain

REM ***********  EAT AN APPLE  ************
apple:
ink 0,1
center text 50,0,"SCORE: "+str$(SCORE)

ScApp=200-ScSubt:IF ScApp<10 then ScApp=10
SCORE=SCORE+ScApp:ScSubt=0
apl=apl-1:if apl<=0 then goto oprm1

center text 520,0,"APPLES LEFT: "+str$(apl+1)
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
ink 16711680,1
center text 520,0,"APPLES LEFT: "+str$(apl)
return

REM ***********  OPEN RANDOM DOOR  ************
oprm1:
ink 0,1
center text 520,0,"APPLES LEFT: "+str$(apl+1)
ink 0,1:play sound 1:text ax*10,ay*10,chr$(211):ap=0
ink 16711680,1
center text 530,0,"GREAT! NOW EXIT THIS ROOM !!"
ink 0,1
od=rnd(3)+1
if od=1 then line 10,225,10,275
if od=2 then line 610,225,610,275
if od=3 then line 285,25,335,25
if od=4 then line 285,475,335,475
ap=2:ax=-5:ay=-5
return

rem *********** CHECK FOR EXIT ROOM OR CRASH ***********
chkexit:
exrm1:
if od=0 then goto krash
if od=1 and xc<15 and yc>=220 and yc<=270 then goto dissnake1
if od=2 and xc>605 and yc>=220 and yc<=270 then goto dissnake1
if od=3 and yc<25 and xc>=285 and xc<=335 then goto dissnake1
if od=4 and yc>465 and xc>=285 and xc<=335 then goto dissnake1
goto krash

rem *********** DELETE SNAKE FOR SCORE ON ROOM EXIT ***********
dissnake1:
for x=0 to ln
ink 0,1 
text dx(x),dy(x),chr$(164)
center text 50,0,"SCORE: "+str$(SCORE)
SCORE=SCORE+2:play sound 3
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
wait 3
next x
for x=ln to lg
ink 0,1
text dx(x),dy(x),chr$(164)
center text 50,0,"SCORE: "+str$(SCORE)
score=score+2:play sound 3
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
wait 3
next x
wait 2000
for z=1 to 160:dx(z)=0:dy(z)=0:next z
for v=1 to 62:
for z=1 to 48:pos(v,z)=0
next z
next v
goto newroom

REM ************* DRAW NEW ROOM ************
roomdraw:
CLS:hide mouse

ap=0
rem clear room wall data on next line
for x=0 to 64:for y=0 to 48:wall(x,y)=0:next y:next x
ink 15132922,1
for x=1 to 60:wall(x,2)=wall(x,2)+1:wall(x,47)=1:next x
for y=2 to 46:wall(1,y)=wall(1,y)+2:wall(61,y)=2:next y
if rm=2 then for x=25 to 37:wall(x,20)=wall(x,20)+1:wall(x,29)=wall(x,29)+1:next x:xap1=25:xap2=38:xap3=0:xap4=0
if rm=2 then for y=20 to 28:wall(25,y)=wall(25,y)+2:wall(38,y)=wall(38,y)+2:next y:yap1=20:yap2=29:yap3=0:yap4=0
if rm=3 then for x=10 to 21:wall(x,15)=wall(x,15)+1:wall(x,35)=wall(x,35)+1:next x:xap1=10:xap2=22
if rm=3 then for y=15 to 34:wall(10,y)=wall(10,y)+2:wall(22,y)=wall(22,y)+2:next x:yap1=15:yap2=35
if rm=3 then for x=40 to 51:wall(x,15)=wall(x,15)+1:wall(x,35)=wall(x,35)+1:next x:xap3=40:xap4=52
if rm=3 then for y=15 to 34:wall(40,y)=wall(40,y)+2:wall(52,y)=wall(52,y)+2:next x:yap3=15:yap4=35
if rm=4 then for x=10 to 26:wall(x,12)=wall(x,12)+1:wall(x,38)=wall(x,38)+1:next x:xap1=10:xap2=27
if rm=4 then for y=12 to 37:wall(10,y)=wall(10,y)+2:wall(27,y)=wall(27,y)+2:next x:yap1=12:yap2=38
if rm=4 then for x=35 to 51:wall(x,12)=wall(x,12)+1:wall(x,38)=wall(x,38)+1:next x:xap3=35:xap4=52
if rm=4 then for y=12 to 37:wall(35,y)=wall(35,y)+2:wall(52,y)=wall(52,y)+2:next x:yap3=12:yap4=38
if rm=5 then for x=22 to 40:wall(x,21)=wall(x,21)+1:next x:xap1=22:xap2=41
if rm=5 then for y=2 to 20:wall(22,y)=wall(22,y)+2:wall(41,y)=wall(41,y)+2:next x:yap1=2:yap2=21
if rm=5 then for x=22 to 40:wall(x,28)=wall(x,28)+1:next x:xap3=22:xap4=41
if rm=5 then for y=28 to 46:wall(22,y)=wall(22,y)+2:wall(41,y)=wall(41,y)+2:next x:yap3=28:yap4=47
if rm=6 then for x=1 to 47:wall(x,11)=wall(x,11)+1:wall(x,14)=wall(x,14)+1:next x:xap1=1:xap2=48
if rm=6 then for y=11 to 13:wall(48,y)=wall(48,y)+2:next y:yap1=10:yap2=13
if rm=6 then for x=14 to 60:wall(x,18)=wall(x,18)+1:wall(x,21)=wall(x,21)+1:next x:xap3=14:xap4=61
if rm=6 then for y=18 to 20:wall(14,y)=wall(14,y)+2:next y:yap3=17:yap4=20
if rm>=7 then center TEXT 310,200,"You have completed every room built so far!"
if rm>=7 then center text 310,220,"However, more levels are coming soon...."
if rm>=7 then EG=1:return

REM *** DRAW SPECIFIC ROOM WALLS ***
for x=0 to 64:for y=0 to 48
if wall(x,y)=1 then line x*10,y*10+5,(x*10)+10,y*10+5
if wall(x,y)=2 then line x*10,y*10+5,x*10,(y*10)+15
if wall(x,y)=3 then line x*10,y*10+5,(x*10)+10,(y*10)+5:line x*10,y*10+5,x*10,Y*10+15
next y:next x
return

REM ******** ROOM STATS & START LOC, START DIRECTION *********
roomspecs:
ink 14276889,1
center text 50,0,"SCORE: "+str$(SCORE)
ink 8388352,1
center text 200,0,"LIVES: "+str$(lf)
ink 15132922,1
center text 360,1,"ROOM: "+str$(rm)
ink 16711680,1
if od=0 then center text 520,0,"APPLES LEFT: "+str$(apl)

if rm=1 then xp=310:yp=440:dr=1:return
if rm=2 then xp=20:yp=440:dr=4:return
if rm=3 then xp=310:yp=440:dr=1:return
if rm=4 then xp=310:yp=440:dr=1:return
if rm=5 then xp=60:yp=440:dr=1:return
if rm=6 then xp=60:yp=440:dr=4:return
do
loop

As of right now, I only have 6 rooms to progress through, but have plans to add more rooms, probably in the 12 to 15 room range.

If you copy and paste the code, you can simply change the SYNC rate at the beginning to alter the game speed! If my current game is too easy, you could always change the sync rate to 60, heh.

Anyhow, have fun with the downloadable executable that weighs in at only about 2 MB, and includes the sounds.

Keep in mind that I put in a stop that allowed people to go back into themselves thus killing themselves (ie hitting the 'move down' key while snake is moving up) ..so you cannot immediately move in the opposite direction that you are moving. This is pretty common in most of the snake games I have ever played, just keep this in mind while maneuvering through the rooms.

Please comment, no matter how "harsh" on my first completed game!

Enjoy!

- Zaxx

Attachments

Login to view attachments

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 10th Aug 2011 04:47 Edited at: 10th Aug 2011 04:50

Link

This is really nice. Better than my first game. You'll go far!

I got to level 3. It's pretty hard! I really like the sound effects, and the presentation is nice. It feels like a proper oldskool game. Are you an oldskool coder? What with all the gotos, it reminds me a bit of something I might have typed from an Amstrad magazine back in the day.

One thing that might be a bug is that when you exit the level, you snake is "counted out" to score, but not from the tail to head.

Back to top

Profile PM

Zaxtor99

13

Years of Service

User Offline

Joined: 27th Jul 2011

Location: Boise, Idaho, USA

Posted: 10th Aug 2011 05:06 Edited at: 10th Aug 2011 06:24

Link

Thanks Dr Tank!

Yes, I used to have a Commodore 64 as a kid back in the mid 1980's. So THAT is definitely where all my gotos and stuff come from for sure. I KNOW there are easier ways to do this stuff in DarkBasic now, but habits are still here even 25 years later, lol. I never really programmed a whole lot or actually "finished" any games on that old Commodore 64, but I used to buy those old "COMPUTE!" and "Compute! Gazette" magazines and type in all those pages of code to get my new games. So I guess some of that stuck, because I haven't programmed anything at all until this game the past 25 years or so.

Thanks for pointing that out, yes I did intend for the snake to erase from tail to head on the exit of a room, and I couldn't exactly figure out what's wrong with my code. I tried a couple of different things, thought I had it a couple of times because it would work just as I planned a time or two, but then it would divide up the snake again. I'm sure if I spend 30 minutes just looking and THINKING about it rather then just randomly trying stuff, I can figure it out, lol. {shrugs}

But glad you enjoy it! Just goes to prove a game doesn't require super fancy graphics to still be fun, even in 2011 I guess.

Anyhow thanks, and I will definitely take more suggestions and update it. I haven't even done anything to it the past couple weeks after working on it over a couple nights initially.

Also I was thinking about adding in a speed choice at the beginning because as it is now, I know my kids give up too easy and say that it is just too fast and "too hard dad!"

... I know I could speed it up by increasing the Sync rate, but to slow it down for a slower option, I am scared to go below 30 for a sync rate as I don't want to sacrifice key checks just to move slower. I was looking for advice on how to slow the game speed down to about half this speed without sacrificing game play or checks for user key presses.

Any advice is welcome!

Also, I am setting this code to open source. Make it your own and play with it or change the sounds/graphics or whatever if you feel so inclined!

- Zaxx

Back to top

Profile PM

Zaxtor99

13

Years of Service

User Offline

Joined: 27th Jul 2011

Location: Boise, Idaho, USA

Posted: 10th Aug 2011 06:18

Link

UPDATE:

Code snipet in orignal post #1 updated.
.. Downloadable EXE in Original Post also updated.

FIX: Snake should now delete from it's tail to its head correctly when exiting a room after eating 10 apples.

It worked for me about 10 times in a row correctly. Please let me know of any other abnormalities as well as any other comments/suggestions you might have!

- Zaxx

Back to top

Profile PM

enderleit

17

Years of Service

User Offline

Joined: 30th May 2007

Location: Denmark

Posted: 22nd Aug 2011 18:49

Link

Pretty nice...

I find the snake a bit too speedy though

Hard as hell...

Also the controls seem a bit unresponsive compared to the snake speed. It doesn't quite react immediately when I try to make snappy turns

- Martin Enderleit
http://sites.google.com/site/menderleit

Back to top

Profile PM Email Website

Darkays

16

Years of Service

User Offline

Joined: 13th Nov 2008

Location: Indefinite...

Posted: 22nd Aug 2011 19:20

Link

Very nice, had a lot of fun.

I also think that the snake is pretty fast. It was a bit hard to make fine adjustments.

The presentation is very well done, like the retro feel.

I may have found a bug: when I was moving past the center wall in room 2 it said I had crashed.

Overall it was very fun.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / My First DarkBasic Game: "Blake the Snake"

Attachments

Sorry your browser is not supported!

Work in Progress / My First DarkBasic Game: &quot;Blake the Snake&quot;

Attachments

Work in Progress / My First DarkBasic Game: "Blake the Snake"