Can someone help me with Dance Dance Revolution on turing

[nessk12]

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]