home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yoriai.dir / 00027_Script_27 < prev    next >
Text File  |  1995-11-10  |  401b  |  19 lines
  1. on mouseUp
  2.   global vP,YORIAI,DANSION  
  3.   put "C" into vP  
  4.   if DANSION = 0 then put 1 after vP    
  5.   else
  6.     if DANSION = 3 then 
  7.       go to "C1"
  8.       sound playFile 1,"\S_YORIAI\" & "CX" & "_TALK"
  9.       exit
  10.     else
  11.       if DANSION <> 0  then  put "D" after vP
  12.     end if
  13.   end if
  14.   
  15.   go to vP
  16.   sound playFile 1,"\S_YORIAI\" & vP & "_TALK"
  17.   
  18.   put vP into field "TEST"
  19. end