[bb] Snake Code by Klapster [ 1+ years ago ]

Started by BlitzBot, June 29, 2017, 00:28:43

Previous topic - Next topic

BlitzBot

Title : Snake Code
Author : Klapster
Posted : 1+ years ago

Description : I was bored, so I decided to make Snake.
This code might help someone, somehow.


Code :
Code (blitzbasic) Select
Graphics 800,600,32,1:SetBuffer BackBuffer()

Global sX=10,sY=10
Global sD=0

Global mvT=0
Global Speed=3

Type Tail
Field t
Field X,Y
End Type

Const TS=10

Global TLife=200

Global aX=16,aY=20

Global Score=0

Repeat

If KeyDown(205) And sD<>2
sD=3
ElseIf KeyDown(203) And sD<>3
sD=2
EndIf
If KeyDown(200) And sD<>1
sD=0
ElseIf KeyDown(208) And sD<>0
sD=1
EndIf


If sX=aX And sY=aY
aX=Rand(800/TS)-1
aY=Rand(600/TS)-1
score=score+10
TLife=TLife+10
EndIf


mvT=mvT+1
If mvT>Speed
T.Tail = New Tail
TX=sX:TY=sY
Select sD
Case 0;Up
sY=sY-1
Case 1;Down
sY=sY+1
Case 2;Left
sX=sX-1
Case 3;Right
sX=sX+1
End Select
mvT=0
EndIf

If sX<0 Or sX>(800/TS) Or sY<0 Or sY>(600/TS) Then End

For T.Tail = Each Tail
TT=TT+1
If sX=TX And sY=TY Then End
If TT>TLife
Delete T
EndIf
Next

Color 255,0,0
Rect sX*TS,sY*TS,TS,TS,1

Color 150,0,0
For T.Tail = Each Tail
Rect TX*TS,TY*TS,TS,TS,1
Next

Color 0,255,0
Rect aX*TS,aY*TS,TS,TS,1

Color 255,255,255
Text 400,50,"Score "+Score,1,1

Flip
Cls
Until KeyHit(1)
End


Comments :


Ked(Posted 1+ years ago)

 Interesting...