home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library2.dir / 00116_Script_116 < prev    next >
Text File  |  1995-11-13  |  604b  |  25 lines
  1. on mousedown
  2.   GLOBAL CUL,gFrameR,gMovieR
  3.   if pushB2() then
  4.     if 0< CUL and CUL < 101 then 
  5.       put integer(CUL) into CUL
  6.       repeat with n = 6 to 27
  7.         puppetSprite n, false
  8.         updatestage     
  9.       end repeat   
  10.       put the frame into gFrameR
  11.       put "LIBRARY" into gMovieR
  12.       go to "RESULT" OF  MOVIE "RESULT"
  13.       tell the stage
  14.         go to "DAN2"
  15.       end tell
  16.     else
  17.       BEEP 1
  18.       put "[1┼`100]╟├ΩεΘ÷╟¥∞╕≤╒╟╡╟âΓè╟Ä╟ó┼B" into field "SELECTVIEW"
  19.       put "" into CUL
  20.       put CUL into field"CUL_NO"      
  21.     end if    
  22.   end if  
  23.   
  24. end
  25.