Blast Snake - GameCreators Forum

Author

Message

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 06:31 Edited at: 21st Jun 2007 06:34

Link

Well, started on my new project, just an hour ago really,

Just a simple snake game, almost done actually. Only thing left to do is setup collision for the snake, and fix the fruit so it doesn't spawn inside the snake

Screen Shot:

Source Code(So far, comments welcome on improving my coding skills):

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 200,20 : Position Object 200,100,0,100
If Fruit#=0 then Color Object 200,RGB(200,20,20)
If Fruit#=1 then Color Object 200,RGB(200,20,20)
If Fruit#=2 then COlor Object 200,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem Main Loop
Do
Rem print variables
set cursor 0,0
print "snake x";object position x(100)
print "snake z";object position z(100)
print "fruit x";object position x(200)
print "fruit z";object position z(200)

Rem Print Score
Center Text 400,10,Str$(Score#)

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(200)-10
If Object Position x(100) < Object Position x(200)+10
   If Object Position z(100) > Object Position z(200)-10
   If Object POsition z(100) < Object Position z(200)+10
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 200,(RND(35)-20)*20,0,(RND(25)-15)*20
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 200,RGB(200,20,20)
      If Fruit#=1 then Color Object 200,RGB(200,20,20)
      If Fruit#=2 then COlor Object 200,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 100
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = -99 to -1
   If Object Exist(abs(t)+100) = 1
      Position Object abs(t)+100,Object Position x(abs(t)+99),0,Object Position z(abs(t)+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20
Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

sync
Loop

+ Code Snippet

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 200,20 : Position Object 200,100,0,100
If Fruit#=0 then Color Object 200,RGB(200,20,20)
If Fruit#=1 then Color Object 200,RGB(200,20,20)
If Fruit#=2 then COlor Object 200,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem Main Loop
Do
Rem print variables
set cursor 0,0
print "snake x";object position x(100)
print "snake z";object position z(100)
print "fruit x";object position x(200)
print "fruit z";object position z(200)

Rem Print Score
Center Text 400,10,Str$(Score#)

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(200)-10
If Object Position x(100) < Object Position x(200)+10
   If Object Position z(100) > Object Position z(200)-10
   If Object POsition z(100) < Object Position z(200)+10
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 200,(RND(35)-20)*20,0,(RND(25)-15)*20
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 200,RGB(200,20,20)
      If Fruit#=1 then Color Object 200,RGB(200,20,20)
      If Fruit#=2 then COlor Object 200,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 100
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = -99 to -1
   If Object Exist(abs(t)+100) = 1
      Position Object abs(t)+100,Object Position x(abs(t)+99),0,Object Position z(abs(t)+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20
Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

   sync
Loop

Question:
Is there a better way to make a "for z=1to10" loop go backwards?
right now I'm using negative numbers, and just using absolute value, though if my object add number is the same as the negative, it gives me a nice error, cause there is no object zero, lol.

Blastwave Man

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Xenocythe

19

Years of Service

User Offline

Joined: 26th May 2005

Location: You Essay.

Posted: 21st Jun 2007 06:37

Link

Uhh...

For x=10 to 1 step-1
BLAH BLAH
Next x

That should work.

Looks nice.

DarkDev- Team Requests, forums, galleries, and more

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 06:40 Edited at: 21st Jun 2007 06:41

Link

actually that doesn't work, lol, first thing i tried. so I'm doing negatives instead. It works, and I'm not really worried about it for this snake clone, lol.

edit: didn't see the step-1...I've never seen that used in example codes, thanks for the info.

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 07:40

Link

Done, lol. Now on to my next 'small' project. Seriously, setting the simplest goals, I think I might go far with this indie stuff, lol.

Source Code(Comments and suggestions wanted):

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 5,20 : Position Object 5,100,0,100
If Fruit#=0 then Color Object 5,RGB(200,20,20)
If Fruit#=1 then Color Object 5,RGB(200,20,20)
If Fruit#=2 then COlor Object 5,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem load sounds
Load Sound "snake.wav",1

Rem Main Loop
Do
Rem Print Score
Center Text 400,20,Str$(Score#)

Rem Snake Collision with Arena
If Object Position z(100)>270 then Death#=1
If Object Position z(100)<-270 then Death#=1
If Object Position x(100)>370 then Death#=1
If Object Position x(100)<-370 then Death#=1

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(5)-10
If Object Position x(100) < Object Position x(5)+10
   If Object Position z(100) > Object Position z(5)-10
   If Object POsition z(100) < Object Position z(5)+10
   Play Sound 1
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
      Rem check position and reposition if neccessary
      check:
      For x = 0 to 100
         If Object Exist(x+100)
            If Object Position x(5)=Object Position x(x+100)=1
               If Object Position z(5)=Object Position z(x+100)=1
                  Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
                  Goto check
               Endif
            Endif
         Endif
      next x
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 5,RGB(200,20,20)
      If Fruit#=1 then Color Object 5,RGB(200,20,20)
      If Fruit#=2 then COlor Object 5,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 101
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = 100 to 1 step -1
   If Object Exist(t+100) = 1
      Position Object t+100,Object Position x(t+99),0,Object Position z(t+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20

Rem Snake Collision With Himself
For k = 1 to 100
   If Object Exist(k+100)
      If Object Position x(100)=Object Position x(k+100)
         If Object Position z(100)=Object Position z(k+100)
            Death#=1
         Endif
      Endif
   Endif
Next k

Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

Rem Death Code
Death:
If Death#=1
   dk=dk+1
   Center Text 400,270,"Your Score Is:"
   Center Text 400,330,STR$(Score#)
   if dk=50
      Score#=0
      Death#=0
      dk=0
      S_dir#=0
      Tail#=0
      Position Object 100,0,0,0
      for v = 1 to 100
         if Object Exist(v+100) then Delete Object v+100
      next v
         Position Object 5,100,0,100 : Fruit#=RND(2)
         If Fruit#=0 then Color Object 5,RGB(200,20,20)
         If Fruit#=1 then Color Object 5,RGB(200,20,20)
         If Fruit#=2 then COlor Object 5,RGB(200,200,20)
   else
      Sync
      Goto Death
   endif
Endif

sync
Loop

+ Code Snippet

Rem Project: Blast Snake

Rem Setup Display
Set Display Mode 800,600,16 : Set Window On
Set Window Layout 3,1,0 : Set Window Title "Blast Snake V1.0"
Sync Rate 0 : Sync On : Sync Rate 30
Hide Mouse : Autocam Off : Backdrop On : Color Backdrop 0

Rem Define Variables
Score#=0
S_dir#=0
S_dly#=10
Tail#=0
Fruit#=RND(2)
Set Text Size 36

Rem Setup Arena
Rem Top Bar
Make Object Box 1,800,20,20 : Color Object 1,RGB(20,200,20)
Position Object 1,0,0,290
Rem Lower Bar
Make Object Box 2,800,20,20 : Color Object 2,RGB(20,200,20)
Position Object 2,0,0,-290
Rem Right Bar
Make Object Box 3,20,20,600 : Color Object 3,RGB(20,200,20)
Position Object 3,390,0,0
Rem Left Bar
Make Object Box 4,20,20,600 : Color Object 4,RGB(20,200,20)
Position Object 4,-390,0,0

Rem Make Starting Snake Object
Make Object Cube 100,20 : Color Object 100,RGB(20,200,20)
Position Object 100,0,0,0
Rem Make rnd fruit and placement
Make Object Cube 5,20 : Position Object 5,100,0,100
If Fruit#=0 then Color Object 5,RGB(200,20,20)
If Fruit#=1 then Color Object 5,RGB(200,20,20)
If Fruit#=2 then COlor Object 5,RGB(200,200,20)

Rem Position Camera
Position Camera 0,650,0 : Point Camera 0,0,0

Rem load sounds
Load Sound "snake.wav",1

Rem Main Loop
Do
Rem Print Score
Center Text 400,20,Str$(Score#)

Rem Snake Collision with Arena
If Object Position z(100)>270 then Death#=1
If Object Position z(100)<-270 then Death#=1
If Object Position x(100)>370 then Death#=1
If Object Position x(100)<-370 then Death#=1

Rem Eat Fruit, update score and fruit
If Object Position x(100) > Object Position x(5)-10
If Object Position x(100) < Object Position x(5)+10
   If Object Position z(100) > Object Position z(5)-10
   If Object POsition z(100) < Object Position z(5)+10
   Play Sound 1
      If Fruit#=0 then Score#=Score#+10
      If Fruit#=1 then Score#=Score#+10
      If Fruit#=2 then Score#=Score#+20
      Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
      Rem check position and reposition if neccessary
      check:
      For x = 0 to 100
         If Object Exist(x+100)
            If Object Position x(5)=Object Position x(x+100)=1
               If Object Position z(5)=Object Position z(x+100)=1
                  Position Object 5,(RND(36)-18)*20,0,(RND(24)-12)*20
                  Goto check
               Endif
            Endif
         Endif
      next x
      Fruit#=RND(2)
      If Fruit#=0 then Color Object 5,RGB(200,20,20)
      If Fruit#=1 then Color Object 5,RGB(200,20,20)
      If Fruit#=2 then COlor Object 5,RGB(200,200,20)
      Tail#=Tail#+1
      If Tail# < 101
         Make Object Cube Tail#+100,20
         Color Object Tail#+100,RGB(25,200,25)
         Position Object Tail#+100,object position x(100),0,object position z(100)
      Endif
   Endif
   Endif
Endif
Endif

Rem Delay Movement
dly#=dly#+1
If dly#=S_dly#
   dly#=0
Rem Update Snake Tail
for t = 100 to 1 step -1
   If Object Exist(t+100) = 1
      Position Object t+100,Object Position x(t+99),0,Object Position z(t+99)
   Endif
next t
   If S_dir#=1 then Move Object 100,20
   If S_dir#=2 then Move Object Right 100,20
   If S_dir#=3 then Move Object 100,-20
   If S_dir#=4 then Move Object Left 100,20

Rem Snake Collision With Himself
For k = 1 to 100
   If Object Exist(k+100)
      If Object Position x(100)=Object Position x(k+100)
         If Object Position z(100)=Object Position z(k+100)
            Death#=1
         Endif
      Endif
   Endif
Next k

Endif

Rem Snake Movement
If Upkey()=1 then S_dir#=1
If Rightkey()=1 then S_dir#=2
If Downkey()=1 then S_dir#=3
If Leftkey()=1 then S_dir#=4

Rem Death Code
Death:
If Death#=1
   dk=dk+1
   Center Text 400,270,"Your Score Is:"
   Center Text 400,330,STR$(Score#)
   if dk=50
      Score#=0
      Death#=0
      dk=0
      S_dir#=0
      Tail#=0
      Position Object 100,0,0,0
      for v = 1 to 100
         if Object Exist(v+100) then Delete Object v+100
      next v
         Position Object 5,100,0,100 : Fruit#=RND(2)
         If Fruit#=0 then Color Object 5,RGB(200,20,20)
         If Fruit#=1 then Color Object 5,RGB(200,20,20)
         If Fruit#=2 then COlor Object 5,RGB(200,200,20)
   else
      Sync
      Goto Death
   endif
Endif

   sync
Loop

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Attachments

Login to view attachments

Back to top

Profile PM Email Website

tiresius

22

Years of Service

User Offline

Joined: 13th Nov 2002

Location: MA USA

Posted: 21st Jun 2007 08:11

Link

This game is a great small project. I applaud you for starting small and building on it!!

There is a lot you can do with this game, getting into some more advanced coding techniques if you want. I'm not talking about graphics or anything shnazzy, just good coding practices.

Just some suggestions:
- Use functions instead of a giant DO loop
- Do not use Goto, just use another DO loop with a different condition
- User defined types will keep your variables easy to track
- Instead of hard coding object numbers (or range of them), use an available object function
- Investigate the use of array lists/queues to add object numbers to your snake instead of a hard-coded range
- Use a real timer() instead of a variable counter for delays

That list is pretty vague, if you need any help with specifics let me know and I'll try to help. Just illuminating the possibilities and throwing them out there.

I'm not a real programmer but I play one with DBPro!

Back to top

Profile PM Email

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 21st Jun 2007 19:44

Link

Thanks for the input, I will be trying to apply those in my next project: Blast Invaders.

Wip coming soon, just finished the graphics and now coding the basic engine.

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Shadow heart

17

Years of Service

User Offline

Joined: 2nd Dec 2006

Location: US

Posted: 22nd Jun 2007 00:51 Edited at: 22nd Jun 2007 00:51

Link

it was pretty fun, but the snake needs to be sped up alittle bit:

to the ones thats trapped inside of you, this is it!!

Back to top

Profile PM Email Website

Blastwave man

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location: ...don\'t look behind you.

Posted: 22nd Jun 2007 02:18

Link

I'm done with the snake game, but your free to alter and repost the source if you want.

Many things can be added to these little remakes, but as of right now, I'm not worried about fine details, but principles and correct programing.

BWM

"I wish I was a wizard, becuase then I could wave my wand and perfect code would just appear."

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / Blast Snake

Attachments