The Best Snake Game
Who has a better Snake Game
(No ending time set) |
| Pwned |
|
62% |
[ 5 ] |
| Jonosss |
|
37% |
[ 3 ] |
|
| Total Votes : 8 |
|
| Author |
Message |
StarGateSG-1
|
 Posted: Tue May 31, 2005 10:43 pm Post subject: The Best Snake Game |
|
|
These are 2 snake games made by members of CompSci, and I want to know which on you like best. Vote on the Poll and and Place any comments or suggestion, I am sure they would like them.
This is the link to Jonosss verison
His isn't quite finished but there are only minor errors that can't affect game play.
http://www.compsci.ca/v2/viewtopic.php?p=86440#86440
This is Pwned verison, It is in its BETA stages aswell, so it should be a fair contest.
http://www.compsci.ca/v2/viewtopic.php?t=9035
Feel free to rate this any way you want.
A warning: If you don't like it just say so, NO FLAMING ALLOWED.
I will give 50 bits to the one voted best. |
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
Mr. T
|
| Posted: Tue May 31, 2005 10:55 pm Post subject: Alex's Opinion |
|
|
Uncle Worm owns snake any day of the week.  |
|
|
|
|
|
Bacchus
|
| Posted: Wed Jun 01, 2005 5:57 am Post subject: (No subject) |
|
|
I don't really like either of them that much. Uncle Worm has quite annoying phrases to me at the top everytime you score, the Snake seemed unresponsive for a bit after you score, and the Dots that you have to get appeared in the snake, and it was based on a gid system (which I find is the basis for snake). Super Snake I didn't play for very long because how the snake looked bugged me, lol, the menu was a bit messed as well but that didn't affect the actual play, and Super Snake didn't use a grid system as well. Over all though, I think that Uncle Worm looked better in game-play, but Super Snake worked better. I'm not going to vote for either though, I prefer my friends snake game.  |
|
|
|
|
|
[Gandalf]
|
| Posted: Wed Jun 01, 2005 12:02 pm Post subject: (No subject) |
|
|
Sorry pwned, I liked yours a lot, but Super Snake just had that cool intro... 
And an ai.
Pwned Snake:
Good:
-Good movement and smoothness.
-No bad game mistakes.
-Cool windows.
Bad:
-Move throught yourself.
Jonoss Snake:
Good:
-Good Intro
-Good use of GUI
-Not bad ai
-High scores
Bad:
-Change that snake maybe 
-fix gui
-change the stars
-snake is too long at the begginning
-detection is abit off |
|
|
|
|
|
zylum
|
| Posted: Wed Jun 01, 2005 3:01 pm Post subject: (No subject) |
|
|
[cough]
| code: | setscreen ("graphics:320;350,nooffscreenonly,nobuttonbar")
type snakeCoords :
record
x : int
y : int
end record
type snakeData :
record
dx : int
dy : int
speed : int
clr : int
end record
type gridData :
record
size : int
width : int
clr : int
end record
const foodClr := RGB.AddColor (0.9, 0.1, 0.1)
var grdData : gridData
grdData.size := 30
grdData.width := 10
grdData.clr := RGB.AddColor (0.2, 0.9, 0.2)
var grid : array 1 .. grdData.size, 1 .. grdData.size of int
var snake : flexible array 1 .. 5 of snakeCoords
var snkData : snakeData
var keysDown : array char of boolean
var score, highScore, scoreInc : int := 0
var foodx, foody : int
snkData.clr := RGB.AddColor (0.3, 0.7, 0.3)
proc resetData
cls
var temp : int
score := 0
snkData.dx := 0
snkData.dy := -1
setscreen ("graphics:320;350,nooffscreenonly,nobuttonbar")
put "what is the difficulty? (1-5)"
get temp
cls
locate (maxrow div 2, maxcol div 2)
put "3"
delay (1000)
cls
locate (maxrow div 2, maxcol div 2)
put "2"
delay (1000)
cls
locate (maxrow div 2, maxcol div 2)
put "1"
delay (1000)
cls
setscreen ("graphics:320;350,offscreenonly,nobuttonbar")
cls
if temp > 5 then
temp := 5
elsif temp < 1 then
temp := 1
end if
scoreInc := temp ** 2
snkData.speed := (6 - temp) * 10 + 10
new snake, 5
for i : 1 .. upper (snake)
snake (i).x := grdData.size div 2
snake (i).y := grdData.size
end for
end resetData
proc moveFood
var done : boolean
loop
done := true
foodx := Rand.Int (1, grdData.size)
foody := Rand.Int (1, grdData.size)
for i : 1 .. upper (snake)
if snake (i).x = foodx and snake (i).y = foody then
done := false
end if
end for
exit when done = true
end loop
end moveFood
proc moveSnake
var tempx, tempy : int
if snake (1).x = foodx and snake (1).y = foody then
score += scoreInc
moveFood
new snake, upper (snake) + 1
end if
tempx := snake (1).x
tempy := snake (1).y
for decreasing i : upper (snake) .. 2
snake (i).x := snake (i - 1).x
snake (i).y := snake (i - 1).y
end for
snake (1).x := tempx + snkData.dx
snake (1).y := tempy + snkData.dy
end moveSnake
proc updateSnakeData
Input.KeyDown (keysDown)
if keysDown (KEY_RIGHT_ARROW) and snkData.dx not= -1 then
snkData.dx := 1
snkData.dy := 0
elsif keysDown (KEY_LEFT_ARROW) and snkData.dx not= 1 then
snkData.dx := -1
snkData.dy := 0
elsif keysDown (KEY_UP_ARROW) and snkData.dy not= -1 then
snkData.dx := 0
snkData.dy := 1
elsif keysDown (KEY_DOWN_ARROW) and snkData.dy not= 1 then
snkData.dx := 0
snkData.dy := -1
end if
end updateSnakeData
proc drawGrid
drawfillbox (grdData.width, grdData.width, grdData.size * grdData.width + grdData.width, grdData.size * grdData.width + grdData.width, grdData.clr)
drawfillbox (foodx * grdData.width, foody * grdData.width, foodx * grdData.width + grdData.width, foody * grdData.width + grdData.width, foodClr)
for i : 1 .. upper (snake)
drawfillbox (snake (i).x * grdData.width, snake (i).y * grdData.width, snake (i).x * grdData.width + grdData.width, snake (i).y * grdData.width + grdData.width, snkData.clr)
end for
end drawGrid
proc checkIfDead
for i : 2 .. upper (snake)
if (snake (1).x = snake (i).x and snake (1).y = snake (i).y) or snake (1).x < 1 or snake (1).x > grdData.size or snake (1).y < 1 or snake (1).y > grdData.size then
if score > highScore then
highScore := score
end if
resetData
moveFood
return
end if
end for
end checkIfDead
resetData
moveFood
loop
updateSnakeData
moveSnake
drawGrid
checkIfDead
locate (1, 1)
put "HIGH: ", highScore
put "SCORE: ", score
View.Update
delay (snkData.speed)
cls
end loop |
[/cough]
can also be found here: http://www.compsci.ca/v2/viewtopic.php?t=4462&highlight=snake |
|
|
|
|
|
Neo
|
| Posted: Wed Jun 01, 2005 3:14 pm Post subject: (No subject) |
|
|
I vote zylum. Nice and simple and I like how the snake is lined up within the grid.
BTW shouldnt this be in the turing section? |
|
|
|
|
|
StarGateSG-1
|
| Posted: Wed Jun 01, 2005 4:18 pm Post subject: (No subject) |
|
|
| It won't have been, but I can't create polls in there. This is the next best place. Zylum I didn't know you made one I searched for more but there were none that I could see. I wish I could add yours to the list |
|
|
|
|
|
Mr. T
|
| Posted: Wed Jun 01, 2005 5:01 pm Post subject: Alex's Opinion |
|
|
[Gandalf] wrote:
Bad:Move through yourself.
No you cant  |
|
|
|
|
|
Sponsor
Sponsor
|
|
|
[Gandalf]
|
| Posted: Wed Jun 01, 2005 5:39 pm Post subject: Re: Alex's Opinion |
|
|
Pwned wrote: [Gandalf] wrote:
Bad:Move through yourself.
No you cant
Oh, right, I didn't bother rechecking it after the first time  .
Yeah, I remember zylum's - that's the best version of snake I have ever seen, perfect except the response time is a bit strange . |
|
|
|
|
|
Bacchus
|
| Posted: Wed Jun 01, 2005 6:39 pm Post subject: (No subject) |
|
|
| Ah Zylum! Now that's the kind of Snake I like!, my vote goes to Zylum as well! Gotta love that Grid System at work! |
|
|
|
|
|
jamonathin
|
| Posted: Wed Jun 01, 2005 8:46 pm Post subject: (No subject) |
|
|
I vote Pwn3d, only cuz I'm slowly helping him wit his game  .
Although zylum's is good. Fast pace, straight to the point. |
|
|
|
|
|
Cervantes
|
|
|
|
|
StarGateSG-1
|
|
|
|
|
zylum
|
| Posted: Fri Jun 03, 2005 2:59 pm Post subject: (No subject) |
|
|
looks like cervantes is going to win  |
|
|
|
|
|
StarGateSG-1
|
| Posted: Fri Jun 03, 2005 3:23 pm Post subject: (No subject) |
|
|
| Make all the bets you wnat it will be up to the people, Starting sunday for 1 week. |
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
