home *** CD-ROM | disk | FTP | other *** search
/ Mac Ga Ichiban! 1996 December / macgaichiban199612.bin / MOVIES / ENTER.Dxr / 00013.ls < prev    next >
Encoding:
Text File  |  1996-10-07  |  1.2 KB  |  49 lines
  1. on mouseDown
  2.   global gspritenum, gvolnum
  3.   puppetSound("click")
  4.   updateStage()
  5.   repeat while stillDown()
  6.     if rollOver(clickOn()) then
  7.       cursor(283)
  8.       set the visible of sprite 40 to 1
  9.       puppetSprite(40, 1)
  10.       if clickOn() = 5 then
  11.         set clicknum to 98
  12.       else
  13.         if clickOn() = 6 then
  14.           set clicknum to 199
  15.         else
  16.           if clickOn() = 7 then
  17.             set clicknum to 300
  18.           else
  19.             if clickOn() = 8 then
  20.               set clicknum to 401
  21.             end if
  22.           end if
  23.         end if
  24.       end if
  25.       set the type of sprite 40 to 1
  26.       set the ink of sprite 40 to 0
  27.       set the foreColor of sprite 40 to 255
  28.       set the backColor of sprite 40 to 0
  29.       set the locH of sprite 40 to 32
  30.       set the locV of sprite 40 to clicknum
  31.       set the castNum of sprite 40 to the number of cast "littlebutton"
  32.       updateStage()
  33.       next repeat
  34.     end if
  35.     cursor(-1)
  36.     set the visible of sprite 40 to 0
  37.     puppetSprite(40, 0)
  38.     updateStage()
  39.   end repeat
  40.   if rollOver(clickOn()) then
  41.     set the visible of sprite 40 to 0
  42.     puppetSprite(40, 0)
  43.     cursor(-1)
  44.     updateStage()
  45.     set gspritenum to clickOn() - 4
  46.     go("fra_" & gvolnum & "_" & gspritenum)
  47.   end if
  48. end
  49.