home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / FAEWDEC.DXR / 00012_FAEChooseOption.ls < prev    next >
Encoding:
Text File  |  1997-10-14  |  1020 b   |  26 lines
  1. on FAEChooseOption
  2.   global FAEOptionList, FAEButtonsSprite, FAEMouseUP, GTSWIN95, FAESizeList, FAEChoosen
  3.   repeat with s = 1 to count(FAEOptionList)
  4.     set FAEOptionCount to getAt(getAt(FAEOptionList, s), 4)
  5.     if rollOver(getAt(getAt(FAEOptionList, s), 1)) then
  6.       set FAEOptionCount to 4
  7.       setAt(getAt(FAEOptionList, s), 3, 0)
  8.     end if
  9.     if FAEOptionCount = 4 then
  10.       setAt(getAt(FAEOptionList, s), 4, 0)
  11.       if getAt(getAt(FAEOptionList, s), 3) = 0 then
  12.         setAt(getAt(FAEOptionList, s), 3, 1)
  13.         set the locH of sprite getAt(getAt(FAEOptionList, s), 1) to the locH of sprite FAEButtonsSprite
  14.         set the locV of sprite getAt(getAt(FAEOptionList, s), 1) to the locV of sprite FAEButtonsSprite
  15.         updateStage()
  16.       else
  17.         setAt(getAt(FAEOptionList, s), 3, 0)
  18.         set the locH of sprite getAt(getAt(FAEOptionList, s), 1) to 2000
  19.         updateStage()
  20.       end if
  21.       next repeat
  22.     end if
  23.     setAt(getAt(FAEOptionList, s), 4, FAEOptionCount + 1)
  24.   end repeat
  25. end
  26.