home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Review 54 / CDREVIEW.iso / kerouac / main.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1996-02-15  |  2.9 KB  |  115 lines
  1. on exitFrame
  2.   global glastRoll, gLastPic, gFPDemoList
  3.   linearCheck()
  4.   set r to 0
  5.   set cn to 0
  6.   if rollOver(3) then
  7.     set r to 3
  8.   else
  9.     if rollOver(4) then
  10.       set r to 4
  11.     else
  12.       if rollOver(5) then
  13.         set r to 5
  14.       else
  15.         if rollOver(6) then
  16.           set r to 6
  17.         else
  18.           if rollOver(7) then
  19.             set r to 7
  20.           else
  21.             if rollOver(8) then
  22.               set r to 8
  23.             else
  24.               if rollOver(9) then
  25.                 set r to 9
  26.               else
  27.                 if rollOver(10) then
  28.                   set r to 10
  29.                 else
  30.                   if rollOver(11) then
  31.                     set r to 11
  32.                   else
  33.                     if rollOver(12) then
  34.                       set r to 12
  35.                     else
  36.                       if rollOver(13) then
  37.                         set r to 13
  38.                       else
  39.                         if rollOver(14) then
  40.                           set r to 14
  41.                         else
  42.                           if rollOver(15) then
  43.                             set r to 15
  44.                           else
  45.                             if rollOver(16) then
  46.                               set r to 16
  47.                             end if
  48.                           end if
  49.                         end if
  50.                       end if
  51.                     end if
  52.                   end if
  53.                 end if
  54.               end if
  55.             end if
  56.           end if
  57.         end if
  58.       end if
  59.     end if
  60.   end if
  61.   if r > 0 then
  62.     set cn to 0
  63.   end if
  64.   if (glastRoll > 0) and (glastRoll <> r) then
  65.     set the castNum of sprite r to 827 + r
  66.     updateStage()
  67.     puppetSprite(glastRoll, 0)
  68.   end if
  69.   if r > 0 then
  70.     puppetSprite(r, 1)
  71.     set the castNum of sprite r to 827 + r + 15
  72.     updateStage()
  73.     set glastRoll to r
  74.     set pic to r + 17
  75.     if gLastPic <> pic then
  76.       set the locV of sprite gLastPic to -1000
  77.       updateStage()
  78.       puppetSprite(gLastPic, 0)
  79.     end if
  80.     set cn to the castNum of sprite pic
  81.     if cn <> 0 then
  82.       puppetSprite(pic, 1)
  83.       set the loc of sprite pic to point(320, 240)
  84.       updateStage()
  85.       set gLastPic to pic
  86.       if getOne(gFPDemoList, the name of cast cn) = 0 then
  87.         puppetSprite(38, 1)
  88.         set the locV of sprite 38 to the bottom of sprite pic + 20
  89.         updateStage()
  90.       else
  91.         puppetSprite(38, 0)
  92.         updateStage()
  93.       end if
  94.     end if
  95.   else
  96.     set the locV of sprite gLastPic to -1000
  97.     puppetSprite(38, 0)
  98.     updateStage()
  99.     updateStage()
  100.   end if
  101.   if rollOver(17) then
  102.     puppetSprite(17, 1)
  103.     puppetSprite(37, 1)
  104.     set the castNum of sprite 17 to 809
  105.     set the locV of sprite 37 to the locV of sprite 17 - 20
  106.     updateStage()
  107.   else
  108.     set the locV of sprite 37 to -1000
  109.     updateStage()
  110.     puppetSprite(37, 0)
  111.     puppetSprite(17, 0)
  112.   end if
  113.   go(the frame)
  114. end
  115.