Uncle Worm--Final Product--BETA

[Mr. T]

READ BELOW BEFORE DOWNLOADING GAME.
-------
Here is my 95% complete grade 10 comps fp.
Please leave your constructive criticism to assist me in error-proofing this program.
-------
Two known errors to me:
1. When you enter a new level, reminants of the previous level flash for a second.
2. Error after the program terminates.
-------
READ INSTRUCTIONS IN THE GAME BEFORE PLAYING.

Enjoy!

[Naveg]

you forgot to attach it....so far i give you 0%

[Mr. T]

please cut the flaming, Vladimir.

[[Gandalf]]

Nice game.

Wait, you're not supposed to be able to go through yourself :s.

Smooth, well done!

Does your game work on a grid system, or just normally?

[Mr. T]

Ya thanks for pointing that out. I had altered my code and had forgotten to change it back. The .zip at the top is updated.
------
About the grid system....if its something you had had to setup beforehand, then no, i didn't use one.

[jamonathin]

Looks pretty good. What happened to the next level sign though? What you should probabily do for an update is change your style to a grid, so then on different levels you can add obstacles or something, and a grid system would complement that nice. (that sounds kinda wierd)
Using a grid system makes your program look more, whats the word, organized? because then you dont take the chance of missing the food when you go for it.

Looks good though, keep at it.

[gohan]

Nice job man...I liked the extra window(or scoreboard) if you will!!!
I just want to know, When do you get to go the next level...lol...i'm kinda getting frustrated

[Mr. T]

The next level is after 600 points...if u get frustrated, change the game speed to average or fast...it will take less time

[Mr. T]

how do i make a grid

[jamonathin]

This probabily isn't the cleanest of code, and nor do I care, cuz I'm just showing a demo of what a grid is . So here it is:

Turing:

setscreen ("graphics:400;400,nobuttonbar,position:center;center,offscreenonly") colorback (black) var x, y : int := 10 var foodx, foody : int := 7 var score : int := 7 var key : array char of boolean proc new_food %Resetting food     loop         randint (foodx, 20, maxx)         exit when foodx mod 20 = 0     end loop     foodx -= 10     loop         randint (foody, 20, maxy)         exit when foody mod 20 = 0     end loop     foody -= 10 end new_food procedure refresh     cls     View.Set ("title: Grid - Score: " + intstr (score))     for i : 0 .. maxx by 20         drawline (i, 0, i, maxy, white)         drawline (0, i, maxx, i, white)     end for     drawfilloval (x, y, 9, 9, 10)     drawfilloval (foodx, foody, 5, 5, yellow)     if key (KEY_UP_ARROW) and y < maxy - 10 then         y += 20     elsif key (KEY_DOWN_ARROW) and y > 10 then         y -= 20     elsif key (KEY_RIGHT_ARROW) and x < maxx - 10 then         x += 20     elsif key (KEY_LEFT_ARROW) and x > 10 then         x -= 20     end if     if y = foody and x = foodx then         new_food         score += 7     end if     View.Update end refresh new_food loop     Input.KeyDown (key)     refresh     delay (50) end loop