home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / gtswaug.dxr / 00012_GTSChooseOption.ls < prev    next >
Encoding:
Text File  |  1996-06-14  |  1.1 KB  |  31 lines
  1. on GTSChooseOption
  2.   global GTSOptionList, GTSButtonsSprite, GTSMouseUP, GTSWIN95, GTSSizeList, GTSChoosen
  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(GTSOptionList)
  9.     set GTSOptionCount to getAt(getAt(GTSOptionList, s), 4)
  10.     if rollOver(getAt(getAt(GTSOptionList, s), 1)) then
  11.       set GTSOptionCount to 4
  12.       setAt(getAt(GTSOptionList, s), 3, 0)
  13.     end if
  14.     if GTSOptionCount = 4 then
  15.       setAt(getAt(GTSOptionList, s), 4, 0)
  16.       if getAt(getAt(GTSOptionList, s), 3) = 0 then
  17.         setAt(getAt(GTSOptionList, s), 3, 1)
  18.         set the locH of sprite getAt(getAt(GTSOptionList, s), 1) to the locH of sprite GTSButtonsSprite
  19.         set the locV of sprite getAt(getAt(GTSOptionList, s), 1) to the locV of sprite GTSButtonsSprite
  20.         updateStage()
  21.       else
  22.         setAt(getAt(GTSOptionList, s), 3, 0)
  23.         set the locH of sprite getAt(getAt(GTSOptionList, s), 1) to 2000
  24.         updateStage()
  25.       end if
  26.       next repeat
  27.     end if
  28.     setAt(getAt(GTSOptionList, s), 4, GTSOptionCount + 1)
  29.   end repeat
  30. end
  31.