Done!
... Thankyou guys for helping me. I really appreciate it. It helps a lot to learn this stuff, and i'm glad you guys took time out of your day for me!(:
..
And to prove i'm not just effortlessly sitting around, I've done my best at programming a paddle ball game (I call that pong, sorry) and keeping it nice and neat.
PLEASE critique!
| Turing: |
View.Set("Offscreen, graphics:maxx;maxxy") var mainmenu : boolean % Using this varriable to tell wether or not to pull up the main menu. var fontTNR : int % A to allow me to make a font style into a variable var mainmenuexit : string % The varriable i am using to exit the main meny/ skip past it var oval_x1,oval_y1,oval_xr1,oval_yr1 : int % I made the drawoval syntax as variables var oval_speed : int %This is to set my oval's speed var oval_directionx, oval_directiony : int % To set my ovals trajectory direction var box1_x1, box1_x2, box1_y1, box1_y2 : int var chars : array char of boolean % Not sure what this is, just know you have to have it to use keys var continue : string % Get the y/n asking if the player would like to continue var score : int % Keeps track of the score oval_x1 := 70 % the x cord for the ball oval_y1 := 70 % the y cord for the ball oval_xr1 := 10 % the radius x for the ball oval_yr1 := 10 % the radius y for the ball oval_speed := 2 % the speed of the ball pfp (Pixles per frame ;) ) oval_directionx := 1 % Direction of the x cord of the oval (1 = right, -1 = left) oval_directiony := 1 % direction of the y cord of the oval ( 1 = up, -1 = down) box1_x1 := 85 % Box x1 cord box1_x2 := 200 % box x2 cord box1_y1 := 20 % box y1 cord box1_y2 := 40 % box y2 cord mainmenu := true %a varriable to control the main menu continue := "y" %a varriable to tell wether or not to continue score := 0 loop % Main loop cls loop % main menu debugging loop if mainmenu = true then fontTNR := Font.New ("TimeNewRoman:14") Font.Draw ("Game O' Paddle Ball!", maxx div 2, maxy div 2, fontTNR, green) delay (1000) fontTNR := Font.New ("Courier:8") Font.Draw ("Use AD or Arrow Keys to move! Press b to begin!", maxx div 2 - 100, maxy div 2 - 20, fontTNR, red) score := 0 % Just to prevent people from spamming the debug system to gain points get mainmenuexit % It asks the user for input else % If mainmenu is not true then it exits this loop, and never brings up the main menu! exit end if if mainmenuexit = "b" then %When user inputs b, it changes mainmenu to false so that the loop will skip the main menu if statement mainmenu := false else cls put "Invalid key." delay (2000) exit end if end loop % Ends the main menu de bugging loop cls var timestart := Time.Elapsed % So I can measure the time elapsed from this point put "Time elapsed:", timestart / 1000 % How much time has elapsed since exiting the menu if oval_y1 >= 400 then %if y cord of oval goes >=400 then it inverses the direction of the y oval_directiony := oval_directiony * -1 end if if oval_x1 >= 630 then %if the x cord of the oval goes >= 630 then it inverses the direction of the x oval_directionx := oval_directionx * -1 end if if oval_x1 <= 0 then % x cord direction inverse oval_directionx := oval_directionx * -1 end if loop % Loop to de bug the continue system if oval_y1 <= 20 then % if y cord hits <= 20 it asks if you'd like to continue (reseting score) cls put "Would you like to continue? y/n: " .. get continue % if you'd like to continue.. else exit end if if continue = "y" or continue = "n" then cls % Clears the screen after you type in a valid answer oval_x1 := 328 oval_y1 := 228 oval_directionx := 1 oval_directiony := 1 % Reset the direction & placement of the ball score := 0 % Resets the score exit else put "Invalid answer." delay (2000) cls end if end loop % End the debugging loop if continue = "n" then put "Good Bye!" %Says goodbye and closes if you chose not to keep going delay (2000) break end if oval_x1 += (oval_directionx * oval_speed) % adds the direction *speed to the x cord of the ball oval_y1 += (oval_directiony * oval_speed) % " but with the y cord drawfilloval (oval_x1,oval_y1,oval_xr1,oval_yr1,yellow) %draw the ball Input.KeyDown (chars) if chars (KEY_RIGHT_ARROW) then %Right key move the paddle to the right box1_x1 := box1_x1 + 5 box1_x2 := box1_x2 + 5 end if if chars ('d') then % " but d box1_x1 := box1_x1 + 5 box1_x2 := box1_x2 + 5 end if if chars (KEY_LEFT_ARROW) then % left key move paddle to the left box1_x2 := box1_x2 - 5 box1_x1 := box1_x1 - 5 end if if chars ('a') then % " but a box1_x2 := box1_x2 - 5 box1_x1 := box1_x1 - 5 end if if box1_x1 >= 630 - 115 or box1_x2 >= 630 then %Sets the far x bounds for the paddle box1_x1 := box1_x1 - 5 box1_x2 := box1_x2 - 5 end if if box1_x1 <= 0 or box1_x2 <= 15 + 115 then %Sets the near x bounds for the paddle box1_x1 := box1_x1 + 5 box1_x2 := box1_x2 + 5 end if drawfillbox (box1_x1, box1_y1, box1_x2, box1_y2, red) %Draw the changes to the box if oval_x1 <= box1_x2 & oval_y1 <= box1_y2 & oval_x1 >= box1_x1 & oval_y1 >= box1_y1 then %If collision occurs, the ball moves in the oposite direction oval_directiony := oval_directiony * -1 score := score + 1 end if put "Score:", score View.Update % Supposed to fix screen flickering delay (10) end loop |
If you guys would.. I'd like to know 2 things.
1) How can i make my timer only tell me the integer the second is in, not the real number? (No decimals)
2) Can you help me fix my ball disappearing at the top (Because the put lines are coloring the yellow white)?
Also if you wanted to help me with an annoyance I have found...
My "Main Menu Debugging System" makes my menu tell you that you entered an incorrect key if you choose a key other than "b". When it does this all it does is put a statement, and then exits the loop and continues on through the main loop. (Which when you get back to go through it a second time, mainmenu will still be set to true since you never hit "b", making you go back through the main menu. Which is how the debugging works.) However, the "annoyance" is that it flickers the pong ball/paddle screen before it takes you back. Can you think of a way to prevent this?
