home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / waku.dir / 00105_Script_105 < prev    next >
Text File  |  1995-11-10  |  356b  |  19 lines
  1. on mousedown
  2.   global CUL,x
  3.   if pushbutton() then
  4.     if CUL > 1 then
  5.       if x <> 1 then
  6.         put 1 into x
  7.       else
  8.         put 2 into x
  9.       end if  
  10.       put CUL-1 into CUL
  11.       tell window "town"
  12.         UnLoadCast CUL + 2
  13.         UnLoadCast CUL + 100 + 2
  14.         go to "RESULT" & x
  15.       end tell
  16.     end if
  17.   end if
  18.   
  19. end