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