home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yoriai.dir / 00018_Script_18 < prev    next >
Text File  |  1995-11-10  |  818b  |  41 lines

  1. on mouseUp
  2.   global YORIAI,DANSION,TACHI
  3.   put "B" into vP
  4.   if DANSION = 3 then
  5.     put 1 after vP
  6.     go to "B1"
  7.   else
  8.     if DANSION = 0 then
  9.       if YORIAI < 2 then
  10.         put 1 after vP     
  11.         go to "B1"
  12.       else
  13.         if YORIAI > 1 then
  14.           if TACHI = 0 then 
  15.             put 2 after vP
  16.             go to "B1"
  17.           else
  18.             put 1 after vP
  19.             go to "B1"
  20.           end if 
  21.         end if 
  22.       end if 
  23.     else
  24.       if DANSION = 1 or DANSION = 2  then
  25.         if TACHI = 0 then
  26.           put 2 after vP
  27.           go to "BD"
  28.         else
  29.           put "D" after vP
  30.           go to "BD"
  31.         end if
  32.       end if
  33.     end if
  34.   end if
  35.   
  36.   sound playFile 1,"\S_YORIAI\" & vP & "_TALK"
  37.   updateStage
  38.   put vP into field "TEST"
  39.   
  40. end
  41.