Oz - The Magical Adventure/Adventure.iso/pc/dkdata/juice.dxr/orchard_47_OrchardNav.ls

Text File | 2000-06-01 | 1.5 KB | 60 lines

on mouseEnter me
  whichSprite = me.spriteNum
  if whichSprite < 12 then
    whichCursor = 7
    cursorNum = member("a_" & whichCursor).memberNum
    sprite(me.spriteNum).cursor = [member("a_" & whichCursor), member("a_" & whichCursor & "_mask")]
  else
    sprite(me.spriteNum).cursor = 280
  end if
end

on mouseLeave me
  sprite(me.spriteNum).cursor = 0
end

on endSprite
  global gCursorHidden
  repeat with i = 19 to 100
    puppetSprite(i, 0)
  end repeat
  cursor(0)
  gCursorHidden = 0
  puppetSprite(119, 0)
end

on mouseDown me
  global gCurrentScreen, gPrevScreen
  if sprite(117).member.name contains "empty" then
    if OKtoLeave() then
      whichSprite = me.spriteNum
      whereTo = member(the member of sprite whichSprite).name
      gPrevScreen = gCurrentScreen
      gCurrentScreen = whereTo
      if label(whereTo) > 0 then
        isQTlink = 0
        repeat with i = 12 to 14
          if whichSprite = i then
            isQTlink = 1
            exit repeat
          end if
        end repeat
        if not isQTlink then
          if sprite(18).memberNum > 0 then
            whichBlack = char 1 to 3 of the name of the paletteRef of the member of sprite(18) & "_black"
            if label(whichBlack) > 0 then
              go(whichBlack)
            else
              go(gCurrentScreen)
            end if
          else
            go(gCurrentScreen)
          end if
        else
          go(gCurrentScreen)
        end if
      end if
    end if
  end if
end