home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library.dir / 00181_Script_181 < prev    next >
Text File  |  1995-11-13  |  816b  |  30 lines
  1. on mouseUp
  2.   global myCast,myLine,myword
  3.   set ch = clickOn()
  4.   set myCast = the mouseCast
  5.   set myLine = the mouseLine
  6.   set myword = char 1 of word 1 of line myLine of field myCast
  7.   if 0 < myword and myword < 10 then
  8.     hilite line myline of field myCast
  9.     hilite line myline + 1 of field myCast
  10.     hilite line myline of field myCast
  11.   else
  12.     hilite line myline of field myCast
  13.     hilite line myline - 1 of field myCast
  14.   end if
  15.   
  16.   repeat while the stillDown
  17.     if rollOver(ch) then
  18.       if myLine = the mouseLine then next repeat
  19.       else
  20.         set myLine = the mouseLine
  21.         hilite line myLine of field myCast
  22.         hilite line (myLine + 1) of field myCast
  23.       end if
  24.     else
  25.       hilite line 1 of field myCast
  26.     end if
  27.     updateStage
  28.   end repeat
  29.   
  30. end