var pic1, pic2, pic3, pic4, pic5, pic6, pic7, pic8, pic9 : int
var RunCycle : int
var chars : array char of boolean
pic1 := Pic.FileNew ("File Path")
pic2 := Pic.FileNew ("File Path")
pic3 := Pic.FileNew ("File Path")
pic4 := Pic.FileNew ("File Path")
pic5 := Pic.FileNew ("File Path")
pic6 := Pic.FileNew ("File Path")
pic7 := Pic.FileNew ("File Path")
pic8 := Pic.FileNew ("File Path")
pic9 := Pic.FileNew ("File Path")
loop
Input.KeyDown (chars)
if chars (KEY_RIGHT_ARROW) then
RunCycle := 1
case RunCycle of
label 1 :
Pic.Draw (pic1,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 2
label 2 :
Pic.Draw (pic2,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 3
label 3 :
Pic.Draw (pic3,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 4
label 4 :
Pic.Draw (pic4,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 5
label 5 :
Pic.Draw (pic5,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 6
label 6 :
Pic.Draw (pic6,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
if chars (KEY_RIGHT_ARROW) then
RunCycle := 4
else
RunCycle := 7
endif
label 7 :
Pic.Draw (pic7,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 8
label 8 :
Pic.Draw (pic8,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
RunCycle := 9
label 9 :
Pic.Draw (pic9,x , y, picMerge)
delay (5)
Draw.Fill Box (x1,y1,x2,y2,colour)
end case
end if
end loop
|