home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00033_Script_33 < prev    next >
Text File  |  1995-11-10  |  4KB  |  177 lines
  1. on KazuCheckC
  2.   global gHCAll,TonoC,HimeC,BozuC,Baba
  3.   set TonoC = 0
  4.   set HimeC = 0
  5.   set BozuC = 0
  6.   set Baba = 0
  7.   repeat with KazuCheck in gHCAll
  8.     set gSyurui = getAT(KazuCheck,1)
  9.     if KazuCheck = 1 then
  10.       set TonoC = TonoC + 1
  11.     else
  12.       if KazuCheck = 2 then
  13.         set HimeC = HimeC + 1
  14.       else
  15.         if KazuCheck = 3 then
  16.           set BozuC = BozuC + 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 TonoC && HimeC && BozuC && Baba into field"gHeldHudaP"
  26. end
  27.  
  28. on YakuCheckC1
  29.   global gTeikaC,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,gKake
  30.   set gTeikaC = gTeikaC + getPropAt(Yakulist,CT)
  31.   set Yakumei1 = string(getAT(Yakulist,CT))
  32. --  set the textSize of field "±¥2" = 30
  33. --  set the textHeight of field "±¥2" = 50
  34. --  set the textStyle of field "±¥2" = "bold"
  35.   put Kazu1 & Yakumei1 into field"±¥2"
  36. --  set the textSize of field "±¥╟Q╔e╔C╔J" = 30
  37. --  set the textHeight of field "±¥╟Q╔e╔C╔J" = 50
  38. --  set the textStyle of field "±¥╟Q╔e╔C╔J" = "bold"
  39.   put gTeikaC * gKake into field"±¥╟Q╔e╔C╔J"
  40. end
  41.  
  42. on YakuCheckC2
  43.   global gTeikaC,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,Kazu2,gKake
  44.   set gTeikaC = gTeikaC + getPropAt(Yakulist,CT)
  45.   set Yakumei2 = string(getAT(Yakulist,CT))
  46. --  set the textSize of field "±¥2" = 30
  47. --  set the textHeight of field "±¥2" = 50
  48. --  set the textStyle of field "±¥2" = "bold"
  49.   put Kazu1 & Yakumei1 && Kazu2 & Yakumei2 into field"±¥2"
  50. --  set the textSize of field "±¥╟Q╔e╔C╔J" = 30
  51. --  set the textHeight of field "±¥╟Q╔e╔C╔J" = 50
  52. --  set the textStyle of field "±¥╟Q╔e╔C╔J" = "bold"
  53.   put gTeikaC * gKake into field"±¥╟Q╔e╔C╔J"
  54. end
  55.  
  56. on HanteiCB0
  57.   global BozuC,HimeC,TonoC,Baba,gTeikaC,Yakumei1,Yakumei2,Yakulist,CT,Kazu1,Kazu2
  58.   set gTeikaC = 0
  59.   set Yakumei1 = ""
  60.   set Yakumei2 = ""
  61.   set Kazu1 = ""
  62.   set Kazu2 = ""
  63.   if BozuC = 5 then
  64.     set Kazu1 = 5
  65.     set CT = 1
  66.     YakuCheckC1
  67.   else
  68.     if HimeC = 5 then
  69.       set Kazu1 = 5
  70.       set CT = 2
  71.       YakuCheckC1
  72.     else
  73.       if TonoC = 5 then
  74.         set Kazu1 = 5
  75.         set CT = 3
  76.         YakuCheckC1
  77.       end if
  78.     end if
  79.   end if
  80.   
  81.   if BozuC = 4 then
  82.     set Kazu1 = 4
  83.     set CT = 4
  84.     YakuCheckC1
  85.   else
  86.     if HimeC = 4 then
  87.       set Kazu1 = 4
  88.       set CT = 5
  89.       YakuCheckC1
  90.     else
  91.       if TonoC = 4 then
  92.         set Kazu1 = 4
  93.         set CT = 6
  94.         YakuCheckC1
  95.       end if
  96.     end if
  97.   end if
  98.   
  99.   if BozuC = 3 then
  100.     set Kazu1 = 3
  101.     set CT = 7
  102.     YakuCheckC1
  103.   else
  104.     if HimeC = 3 then
  105.       set Kazu1 = 3
  106.       set CT = 8
  107.       YakuCheckC1
  108.     else
  109.       if TonoC = 3 then
  110.         set Kazu1 = 3
  111.         set CT = 9
  112.         YakuCheckC1
  113.       else
  114.         if BozuC = 2 then
  115.           set Kazu1 = 2
  116.           set CT = 10
  117.           YakuCheckC1
  118.           set BozuC = 0
  119.         else
  120.           if HimeC = 2 then
  121.             set Kazu1 = 2
  122.             set CT = 11
  123.             YakuCheckC1
  124.             set HimeC = 0
  125.           else
  126.             if TonoC = 2 then
  127.               set Kazu1 = 2
  128.               set CT = 12
  129.               YakuCheckC1
  130.               set TonoC = 0
  131.             end if
  132.           end if
  133.         end if
  134.       end if
  135.     end if
  136.   end if
  137.   
  138.   if BozuC = 2 then
  139.     set Kazu2 = 2
  140.     set CT = 10
  141.     YakuCheckC2
  142.   else
  143.     if HimeC = 2 then
  144.       set Kazu2 = 2
  145.       set CT = 11
  146.       YakuCheckC2
  147.     else
  148.       if TonoC = 2 then
  149.         set Kazu2 = 2
  150.         set CT = 12
  151.         YakuCheckC2
  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. end
  176.  
  177.