home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / internet_28_NewINTBrowserAlert.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  4.0 KB  |  111 lines
  1. on NewINTBrowserAlert
  2.   global DriveLtr, lntAlertBox, IntAlertButtonOne, IntAlertButtonTwo, IntAlertButtonThree, IntBrowserAlOption
  3.   beep()
  4.   case IntBrowserAlOption of
  5.     1:
  6.       set the member of sprite lntAlertBox to member "IntALERTOne"
  7.     2:
  8.       set the member of sprite lntAlertBox to member "IntALERTTwo"
  9.   end case
  10.   set the loc of sprite lntAlertBox to point(200, 200)
  11.   set the ink of sprite lntAlertBox to 0
  12.   set the member of sprite IntAlertButtonOne to member "IntALERTOneBrowse"
  13.   set the member of sprite IntAlertButtonTwo to member "IntALERTOneIE"
  14.   set the member of sprite IntAlertButtonThree to member "IntALERTOneCancel"
  15.   set the loc of sprite IntAlertButtonOne to point(200, 200)
  16.   set the loc of sprite IntAlertButtonTwo to point(200, 200)
  17.   set the loc of sprite IntAlertButtonThree to point(200, 200)
  18.   set the ink of sprite IntAlertButtonOne to 0
  19.   set the ink of sprite IntAlertButtonTwo to 0
  20.   set the ink of sprite IntAlertButtonThree to 0
  21.   updateStage()
  22.   repeat while 1
  23.     if not rollOver(lntAlertBox) and the mouseDown then
  24.       beep()
  25.       repeat while the mouseDown
  26.       end repeat
  27.     end if
  28.     case rollOver() of
  29.       IntAlertButtonOne:
  30.         if the mouseDown then
  31.           set the member of sprite IntAlertButtonOne to member "IntALERTOneBrowseB"
  32.           updateStage()
  33.           repeat while the mouseDown
  34.             if not rollOver(IntAlertButtonOne) then
  35.               set thiscastnumber to member "IntALERTOneBrowse"
  36.               updateStage()
  37.               exit repeat
  38.             end if
  39.           end repeat
  40.           if rollOver(IntAlertButtonOne) then
  41.             set the locH of sprite lntAlertBox to 2000
  42.             set the locH of sprite IntAlertButtonOne to 2000
  43.             set the locH of sprite IntAlertButtonTwo to 2000
  44.             set the locH of sprite IntAlertButtonThree to 2000
  45.             updateStage()
  46.             set INTOption to 1
  47.             exit repeat
  48.           end if
  49.         end if
  50.       IntAlertButtonTwo:
  51.         if the mouseDown then
  52.           set the member of sprite IntAlertButtonTwo to member "IntALERTOneIEA"
  53.           updateStage()
  54.           repeat while the mouseDown
  55.             if not rollOver(IntAlertButtonTwo) then
  56.               set the member of sprite IntAlertButtonTwo to member "IntALERTOneIE"
  57.               updateStage()
  58.               exit repeat
  59.             end if
  60.           end repeat
  61.           if rollOver(IntAlertButtonTwo) then
  62.             set the locH of sprite lntAlertBox to 2000
  63.             set the locH of sprite IntAlertButtonOne to 2000
  64.             set the locH of sprite IntAlertButtonTwo to 2000
  65.             set the locH of sprite IntAlertButtonThree to 2000
  66.             updateStage()
  67.             updateStage()
  68.             set INTOption to 2
  69.             exit repeat
  70.           end if
  71.         end if
  72.       IntAlertButtonThree:
  73.         if the mouseDown then
  74.           set the member of sprite IntAlertButtonThree to member "IntALERTOneCancelB"
  75.           updateStage()
  76.           repeat while the mouseDown
  77.             if not rollOver(IntAlertButtonThree) then
  78.               set the member of sprite IntAlertButtonThree to member "IntALERTOneCancel"
  79.               updateStage()
  80.               exit repeat
  81.             end if
  82.           end repeat
  83.           if rollOver(IntAlertButtonThree) then
  84.             set the locH of sprite lntAlertBox to 2000
  85.             set the locH of sprite IntAlertButtonOne to 2000
  86.             set the locH of sprite IntAlertButtonTwo to 2000
  87.             set the locH of sprite IntAlertButtonThree to 2000
  88.             updateStage()
  89.             exit repeat
  90.           end if
  91.         end if
  92.       otherwise:
  93.     end case
  94.   end repeat
  95.   case INTOption of
  96.     1:
  97.       set INTOption to 0
  98.       openXLib("fileio")
  99.       set fioObj to fileio(mnew, "?read", "EXE")
  100.       if not objectp(fioObj) then
  101.         return 
  102.       end if
  103.       set theFile to fioObj(mFileName)
  104.       fioObj(mdispose)
  105.       open(DriveLtr & "\WPCWEB\INDEX.HTM", theFile)
  106.     2:
  107.       set INTOption to 0
  108.       open(DriveLtr & "\SOFTWARE\UTILITY\IE495\Ie4setup.exe")
  109.   end case
  110. end
  111.