----------------------------------- LiquidDragon Fri May 14, 2004 5:38 pm Snake Game ----------------------------------- Well it seems to be alomst the end of the year and our teachers are beginning to assign the end of the year projects. For mine i have decided to make a snake game :dance:. My teacher was suprised that i wanted to take the "challenge" although i dont find it to challenging myself. Just difficult to increase the length of the snake. If you have been assigned your end of the year project feel free to post it or tell me what its about because i would like to no. I will also update you on my progress for my snake game, but it will be pretty basic because of the basic knowledge our teacher taught us. ----------------------------------- LiquidDragon Fri May 14, 2004 6:20 pm ----------------------------------- Ok i have some problems so far. i need to get my oranges (the things the snake collects) to be on some sort of grid so the snake will get it in line Here is my code: setscreen ("graphics:640;480") proc snake_up (var x, y : int) drawfillbox (x - 10, y, x + 10, y - 30, 0) drawfilloval (x, y, 10, 10, 12) end snake_up proc snake_down (var x, y : int) drawfillbox (x - 10, y, x + 10, y + 30, 0) drawfilloval (x, y, 10, 10, 12) end snake_down proc snake_left (var x, y : int) drawfillbox (x, y - 10, x + 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) end snake_left proc snake_right (var x, y : int) drawfillbox (x, y - 10, x - 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) end snake_right %boundaries drawfillbox (115, 40, 128, 440, 7) %left wall drawfillbox (120, 430, 520, 440, 7) %top wall drawfillbox (511, 40, 520, 440, 7) %right wall drawfillbox (114, 35, 520, 48, 7) %bottom wall var x, y : int var key : string (1) var orange_x, orange_y : int x := maxx div 2 y := maxy div 2 randint (orange_x, 150, 510) randint (orange_y, 50, 430) loop getch (key) %drawing the orange drawfilloval (orange_x, orange_y, 10, 10, 8) if key = KEY_UP_ARROW and whatdotcolor (x, y + 20) not= 7 then y += 20 snake_up (x, y) elsif key = KEY_DOWN_ARROW and whatdotcolor (x, y - 20) not= 7 then y -= 20 snake_down (x, y) elsif key = KEY_LEFT_ARROW and whatdotcolor (x - 20, y) not= 7 then x -= 20 snake_left (x, y) elsif key = KEY_RIGHT_ARROW and whatdotcolor (x + 20, y) not= 7 then x += 20 snake_right (x, y) end if end loop ----------------------------------- gamer Fri May 14, 2004 7:23 pm ----------------------------------- dont use getch , use Input.KeyDown instead ----------------------------------- Tony Fri May 14, 2004 9:56 pm ----------------------------------- first of all this belongs in [turing help] second - maybe you should take a look at an existing [url=http://www.compsci.ca/v2/viewtopic.php?t=4462]snake. Maybe you'll get some ideas for variables setup and types of procedures needed. Don't copy though, cuz that would be apparent ----------------------------------- LiquidDragon Sat May 15, 2004 8:30 am ----------------------------------- see the problem is i cant use Input.KeyDown becuase we have never learned that in class, so my teacher will get angry. Although i dont understand why :wall: She also said that if she finds something we havent learned it will be considered "cheating" and can't have cheating :naughty:. So i have to keep it simple. Well... i can add Input.KeyDown if someone explained how it worked and then i could explain to the teacher :) ----------------------------------- MyPistolsIn3D Sat May 15, 2004 12:48 pm ----------------------------------- Tpye Input.KeyDown in a turing window and press F9. ----------------------------------- white_dragon Sat May 15, 2004 4:27 pm ----------------------------------- it basically lets u use more than one key at a time. though i think there is a limit to how many keys u can use. ----------------------------------- LiquidDragon Sat May 15, 2004 6:17 pm ----------------------------------- Ok well im gonna stick with the getch because otherwise it gets all weird. So now i have two problems 1. When my snake eats an orange he increases in length. I have tried many things for this but haven't figured it out. 2. getting the orange to be on the same grid as the snake. Right now the snake isnt technically on a grid it just looks like it because i set the x and y increases to 20. Here is what i have so far setscreen ("graphics:640;480") var snake_length : int snake_length := 1 proc snake_up (var x, y : int) drawfillbox (x - 10, y, x + 10, y - 30, 0) drawfilloval (x, y, 10, 10, 12) end snake_up proc snake_down (var x, y : int) drawfillbox (x - 10, y, x + 10, y + 30, 0) drawfilloval (x, y, 10, 10, 12) end snake_down proc snake_left (var x, y : int) drawfillbox (x, y - 10, x + 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) end snake_left proc snake_right (var x, y : int) drawfillbox (x, y - 10, x - 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) end snake_right %boundaries drawfillbox (115, 40, 128, 440, 7) %left wall drawfillbox (120, 430, 520, 440, 7) %top wall drawfillbox (511, 40, 520, 440, 7) %right wall drawfillbox (114, 35, 520, 48, 7) %bottom wall var x, y : int var key : string (1) var orange_x, orange_y : int x := maxx div 2 y := maxy div 2 randint (orange_x, 150, 510) randint (orange_y, 50, 430) loop getch (key) %drawing the orange drawfilloval (orange_x, orange_y, 10, 10, 9) if key = KEY_UP_ARROW and whatdotcolor (x, y + 20) not= 7 then y += 20 snake_up (x, y) elsif key = KEY_DOWN_ARROW and whatdotcolor (x, y - 20) not= 7 then y -= 20 snake_down (x, y) elsif key = KEY_LEFT_ARROW and whatdotcolor (x - 20, y) not= 7 then x -= 20 snake_left (x, y) elsif key = KEY_RIGHT_ARROW and whatdotcolor (x + 20, y) not= 7 then x += 20 snake_right (x, y) end if end loop ----------------------------------- SuperGenius Sat May 15, 2004 9:56 pm ----------------------------------- If you are making a snake game you really need to have at least a few shapes in a 'train' to start with. In the real snake, the head is controlled by the user and each trailing piece will turn in the same direction at the same location that the head did. Also, if you do this you're going to have to add collision detection to see if the snake has run over itself. ----------------------------------- LiquidDragon Sun May 16, 2004 9:33 am ----------------------------------- Yes i am still working on all that but one small bit at a time. ----------------------------------- LiquidDragon Sun May 16, 2004 10:31 am ----------------------------------- Ok so i got the snake to follow me but now it tends to leave ovals behind when i switch directions. Could someone help me out with that and maybe help me with Input.KeyDown like give an exmaple in my program. setscreen ("graphics:640;480") var snake_length : int snake_length := 4 proc snake_up (var x, y : int) drawfillbox (x - 10, y, x + 10, y - 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x + 4, y + 4, 2, 2, green) end snake_up proc snake_up_f (var x, y : int) if whatdotcolor (x, y - (20 * snake_length)) not= 7 then drawfilloval (x, y - (20 * snake_length), 10, 10, 0) end if drawfilloval (x, y - 20, 10, 10, 12) end snake_up_f proc snake_down (var x, y : int) drawfillbox (x - 10, y, x + 10, y + 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y - 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) end snake_down proc snake_down_f (var x, y : int) if whatdotcolor (x, y + (20 * snake_length)) not= 7 then drawfilloval (x, y + (20 * snake_length), 10, 10, 0) end if drawfilloval (x, y + 20, 10, 10, 12) end snake_down_f proc snake_left (var x, y : int) drawfillbox (x, y - 10, x + 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x - 4, y - 4, 2, 2, green) end snake_left proc snake_left_f (var x, y : int) if whatdotcolor (x + (20 * snake_length), y) not= 7 then drawfilloval (x + (20 * snake_length), y, 10, 10, 0) end if drawfilloval (x + 20, y, 10, 10, 12) end snake_left_f proc snake_right (var x, y : int) drawfillbox (x, y - 10, x - 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x + 4, y + 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) end snake_right proc snake_right_f (var x, y : int) if whatdotcolor (x - (20 * snake_length), y) not= 7 then drawfilloval (x - (20 * snake_length), y, 10, 10, 0) end if drawfilloval (x - 20, y, 10, 10, 12) end snake_right_f %boundaries drawfillbox (115, 40, 128, 440, 7) %left wall drawfillbox (120, 430, 520, 440, 7) %top wall drawfillbox (511, 40, 520, 440, 7) %right wall drawfillbox (114, 35, 520, 48, 7) %bottom wall var x, y : int var key : string (1) var orange_x, orange_y : int x := maxx div 2 y := maxy div 2 randint (orange_x, 150, 510) randint (orange_y, 50, 430) loop getch (key) %drawing the orange drawfilloval (orange_x, orange_y, 10, 10, 9) if key = KEY_UP_ARROW and whatdotcolor (x, y + 20) not= 7 then y += 20 snake_up (x, y) for i : 1 .. snake_length snake_up_f (x, y) end for elsif key = KEY_DOWN_ARROW and whatdotcolor (x, y - 20) not= 7 then y -= 20 snake_down (x, y) for i : 1 .. snake_length snake_down_f (x, y) end for elsif key = KEY_LEFT_ARROW and whatdotcolor (x - 20, y) not= 7 then x -= 20 snake_left (x, y) for i : 1 .. snake_length snake_left_f (x, y) end for elsif key = KEY_RIGHT_ARROW and whatdotcolor (x + 20, y) not= 7 then x += 20 snake_right (x, y) for i : 1 .. snake_length snake_right_f (x, y) end for end if end loop ----------------------------------- LiquidDragon Sun May 16, 2004 3:18 pm ----------------------------------- Come on i really need help on this. I just need to know how to make the circles follow behind. I can do it but as soon as i change directions it messes up. ----------------------------------- LiquidDragon Sun May 16, 2004 3:38 pm ----------------------------------- YAY!!!! I finally got it to work. Now its time for collision detection and stuff. I'm so happy i finally got it :dance: :dance: :dance: :dance: Look how i got it to work setscreen ("graphics:640;480") var snake_length : int snake_length := 4 proc snake_up (var x, y : int) drawfillbox (x - 10, y, x + 10, y - 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x + 4, y + 4, 2, 2, green) end snake_up proc snake_up_f (var x, y : int) drawfilloval (x, y - 20, 10, 10, 12) end snake_up_f proc snake_down (var x, y : int) drawfillbox (x - 10, y, x + 10, y + 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y - 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) end snake_down proc snake_down_f (var x, y : int) drawfilloval (x, y + 20, 10, 10, 12) end snake_down_f proc snake_left (var x, y : int) drawfillbox (x, y - 10, x + 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x - 4, y - 4, 2, 2, green) end snake_left proc snake_left_f (var x, y : int) drawfilloval (x + 20, y, 10, 10, 12) end snake_left_f proc snake_right (var x, y : int) drawfillbox (x, y - 10, x - 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x + 4, y + 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) end snake_right proc snake_right_f (var x, y : int) drawfilloval (x - 20, y, 10, 10, 12) end snake_right_f %boundaries drawfillbox (115, 40, 128, 440, 7) %left wall drawfillbox (120, 430, 520, 440, 7) %top wall drawfillbox (511, 40, 520, 440, 7) %right wall drawfillbox (114, 35, 520, 48, 7) %bottom wall var x, y : int var key : string (1) var count : int var orange_x, orange_y : int var erase_x, erase_y : array 1 .. 1000 of int x := maxx div 2 y := maxy div 2 count := 0 randint (orange_x, 150, 510) randint (orange_y, 50, 430) loop getch (key) count += 1 erase_x (count) := x erase_y (count) := y %drawing the orange drawfilloval (orange_x, orange_y, 10, 10, 9) if key = KEY_UP_ARROW and whatdotcolor (x, y + 20) not= 7 then y += 20 snake_up (x, y) snake_up_f (x, y) elsif key = KEY_DOWN_ARROW and whatdotcolor (x, y - 20) not= 7 then y -= 20 snake_down (x, y) snake_down_f (x, y) elsif key = KEY_LEFT_ARROW and whatdotcolor (x - 20, y) not= 7 then x -= 20 snake_left (x, y) snake_left_f (x, y) elsif key = KEY_RIGHT_ARROW and whatdotcolor (x + 20, y) not= 7 then x += 20 snake_right (x, y) snake_right_f (x, y) end if %This erases the last part of the snake :D if count >= snake_length then drawfilloval (erase_x (count - snake_length + 1), erase_y (count - snake_length + 1), 10, 10, 0) end if end loop I think some bits are in order :lol: ----------------------------------- white_dragon Sun May 16, 2004 4:54 pm ----------------------------------- good job! the collision and detection should be really easy. just say that if the snake is beyond or equal to an x or y value then just fork it to a exit statement and say "u suk" lol. jk jk ----------------------------------- LiquidDragon Sun May 16, 2004 4:56 pm ----------------------------------- LOL! yes that sounds like an excellent thing to say. But what's fork. I've never used that before :?: ----------------------------------- SuperGenius Sun May 16, 2004 4:59 pm ----------------------------------- fork is used to call a process. It works the same way as a procedure except it will run concurrently with the code below the fork statement. Be careful about process that use global variables though, because it can have problems. ----------------------------------- white_dragon Sun May 16, 2004 5:00 pm ----------------------------------- just make a procedure then after ur done say [code] proc lose *stuff u wanna put in here to say "u lose" n such* end lose fork lose [/code] BTW, who r u in WCI? ----------------------------------- omni Sun May 16, 2004 5:05 pm ----------------------------------- its is used to call a process. Processes run alongside with your program ----------------------------------- white_dragon Sun May 16, 2004 5:07 pm ----------------------------------- but there's two kinds.....well sorta..... there's procedures and processes. their really different btw, how do i put a code in cause it never works when i do it ----------------------------------- SuperGenius Sun May 16, 2004 5:54 pm ----------------------------------- just make a procedure then after ur done say proc lose *stuff u wanna put in here to say "u lose" n such* end lose fork lose dont do this cause it's wrong. Procedures are called by a single word, which is the name of the procedure. When a procedure is called the stack that called it will pause while the procedure is executing, and then when the procedure is finished the origional stack that called it will resume. A process is called by saying "fork nameofprocess" When a stack calls a process it will keep going WHILE the process executes at the same time. To accomplish this it would be best to use a procedure because if the game is over there is not much for the computer to do still, so this is what it should look like: proc lose *stuff u wanna put in here to say "u lose" n such* end lose if loosecondition = true then lose end if end lose ----------------------------------- LiquidDragon Sun May 16, 2004 6:08 pm ----------------------------------- well all that forkin' fork stuff is forkin' confusing the fork outta me :think: ----------------------------------- LiquidDragon Mon May 17, 2004 2:53 pm ----------------------------------- Well i have run into another problem. I am trying to put my oranges onto a grid but it is not working. this is the method im using to draw the orange on a grid. setscreen ("graphics:640;480") var snake_length : int snake_length := 4 proc orange_grid var orange_x_ar, orange_y_ar : array 1 .. 19 of int var count : int count := 0 for pick_x : 139 .. 499 by 20 count += 1 orange_x_ar (count) := pick_x end for count := 0 for pick_y : 59 .. 419 by 20 count += 1 orange_y_ar (count) := pick_y end for end orange_grid proc snake_up (var x, y : int) if whatdotcolor (x, y + 20) not= 7 then y += 20 drawfillbox (x - 10, y, x + 10, y - 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x + 4, y + 4, 2, 2, green) drawfilloval (x, y - 20, 10, 10, 12) %Snake following end if end snake_up proc snake_down (var x, y : int) if whatdotcolor (x, y - 20) not= 7 then y -= 20 drawfillbox (x - 10, y, x + 10, y + 30, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y - 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) drawfilloval (x, y + 20, 10, 10, 12) %Snake following end if end snake_down proc snake_left (var x, y : int) if whatdotcolor (x - 20, y) not= 7 then x -= 20 drawfillbox (x, y - 10, x + 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x - 4, y + 4, 2, 2, green) drawfilloval (x - 4, y - 4, 2, 2, green) drawfilloval (x + 20, y, 10, 10, 12) %Snake following end if end snake_left proc snake_right (var x, y : int) if whatdotcolor (x + 20, y) not= 7 then x += 20 drawfillbox (x, y - 10, x - 30, y + 10, 0) drawfilloval (x, y, 10, 10, 12) drawfilloval (x + 4, y + 4, 2, 2, green) drawfilloval (x + 4, y - 4, 2, 2, green) drawfilloval (x - 20, y, 10, 10, 12) %Snake following end if end snake_right proc draw_orange (var x, y : int) var orange_x, orange_y : int var count : int orange_grid randint (orange_x, 1, 19) randint (orange_y, 1, 19) %draws orange drawfilloval (orange_x_ar (orange_x), orange_y_ar (orange_y), 10, 10, 41) end draw_orange proc orange_hit (var orange_x, orange_y, x, y : int) orange_grid if orange_x_ar (2) = x and orange_y_ar (2) = y then %if snake gets orange put "SCORE" draw_orange (x, y) end if end orange_hit %boundaries drawfillbox (115, 40, 128, 440, 7) %left wall drawfillbox (120, 430, 520, 440, 7) %top wall drawfillbox (511, 40, 520, 440, 7) %right wall drawfillbox (114, 35, 520, 48, 7) %bottom wall var x, y : int var orange_x, orange_y : int var key : string (1) var move : string var count : int var erase_x, erase_y : array 1 .. 1000 of int x := maxx div 2 y := maxy div 2 count := 0 move := "NONE" draw_orange (x, y) loop getch (key) loop count += 1 erase_x (count) := x erase_y (count) := y if key = KEY_UP_ARROW then if move not= "DOWN" then snake_up (x, y) move := "UP" elsif move = "DOWN" then snake_down (x, y) end if elsif key = KEY_DOWN_ARROW then if move not= "UP" then snake_down (x, y) move := "DOWN" elsif move = "UP" then snake_up (x, y) end if elsif key = KEY_LEFT_ARROW then if move not= "RIGHT" then snake_left (x, y) move := "LEFT" elsif move = "RIGHT" then snake_right (x, y) end if elsif key = KEY_RIGHT_ARROW then if move not= "LEFT" then snake_right (x, y) move := "RIGHT" elsif move = "LEFT" then snake_left (x, y) end if end if delay (150) if count >= snake_length then drawfilloval (erase_x (count - snake_length + 1), erase_y (count - snake_length + 1), 10, 10, 0) end if orange_hit (orange_x, orange_y, x, y) exit when hasch end loop end loop EDIT: I fixed the orange grid drawing but now it has problems checking if it hit the orange. My code is really messed up right now so dont mind some of it but if you could plze help me fix it i will give you some bits :) ----------------------------------- SuperGenius Mon May 17, 2004 3:50 pm ----------------------------------- I'm a little confused as to exactly what you're asking, but anyways... This was a point to consider during the making of my connect 4 game. The simplest way to keep track of the board was to have a 2d array. This effectively turns the board into a cartesian plane. So to take a set of coordinates you need to do something like this.(This is code from my connect 4) proc drawboard for h : 1 .. 8 for c : 1 .. 8 if board (h, c) not= " " then if board (h, c) = "RED" then Draw.FillOval (130 + c * 60, 80 + h * 60, 25, 25, red) elsif board (h, c) = "GREEN" then Draw.FillOval (130 + c * 60, 80 + h * 60, 25, 25, green) end if end if end for end for end drawboard You need to have a base number (in my case 130) which is the bottom of the grid minus 1/2 the size of the grid square. (if you are drawing circles because you need to give the x,y of the center) and then you add to the base the product of the x or y value on the cartesian plane times the width of each grid square. ----------------------------------- LiquidDragon Mon May 17, 2004 5:27 pm ----------------------------------- So ar you trying to say that i should move my snake on an array instead of just drawing them? What i was asking was to help me with drawing the orange and checking if the snake runs over it. In that code i devised a way to draw the orange but now its just a case of only drawing it once and checking if the snake runs over it. EDIT: LOL!! looks like i solved my own problem again :oops: Now i only need to check if the snake has run into itself. I'm also going to try to shorten my main program. ----------------------------------- SuperGenius Mon May 17, 2004 7:26 pm ----------------------------------- oh dear. I seem to have gotten confused and posted in the wrong thread. Disregard that please. If any of you mods want to delete that post go ahead. ----------------------------------- LiquidDragon Tue May 18, 2004 2:28 pm ----------------------------------- Ok so now the oranges are working but i can get it to check if my head hits the snake EDIT: OK i got it to check if the snake hits itself. But i cant figure out anything else to add. Anyone got some ideas? So far im gonna have levels that have different speeds. I may add a wall in the middle for one level. But i still need a few more ideas. ----------------------------------- LiquidDragon Thu May 20, 2004 2:46 pm ----------------------------------- Ok so things are coming along nicely but now im stuck again. Ok let me explain. I have that sword thing on the side and as your score increases the sword thing will fill up. When the score reaches 500 I want to sword to be completely coloured. Everytime the score increases i also want to colour to increment up the sword. ----------------------------------- LiquidDragon Thu May 20, 2004 2:49 pm ----------------------------------- Heres the pictures ----------------------------------- LiquidDragon Mon May 24, 2004 6:15 pm ----------------------------------- YAY i'm pretty much done my program now :dance: I just need to add some losing screens and instructions and extra stuff You can take a look if you like. I'll repost it when its completely finished. I'm just posting it now so you can have a quick peek before its completely finished. The pictures are posted above