Can someone help me with Dance Dance Revolution on turing
| Author |
Message |
nessk12
|
 Posted: Sat May 18, 2013 1:29 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)
| 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")
|
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
