home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / MAINMENU.DXR / Internal_1.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  1.1 KB  |  17 lines
  1. on startMovie
  2.   global DriveLtr, MainMenuChooseList, MainBackgroundSprite, MainHilightSprite1, MainHilightSprite2, MAINQuitButtonSprite, lntAlertBox, IntAlertButtonOne, IntAlertButtonTwo, IntAlertButtonThree, IntBrowserAlOption
  3.   set MAINQuitButtonSprite to 2
  4.   set lntAlertBox to 30
  5.   set IntAlertButtonOne to 31
  6.   set IntAlertButtonTwo to 32
  7.   set IntAlertButtonThree to 33
  8.   set IntBrowserAlOption to 0
  9.   set MainMenuChooseList to list([[32, 185, 220, 214, "SoftwareHilight", 220, 185], [243, 171, 520, 445, "FeatSoftHilight", 243, 171]], [[32, 222, 220, 243, "BuyersHilight", 220, 221], []], [[32, 259, 220, 280, "JargonHilight", 220, 257], []], [[32, 296, 220, 317, "GetStartHighlight", 220, 293], []], [[32, 333, 220, 354, "InternetHilight", 220, 328], []], [[32, 370, 220, 391, "CreditsHilight", 220, 365], []], [[259, 49, 362, 147, "Compservehilight", 245, 60], []], [[363, 49, 464, 147, "Aolhilight", 348, 60], []])
  10.   repeat with i = 1 to 48
  11.     puppetSprite(i, 1)
  12.   end repeat
  13.   set MainBackgroundSprite to 1
  14.   set MainHilightSprite1 to 10
  15.   set MainHilightSprite2 to 11
  16. end
  17.