Sauer Snake

Community Forums/Showcase/Sauer Snake

Sauer (Posted 2009) [#1]

Hi everyone, I was bored tonight so I threw a little game together. It's called Sauer Snake. It's basically snake but with a different control scheme and a little bonus feature. Nothing too special, but I thought it was worth sharing because I think it's fun to play. I am curious to hear how well it runs on older machines, as it runs at 60 FPS on mine but I can certainly imagine it running slower, as many calculations are being done for collisions. Holding down the F key displays the FPS at 0,0. It's completely media free, and I'll post the source here as well as pack it with the .exe. It uses bounding boxes and circles for collisions (no Blitz commands), has a rudimentary particle effect, and demonstrates (what I believe) good code structure. Ok enough blabbering, here it is: Download Link (.zip)

Sauer (Posted 2009) [#2]

And the source: AppTitle "Sauer Snake" Graphics 800,600,0,3 SeedRnd(MilliSecs()) Global px#=400,py#=400,angle#=0 Global dx#,dy#,cx#,cy#,speed=5 Global score=0,gamestate=0 Global bonusnum=Rand(1,4),bonustimer=150,totalbonus=0 Global fx=Rand(100,700) Global fy=Rand(100,500) Global back=CreateImage(1024,768,1) SetBuffer ImageBuffer(back) For y=0 To 767 Step 2 For x=0 To 1023 Step 2 z=Rand(100,200) Color 0,0,z Rect x,y,2,2,1 Next Next Global tailimg=CreateImage(40,40,1) SetBuffer ImageBuffer(tailimg) For y=0 To 39 Step 2 For x=0 To 39 Step 2 z=Rand(100,200) Color 0,z,0 Rect x,y,2,2,1 Next Next Global headimg=CreateImage(40,40,1) SetBuffer ImageBuffer(headimg) For y=0 To 39 Step 2 For x=0 To 39 Step 2 z=Rand(100,200) Color z,z,0 Rect x,y,2,2,1 Next Next Global foodimg=CreateImage(10,10,1) SetBuffer ImageBuffer(foodimg) Color 200,100,100 Rect 0,0,10,10,1 Color 255,255,0 Oval 0,0,2,2,1 Oval 8,8,2,2,1 Oval 0,8,2,2,1 Oval 8,0,2,2,1 MaskImage foodimg,255,255,0 font=LoadFont("Times New Roman",24) SetFont font Type tail Field x,y Field ttl# End Type Type circlePart Field x,y Field ttl Field rad End Type Global frametimer=CreateTimer(60) SetBuffer BackBuffer() While Not KeyHit(1) WaitTimer(frametimer) Cls DrawImage back,0,0 HUD() Select gamestate Case 0 ;title screen screens(1) gamestate=1 Case 1 ;main game updatebonus() updatefood() updatecircleparts() updateplayer() Case 2 ;game over Delay 1000 screens(0) restart() End Select fpscounter=fpscounter+1 If MilliSecs()-time>1000 curfps=fpscounter time=MilliSecs() fpscounter=0 EndIf If KeyDown(33) Text 0,0,curfps EndIf Flip Wend Function restart() px#=400 py#=400 angle#=0 dx#=0 dy#=0 cx#=0 cy#=0 speed=5 score=0 gamestate=0 fx=Rand(100,700) fy=Rand(100,500) bonusnum=Rand(1,4) bonustimer=150 totalbonus=0 For t.tail=Each tail Delete t Next End Function Function HUD() Color 100,100,100 For x=0 To 30 Rect 0+x,0+x,800-x*2,600-x*2,0 Next Color 255,255,0 Text 400,15,"- Score: "+Str(score+totalbonus)+" -",True,True Text 400,585,"- Sauer Snake by Brian Sauer, 2009 -",True,True End Function Function updatecircleParts() For cp.circlePart=Each circlePart cp\rad=cp\rad+2 Color 255,0,0 Oval cp\x-cp\rad,cp\y-cp\rad,cp\rad*2,cp\rad*2,0 If cp\rad>cp\ttl Delete cp EndIf Next End Function Function updatebonus() bonustimer=bonustimer-1 If bonustimer<=0 bonustimer=150 bonusnum=Rand(1,4) EndIf End Function Function updateplayer() dx#=Cos(angle)*speed dy#=-Sin(angle)*speed px=px+dx py=py+dy updatetail(px-Cos(-angle)*20,py-Sin(-angle)*20,score) If px<=-40 Then px=800 If px>840 Then px=-39 If py<=-40 Then py=600 If py>640 Then py=-39 If px-20<=30 Or px+20>=770 Or py-20<=30 Or py+20>=570 gamestate=2 EndIf If KeyDown(203) angle=angle-speed If angle<0 angle=359 EndIf EndIf If KeyDown(205) angle=angle+speed If angle>359 angle=0 EndIf EndIf cx=px+dx*5 cy=py+dy*5 DrawImage headimg,px-20,py-20 End Function Function updatetail(x,y,ttl#) t.tail=New tail t\x=x t\y=y t\ttl#=ttl# For t.tail=Each tail DrawImage tailimg,t\x-20,t\y-20 If cx>t\x-20 And cx<t\x+20 And cy>t\y-20 And cy<t\y+20 gamestate=2 EndIf ;check if body is on food, move food chkx=fx+5 chky=fy+5 If fx>t\x+20 Then chkx=t\x+20 If fx<t\x-20 Then chkx=t\x-20 If fy>t\y+20 Then chky=t\y+20 If fy<t\y-20 Then chky=t\y-20 If distance(fx+5,fy+5,chkx,chky)<=5 fx=Rand(100,700) fy=Rand(100,500) EndIf ;----------------------------------- t\ttl#=t\ttl#-1 If t\ttl#<=0 Delete t EndIf Next End Function Function updatefood() DrawImage foodimg,fx,fy chkx=fx+5 chky=fy+5 If fx>px+20 Then chkx=px+20 If fx<px-20 Then chkx=px-20 If fy>py+20 Then chky=py+20 If fy<py-20 Then chky=py-20 If distance(fx+5,fy+5,chkx,chky)<=5 score=score+10 If KeyDown(bonusnum+1) totalbonus=totalbonus+20 cp.circlePart=New circlePart cp\x=fx cp\y=fy cp\rad=1 cp\ttl=76 EndIf fx=Rand(100,700) fy=Rand(100,500) EndIf Text 15,15,bonusnum,True,True Text 15,585,bonusnum,True,True Text 785,15,bonusnum,True,True Text 785,585,bonusnum,True,True End Function Function distance(x1#,y1#,x2#,y2#) Return ((x1-x2)^2+(y2-y1)^2)^.5 End Function Function screens(var) FlushKeys() If var=0 Restore gameover Else Restore title For y=0 To 12 For x=0 To 17 Read num If num=1 DrawImage tailimg,(x*40)+40,(y*40)+40 EndIf Next Next Text 100,15,"PRESS ANY KEY",True,True Text 700,15,"PRESS ANY KEY",True,True Text 100,585,"PRESS ANY KEY",True,True Text 700,585,"PRESS ANY KEY",True,True Flip WaitKey() End Function .gameover Data 1,1,1,1,0,1,1,1,0,1,0,0,0,1,0,1,1,1 Data 1,0,0,0,0,1,0,1,0,1,1,0,1,1,0,1,0,0 Data 1,0,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1,1 Data 1,0,1,1,0,1,1,1,0,1,0,0,0,1,0,1,0,0 Data 1,0,0,1,0,1,0,1,0,1,0,0,0,1,0,1,0,0 Data 1,1,1,1,0,1,0,1,0,1,0,0,0,1,0,1,1,1 Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data 1,1,1,1,0,1,0,0,1,0,1,1,1,0,1,1,1,1 Data 1,0,0,1,0,1,0,0,1,0,1,0,0,0,1,0,0,1 Data 1,0,0,1,0,1,0,0,1,0,1,1,1,0,1,1,1,1 Data 1,0,0,1,0,1,0,0,1,0,1,0,0,0,1,0,1,0 Data 1,0,0,1,0,1,0,1,0,0,1,0,0,0,1,0,0,1 Data 1,1,1,1,0,0,1,0,0,0,1,1,1,0,1,0,0,1 .title Data 1,1,1,0,1,1,1,0,1,0,1,0,1,1,0,1,1,1 Data 1,0,0,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1 Data 1,1,1,0,1,1,1,0,1,0,1,0,1,1,0,1,1,0 Data 0,0,1,0,1,0,1,0,1,0,1,0,1,0,0,1,0,1 Data 1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,1,0,1 Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data 0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0 Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 Data 1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0,1,1 Data 1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 Data 1,1,1,0,1,0,1,0,1,1,1,0,1,1,0,0,1,1 Data 0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0 Data 1,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,1

xlsior (Posted 2009) [#3]

Cute. I must say, though: I find it *way* easier to control the snake when swapping the left and right input keys. I don't know why, but I found the default input to be very counter intuitive, and kept crashing into things until I swapped them around.

Sauer (Posted 2009) [#4]

Yeah I think you're right xlsior, I changed it myself and noticed it was a little easier. Although, I can't get the bonus no matter what the control scheme... I always end up running into the wall!