Computer Science Canada make thing go up and down. make programs less glitchy. |
| Author: | orangelover55 [ Wed Dec 02, 2009 7:01 pm ] |
| Post subject: | make thing go up and down. make programs less glitchy. |
kay so i have this program. and i'am wondering how to make the balls that go sideways to go up and down and i was wondering how to make this program less glitchy. here is the program: import GUI var row : int var picnum : int row := 19 setscreen ("graphics : 720;450") var x1 := 300 var y1 := 1 var x2 := 290 var x3 := 310 var x4 := 300 var y2 := 20 var y3 := 19 var y4 := 18 var y5 := 17 var y11 := 16 var y12 := 15 var y13 := 14 var y14 := 13 var y15 := 12 var y16 := 11 var y17 := 10 var x6 := 600 var x7 := 700 var x8 := 800 var y6 := 200 var y7 := 0 var y8 := 300 var y9 := 0 var y10 := 400 var Yb :int var getkey : array char of boolean var answer : string var count : int := 3 procedure oval x6 := x6 - 10 delay (10) end oval loop x1 := 300 y1 := 1 x2 := 290 x3 := 310 x4 := 300 y2 := 20 y3 := 19 y4 := 18 y5 := 17 y11 := 16 y12 := 15 y13 := 14 y14 := 13 y15 := 12 y16 := 11 y17 := 10 x6 := 600 x7 := 700 x8 := 800 y6 := 900 y7 := 0 y8 := 300 y9 := 0 y10 := 400 Yb := 399 count := count loop drawfillbox (0, 900, 800, 1, 176) drawfillbox (0, 70, 800, 1, 10) drawfilloval (400, 350, 50, 50, 18) drawfilloval (350, 350, 50, 50, 18) drawfilloval (300, 350, 50, 50, 18) drawfilloval (250, 350, 50, 50, 18) drawfilloval (200, 350, 50, 50, 18) drawfilloval (150, 350, 50, 50, 18) drawfilloval (100, 350, 50, 50, 18) drawfilloval (50, 350, 50, 50, 18) drawfilloval (450, 350, 50, 50, 18) drawfilloval (500, 350, 50, 50, 18) drawfilloval (550, 350, 50, 50, 18) drawfilloval (600, 350, 50, 50, 18) drawfilloval (650, 350, 50, 50, 18) drawfilloval (0, 350, 50, 50, 18) drawfillarc (x1, y1, 30, 30, 360, 180, 0) drawfilloval (x2, y2, 5, 5, white) drawfilloval (x2, y2, 3, 3, black) drawfilloval (x3, y2, 5, 5, white) drawfilloval (x3, y2, 3, 3, black) drawfilloval (x4, y3, 3, 3, 42) drawfilloval (x4, y4, 3, 3, 42) drawfilloval (x4, y5, 3, 3, 42) drawfilloval (x4, y11, 3, 3, 42) drawfilloval (x4, y12, 3, 3, 42) drawfilloval (x4, y13, 3, 3, 42) drawfilloval (x4, y14, 3, 3, 42) drawfilloval (x4, y15, 3, 3, 42) drawfilloval (x4, y16, 3, 3, 42) drawfilloval (x4, y17, 3, 3, 42) drawfilloval (x6, y6, 20, 20, grey) delay (1) drawfilloval (x6, y8, 20, 20, grey) delay (1) if x6 = 10 then randint (y7, 125, 225) randint (y9, 225, 325) %balls x6 := 700 y6 := y7 y8 := y9 end if oval drawfillbox (0, 900, 800, 1, 176) drawfillbox (0, 70, 800, 1, 10) drawfilloval (400, 350, 50, 50, 18) drawfilloval (350, 350, 50, 50, 18) drawfilloval (300, 350, 50, 50, 18) drawfilloval (250, 350, 50, 50, 18) drawfilloval (200, 350, 50, 50, 18) drawfilloval (150, 350, 50, 50, 18) drawfilloval (100, 350, 50, 50, 18) drawfilloval (50, 350, 50, 50, 18) drawfilloval (450, 350, 50, 50, 18) drawfilloval (500, 350, 50, 50, 18) drawfilloval (550, 350, 50, 50, 18) drawfilloval (600, 350, 50, 50, 18) drawfilloval (650, 350, 50, 50, 18) drawfilloval (0, 350, 50, 50, 18) Input.KeyDown (getkey) if getkey (KEY_UP_ARROW) then y1 := y1 + 5 y2 := y2 + 5 y3 := y3 + 5 y4 := y4 + 5 y5 := y4 + 5 y11 := y11 + 5 y12 := y12 + 5 y13 := y13 + 5 y14 := y14 + 5 y15 := y15 + 5 y16 := y16 + 5 y17 := y17 + 5 end if if getkey (KEY_DOWN_ARROW) then y1 := y1 - 5 y2 := y2 - 5 y3 := y3 - 5 y4 := y4 - 5 y5 := y5 - 5 y11 := y11 - 5 y12 := y12 - 5 y13 := y13 - 5 y14 := y14 - 5 y15 := y15 - 5 y16 := y16 - 5 y17 := y17 - 5 end if if getkey (KEY_LEFT_ARROW) then x1 := x1 - 5 x2 := x2 - 5 x3 := x3 - 5 x4 := x4 - 5 end if if getkey (KEY_RIGHT_ARROW) then x1 := x1 + 5 x2 := x2 + 5 x3 := x3 + 5 x4 := x4 + 5 end if drawfillbox (0, 900, 800, 1, 176) drawfillbox (0, 70, 800, 1, 10) drawfilloval (400, 350, 50, 50, 18) drawfilloval (350, 350, 50, 50, 18) drawfilloval (300, 350, 50, 50, 18) drawfilloval (250, 350, 50, 50, 18) drawfilloval (200, 350, 50, 50, 18) drawfilloval (150, 350, 50, 50, 18) drawfilloval (100, 350, 50, 50, 18) drawfilloval (50, 350, 50, 50, 18) drawfilloval (450, 350, 50, 50, 18) drawfilloval (500, 350, 50, 50, 18) drawfilloval (550, 350, 50, 50, 18) drawfilloval (600, 350, 50, 50, 18) drawfilloval (650, 350, 50, 50, 18) drawfilloval (0, 350, 50, 50, 18) if x6 = x4 and y6 = y3 then count := count - 1 exit elsif x6 = x4 and y6 = y4 then count := count - 1 exit elsif x6 = x4 and y8 = y3 then count := count - 1 exit elsif x6 = x4 and y8 = y4 then count := count - 1 exit elsif x6 = x4 and y6 = y5 then count := count - 1 exit elsif x6 = x4 and y8 = y5 then count := count - 1 exit elsif x6 = x4 and y6 = y11 then count := count - 1 exit elsif x6 = x4 and y8 = y11 then count := count - 1 exit elsif x6 = x4 and y6 = y12 then count := count - 1 exit elsif x6 = x4 and y8 = y12 then count := count - 1 exit elsif x6 = x4 and y6 = y13 then count := count - 1 exit elsif x6 = x4 and y8 = y13 then count := count - 1 exit elsif x6 = x4 and y6 = y14 then count := count - 1 exit elsif x6 = x4 and y8 = y14 then count := count - 1 exit elsif x6 = x4 and y6 = y15 then count := count - 1 exit elsif x6 = x4 and y8 = y15 then count := count - 1 exit elsif x6 = x4 and y6 = y16 then count := count - 1 exit elsif x6 = x4 and y8 = y16 then count := count - 1 exit elsif x6 = x4 and y6 = y17 then count := count - 1 exit elsif x6 = x4 and y8 = y17 then count := count - 1 exit end if end loop put "Play Again? y/n" put "Lives:", count get answer if answer = "n" then exit end if cls if count = 0 then cls delay (500) locate (10, 40) put "OH NO!!!" delay (1000) cls locate (10, 40) put "GAME OVER!!!!!!!!!!!!!!!!!!!" delay (1000) exit end if end loop procedure ending cls delay (1000) locate (10, 33) put "THANK YOU FOR PLAYING SULLY'S ADVENTURE!" delay (1500) cls locate (10, 33) put "SEE YOU NEXT TIME!!" delay (1000) drawfillarc (300, 1, 30, 30, 360, 180, 120) drawfilloval (290, 20, 5, 5, white) drawfilloval (290, 20, 3, 3, black) drawfilloval (310, 20, 5, 5, white) drawfilloval (310, 20, 3, 3, black) delay (2000) cls locate (10, 35) put "THE END" drawfillarc (300, 1, 30, 30, 360, 180, 120) drawfilloval (290, 20, 5, 5, white) drawfilloval (290, 20, 3, 3, black) drawfilloval (310, 20, 5, 5, white) drawfilloval (310, 20, 3, 3, black) end ending var end1 : int := GUI.CreateButtonFull (300, 210, 0, "END GAME", ending, 0, '^D', true) loop exit when GUI.ProcessEvent end loop PLEASE HELP!!! |
|
| Author: | Zren [ Wed Dec 02, 2009 7:24 pm ] |
| Post subject: | RE:make thing go up and down. make programs less glitchy. |
First let's get rid of the flickering. Read up on View.Update: http://compsci.ca/v3/viewtopic.php?t=12533 |
|
| Author: | Tony [ Wed Dec 02, 2009 8:57 pm ] |
| Post subject: | RE:make thing go up and down. make programs less glitchy. |
I'd suggest investing some time into getting to know arrays and for loops instead. |
|