home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / faewaug.dxr / 00012_FAEChooseOption.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  1.1 KB  |  31 lines
  1. on FAEChooseOption
  2.   global FAEOptionList, FAEButtonsSprite, FAEMouseUP, GTSWIN95, FAESizeList, FAEChoosen
  3.   if soundBusy(1) then
  4.     sound fadeOut 1, 60
  5.     puppetSound(0)
  6.     updateStage()
  7.   end if
  8.   repeat with s = 1 to count(FAEOptionList)
  9.     set FAEOptionCount to getAt(getAt(FAEOptionList, s), 4)
  10.     if rollOver(getAt(getAt(FAEOptionList, s), 1)) then
  11.       set FAEOptionCount to 4
  12.       setAt(getAt(FAEOptionList, s), 3, 0)
  13.     end if
  14.     if FAEOptionCount = 4 then
  15.       setAt(getAt(FAEOptionList, s), 4, 0)
  16.       if getAt(getAt(FAEOptionList, s), 3) = 0 then
  17.         setAt(getAt(FAEOptionList, s), 3, 1)
  18.         set the locH of sprite getAt(getAt(FAEOptionList, s), 1) to the locH of sprite FAEButtonsSprite
  19.         set the locV of sprite getAt(getAt(FAEOptionList, s), 1) to the locV of sprite FAEButtonsSprite
  20.         updateStage()
  21.       else
  22.         setAt(getAt(FAEOptionList, s), 3, 0)
  23.         set the locH of sprite getAt(getAt(FAEOptionList, s), 1) to 2000
  24.         updateStage()
  25.       end if
  26.       next repeat
  27.     end if
  28.     setAt(getAt(FAEOptionList, s), 4, FAEOptionCount + 1)
  29.   end repeat
  30. end
  31.