home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00017_Script_17 < prev    next >
Text File  |  1995-11-10  |  635b  |  27 lines
  1. on mousedown
  2.   global gTeika,gTeika2
  3.   GLOBAL CUL
  4.   if pushB2() then
  5.     if 0< CUL and CUL < 101 then 
  6.       put integer(CUL) into CUL
  7.       if not (gTeika < 20) then
  8.         set gTeika2 = -20
  9.         Teika
  10.         ADDCHIELIST
  11.         PLAY  "YOMU" OF  MOVIE "YOMU"
  12.       else
  13.         BEEP 1
  14.         put "≤°πç╟Ö∩sδ┤╟╡╟â╟ó╟ï╟▌┼B" into field "SELECTVIEW"
  15.         put "" into CUL
  16.         put CUL into field"CUL_NO"
  17.       end if
  18.     else
  19.       BEEP 1
  20.       put "[1┼`100]╟├ΩεΘ÷╟¥∞╕≤╒╟╡╟âΓè╟Ä╟ó┼B" into field "SELECTVIEW"
  21.       put "" into CUL
  22.       put CUL into field"CUL_NO"      
  23.     end if    
  24.   end if  
  25.   
  26. end
  27.