Computer Science Canada please help: pong game for school |
| Author: | ashvinthecha [ Sat May 30, 2009 5:30 pm ] |
| Post subject: | please help: pong game for school |
ok i have no idea how to make a ball for the game and i could use some help here is my code so far % variable declaration var x : int var y : int var p1 : string var p2 : string var ashvin := 100 var ashvin2 := 180 var ashvin3 := 100 var ashvin4 := 180 var bouce1 := 1 var bounce2 := 1 var background := white var getKey : array char of boolean % procedure declaration procedure Screen drawfillbox (0, 0, maxx, maxy, background) drawfillbox (20, ashvin, 30, ashvin2, black) drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black) end Screen procedure MoveP1Up drawfillbox (20, ashvin2, 30, ashvin, background) ashvin += 1 ashvin2 += 1 drawfillbox (20, ashvin2, 30, ashvin, black) delay (3) end MoveP1Up procedure MoveP1Down drawfillbox (20, ashvin2, 30, ashvin, background) ashvin -= 1 ashvin2 -= 1 drawfillbox (20, ashvin2, 30, ashvin, black) delay (3) end MoveP1Down procedure MoveP2Up drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, background) ashvin3 += 1 ashvin4 += 1 drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black) delay (3) end MoveP2Up procedure MoveP2Down drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, background) ashvin3 -= 1 ashvin4 -= 1 drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black) delay (3) end MoveP2Down % beginning of program loop drawfillbox (20, ashvin, 30, ashvin2, black) Input.KeyDown (getKey) if getKey ('q') then MoveP1Up end if if getKey ('a') then MoveP1Down end if if (ashvin <= 0) and (ashvin2 <= 80) then ashvin := 0 ashvin2 := 80 elsif (ashvin >= maxy - 80) and (ashvin2 >= maxy - 80) then ashvin2 := maxy ashvin := maxy - 80 end if drawfillbox (maxx - 20, ashvin3, maxx - 30, ashvin4, black) Input.KeyDown (getKey) if getKey (KEY_UP_ARROW) then MoveP2Up end if if getKey (KEY_DOWN_ARROW) then MoveP2Down end if if (ashvin3 <= 0) and (ashvin4 <= 80) then ashvin3 := 0 ashvin4 := 80 elsif (ashvin3 >= maxy - 80) and (ashvin4 >= maxy - 80) then ashvin4 := maxy ashvin3 := maxy - 80 end if View.Update end loop |
|
| Author: | tjmoore1993 [ Sat May 30, 2009 5:40 pm ] |
| Post subject: | RE:please help: pong game for school |
You really didn't need to ask for help. Why? Simple explanation. Simply go to the submission section a look for submissions on Ping-Pong. Most of them demonstrate accurate movement of the ball and will help you a lot. If that doesn't help then ask again.  |
|
| Author: | saltpro15 [ Sat May 30, 2009 5:44 pm ] |
| Post subject: | RE:please help: pong game for school |
I think mine's pretty descriptive http://compsci.ca/v3/viewtopic.php?t=20169&highlight=pong cheers |
|