home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / internet_22_INTLaunchAlert.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  4.1 KB  |  93 lines
  1. on INTLaunchAlert
  2.   global IntMainAlertSprite, IntTopStripAlertSprite, INTLastButtonAlertSpriteThree, IntBrowserAlOption, DriveLtr
  3.   beep()
  4.   set the member of sprite IntMainAlertSprite to member "IntALERTThree"
  5.   set the loc of sprite IntMainAlertSprite to point(200, 200)
  6.   set the ink of sprite IntMainAlertSprite to 0
  7.   set the member of sprite IntTopStripAlertSprite to member "InttopStripALERTThree"
  8.   set the loc of sprite IntTopStripAlertSprite to point(200, 200)
  9.   set the ink of sprite IntTopStripAlertSprite to 0
  10.   updateStage()
  11.   repeat with t = IntMainAlertSprite to IntBrowserAlOption
  12.     set thiscastnumber to the memberNum of sprite IntTopStripAlertSprite + (t - IntTopStripAlertSprite)
  13.     set the member of sprite t to member thiscastnumber of castLib "internet"
  14.     set the loc of sprite t to point(200, 200)
  15.     set the ink of sprite t to 0
  16.     put the name of member the member of sprite t
  17.   end repeat
  18.   updateStage()
  19.   repeat while 1
  20.     if not rollOver(IntMainAlertSprite) and the mouseDown then
  21.       beep()
  22.       repeat while the mouseDown
  23.       end repeat
  24.     end if
  25.     case rollOver() of
  26.       IntTopStripAlertSprite:
  27.         if the mouseDown then
  28.           set IntOffsetH to the locH of sprite IntMainAlertSprite - the mouseH
  29.           set IntOffsetV to the locV of sprite IntMainAlertSprite - the mouseV
  30.           repeat while the mouseDown
  31.             set INTMouseH to the mouseH
  32.             set INTMouseV to the mouseV
  33.             repeat with t = IntMainAlertSprite to INTLastButtonAlertSpriteThree
  34.               set the loc of sprite t to point(INTMouseH + IntOffsetH, INTMouseV + IntOffsetV)
  35.             end repeat
  36.             updateStage()
  37.           end repeat
  38.         end if
  39.       INTLastButtonAlertSpriteThree:
  40.         if the mouseDown then
  41.           set thiscastnumber to the memberNum of sprite INTLastButtonAlertSpriteThree + 2
  42.           set the member of sprite INTLastButtonAlertSpriteThree to member thiscastnumber of castLib "internet"
  43.           updateStage()
  44.           repeat while the mouseDown
  45.             if not rollOver(INTLastButtonAlertSpriteThree) then
  46.               set thiscastnumber to the memberNum of sprite INTLastButtonAlertSpriteThree - 2
  47.               set the member of sprite INTLastButtonAlertSpriteThree to member thiscastnumber of castLib "internet"
  48.               updateStage()
  49.               exit repeat
  50.             end if
  51.           end repeat
  52.           if rollOver(INTLastButtonAlertSpriteThree) then
  53.             set thiscastnumber to the memberNum of sprite INTLastButtonAlertSpriteThree - 2
  54.             set the member of sprite INTLastButtonAlertSpriteThree to member thiscastnumber of castLib "internet"
  55.             updateStage()
  56.             repeat with t = IntMainAlertSprite to IntBrowserAlOption
  57.               set the locH of sprite t to 2000
  58.             end repeat
  59.             updateStage()
  60.             set theapplication to the text of field "INTLocation"
  61.             open(DriveLtr & "\WPCWEB\INDEX.HTM", theapplication)
  62.             put "past the launch"
  63.             exit repeat
  64.           end if
  65.         end if
  66.       IntBrowserAlOption:
  67.         if the mouseDown then
  68.           set the memberNum of sprite IntBrowserAlOption to the memberNum of sprite IntBrowserAlOption + 2
  69.           updateStage()
  70.           repeat while the mouseDown
  71.             if not rollOver(IntBrowserAlOption) then
  72.               set thiscastnumber to the memberNum of sprite IntBrowserAlOption - 2
  73.               set the member of sprite IntBrowserAlOption to member thiscastnumber of castLib "internet"
  74.               updateStage()
  75.               exit repeat
  76.             end if
  77.           end repeat
  78.           if rollOver(IntBrowserAlOption) then
  79.             set thiscastnumber to the memberNum of sprite IntBrowserAlOption - 2
  80.             set the memberNum of sprite IntBrowserAlOption to member thiscastnumber of castLib "internet"
  81.             updateStage()
  82.             repeat with t = IntMainAlertSprite to IntBrowserAlOption
  83.               set the locH of sprite t to 2000
  84.             end repeat
  85.             updateStage()
  86.             exit repeat
  87.           end if
  88.         end if
  89.       otherwise:
  90.     end case
  91.   end repeat
  92. end
  93.