home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00026_Script_26 < prev    next >
Text File  |  1995-11-10  |  4KB  |  181 lines
  1. on KazuCheckP
  2.   global gHPAll,TonoP,HimeP,BozuP,Baba
  3.   set TonoP = 0
  4.   set HimeP = 0
  5.   set BozuP = 0
  6.   set Baba = 0
  7.   repeat with KazuCheck in gHPAll
  8.     set gSyurui = getAT(KazuCheck,1)
  9.     if KazuCheck = 1 then
  10.       set TonoP = TonoP + 1
  11.     else
  12.       if KazuCheck = 2 then
  13.         set HimeP = HimeP + 1
  14.       else
  15.         if KazuCheck = 3 then
  16.           set BozuP = BozuP + 1
  17.         else
  18.           if KazuCheck = 4 then
  19.             set  Baba = 1
  20.           end if
  21.         end if
  22.       end if
  23.     end if
  24.   end repeat
  25.   put TonoP && HimeP && BozuP && Baba into field"gHeldHudaP"
  26. end
  27.  
  28. on YakuCheckP1
  29.   global gTeika2,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,gKake
  30.   set gTeika2 = gTeika2 + getPropAt(Yakulist,CT)
  31.   set Yakumei1 = string(getAT(Yakulist,CT))
  32. --  set the textSize of field "±¥" = 30
  33. --  set the textHeight of field "±¥" = 50
  34. --  set the textStyle of field "±¥" = "bold"
  35.   put Kazu1 & Yakumei1 into field"±¥"
  36. --  set the textSize of field "±¥╟P╔e╔C╔J" = 30
  37. --  set the textHeight of field "±¥╟P╔e╔C╔J" = 50
  38. --  set the textStyle of field "±¥╟P╔e╔C╔J" = "bold"
  39.   put gTeika2 * gKake into field"±¥╟P╔e╔C╔J"
  40. end
  41.  
  42. on YakuCheckP2
  43.   global gTeika2,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,Kazu2,gKake
  44.   set gTeika2 = gTeika2 + getPropAt(Yakulist,CT)
  45.   set Yakumei2 = string(getAT(Yakulist,CT))
  46. --  set the textSize of field "±¥" = 30
  47. --  set the textHeight of field "±¥" = 50
  48. --  set the textStyle of field "±¥" = "bold"
  49.   put Kazu1 & Yakumei1 && Kazu2 & Yakumei2 into field"±¥"
  50. --  set the textSize of field "±¥╟P╔e╔C╔J" = 30
  51. --  set the textHeight of field "±¥╟P╔e╔C╔J" = 50
  52. --  set the textStyle of field "±¥╟P╔e╔C╔J" = "bold"
  53.   put gTeika2 * gKake into field"±¥╟P╔e╔C╔J"
  54. end
  55.  
  56. on HanteiPB0
  57.   global BozuP,HimeP,TonoP,Baba,gTeika2,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,Kazu2
  58.   set gTeika2 = 0
  59.   set Yakumei1 = ""
  60.   set Yakumei2 = ""
  61.   set Kazu1 = ""
  62.   set Kazu2 = ""
  63.   if BozuP = 5 then
  64.     set Kazu1 = 5
  65.     set CT = 1
  66.     YakuCheckP1
  67.   else
  68.     if HimeP = 5 then
  69.       set Kazu1 = 5
  70.       set CT = 2
  71.       YakuCheckP1
  72.     else
  73.       if TonoP = 5 then
  74.         set Kazu1 = 5
  75.         set CT = 3
  76.         YakuCheckP1
  77.       end if
  78.     end if
  79.   end if
  80.   
  81.   if BozuP = 4 then
  82.     set Kazu1 = 4
  83.     set CT = 4
  84.     YakuCheckP1
  85.   else
  86.     if HimeP = 4 then
  87.       set Kazu1 = 4
  88.       set CT = 5
  89.       YakuCheckP1
  90.     else
  91.       if TonoP = 4 then
  92.         set Kazu1 = 4
  93.         set CT = 6
  94.         YakuCheckP1
  95.       end if
  96.     end if
  97.   end if
  98.   
  99.   if BozuP = 3 then
  100.     set Kazu1 = 3
  101.     set CT = 7
  102.     YakuCheckP1
  103.   else
  104.     if HimeP = 3 then
  105.       set Kazu1 = 3
  106.       set CT = 8
  107.       YakuCheckP1
  108.     else
  109.       if TonoP = 3 then
  110.         set Kazu1 = 3
  111.         set CT = 9
  112.         YakuCheckP1
  113.       else
  114.         if BozuP = 2 then
  115.           set Kazu1 = 2
  116.           set CT = 10
  117.           YakuCheckP1
  118.           set BozuP = 0
  119.         else
  120.           if HimeP = 2 then
  121.             set Kazu1 = 2
  122.             set CT = 11
  123.             YakuCheckP1
  124.             set HimeP = 0
  125.           else
  126.             if TonoP = 2 then
  127.               set Kazu1 = 2
  128.               set CT = 12
  129.               YakuCheckP1
  130.               set TonoP = 0
  131.             end if
  132.           end if
  133.         end if
  134.       end if
  135.     end if
  136.   end if
  137.   
  138.   if BozuP = 2 then
  139.     set Kazu2 = 2
  140.     set CT = 10
  141.     YakuCheckP2
  142.   else
  143.     if HimeP = 2 then
  144.       set Kazu2 = 2
  145.       set CT = 11
  146.       YakuCheckP2
  147.     else
  148.       if TonoP = 2 then
  149.         set Kazu2 = 2
  150.         set CT = 12
  151.         YakuCheckP2
  152.       end if
  153.     end if
  154.   end if
  155.   
  156.   if Kazu2 = 2 and Kazu1 = 3 then
  157.     sound playfile 2,"\S_POKALT\FULLHOUS"
  158.   else
  159.     if Kazu2 = 2 and Kazu1 = 2 then
  160.       sound playfile 2,"\S_POKALT\PAIR2"
  161.     else
  162.       if Kazu2 = "" and Kazu1 = 5 then
  163.         sound playfile 2,"\S_POKALT\CARD5"
  164.       else
  165.         if Kazu2 = "" and Kazu1 = 4 then
  166.           sound playfile 2,"\S_POKALT\CARD4"
  167.         else
  168.           if Kazu2 = "" and Kazu1 = 3 then
  169.             sound playfile 2,"\S_POKALT\CARD3"
  170.           end if   
  171.         end if
  172.       end if
  173.     end if
  174.   end if
  175.   repeat while soundBusy(2)
  176.     nothing
  177.   end repeat
  178.   
  179. end
  180.  
  181.