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