home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 June / Personal_Computer_World_Jun_97.iso / dxrs / gtspcw06.dxr / 00012_GTSChooseOption.ls < prev    next >
Encoding:
Text File  |  1997-03-26  |  1.1 KB  |  30 lines
  1. on GTSChooseOption
  2.   global GTSOptionList, GTSButtonsSprite, GTSMouseUP, GTSWIN95, GTSSizeList, GTSChoosen, DriveLtr
  3.   if soundBusy(1) then
  4.     puppetSound(0)
  5.     updateStage()
  6.   end if
  7.   repeat with s = 1 to count(GTSOptionList)
  8.     set GTSOptionCount to getAt(getAt(GTSOptionList, s), 4)
  9.     if rollOver(getAt(getAt(GTSOptionList, s), 1)) then
  10.       set GTSOptionCount to 4
  11.       setAt(getAt(GTSOptionList, s), 3, 0)
  12.     end if
  13.     if GTSOptionCount = 4 then
  14.       setAt(getAt(GTSOptionList, s), 4, 0)
  15.       if getAt(getAt(GTSOptionList, s), 3) = 0 then
  16.         setAt(getAt(GTSOptionList, s), 3, 1)
  17.         set the locH of sprite getAt(getAt(GTSOptionList, s), 1) to the locH of sprite GTSButtonsSprite
  18.         set the locV of sprite getAt(getAt(GTSOptionList, s), 1) to the locV of sprite GTSButtonsSprite
  19.         updateStage()
  20.       else
  21.         setAt(getAt(GTSOptionList, s), 3, 0)
  22.         set the locH of sprite getAt(getAt(GTSOptionList, s), 1) to 2000
  23.         updateStage()
  24.       end if
  25.       next repeat
  26.     end if
  27.     setAt(getAt(GTSOptionList, s), 4, GTSOptionCount + 1)
  28.   end repeat
  29. end
  30.