On OpenCard
UFOIntoEarth
End OpenCard



On  UFOIntoEarth
put 1 into m
set loc of btn ufo to 37, 420
wait m ticks
play ufo
set loc of btn ufo to 162, 415
wait m ticks
set loc of btn ufo to 314, 405
wait m ticks
set loc of btn ufo to 462, 384
wait m ticks
set loc of btn ufo to 568, 330
wait m ticks
set loc of btn ufo to 606, 278
wait m ticks
set loc of btn ufo to 614, 238
wait m ticks
set loc of btn ufo to 578, 189
wait m ticks
set loc of btn ufo to 481, 161
wait m ticks
set loc of btn ufo to 371, 169
wait m ticks
set loc of btn ufo to 320, 187
wait m ticks
set loc of btn ufo to 304, 201
wait m ticks
hide btn ufo
if WhichGame= 1 then
  go cd 4 of stack Home with ClearHistory
else
  go cd 6 of stack Home with ClearHistory
end if

End UFOIntoEarth





