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