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

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

on mouseDown
  global sprNum, sprUp, sprDown, sprGrayed
  set sprNum to 18
  set sprUp to 9
  set sprDown to 10
  set sprGrayed to 18
  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(1)
  end if
end