home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yoriai.dir / 00045_Script_45 < prev    next >
Text File  |  1995-11-10  |  553b  |  31 lines
  1. on mouseUp
  2.   global vP,YORIAI,DANSION 
  3.   put "J" into vP
  4.   if DANSION = 0 then
  5.     if YORIAI < 3 then  
  6.       put 1 after vP 
  7.       go to "J1"
  8.     else
  9.       if YORIAI > 2 then 
  10.         put 3 after vP  
  11.         go to "J1"
  12.       end if  
  13.     end if
  14.   else
  15.     if DANSION = 3 then
  16.       put "D" after vP
  17.       go to "J1"
  18.     else
  19.       if DANSION <> 0  then  
  20.         put "D" after vP
  21.         go to "JD"
  22.       end if
  23.     end if 
  24.   end if
  25.   
  26.   
  27.   sound playFile 1,"\S_YORIAI\" & vP & "_TALK"
  28.   put vP into field "TEST"
  29.   
  30. end
  31.