home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00002_Script_2 < prev    next >
Text File  |  1995-11-10  |  465b  |  21 lines
  1. on mouseDOWN
  2.   global gTeika,gTeika2  
  3.   IF PUSHB2() THEN 
  4.     if not (gTeika < 1000) then 
  5.       repeat with n = 6 to 28
  6.         puppetSprite n, false
  7.         updatestage     
  8.       end repeat   
  9.       go to "OMAKASE"
  10.     else
  11.       BEEP 1
  12.       put "≤°πç╟Ö∩sδ┤╟╡╟â╟ó╟ï╟▌┼B" into field "SELECTVIEW"
  13.     end if
  14.   end if
  15.   
  16. end
  17. --      set gTeika2 = -1000
  18. --      Teika
  19. --      tell the stage
  20. --        go to frame"ROUDOKU"
  21. --      end tell