----------------------------------- - IzAk - Tue Jun 13, 2006 1:19 pm pong, hope you like, it has some music in it too!! ----------------------------------- % J Jesse James Knudsen % June 7,2006 % TIK 2 var stopIt : int stopIt := 0 process playMyMusic loop Music.Play (">dbdbefdbdbef 4aaacbacbac 1efgefgefg 4bbbad 2gbgbacefefefab 8efefgbgbefefgbgbefagbccc 8abcdabcddefdefabcdabcddefdef ") exit when stopIt = 10 end loop end playMyMusic %-------------------------------------------------------------------------- var winMain : int := Window.Open ("Graphics:781;541") % window for main menu setscreen ("nocursor") var col1 : int := 7 % color numbers for text, backround, paddles and ball var col2 : int := 0 var delaytime : int := 10 var diff : string (1) var stop : int := 250 var leave : int := 0 var x, y, movex, movey : int % Ball size & movement variables var size : int := 10 x := maxx div 2 randint (y, 20, maxy - 20) movex := 2 movey := 2 var padx1, pady1, padsizey, padsizex : int % paddle 1 size & movement variables var move1 : string (1) var movey1 : int padx1 := 1 pady1 := (maxy div 2) - (110 div 2) movey1 := 40 var padx2, pady2, padsizey2, padsizex2 : int % paddle 2 size & movement variables var movey2 : int padx2 := maxx - 2 pady2 := (maxy div 2) - (110 div 2) movey2 := 20 var usescore, compscore : int := 0 fork playMyMusic %---------------------------------------------------------------- main menu put " *****************************************************" delay (stop) put " * Welcome To Pong *" delay (stop) put " *Please enter the diffuculty your would like to play*" delay (stop) put " * 1.Easy *" delay (stop) put " * 2.Medium *" delay (stop) put " * 3.Hard *" delay (stop) put " * 4.Impossible *" delay (stop) put " *****************************************************" delay (stop) getch (diff) loop if ord (diff) = 49 then % Selection of speed put "Your Choose ", diff, ".Easy" stop := 81 exit elsif ord (diff) = 50 then % Selection of speed put "Your Choose ", diff, ".Medium" stop := 50 exit elsif ord (diff) = 51 then % Selection of speed put "Your Choose ", diff, ".Hard" stop := 30 exit elsif ord (diff) = 52 then % Selection of speed put "Your Choose ", diff, ".Impossible" stop := 2 exit else % if an asked number is not selected put "Invaild Entry" put "Please enter the diffuculty your would like to play" getch (diff) end if end loop put "Press Any Key to Continue" getch (diff) setscreen ("offscreenonly") % Ball Movement & speed process ball loop delay (100) loop delay (delaytime) x := x + movex y := y + movey % Ball bouncing off paddle2 if x - size = padx2 then if y - size = pady2 then movex := -movex movex := movex - 1 else leave := 2 end if end if % Ball bouncing of Y-Axis if y >= maxy - 1 - 5 then movey := -movey movey := movey - 1 elsif y padsizey2 - 55 then pady2 := pady2 + movey2 end if if leave = 1 or leave = 2 then exit end if end loop delay (1000) exit when usescore = 5 or compscore = 5 end loop end paddle2 % Programed in user score and computer score % Player score process pics loop loop drawfill (5,5,col1,col1) Text.LocateXY (maxx div 2 - 4, 40) Text.ColourBack (col1) Text.Colour (col2) put "SCORE!!!" Text.LocateXY (maxx div 2 - 4, 30) Text.ColourBack (col1) Text.Colour (col2) put "USER. - ", usescore Text.LocateXY (maxx div 2 - 10, 20) Text.ColourBack (col1) Text.Colour (col2) put " COMP. - ", compscore drawfilloval (x, y, size, size, col2) drawfillbox (padx1, pady1, padsizex, padsizey, col2) drawfillbox (padx2, pady2, padsizex2, padsizey2, col2) View.Update if leave = 1 or leave = 2 then exit end if cls end loop delay (999) exit when usescore = 5 or compscore = 5 end loop end pics % Computer score process score loop loop if leave = 1 then compscore := compscore + 1 delay (1000) leave := 0 elsif leave = 2 then usescore := usescore + 1 delay (1000) leave := 0 end if exit when usescore = 5 or compscore = 5 end loop exit when usescore = 5 or compscore = 5 end loop end score process reset loop delay (500) if leave = 1 or leave = 2 then var size : int := 10 x := maxx div 2 randint (y, 20, maxy - 20) movex := 2 movey := 2 padx1 := 1 pady1 := (maxy div 2) - (110 div 2) padx2 := maxx - 2 pady2 := (maxy div 2) - (110 div 2) end if exit when usescore = 5 or compscore = 5 end loop end reset % Fork's for loops fork ball fork paddle1 fork paddle2 fork pics fork score fork reset %Post text for score Text.LocateXY (maxx div 2 - 4, 40) put "SCORE!!!" Text.LocateXY (maxx div 2 - 4, 30) put "USER - ", usescore Text.LocateXY (maxx div 2 - 10, 20) put "COMP. - ", compscore View.Update %------------------------------ stopIt := 10 %end music ----------------------------------- BenLi Thu Jun 15, 2006 8:45 pm ----------------------------------- you know that think in breakout where if you hit the ball on the side of the paddle it changes the angle and speeds it up? that'd be a cool feature on this and nice music? composer in the making? ----------------------------------- Reality Check Thu Jun 15, 2006 9:04 pm ----------------------------------- Nice Program. I really like the music. Also, doing what the above poster suggested would be great using your code. It shouldn't be too hard to implement. Making different coloured tiles is obviously simple and using whatdotcolour, you can drop a power up item according to which box was hit. I'd give you bits if I knew how... ----------------------------------- Clayton Thu Jun 15, 2006 9:16 pm ----------------------------------- /me starts to cry why are you using processes???? pong certainly doesnt need them, the only real use they have in your program is for your music but thats it. also, look into some optimization in there :D ----------------------------------- xtremehacker Thu Sep 07, 2006 6:03 pm ----------------------------------- cool game it would be better though if u could move the paddle with the mouse and not just the arrow keys. ----------------------------------- [Gandalf] Thu Sep 07, 2006 6:19 pm ----------------------------------- Please stop posting in dead/old topics. This is called necro posting and is against [The Rules] which you should definately read before posting further. ----------------------------------- Foundation Mon Sep 18, 2006 8:23 pm ----------------------------------- Is it still necro posting after someone already necro posted for it to get up again? I made a pong game, it required 270 some lines, and I have no idea what he did in his pong game. :? ex. fork? When I played it it's a good game though. Maybe I will understand more as I learn more turing. :P :D Thanks for the game! ----------------------------------- [Gandalf] Mon Sep 18, 2006 10:38 pm ----------------------------------- Only if you're necro posting the necro post. :P Either way, you should only be posting if you really have something useful to contribute. These things aren't set in stone, but it's good to generally follow the guidelines. fork is related to processes, which you most probably won't be needing in your Turing programs. Do a search for "process" in the Turing sections and you'll see nothing but "DONT USE PROCESSES!!11!!!". So at best read the tutorials on them and follow that advice. :) ----------------------------------- Foundation Tue Sep 19, 2006 7:44 am ----------------------------------- Okay, thanks for the explaination. I was wondering how you would whatdotcolour for pong. How would you use whatdotcolour as a collision detector? You would need n ifs for n whatdotcolour (x,y)? That would take a long time... :lol: ----------------------------------- [Gandalf] Tue Sep 19, 2006 2:33 pm ----------------------------------- The search button is there to help you for such questions which have most likely been asked hundreds of times. A very simple pseudo-code-ish example: if whatdotcolour (paddle.x, paddle.y) = ball.colour then ball.deflect end if It should be noted that this very thing is do-able, not having to depend on Turing's fairly limited colour system: if Math.Distance(paddle.x, paddle.y, ball.x, ball.y)