PC Pro 1998 April/DPPCPRO0498.ISO/April/AutoCAD/ACLT/WNEW.DXR/00025_MainMenuButtonScript.ls

Text File | 1997-10-16 | 835 b | 38 lines

on startRollover
  puppetSprite(7, 1)
  puppetSprite(4, 1)
  set the memberNum of sprite 4 to the number of member "BacktoMainTextRoll"
  set the memberNum of sprite 7 to the memberNum of sprite 7 + 1
  puppetTransition(3, 0, 128)
  updateStage()
  if the mouseDown then
    mouseDown()
  end if
end

on endRollover
  puppetSprite(7, 0)
  puppetSprite(4, 0)
  puppetTransition(3, 0, 128)
  updateStage()
end

on mouseDown
  set the memberNum of sprite 7 to the memberNum of sprite 7 + 1
  puppetTransition(3, 0, 128)
  updateStage()
  repeat while the mouseDown
    if not rollOver(7) then
      exit
    end if
  end repeat
  set the memberNum of sprite 7 to the memberNum of sprite 7 - 1
  puppetTransition(3, 0, 128)
  updateStage()
  if rollOver(7) then
    EndAnyRollovers()
    MonitorNoSprites()
    go("MainMenu")
  end if
end