home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / tools.dir / 00014_result.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  816 b   |  27 lines
  1. on mouseDown
  2.   global theGoString, theKeyLine
  3.   if the doubleClick and (the mouseLine <> -1) then
  4.     dontPassEvent()
  5.     exit
  6.   end if
  7.   set lastIndexLine to -1
  8.   set mLine to the mouseLine
  9.   if (mLine = -1) or (the number of chars in line mLine of field 14 <= 3) then
  10.     pass()
  11.   else
  12.     set executeOnce to 0
  13.     repeat while the stillDown or (executeOnce = 0)
  14.       set mLine to the mouseLine
  15.       if (mLine <> lastIndexLine) and (mLine <> -1) then
  16.         set the foreColor of line lastIndexLine of field 14 to 255
  17.         set the foreColor of line mLine of field 14 to 3
  18.         set lastIndexLine to mLine
  19.         set executeOnce to 1
  20.         set theGoString to item mLine of line theKeyLine of field 13
  21.         set the castNum of sprite 7 to 8
  22.         updateStage()
  23.       end if
  24.     end repeat
  25.   end if
  26. end
  27.