-----------------------------------

Mr. T

Mon May 30, 2005 9:04 pm


Uncle Worm--Final Product--BETA

-----------------------------------

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

Mon May 30, 2005 9:28 pm



-----------------------------------

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


-----------------------------------

Mr. T

Mon May 30, 2005 9:36 pm


Alex's Opinion

-----------------------------------

please cut the flaming, Vladimir.


-----------------------------------

[Gandalf]

Mon May 30, 2005 11:15 pm



-----------------------------------

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

Mon May 30, 2005 11:35 pm


Alex's Opinion

-----------------------------------

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

Tue May 31, 2005 6:09 am



-----------------------------------

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

Tue May 31, 2005 10:22 am



-----------------------------------

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  :cussing:


-----------------------------------

Mr. T

Tue May 31, 2005 5:44 pm



-----------------------------------

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


-----------------------------------

Mr. T

Wed Jun 01, 2005 4:58 pm


Alex's Opinion

-----------------------------------

how do i make a grid  :roll:


-----------------------------------

jamonathin

Wed Jun 01, 2005 8:39 pm



-----------------------------------

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  :P .  So here it is:


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