Komputer for Alle 2003 #5/K-CD-5-2003.ISO/Layout/data1.cab/QuickTours/qt08mail.exe/qt08mail.dxr/00017.ls

Text File | 2002-07-29 | 778 b | 34 lines

on mouseDown
  global sprNum, sprUp, sprDown
  set sprNum to 16
  set sprUp to 15
  set sprDown to 16
  set sprGrayed to 20
  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
  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()
    go(the frame + 1)
  end if
end