PC Pro 1998 April/DPPCPRO0498.ISO/April/AutoCAD/ACLT/WNEW.DXR/00019_ExitButtonScript.ls

Text File | 1997-10-16 | 977 b | 41 lines

on startRollover
  global button1
  set button1 to the rollOver
  puppetSprite(button1, 1)
  puppetSprite(42, 1)
  set the memberNum of sprite 42 to the number of member "Exit Text Rollover"
  set the loc of sprite 42 to point(14, 550)
  set the memberNum of sprite button1 to the memberNum of sprite button1 + 1
  puppetTransition(3, 0, 128)
  updateStage()
  if the mouseDown then
    mouseDown()
  end if
end

on endRollover
  puppetSprite(button1, 0)
  puppetSprite(42, 0)
  puppetTransition(3, 0, 128)
  updateStage()
end

on mouseDown
  global button1
  set the memberNum of sprite button1 to the memberNum of sprite button1 + 1
  puppetTransition(3, 0, 128)
  updateStage()
  repeat while the mouseDown
    if not rollOver(button1) then
      exit
    end if
  end repeat
  set the memberNum of sprite button1 to the memberNum of sprite button1 - 1
  puppetTransition(3, 0, 128)
  updateStage()
  if rollOver(button1) then
    endRollover()
    go("Endit")
  end if
end