1972: [Sdoi2010]猪国杀 - BZOJ

题目太长，我只发链接吧

wikioi（排版看起来舒服一点）：http://www.wikioi.com/problem/1834/

bzoj：http://www.lydsy.com:808/JudgeOnline/problem.php?id=1972

首先是题目的样例错了，第三个人有6个J

还有，数据有问题，第1,2个点牌不够用，抽完了就一直抽最后一张牌

调了一天多，我的模拟能力真TM差啊

犯了几个傻逼错误

1.让死人（反贼）继续出牌，用南蛮入侵杀死队友，导致主公获胜

2.主公杀死忠臣没有弃装备，后来用诸葛连杀掉反贼获胜

3.最烦的就是无懈可击的顺序了，先从出锦囊的人开始逆时针献殷勤，如果被无懈可击了，就回到上一个献殷勤的人的下家开始献殷勤（一开始直接往后，点都是交替错的（A对B就错），就是没有全对）

 type
         aa=array[..]of char;
         pig=record
           pai:aa;
           blood,num:longint;
           zhuge,tiaozhong,tiaofan,leifan,sha:boolean;
           shenfen:char;
         end;
 var
         a:array[..]of pig;
         p:array[..]of char;
         n,m,now,fanzeishu:longint;

 procedure print;
 var
         i,j:longint;
 begin
         for i:= to n do
           with a[i] do
             begin
               if blood> then
                 begin
                   for j:= to num do
                     if j<num then write(pai[j],' ')
                     else write(pai[j]);
                 end
               else write('DEAD');
               writeln;
             end;
         halt;
 end;

 procedure MPwin;
 begin
         writeln('MP');
         print;
 end;

 procedure FPwin;
 begin
         writeln('FP');
         print;
 end;

 procedure init;
 var
         i,j:longint;
 begin
         readln(n,m);
         for i:= to n do
           with a[i] do
           begin
             read(shenfen,pai[]);
             if shenfen='F' then inc(fanzeishu);
             for j:= to  do
               read(pai[j+],pai[j]);
             blood:=;
             num:=;
             readln;
           end;
         a[].tiaozhong:=true;
         if fanzeishu= then MPwin;
         for i:= to m do
           read(p[i],p[i+]);
         now:=;
 end;

 procedure delete(var pai:aa;x:longint;var num:longint);
 var
         i:longint;
 begin
         for i:=x to num- do
           pai[i]:=pai[i+];
         dec(num);
 end;

 function next(x:longint):longint;
 begin
         while true do
           begin
             x:=x mod n+;
             if a[x].blood> then exit(x);
           end;
 end;

 function diyi(x,y:longint):boolean;
 begin
         exit(((a[x].shenfen='F') and (a[y].tiaozhong)) or ((a[x].shenfen<>'F') and (a[y].tiaofan)) or ((x=) and (a[y].leifan)));
 end;

 function youjun(x,y:longint):boolean;
 begin
         exit(((a[x].shenfen='F') and (a[y].tiaofan)) or ((a[x].shenfen<>'F') and (a[y].tiaozhong)));
 end;

 procedure mopai(x:longint);
 begin
         if now>m then now:=m;
         with a[x] do
           begin
             inc(num);
             pai[num]:=p[now];
             inc(now);
           end;
 end;

 procedure tiao(x:longint);
 begin
         with a[x] do
           begin
             if shenfen='F' then tiaofan:=true
             else tiaozhong:=true;
             leifan:=false;
           end;
 end;

 function chupai(x:longint;c:char):boolean;
 var
         i:longint;
 begin
         with a[x] do
           begin
             for i:= to num do
               if pai[i]=c then
               begin
                 delete(pai,i,num);
                 exit(true);
               end;
             exit(false);
           end;
 end;

 procedure kill(x,y:longint);
 begin
         if a[y].shenfen='F' then
         begin
           mopai(x);
           mopai(x);
           mopai(x);
         end;
         if (x=) and (a[y].shenfen='Z') then
         begin
           a[x].num:=;
           a[x].zhuge:=false;
         end;
 end;

 procedure decblood(x:longint);
 begin
         with a[x] do
           begin
             dec(blood);
             if blood= then
             begin
               if chupai(x,'P')=false then
                 begin
                   if shenfen='F' then dec(fanzeishu);
                   if fanzeishu= then MPwin;
                   if shenfen='M' then FPwin;
                 end
               else blood:=;
             end;
           end;
 end;

 function dixiao(x:longint):boolean;
 var
         i:longint;
 begin
         i:=next(x);
         while i<>x do
           begin
             if diyi(i,x) and chupai(i,'J') then
             begin
               tiao(i);
               exit(true);
             end;
             i:=next(i);
           end;
         exit(false);
 end;

 procedure gongji(x,y:longint);
 begin
         if chupai(y,'D')=false then
         begin
           decblood(y);
           if a[y].blood= then kill(x,y);
         end;
 end;

 function jiuyuan(x,k:longint):boolean;
 var
         i:longint;
 flag:boolean;
 begin
         i:=k;
         flag:=true;
         while true do
           begin
             if (i=k) and (flag=false) then break;
             if i=k then flag:=false;
             if (youjun(i,x)) and (chupai(i,'J')) then
             begin
               tiao(i);
               flag:=true;
               if not dixiao(i) then exit(true);
             end;
             i:=next(i);
           end;
         exit(false);
 end;

 procedure fight(x,y:longint);
 begin
         if (x=) and (a[y].shenfen='Z') then
           begin
             decblood(y);
             if a[y].blood= then kill(x,y);
           end
         else
           if jiuyuan(y,x)=false then
             begin
               while true do
                 begin
                   if chupai(y,'K')=false then
                   begin
                     decblood(y);
                     if a[y].blood= then kill(x,y);
                     exit;
                   end;
                   if chupai(x,'K')=false then
                   begin
                     decblood(x);
                     if a[x].blood= then kill(y,x);
                     exit;
                   end;
                 end;
             end;
 end;

 procedure nanman(x:longint);
 var
         i:longint;
 begin
         i:=next(x);
         while i<>x do
           begin
             if jiuyuan(i,x)=false then
             begin
               if chupai(i,'K')=false then
               begin
                 decblood(i);
                 if (i=) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true;
                 if a[i].blood= then kill(x,i);
               end;
             end;
             i:=next(i);
           end;
 end;

 procedure wanjian(x:longint);
 var
         i:longint;
 begin
         i:=next(x);
         while i<>x do
           begin
             if jiuyuan(i,x)=false then
             begin
               if chupai(i,'D')=false then
               begin
                 decblood(i);
                 if (i=) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true;
                 if a[i].blood= then kill(x,i);
               end;
             end;
             i:=next(i);
           end;
 end;

 procedure xingdong(x:longint);
 var
         i,k:longint;
 begin
         i:=;
         with a[x] do
           while i<=num do
             begin
               if a[x].blood= then exit;
               if pai[i]='N' then
               begin
                 delete(pai,i,num);
                 nanman(x);
                 i:=;
                 continue;
               end;
               if pai[i]='W' then
               begin
                 delete(pai,i,num);
                 wanjian(x);
                 i:=;
                 continue;
               end;
               if (pai[i]='K') and ((not sha) or zhuge) then
               begin
                 k:=next(x);
                 if diyi(x,k) then
                 begin
                   delete(pai,i,num);
                   tiao(x);
                   gongji(x,k);
                   sha:=true;
                   i:=;
                   continue;
                 end;
               end;
               if pai[i]='F' then
               begin
                 k:=next(x);
                 if x= then
                 begin
                   while k<>x do
                     begin
                       if diyi(x,k) then
                       begin
                         delete(pai,i,num);
                         break;
                       end;
                       k:=next(k);
                     end;
                   if k<>x then
                   begin
                     fight(x,k);
                     i:=;
                     continue;
                   end;
                 end;
                 if shenfen='F' then
                 begin
                   delete(pai,i,num);
                   tiao(x);
                   fight(x,);
                   i:=;
                   continue;
                 end;
                 if shenfen='Z' then
                 begin
                   while k<>x do
                     begin
                       if diyi(x,k) then
                       begin
                         delete(pai,i,num);
                         break;
                       end;
                       k:=next(k);
                     end;
                   if k<>x then
                   begin
                     tiao(x);
                     fight(x,k);
                     i:=;
                     continue;
                   end;
                 end;
               end;
               if (pai[i]='P') and (blood<) then
               begin
                 inc(blood);
                 delete(pai,i,num);
                 i:=;
                 continue;
               end;
               if pai[i]='Z' then
               begin
                 zhuge:=true;
                 delete(pai,i,num);
                 i:=;
                 continue;
               end;
               inc(i);
             end;
 end;

 procedure work;
 var
         i:longint;
 begin
         i:=;
         while true do
           begin
             i:=i mod n+;
             if a[i].blood= then continue;
             mopai(i);
             mopai(i);
             a[i].sha:=false;
             xingdong(i);
           end;
 end;

 begin
         init;
         work;
 end.