Computer Science Canada Can someone help me with Dance Dance Revolution on turing |
| Author: | nessk12 [ Sat May 18, 2013 1:27 pm ] |
| Post subject: | Can someone help me with Dance Dance Revolution on turing |
What is the problem you are having? I am trying to get the arrows to move like they would in dance dance revolution as they scroll up the screen and appear after one another Describe what you have tried to solve this problem i tried using randint but it didnt work Post any relevant code (You may choose to attach the file instead of posting the code if it is too long) [syntax="turing"] setscreen ("graphics:850;540") var font3, font2 : int font3 := Font.New ("ocr a extended:24:bold") font2 := Font.New ("Arial:24") var x, y, b : int %click mouse var picture : string := "null" %click mouse %intro to sean paul revolution var introbackground : int drawfillbox (0, 0, maxx, maxy, black) delay (2000) Font.Draw ("Introducing..", (maxx div 2) - 150, maxy div 2, font3, white) delay (5000) cls introbackground := Pic.FileNew ("introbackground.bmp") Pic.Draw (introbackground, 0, 0, picCopy) %if box clicked goes to game or rules loop Mouse.Where (x, y, b) if b = 1 and x > 656 and x < 790 and y > 39 and y < 93 then cls var keys := Pic.FileNew ("keys.bmp") var pic := Pic.FileNew ("rulespic.jpg") var rules := Pic.FileNew ("rules.bmp") Pic.Draw (pic, 0, 0, 0) Pic.Draw (keys, 610, 0, 0) Pic.Draw (rules, 200, 435, picCopy) Font.Draw ("Sean Paul Revolution is exactly like Dance Dance", 10, 400, font2, white) Font.Draw ("Revolution but with a better new improved Sean Paul", 10, 370, font2, white) Font.Draw ("twist. The key object of the the game is simple:", 10, 340, font2, white) Font.Draw ("Pick the Sean Paul song of your choice,", 10, 300, font2, white) Font.Draw ("then use the arrow keys to hit as many moving arrows", 10, 270, font2, white) Font.Draw ("as you can", 10, 240, font2, white) Font.Draw ("Click back button to continue", 70, 10, font2, white) elsif b = 1 and x > 657 and x < 790 and y > 120 and y < 179 then %Go to "Play" page %Go to "Rules" page cls %Play screen %enter name for highscore var namenum : string var music : int put "Enter your name" get namenum cls %music selection put "pick your song choice" put "1.Get Busy" put "2.Temperature" put "3.So Fine" put "4.Got To Love You" put "5.We Be Burning" get music cls var arrowdown, arrowup, arrowleft, arrowright, y2, sp, arrownum : int arrowdown := Pic.FileNew ("arrowdown.bmp") arrowup := Pic.FileNew ("arrowup.bmp") arrowleft := Pic.FileNew ("arrowleft.bmp") arrowright := Pic.FileNew ("arrowright.bmp") y2 := 0 View.Set ("offscreenonly") loop %if song pick goes to the play screen choosen if music = 1 then Music.PlayFileReturn ("get busy.mp3") loop for i : 1 .. 30 randint (sp, 10, 20) y2 += sp Pic.Draw (arrowdown, 360, y2, picMerge) Pic.Draw (arrowup, 355, y2, picMerge) Pic.Draw (arrowleft, 350, y2, picMerge) Pic.Draw (arrowright, 370, y2, picMerge) delay (200) View.Update end for var play1 := Pic.FileNew ("play1.bmp") Pic.Draw (play1, 0, 0, 0) end loop exit elsif music = 2 then Music.PlayFileReturn ("temperature.mp3") var play2 := Pic.FileNew ("play2.jpg") Pic.Draw (play2, 0, 0, 0) exit elsif music = 3 then Music.PlayFileReturn ("so fine.mp3") var play5 := Pic.FileNew ("play5.jpg") Pic.Draw (play5, 0, 0, 0) exit elsif music = 4 then Music.PlayFileReturn ("got to love you.mp3") var play3 := Pic.FileNew ("play3.bmp") Pic.Draw (play3, 0, 0, 0) exit elsif music = 5 then Music.PlayFileReturn ("we be burning.mp3") var play4 := Pic.FileNew ("play4.bmp") Pic.Draw (play4, 0, 0, 0) exit end if end loop end if end loop View.Set ("nooffscreenonly") g[/b][/size] |
|