I made a button that will play a song and a gif when clicked (GUI.Button if it matters)
So far, if I click it, it will play the song and the gif animation, but I want it to stop when I click the button a second time.
Is there any way to do this?
This is the code for one button called "Spooked"
var s1 : int := Pic.FileNew ("skele (1).gif")
var s2 : int := Pic.FileNew ("skele (2).gif")
var s3 : int := Pic.FileNew ("skele (3).gif")
var s4 : int := Pic.FileNew ("skele (4).gif")
var s5 : int := Pic.FileNew ("skele (5).gif")
var s6 : int := Pic.FileNew ("skele (6).gif")
var s7 : int := Pic.FileNew ("skele (7).gif")
var s8 : int := Pic.FileNew ("skele (8).gif")
var s9 : int := Pic.FileNew ("skele (9).gif")
var s10 : int := Pic.FileNew ("skele (10).gif")
process spkm
loop
Music.PlayFile ("Spooked.mp3")
end loop
end spkm
process spooked
loop
Pic.Draw (s1, 270, 20, picMerge)
delay (50)
Pic.Draw (s2, 270, 20, picMerge)
delay (50)
Pic.Draw (s3, 270, 20, picMerge)
delay (50)
Pic.Draw (s4, 270, 20, picMerge)
delay (50)
Pic.Draw (s5, 270, 20, picMerge)
delay (50)
Pic.Draw (s6, 270, 20, picMerge)
delay (50)
Pic.Draw (s7, 270, 20, picMerge)
delay (50)
Pic.Draw (s8, 270, 20, picMerge)
delay (50)
Pic.Draw (s9, 270, 20, picMerge)
delay (50)
Pic.Draw (s10, 270, 20, picMerge)
delay (50)
end loop
end spooked
procedure spooked0
fork spkm
fork spooked
end spooked0
var sp : int := GUI.CreateButton (25, 15, 100, "Spooked", spooked0)
loop
exit when GUI.ProcessEvent
end loop
Thanks!
