Komputer for Alle 2003 #5/K-CD-5-2003.ISO/Layout/data1.cab/QuickTours/QT16WEB.EXE/QT16WEB.dxr/00014.ls

Text File | 2002-07-29 | 924 b | 42 lines

on mouseDown
  global sprNum, sprUp, sprDown
  set sprNum to 17
  set sprUp to 12
  set sprDown to 13
  set sprGrayed to 19
  puppetSprite(sprNum, 1)
  if the memberNum of sprite sprNum = sprGrayed then
    exit
  end if
  set the memberNum of sprite sprNum to sprDown
  updateStage()
  repeat while the stillDown
    if rollOver(sprNum) then
      set the memberNum of sprite sprNum to sprDown
    else
      set the memberNum of sprite sprNum to sprUp
    end if
    updateStage()
  end repeat
end

on mouseUp
  global sprNum, sprUp, sprDown, sprGrayed, anim, key
  if the memberNum of sprite sprNum = sprGrayed then
    exit
  end if
  if the memberNum of sprite sprNum = sprDown then
    set the memberNum of sprite sprNum to sprUp
    updateStage()
    if anim = 0 then
      go(the frame - 1)
    else
      if key = 0 then
        go(marker(-2))
      else
        go(marker(-1))
      end if
    end if
  end if
end