home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00009.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  1.1 KB  |  32 lines
  1. on moveIndicator mLine
  2.   global whLett
  3.   set unitHeight to 22
  4.   set theLett to char 1 of word 1 of line mLine of field "list1"
  5.   set whLett to charToNum(theLett) - 64
  6.   set the width of sprite 8 to the width of sprite 12
  7.   set the height of sprite 8 to unitHeight - 2
  8.   if whLett <= 13 then
  9.     set the locH of sprite 8 to the locH of sprite 12
  10.     set the locV of sprite 8 to the locV of sprite 12 + (unitHeight * (whLett - 1))
  11.   else
  12.     set the locH of sprite 8 to the locH of sprite 13
  13.     set the locV of sprite 8 to the locV of sprite 13 + (unitHeight * (whLett - 14))
  14.   end if
  15.   updateStage()
  16. end
  17.  
  18. on moveIndicator2
  19.   global whLett
  20.   set unitHeight to 22
  21.   set the width of sprite 8 to the width of sprite 12
  22.   set the height of sprite 8 to unitHeight - 2
  23.   if whLett <= 13 then
  24.     set the locH of sprite 8 to the locH of sprite 12
  25.     set the locV of sprite 8 to the locV of sprite 12 + (unitHeight * (whLett - 1))
  26.   else
  27.     set the locH of sprite 8 to the locH of sprite 13
  28.     set the locV of sprite 8 to the locV of sprite 13 + (unitHeight * (whLett - 14))
  29.   end if
  30.   updateStage()
  31. end
  32.