Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/slot.dcr/00068.ls

Text File | 2017-09-21 | 1.0 KB | 37 lines

on checkstart
  global gbet
  if gbet <> 0 then
    if (the mouseH > 321) and (the mouseH < 338) and (the mouseV > 67) and (the mouseV < 84) then
      set the visible of sprite 12 to 1
      set the visible of sprite 13 to 1
      set the puppet of sprite 13 to 1
      repeat while stillDown()
        if the mouseV > 123 then
          set the castNum of sprite 13 to 11
          set the locH of sprite 13 to 333
          set the locV of sprite 13 to 128
        else
          if the mouseV > 85 then
            if the castNum of sprite 13 < 10 then
              set the castNum of sprite 13 to 10
              set the locH of sprite 13 to 332
              set the locV of sprite 13 to 104
            end if
          end if
        end if
        movelamp(2)
        updatelamp()
        updateStage()
      end repeat
      if the castNum of sprite 13 >= 10 then
        set the puppet of sprite 13 to 0
        resetlamp(0)
        updatelamp()
        go(#next)
      else
        set the puppet of sprite 13 to 0
      end if
    end if
  end if
end