home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yoriai.dir / 00046_Script_46 < prev    next >
Text File  |  1995-11-10  |  1KB  |  52 lines
  1. on mouseUp
  2.   global YORIAI,DANSION,GIFTsong
  3.   put "K" into vP
  4.   if DANSION = 0 then
  5.     if YORIAI <= 2 then 
  6.       put 1 after vP 
  7.       go to "J1"
  8.     else
  9.       if YORIAI > 2 then 
  10.         if GIFTsong = 0 then 
  11.           put 3 after vP 
  12.           go to "K1" 
  13.           ADDCHIELIST 9
  14.           put GIFTsong+1 into GIFTsong
  15.         else
  16.           put 4 after vP 
  17.           go to "K1" 
  18.         end if  
  19.       end if 
  20.     end if 
  21.   else
  22.     if DANSION = 3 then
  23.       put 4 after vP
  24.       go to "K1"
  25.     else
  26.       if DANSION <> 0  then
  27.         if GIFTsong = 0 then 
  28.           put 3 after vP
  29.           go to "KD"
  30.           ADDCHIELIST 9
  31.           put GIFTsong+1 into GIFTsong
  32.         else
  33.           if GIFTsong = 1 then 
  34.             put "D" after vP
  35.             go to "KD"
  36.             ADDCHIELIST 84
  37.             put GIFTsong+1 into GIFTsong
  38.           else
  39.             put 4 after vP 
  40.             go to "KD"
  41.           end if
  42.         end if  
  43.       end if 
  44.     end if 
  45.   end if
  46.   
  47.   sound playFile 1,"\S_YORIAI\" & vP & "_TALK"
  48.   
  49.   put vP into field "TEST"
  50.   
  51. end
  52.