תקליטור אוסף מעל 200 משחקים מרתקים/over-200-games-micro-a-media.iso/CONNECTD/SHARED.DIR/01034_Tube.ls

Text File | 1996-01-12 | 706 b | 25 lines

on mouseUp
  global seton, invOn, invCurs, invMask, roverCapGone5d
  if seton = 0 then
    tell window "guest"
      set temp to the frameLabel
    end tell
    if (temp = "5arc6NnoCap") and (roverCapGone5d = 2) then
      if not (invCurs = (the castNum of sprite the clickOn + 1)) then
        cursor([the castNum of sprite the clickOn + 1, the castNum of sprite the clickOn + 2])
        updateStage()
        set invCurs to the castNum of sprite the clickOn + 1
        set invMask to the castNum of sprite the clickOn + 2
        set invOn to 1
      else
        cursor(0)
        updateStage()
        set invCurs to 0
        set invOn to 0
      end if
    else
      Bri()
    end if
  end if
end