home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / MGIWDEC.DXR / 00023_MGILaunchWWW.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  2.1 KB  |  65 lines
  1. on MGILaunchWWW
  2.   global MGILaunchCounter, MGILaunch, MGIRotateRCounter
  3.   repeat while rollOver(6)
  4.     set MGILaunchCounter to 1 + MGILaunchCounter
  5.     if MGILaunchCounter = 100 then
  6.       set the castNum of sprite 11 to the number of member "NetYesNoTwo"
  7.       updateStage()
  8.     else
  9.       if MGILaunchCounter = 200 then
  10.         set MGILaunchCounter to 0
  11.         set the castNum of sprite 11 to the number of member "NetYesNoOne"
  12.         updateStage()
  13.       end if
  14.     end if
  15.     case MGIRotateRCounter of
  16.       70:
  17.         if the castNum of sprite 9 <> the number of member "EndR" then
  18.           set the castNum of sprite 9 to the castNum of sprite 9 + 1
  19.           updateStage()
  20.         else
  21.           set the castNum of sprite 9 to the number of member "StartR"
  22.           updateStage()
  23.         end if
  24.         set MGIRotateRCounter to 0
  25.     end case
  26.     set MGIRotateRCounter to 1 + MGIRotateRCounter
  27.     if (the mouseH > 483) and (the mouseH < 514) and (the mouseV > 230) and (the mouseV < 252) and the mouseDown then
  28.       set the locH of sprite 11 to 2000
  29.       set MGILaunchCounter to 0
  30.       set MGILaunch to 2
  31.       exit repeat
  32.     end if
  33.     if (the mouseH > 441) and (the mouseH < 475) and (the mouseV > 230) and (the mouseV < 252) and the mouseDown then
  34.       set MGILaunchCounter to 0
  35.       set MGILaunch to 3
  36.       exit repeat
  37.     end if
  38.   end repeat
  39.   if MGILaunch = 3 then
  40.     set the castNum of sprite 11 to the number of member "MGIPleaseWait"
  41.     updateStage()
  42.     repeat while the mouseDown
  43.     end repeat
  44.     if the machineType < 200 then
  45.       put "launchnow"
  46.       startTimer()
  47.       repeat while the timer < 60
  48.       end repeat
  49.       set the castNum of sprite 11 to the number of member "MGIbrowserquitting"
  50.       updateStage()
  51.       startTimer()
  52.       repeat while the timer < 60
  53.       end repeat
  54.       set the castNum of sprite 6 to the number of member "MGIEnterroomOne"
  55.       set the locH of sprite 9 to 435
  56.       set the locH of sprite 10 to 2000
  57.       set the locH of sprite 11 to 2000
  58.       set MGILaunch to 0
  59.       updateStage()
  60.     else
  61.       StartBrowser("html/room/index.htm")
  62.     end if
  63.   end if
  64. end
  65.