On OpenCard
UFOIntoEarth
End OpenCard



On  UFOIntoEarth
put 1 into m
wait m ticks
--repeat 3 times
--play click
--hide btn satelite
--wait 8 ticks
--show btn satelite
--play click
--wait 8 ticks
--end repeat
play ufo
set loc of btn satelite to 626, 258
--wait m ticks
set loc of btn satelite to 618, 287
--wait m ticks
set loc of btn satelite to 598, 323
--wait m ticks
set loc of btn satelite to 557, 359
--wait m ticks
set loc of btn satelite to 508, 381
--wait m ticks
set loc of btn satelite to 441, 395
--wait m ticks
set loc of btn satelite to 346, 400
--wait m ticks
set loc of btn satelite to 259, 397
--wait m ticks
set loc of btn satelite to 164, 371
--wait m ticks
set loc of btn satelite to 83, 336
--wait m ticks
set loc of btn satelite to 41, 301
--wait m ticks
set loc of btn satelite to 32, 272
--wait m ticks
set loc of btn satelite to 34, 239
--wait m ticks
set loc of btn satelite to 65, 194
--wait m ticks
set loc of btn satelite to 133, 167
--wait m ticks
set loc of btn satelite to 193, 156
--wait m ticks
set loc of btn satelite to 322, 153
--wait m ticks
lock screen
set loc of btn satelite to 377, 163
hide btn stp12
unlock screen
--wait m ticks
set loc of btn satelite to 399, 176
--wait m ticks
set loc of btn satelite to 403, 192
--wait m ticks
set loc of btn satelite to 378, 201
--wait m ticks
set loc of btn satelite to 310, 212
--wait m ticks
set loc of btn satelite to 204, 215
--wait m ticks
set loc of btn satelite to 172, 206
--wait m ticks
set loc of btn satelite to 137, 187
--wait m ticks
set loc of btn satelite to 146, 170
--wait m ticks
set loc of btn satelite to 243, 147
--wait m ticks
set loc of btn satelite to 345, 128
--wait m ticks
set loc of btn satelite to 443, 110
--wait m ticks
set loc of btn satelite to 518, 91
--wait m ticks
set loc of btn satelite to 572, 76
--wait m ticks

hide btn satelite
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





