home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / HANPCW09.Dxr / 00006_HANLaunchAlert.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  3.2 KB  |  87 lines
  1. on HANLaunchAlert
  2.   global HANMainAlertSprite, HANTopStripAlertSprite, HANLastButtonAlertSpriteOne, DriveLtr
  3.   beep()
  4.   set the member of sprite HANMainAlertSprite to member "HANALERTOne"
  5.   set the loc of sprite HANMainAlertSprite to point(166, 279)
  6.   set the ink of sprite HANMainAlertSprite to 0
  7.   set the member of sprite HANTopStripAlertSprite to member "HantopStripALERTOne"
  8.   set the loc of sprite HANTopStripAlertSprite to point(166, 279)
  9.   set the ink of sprite HANTopStripAlertSprite to 0
  10.   repeat with t = 22 to HANLastButtonAlertSpriteOne
  11.     set the member of sprite t to the memberNum of sprite HANTopStripAlertSprite + (t - HANTopStripAlertSprite)
  12.     set the loc of sprite t to point(166, 279)
  13.     set the ink of sprite t to 0
  14.   end repeat
  15.   updateStage()
  16.   repeat while 1
  17.     if not rollOver(HANMainAlertSprite) and the mouseDown then
  18.       beep()
  19.       repeat while the mouseDown
  20.       end repeat
  21.     end if
  22.     case rollOver() of
  23.       HANTopStripAlertSprite:
  24.         if the mouseDown then
  25.           set IntOffsetH to the locH of sprite HANMainAlertSprite - the mouseH
  26.           set IntOffsetV to the locV of sprite HANMainAlertSprite - the mouseV
  27.           repeat while the mouseDown
  28.             set INTMouseH to the mouseH
  29.             set INTMouseV to the mouseV
  30.             repeat with t = HANMainAlertSprite to HANLastButtonAlertSpriteOne
  31.               set the loc of sprite t to point(INTMouseH + IntOffsetH, INTMouseV + IntOffsetV)
  32.             end repeat
  33.             updateStage()
  34.           end repeat
  35.         end if
  36.       22:
  37.         if the mouseDown then
  38.           set the memberNum of sprite 22 to the memberNum of sprite 22 + 2
  39.           updateStage()
  40.           repeat while the mouseDown
  41.             if not rollOver(22) then
  42.               set the memberNum of sprite 22 to the memberNum of sprite 22 - 2
  43.               updateStage()
  44.               exit repeat
  45.             end if
  46.           end repeat
  47.           if rollOver(22) then
  48.             set the memberNum of sprite 22 to the memberNum of sprite 22 - 2
  49.             updateStage()
  50.             repeat with t = HANMainAlertSprite to HANLastButtonAlertSpriteOne
  51.               set the locH of sprite t to 2000
  52.             end repeat
  53.             updateStage()
  54.             if the machineType > 200 then
  55.               openDocument(DriveLtr & "HANDSON\PCWHELP.PDF")
  56.             else
  57.               put "open PDF"
  58.             end if
  59.             exit repeat
  60.           end if
  61.         end if
  62.       23:
  63.         if the mouseDown then
  64.           set the memberNum of sprite 23 to the memberNum of sprite 23 + 2
  65.           updateStage()
  66.           repeat while the mouseDown
  67.             if not rollOver(23) then
  68.               set the memberNum of sprite 23 to the memberNum of sprite 23 - 2
  69.               updateStage()
  70.               exit repeat
  71.             end if
  72.           end repeat
  73.           if rollOver(23) then
  74.             set the memberNum of sprite 23 to the memberNum of sprite 23 - 2
  75.             updateStage()
  76.             repeat with t = HANMainAlertSprite to HANLastButtonAlertSpriteOne
  77.               set the locH of sprite t to 2000
  78.             end repeat
  79.             updateStage()
  80.             exit repeat
  81.           end if
  82.         end if
  83.       otherwise:
  84.     end case
  85.   end repeat
  86. end
  87.