home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / internet_21_INTBrowserAlertUser.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  1.9 KB  |  48 lines
  1. on INTBrowserAlertUser
  2.   global IntMainAlertSprite, IntTopStripAlertSprite, INTLastButtonAlertSprite, IntBrowserAlOption, DriveLtr, shortname, INTOption
  3.   beep()
  4.   case IntBrowserAlOption of
  5.     1:
  6.       set the member of sprite IntMainAlertSprite to member "IntALERTOne"
  7.     2:
  8.       set the member of sprite IntMainAlertSprite to member "IntALERTTwo"
  9.   end case
  10.   set the loc of sprite IntMainAlertSprite to point(200, 200)
  11.   set the ink of sprite IntMainAlertSprite to 0
  12.   set the member of sprite IntTopStripAlertSprite to member "InttopStripALERTOne"
  13.   set the loc of sprite IntTopStripAlertSprite to point(200, 200)
  14.   set the ink of sprite IntTopStripAlertSprite to 0
  15.   repeat with t = IntMainAlertSprite to INTLastButtonAlertSprite
  16.     set thiscastnumber to the memberNum of sprite IntTopStripAlertSprite + (t - IntTopStripAlertSprite)
  17.     set the member of sprite t to member thiscastnumber of castLib "internet"
  18.     set the loc of sprite t to point(200, 200)
  19.     set the ink of sprite t to 0
  20.   end repeat
  21.   updateStage()
  22.   repeat while 1
  23.     if not rollOver(IntMainAlertSprite) and the mouseDown then
  24.       beep()
  25.       repeat while the mouseDown
  26.       end repeat
  27.     end if
  28.     case rollOver() of
  29.       IntTopStripAlertSprite:
  30.         if the mouseDown then
  31.           set IntOffsetH to the locH of sprite IntTopStripAlertSprite - the mouseH
  32.           set IntOffsetV to the locV of sprite IntTopStripAlertSprite - the mouseV
  33.           repeat while the mouseDown
  34.             set INTMouseH to the mouseH
  35.             set INTMouseV to the mouseV
  36.             put IntMainAlertSprite && "to" && INTLastButtonAlertSprite
  37.             repeat with t = IntMainAlertSprite to INTLastButtonAlertSprite
  38.               set the loc of sprite t to point(INTMouseH + IntOffsetH, INTMouseV + IntOffsetV)
  39.             end repeat
  40.             updateStage()
  41.           end repeat
  42.         end if
  43.     end case
  44.   end repeat
  45.   case INTOption of
  46.   end case
  47. end
  48.