home *** CD-ROM | disk | FTP | other *** search
/ AIMEE 1995 February & March / AIMEE.BIN / pc / aimee.exe / aimee.DXR / 00063.ls < prev    next >
Encoding:
Text File  |  1995-02-10  |  1.5 KB  |  45 lines
  1. on exitFrame
  2.   global gPuzz1, gPuzz2, gPuzz3, gPuzz4, gPuzz5
  3.   if (abs(the locH of sprite 11 - 206) < 50) and (abs(the locV of sprite 11 - 181) < 50) then
  4.     set the locH of sprite 11 to 206
  5.     set the locV of sprite 11 to 181
  6.     set gPuzz1 to #together
  7.     updateStage()
  8.   end if
  9.   if (abs(the locH of sprite 12 - 314) < 50) and (abs(the locV of sprite 12 - 181) < 50) then
  10.     set the locH of sprite 12 to 314
  11.     set the locV of sprite 12 to 181
  12.     set gPuzz2 to #together
  13.     updateStage()
  14.   end if
  15.   if (abs(the locH of sprite 13 - 243) < 50) and (abs(the locV of sprite 13 - 320) < 50) then
  16.     set the locH of sprite 13 to 243
  17.     set the locV of sprite 13 to 320
  18.     set gPuzz3 to #together
  19.     updateStage()
  20.   end if
  21.   if (abs(the locH of sprite 14 - 442) < 50) and (abs(the locV of sprite 14 - 214) < 50) then
  22.     set the locH of sprite 14 to 442
  23.     set the locV of sprite 14 to 214
  24.     set gPuzz4 to #together
  25.     updateStage()
  26.   end if
  27.   if (abs(the locH of sprite 15 - 398) < 50) and (abs(the locV of sprite 15 - 313) < 50) then
  28.     set the locH of sprite 15 to 398
  29.     set the locV of sprite 15 to 313
  30.     set gPuzz5 to #together
  31.     updateStage()
  32.   end if
  33.   if (gPuzz1 = #together) and (gPuzz2 = #together) and (gPuzz3 = #together) and (gPuzz4 = #together) and (gPuzz5 = #together) then
  34.     puppetTransition(51, 8, 4, 0)
  35.     puppetSprite(11, 0)
  36.     puppetSprite(12, 0)
  37.     puppetSprite(13, 0)
  38.     puppetSprite(14, 0)
  39.     puppetSprite(15, 0)
  40.     go("LOGO")
  41.   else
  42.     go(the frame)
  43.   end if
  44. end
  45.