home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / internet_29_newINTLaunchAlert.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  2.5 KB  |  67 lines
  1. on newINTLaunchAlert
  2.   global DriveLtr, lntAlertBox, IntAlertButtonOne, IntAlertButtonTwo, IntAlertButtonThree, IntBrowserAlOption
  3.   beep()
  4.   set the member of sprite lntAlertBox to member "IntALERTLaunchBrowser"
  5.   set the loc of sprite lntAlertBox to point(200, 200)
  6.   updateStage()
  7.   put the loc of sprite lntAlertBox
  8.   set the ink of sprite lntAlertBox to 0
  9.   set the member of sprite IntAlertButtonOne to member "IntALERTThreeOK"
  10.   set the member of sprite IntAlertButtonTwo to member "IntALERTThreeCancel"
  11.   set the loc of sprite IntAlertButtonOne to point(200, 200)
  12.   set the loc of sprite IntAlertButtonTwo to point(200, 200)
  13.   set the ink of sprite IntAlertButtonOne to 0
  14.   set the ink of sprite IntAlertButtonTwo to 0
  15.   updateStage()
  16.   repeat while 1
  17.     if not rollOver(lntAlertBox) and the mouseDown then
  18.       beep()
  19.       repeat while the mouseDown
  20.       end repeat
  21.     end if
  22.     case rollOver() of
  23.       IntAlertButtonOne:
  24.         if the mouseDown then
  25.           set the member of sprite IntAlertButtonOne to member "IntALERTThreeOKB"
  26.           updateStage()
  27.           repeat while the mouseDown
  28.             if not rollOver(IntAlertButtonOne) then
  29.               set the member of sprite IntAlertButtonOne to member "IntALERTThreeOK"
  30.               updateStage()
  31.               exit repeat
  32.             end if
  33.           end repeat
  34.           if rollOver(IntAlertButtonOne) then
  35.             set the locH of sprite lntAlertBox to 2000
  36.             set the locH of sprite IntAlertButtonOne to 2000
  37.             set the locH of sprite IntAlertButtonTwo to 2000
  38.             updateStage()
  39.             openDocument(DriveLtr & "WPCWEB\INDEX.HTM")
  40.             exit repeat
  41.           end if
  42.         end if
  43.       IntAlertButtonTwo:
  44.         if the mouseDown then
  45.           set the member of sprite IntAlertButtonTwo to member "IntALERTThreeCancelB"
  46.           updateStage()
  47.           repeat while the mouseDown
  48.             if not rollOver(IntAlertButtonTwo) then
  49.               set the member of sprite IntAlertButtonTwo to member "IntALERTThreeCancel"
  50.               updateStage()
  51.               exit repeat
  52.             end if
  53.           end repeat
  54.           if rollOver(IntAlertButtonTwo) then
  55.             put lntAlertBox && IntAlertButtonOne && IntAlertButtonTwo
  56.             set the locH of sprite lntAlertBox to 2000
  57.             set the locH of sprite IntAlertButtonOne to 2000
  58.             set the locH of sprite IntAlertButtonTwo to 2000
  59.             updateStage()
  60.             exit repeat
  61.           end if
  62.         end if
  63.       otherwise:
  64.     end case
  65.   end repeat
  66. end
  67.