home *** CD-ROM | disk | FTP | other *** search
/ Sunday That One Day / STOD_VFS_INVIS.ISO / pc / map2.dxr / 00096.ls < prev    next >
Encoding:
Text File  |  1995-09-15  |  2.3 KB  |  77 lines
  1. on enterFrame
  2.   global gSprite2Cast, gSprite3Cast, gSprite4Cast, gSprite5Cast
  3.   puppetSprite(2, 1)
  4.   if gSprite2Cast = the number of cast "LakeWave1" then
  5.     set gSprite2Cast to the number of cast "LakeWave3"
  6.   else
  7.     if gSprite2Cast = the number of cast "LakeWave2" then
  8.       set gSprite2Cast to the number of cast "LakeWave1"
  9.     else
  10.       if gSprite2Cast = the number of cast "LakeWave3" then
  11.         set gSprite2Cast to the number of cast "LakeWave2"
  12.       end if
  13.     end if
  14.   end if
  15.   puppetSprite(3, 1)
  16.   if gSprite3Cast = the number of cast "PondWave1" then
  17.     set gSprite3Cast to the number of cast "PondWave2"
  18.   else
  19.     if gSprite3Cast = the number of cast "PondWave2" then
  20.       set gSprite3Cast to the number of cast "PondWave3"
  21.     else
  22.       if gSprite3Cast = the number of cast "PondWave3" then
  23.         set gSprite3Cast to the number of cast "PondWave1"
  24.       end if
  25.     end if
  26.   end if
  27.   puppetSprite(4, 1)
  28.   if gSprite4Cast = the number of cast "Fountain1" then
  29.     set gSprite4Cast to the number of cast "Fountain2"
  30.   else
  31.     if gSprite4Cast = the number of cast "Fountain2" then
  32.       set gSprite4Cast to the number of cast "Fountain3"
  33.     else
  34.       if gSprite4Cast = the number of cast "Fountain3" then
  35.         set gSprite4Cast to the number of cast "Fountain4"
  36.       else
  37.         if gSprite4Cast = the number of cast "Fountain4" then
  38.           set gSprite4Cast to the number of cast "Fountain1"
  39.         end if
  40.       end if
  41.     end if
  42.   end if
  43.   puppetSprite(5, 1)
  44.   if gSprite5Cast = the number of cast "SeeSaw1" then
  45.     set gSprite5Cast to the number of cast "SeeSaw2"
  46.   else
  47.     if gSprite5Cast = the number of cast "SeeSaw2" then
  48.       set gSprite5Cast to the number of cast "SeeSaw3"
  49.     else
  50.       if gSprite5Cast = the number of cast "SeeSaw3" then
  51.         set gSprite5Cast to the number of cast "SeeSaw4"
  52.       else
  53.         if gSprite5Cast = the number of cast "SeeSaw4" then
  54.           set gSprite5Cast to the number of cast "SeeSaw1"
  55.         end if
  56.       end if
  57.     end if
  58.   end if
  59.   set the castNum of sprite 2 to gSprite2Cast
  60.   set the castNum of sprite 3 to gSprite3Cast
  61.   set the castNum of sprite 4 to gSprite4Cast
  62.   set the castNum of sprite 5 to gSprite5Cast
  63.   updateStage()
  64. end
  65.  
  66. on exitFrame
  67.   if soundBusy(1) then
  68.     go(the frame)
  69.   else
  70.     puppetSprite(2, 0)
  71.     puppetSprite(3, 0)
  72.     puppetSprite(4, 0)
  73.     puppetSprite(5, 0)
  74.     play done
  75.   end if
  76. end
  77.