Snake Game.

[araevin]

The posison food is meant to be simmilar to normal food because there is only one and look for powerups. The blick is a wall.

code:

%%%% Variables Used in This program %%%% View.Set ("nocursor,noecho,graphics,msdos :500;500") setscreen ("msdos") var ch, oldch : string (1) := " " var ara : int := 1000 var foodcount : int := 0 var lifese, face, tail, iflife, shadow, dfood, foodcol, foodrow, food, bar, powers, lvlpwr : int var oldrow : int := 1 var oldcol : int := 1 var count : int := 5 var choice, name : string var tailrow : array 1 .. ara of int var tailcol : array 1 .. ara of int var score2 : int := 1 var lol : string var lvlrow, lvlcol, lirow, licol, row, col, poiscol, poisrow, barcol, barrow, powrow, powcol, tailrow2, tailcol2, shaderow, shadecol : int := Rand.Int (1, 24) var score : int := foodcount var font1, font4 : int var level : int := 1 %%%% Defined Variables %%%% shadow := 231 lvlpwr := 234 lifese := 251 row := maxrow div 2 col := maxcol div 2 powrow := 1 powcol := 1 bar := 219 face := 233 food := 203 tail := 236 dfood := 202 powers := 240 oldrow := row oldcol := col locate (row, col) put chr (face) for i : 1 .. ara     tailrow (i) := 1     tailcol (i) := 1 end for font1 := Font.New ("serif:14:bold") assert font1 > 0 font4 := Font.New ("Arial:24:bold,italic") assert font4 > 0 function shde : boolean     if shaderow = row and shadecol = col then         result true     else         result false     end if end shde function lvlpwr2 : boolean     if level = 3 and count < 2 and foodcount > 12 then         result true     else         result false     end if end lvlpwr2 function lvl : boolean     if foodcount = 15 then         result true     else         result false     end if end lvl function crash : boolean     if row = 0 or col = 0 or row = maxrow or col = maxcol then         result true     else         result false     end if end crash function gain : boolean     if lirow = row and licol = col then         result true     else         result false     end if end gain function poison : boolean     if poisrow = row and poiscol = col then         result true     else         result false     end if end poison function powerup : boolean     if powrow = row and powcol = col then         result true     else         result false     end if end powerup function barrier : boolean     if row = barrow and col = barcol then         result true     else         result false     end if end barrier %%%%Put chr procidures %%%%% proc putlvlpwr     locate (lvlrow, lvlcol)     put chr (lvlpwr) end putlvlpwr proc putdeath     locate (poisrow, poiscol)     put chr (dfood) .. end putdeath proc putbar     locate (barrow, barcol)     put chr (bar) .. end putbar proc putfood     locate (foodrow, foodcol)     put chr (food) .. end putfood proc putlife     locate (lirow, licol)     put chr (lifese) end putlife proc putface     locate (row, col)     put chr (face) .. end putface %%%% Main Game procedures %%%% proc shade     if level = 2 and foodcount = 8 then         locate (shaderow, shadecol)         put chr (shadow)         if shde = true then             count := 1             foodcount := 14             locate (maxrow div 2, (maxcol div 2) div 2)             cls             put "You got the shadow upgrade life = 1 , score = 14"             delay (800)             cls             shaderow := Rand.Int (0 + 2, maxrow - 2)             shadecol := Rand.Int (1, 1)         end if     end if end shade proc levelcolour     if level = 1 then         Draw.FillBox (0, 0, maxx, maxy, black)         colourback (black)         put ""     elsif level = 2 then         Draw.FillBox (0, 0, maxx, maxy, red)         colourback (red)         put ""     elsif level = 3 then         Draw.FillBox (0, 0, maxx, maxy, green)         colourback (green)         put ""     elsif level = 4 then         Draw.FillBox (0, 0, maxx, maxy, blue)         colourback (blue)         put ""     elsif level = 5 then         Draw.FillBox (0, 0, maxx, maxy, purple)         colourback (purple)         put ""     else         Draw.FillBox (0, 0, maxx, maxy, 260)         colourback (260)         put ""     end if end levelcolour proc lvl3     if lvlpwr2 = true then         putlvlpwr         if lvlrow = row and lvlcol = col then             count := count + 5             foodcount := foodcount + 3             cls             locate (maxrow div 2, maxcol div 2)             put "You got a secret lvl up!"             delay (800)             cls         end if     end if end lvl3 proc levelup     level := level + 1     locate (maxrow div 2, maxcol div 2)     delay (100)     cls     put "You beat this level!"     delay (1000)     cls     locate (maxrow div 2, maxcol div 2)     put name, " You got to level ", level, "!"     locate (maxrow div 2 + 2, maxcol div 2)     put "To continue press Y to Quit press N."     get lol     if lol = "n" then         level := 1         quit     else         foodcount := 0         count := 5         levelcolour         cls     end if end levelup proc tails     colour (Rand.Int (34, 103))     score := foodcount     score := score * 2     locate (tailrow (score2), tailcol (score2))     put " " ..     for decreasing i : score .. 2         tailrow (i) := tailrow (i - 1)         tailcol (i) := tailcol (i - 1)     end for     tailrow (1) := oldrow     tailcol (1) := oldcol     for i : 1 .. score         locate (tailrow (i), tailcol (i))         put chr (tail) ..     end for end tails proc gains     if count = 1 and foodcount > 5 then         putlife         if gain = true then             count := count + 5             locate (maxrow div 2, maxcol div 2)             put "Life Up! +1 "             delay (500)             cls             licol := Rand.Int (1, 3)             lirow := Rand.Int (1, 3)         end if     end if end gains proc pwer     if foodcount = 10 then         locate (powrow, powcol)         put chr (powers)         if powerup = true and foodcount = 10 then             foodcount := foodcount + 3             locate (maxrow div 2, maxcol div 2)             put name, " You found a Power Up!"             delay (500)             cls         else         end if     end if end pwer proc endlife     if level = 1 then         put "Your score was ", foodcount     elsif level = 1 then         put "Your score was ", 15 + foodcount     elsif level = 2 then         put "Your score was ", 30 + foodcount     elsif level = 3 then         put "Your score was ", 45 + foodcount     elsif level = 4 then         put "Your score was ", 60 + foodcount     elsif level = 5 then         put "Your score was ", 75 + foodcount     elsif level = 6 then         put "Your score was ", 90 + foodcount     end if     put "Would you like to play again?"     get choice     cls     if choice = "n" then         put "Thank you for playing ", name         delay (1000)         quit     else         foodcount := 0         level := 1         count := 5     end if end endlife proc poisonfood     putdeath     if poison = true then         count := count - 1         locate (maxrow div 2, maxcol div 2 - 5)         put "You ate poison food! - 1 life"         if count = 0 then             cls             endlife         end if         delay (500)         cls         poiscol := Rand.Int (5, maxcol - 5)         poisrow := Rand.Int (5, maxrow - 5)     else     end if end poisonfood proc putabar     if barrier = true then         count := count - 1         locate (maxrow div 2, maxcol div 2 - 12)         put "You hit an obstacle! - 1 life."         if count = 0 then             cls             endlife         end if         barrow := Rand.Int (3, maxrow - 3)         barcol := Rand.Int (3, maxcol - 3)         delay (1000)         cls         put chr (face) ..         put chr (bar) ..     end if end putabar proc tailcrash     if foodcount = 1 then         score := 2     else         score := foodcount * 2     end if     for i : 1 .. score         if row = tailrow (i) and col = tailcol (i) then             cls             put "you hit your tail ", name, " you fool!"             count := count - 1             row := maxrow div 2             col := maxcol div 2             delay (800)             cls             if count = 0 then             endlife             end if             end if     end for end tailcrash %%Movement procedure%% proc move     delay (50)     color (Rand.Int (35, 103))     locate (row, col)     color (Rand.Int (35, 103))     put " " ..     oldrow := row     oldcol := col     tails     %tailcrash     if ord (ch) = 200 then         row := row - 1         oldch := ch     elsif ord (ch) = 208 then         row := row + 1         oldch := ch     elsif ord (ch) = 205 then         col := col + 1         oldch := ch     elsif ord (ch) = 203 then         col := col - 1         oldch := ch     else         ch := oldch     end if     levelcolour     pwer     putabar     poisonfood     gains     tails     tailcrash     shade     locate (1, 1)     colour (Rand.Int (34, 103))     put "Life left ", count, " Score ", foodcount, " level ", level end move %% The two central loops %% proc main     loop         oldch := " "         tails         powrow := Rand.Int (1, 2)         powcol := Rand.Int (maxcol - 2, maxcol - 1)         poiscol := Rand.Int (5, maxcol - 5)         poisrow := Rand.Int (5, maxrow - 5)         licol := Rand.Int (1, 3)         lirow := Rand.Int (1, 3)         lvlrow := Rand.Int (2, maxrow - 2)         lvlcol := Rand.Int (maxcol - 3, maxcol - 1)         shaderow := Rand.Int (0 + 2, maxrow - 2)         shadecol := Rand.Int (1, 1)         loop             putfood             putbar             color (Rand.Int (35, 103))             setscreen ("graphics")             if hasch then                 getch (ch)             end if             move             if crash = true then                 cls                 count := count - 1                 locate (maxrow div 2, maxcol div 2 - 10)                 put "You crashed and lost a life. ", count, " lives left"                 row := maxrow div 2                 col := maxcol div 2                 delay (2000)                 cls                 if count = 0 then                     cls                     endlife                 end if             elsif row = foodrow and col = foodcol then                 foodcount := foodcount + 1                 locate (1, 1)                 put "Score ", foodcount                 colourback (black)                 foodrow := Rand.Int (2, maxrow - 1)                 foodcol := Rand.Int (2, maxcol - 1)                 putfood                 putbar                 if lvl = true then                     levelup                 end if             else                 putface             end if         end loop     end loop     oldch := " " end main %% This is the secondary screen %% proc menu     cls     colour (brightgreen)     locate (2, (maxcol div 2) div 4)     put "Here are the rules for Nibbles"     delay (300)     locate (3, (maxcol div 2) div 4)     put " use your arrow keys to move "     delay (300)     locate (4, (maxcol div 2) div 4)     put " dont hit the walls or you loose a life "     delay (300)     locate (5, (maxcol div 2) div 4)     put " the thick bar is an obstacle Dont hit it !"     delay (300)     locate (6, (maxcol div 2) div 4)     put " the T shape is food Eat that to get points "     delay (300)     locate (7, (maxcol div 2) div 4)     put " the upside down T shape is poison food Dont eat it!"     delay (300)     locate (8, (maxcol div 2) div 4)     put " the 3 dashes shape is a power up Try to get one!"     delay (300)     locate (9, (maxcol div 2) div 4)     put " the V shape gives you 5 extra life ! find that!"     delay (300)     locate (10, (maxcol div 2) div 4)     put " there are also alot of different powerups, look for wierd shapes!"     delay (300)     locate (11, (maxcol div 2) div 4)     put " to continue to the game peress Y."     put " "     get lol     if lol = "n" then         quit     else     end if end menu %% first proc "start" %% proc start     foodrow := Rand.Int (2, maxrow - 1)     foodcol := Rand.Int (2, maxcol - 1)     shaderow := Rand.Int (0 + 2, maxrow - 2)     shadecol := Rand.Int (1, 1)     levelcolour     color (Rand.Int (35, 200))     Font.Draw ("Welcome to Nibbles!", 150, 300, font4, Rand.Int (35, 103))     Font.Draw ("Press Y if you want to play N if you want to Quit", 150, 130, font1, Rand.Int (35, 103))     locate (24, 25)     get lol     if lol = "n" then         quit     else         cls         Font.Draw ("Welcome to Nibbles!", 150, 300, font4, Rand.Int (35, 103))         Font.Draw ("please enter your first name.", 150, 130, font1, Rand.Int (35, 103))         get name         menu     end if     cls     cls     color (Rand.Int (35, 103)) end start loop     start     putfood     main end loop

[upthescale]

Very impressive, great work i like the flashing colors

[TheOneTrueGod]

Not bad of a game, though I can't help but feel a bit of deja vu... Was this a class project by any chance?

A couple of things
#1) In the words of mr Mackey, "quits are bad, mmkay. Don't use quits, mmkay." There are plenty of discussions on these, your smart, you can probably find em using the handy search button (in the top menu thing)

#2) Epilepsy alert!

#3) Try moving the "obstacle" / poison food around whenever you get more food, or try adding more whenever you get more food.

#4) Some minor errors with losing lives, When I hit a wall, I kinda teleported into my tail, and then proceeded to lose all my lives. Hurrah!

#5) 500 lines seems excessive, there are probably many ways to cut that down a bit.

Other than that, nice work! I wish my school was decent enough to get onto something like this, but unfortunately, we went from having the class teach itself stuff due to not so great teaching to learning fractals in pascal from the department head.

[jamonathin]

Yes i too have seen an almost exact game like this posted, but oh well. One more thing you mite want to add. If the player is moving up or down, slow it down a bit, so he's not running like a bat out of hell. But good work .

[Clayton]

when you start the game you shouldnt just start moving right away, use Input.KeyDown and a loop to prevent this problem, also as mentioned, you should do something about the vertical speed (i think the expression used above "like a bat out of hell" would be appropriate) other than that watch out epileptics!

[blaster009]

OneTrueGod is, as always, completely right. For example, in this block of code, you have:

code:

if level = 1 then         put "Your score was ", foodcount     elsif level = 1 then         put "Your score was ", 15 + foodcount     elsif level = 2 then         put "Your score was ", 30 + foodcount     elsif level = 3 then         put "Your score was ", 45 + foodcount     elsif level = 4 then         put "Your score was ", 60 + foodcount     elsif level = 5 then         put "Your score was ", 75 + foodcount     elsif level = 6 then         put "Your score was ", 90 + foodcount end if

Firstly, you have two scenarios where level equals 1, which means your total will be off somewhere down the line. Secondly, you could just shorten this to:

code:

put "Your score was", foodcount + level * 15

Always remember to look for ways to maximize efficiency with minimal lines.

[araevin]

thank you for your comments ill fix it and post it agin