题目描述
《猪国杀》是一种多猪牌类回合制游戏，一共有三种角色：主猪，忠猪，反猪。每局游戏主猪有且只有一只，忠猪和反猪可以有多只，每只猪扮演一种角色。
游戏目的：
主猪（MP）：自己存活的情况下消灭所有的反猪。
忠猪（ZP）：不惜一切保护主猪，胜利条件与主猪相同。
反猪（AP）：杀死主猪。
游戏过程：
游戏开始时候，每个玩家手里都会有4张牌，且体力上限和初始体力都是4。
开始游戏时，从主猪开始，按照逆时针方向（数据中就是按照编号从1,2,3..n,1..的顺序）依次行动。
每个玩家自己的回合可以分为4个阶段：
◎摸牌阶段：从牌堆顶部摸两张牌，依次放到手牌的最右边；
◎出牌阶段：你可以使用0张到任意张牌，每次使用牌的时候都使用最靠左的能够使用的牌。当然，要满足如下规则：
1.如果没有猪哥连弩，每个出牌阶段只能使用一次“杀”来攻击；
2.任何牌被使用后被弃置（武器是装备上）；
被弃置的牌以后都不能再用，即与游戏无关；
各种牌介绍：
每张手牌用一个字母表示，字母代表牌的种类。
◎基本牌：
『桃(P)』：在自己的回合内，如果自己的体力值不等于体力上限，那么使用一个桃可以为自己补充一点体力，否则不能使用桃；桃只能对自己使用；在自己的回合外，如果自己的血变为0或者更低，那么也可以使用；
『杀(K)』：在自己的回合内，对攻击范围内除自己以外的一名角色使用。如果没有被『闪』抵消，则造成1点伤害。无论有无武器，杀的攻击范围都是1；
『闪(D)』：当你受到杀的攻击时，可以弃置一张闪来抵消杀的效果；
◎锦囊牌：
『决斗(F)』：出牌阶段，对除自己以外任意一名角色使用，由目标角色先开始，自己和目标角色轮流弃置一张杀，首先没有杀可弃的一方受到1点伤害，另一方视为此伤害的来源；
『南猪入侵(N)』：出牌阶段，对除你以外所有角色使用，按逆时针顺序从使用者下家开始依次结算，除非弃置一张杀，否则受到1点伤害；
『万箭齐发(W)』：和南猪入侵类似，不过要弃置的不是杀而是闪；
『无懈可击(J)』：在目标锦囊生效前抵消其效果。每次有一张锦囊即将生效时，从使用这张锦囊的猪开始，按照逆时针顺序，依次得到使用无懈可击的机会；
效果：用于决斗时，决斗无效并弃置；用于南猪入侵或万箭齐发时，当结算到某个角色时才能使用，当前角色不需弃置牌并且不会受到伤害（仅对一个角色产生效果）；用于无懈可击时，成为目标的无懈可击被无效。
◎装备牌：
『猪哥连弩(Z)』：武器，攻击范围1，出牌阶段你可以使用任意张杀；
同一时刻最多只能装一个武器；如果先前已经有了一把武器，那么之后再装武器的话，会弃置以前的武器来装现在的武器；
特殊事件及概念解释：
◎伤害来源：杀、南猪入侵、万箭齐发的伤害来源均是使用该牌的猪，决斗的伤害来源如上；
◎距离：两只猪的距离定义为沿着逆时针方向间隔的猪数＋1。即初始时1和2的距离为1，但是2和1的距离就是n-1。注意一个角色的死亡会导致一些猪距离的改变；
◎玩家死亡：如果该玩家的体力降到0或者更低，并且自己手中没有足够的桃使得自己的体力值回到1，那么就死亡了，死亡后所有的牌（装备区，手牌区）被弃置；
◎奖励与惩罚：反猪死亡时，最后一个伤害来源处（即使是反猪）立即摸三张牌。忠猪死亡时，如果最后一个伤害来源是主猪，那么主猪所有装备牌、手牌被弃置；
◎注意，一旦达成胜利条件，游戏立刻结束，因此即使会摸3张牌或者还有牌可以用也不用执行了。
现在，我们已经知道每只猪的角色、手牌，还有牌堆初始情况，并且假设每个角色会按照如下的行为准则进行游戏，你需要做的就是告诉小猪iPig最后的结果。
几种行为：
◎献殷勤：使用无懈可击挡下南猪入侵、万箭齐发、决斗；使用无懈可击抵消表敌意；
◎表敌意：对某个角色使用杀、决斗；使用无懈可击抵消献殷勤；
◎跳忠：即通过行动表示自己是忠猪。跳忠行动就是对主猪或对某只已经跳忠的猪献殷勤，或者对某只已经跳反的猪表敌意；
◎跳反：即通过行动表示自己是反猪。跳反行动就是对主猪或对某只已经跳忠的猪表敌意，或者对某只已经跳反的猪献殷勤；
忠猪不会跳反，反猪也不会跳忠；不管是忠猪还是反猪，能够跳必然跳；
行动准则：
共性：每个角色如果手里有桃且生命值未满，那么必然吃掉；有南猪入侵、万箭齐发、必然使用；有装备必然装上；受到杀时，有闪必然弃置；响应南猪入侵或者万箭齐发时候，有杀/闪必然弃置；不会对未表明身份的猪献殷勤（包括自己）；
特性：
◎主猪：主猪会认为没有跳身份，且用南猪入侵/万箭齐发对自己造成伤害的猪是“类反猪”（没伤害到不算，注意“类反猪”并没有表明身份），如果之后跳了，那么主猪会重新认识这只猪；对于每种表敌意的方式，对逆时针方向能够执行到的第一只“类反猪”或者已跳反猪表；如果没有，那么就不表敌意；决斗时会不遗余力弃置杀；如果能对已经跳忠的猪或自己献殷勤，那么一定献；如果能够对已经跳反的猪表敌意，那么一定表；
◎忠猪：对于每种表敌意的方式，对逆时针方向能够执行到的第一只已经跳反的猪表，如果没有，那么就不表敌意；决斗时，如果对方是主猪，那么不会弃置杀，否则，会不遗余力弃置杀；如果有机会对主猪或者已经跳忠的猪献殷勤，那么一定献；
◎反猪：对于每种表敌意的方式，如果有机会则对主猪表，否则，对逆时针方向能够执行到的第一只已经跳忠的猪表，如果没有，那么就不表敌意；决斗时会不遗余力弃置杀；如果有机会对已经跳反的猪献殷勤，那么一定献；
限于iPig只会用P++语言写A + B，他请你用Pigcal(Pascal)、P(C)或P++(C++)语言来帮他预测最后的结果。
输入描述 Input Description
输入文件第一行包含两个正整数n(2 <= n <= 5) 和m( m <= 2000)，分别代表玩家数和牌堆中牌的数量。数据保证牌的数量够用。
接下来n行，每行5个字符串，依次表示对第i只猪的角色和初始4张手牌描述。编号为1的肯定是主猪。
再接下来一行，一共m个字符串，按照从牌堆顶部到牌堆底部的顺序描述每张牌。
所有的相邻的两个字符串都严格用1个空格隔开，行尾没有多余空格。
输出描述 Output Description
输出数据第一行包含一个字符串代表游戏结果。如果是主猪胜利，那么输出“MP”，否则输出“FP”。数据保证游戏总会结束。
接下来n行，第i行是对第i只猪的手牌描述（注意只需要输出手牌），按照手牌从左往右的顺序输出，相邻两张牌用一个空格隔开，行末尾没有多余空格。如果这只猪已阵亡，那么只要输出“DEAD”即可。注意如果要输出手牌而没有手牌的话，那么只需输出一个空行。
样例输入 Sample Input
3 10
MP D D F F
ZP N N N D
FP J J J J
F F D D J J F F K D
样例输出 Sample Output
FP
DEAD
DEAD
J J J J J D
数据范围及提示 Data Size & Hint
样例1说明：第一回合主猪没有目标可以表敌意；接下来忠猪使用了3张南猪入侵，主猪掉了3点体力，并认为该角色为类反猪，3号角色尽管手里有无懈可击，但是因为自己未表明身份，所以同样不能对自己用，乖乖掉3点体力；下一回合反猪无牌可出；接下来主猪对着类反猪爆发，使用4张决斗，忠猪死亡，结果主猪弃掉所有牌；下来反猪摸到一张杀直接杀死主猪获胜。
数据说明：一共20组测试数据，每个点5分。10%的数据没有锦囊牌，另外20%的数据没有无懈可击。
蒟蒻的理解：
终于有一天，人们想起了被模拟支配的恐惧--------------进击的模拟
这是一道会让你绝望的模拟题，我自己都数不清自己模拟了多少次了，虽然很多地方都是重复的，但是细节很多，大概数了一下，我的PS程序写了400多行
，主要思路就是按照题目给你的要求模拟，使劲模拟，等你模拟完了你就成功了（tuifei）了！！
闪瞎眼程序如下
type
aa=array[0..2010]of char;
pig=record
pai:aa;
blood,num:longint;
zhuge,tiaozhong,tiaofan,leifan,sha:boolean;
shenfen:char;
end;
var
a:array[0..10]of pig;
p:array[0..2010]of char;
n,m,now,fanzeishu:longint;
procedure print;
var
i,j:longint;
begin
for i:=1 to n do
with a[i] do
begin
if blood>0 then
begin
for j:=1 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:=1 to n do
with a[i] do
begin
read(shenfen,pai[0]);
if shenfen=‘F‘ then inc(fanzeishu);
for j:=1 to 4 do
read(pai[j+1],pai[j]);
blood:=4;
num:=4;
readln;
end;
a[1].tiaozhong:=true;
if fanzeishu=0 then MPwin;
for i:=1 to m do
read(p[i],p[i+1]);
now:=1;
end;
procedure delete(var pai:aa;x:longint;var num:longint);
var
i:longint;
begin
for i:=x to num-1 do
pai[i]:=pai[i+1];
dec(num);
end;
function next(x:longint):longint;
begin
while true do
begin
x:=x mod n+1;
if a[x].blood>0 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=1) 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:=1 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=1) and (a[y].shenfen=‘Z‘) then
begin
a[x].num:=0;
a[x].zhuge:=false;
end;
end;
procedure decblood(x:longint);
begin
with a[x] do
begin
dec(blood);
if blood=0 then
begin
if chupai(x,‘P‘)=false then
begin
if shenfen=‘F‘ then dec(fanzeishu);
if fanzeishu=0 then MPwin;
if shenfen=‘M‘ then FPwin;
end
else blood:=1;
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=0 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=1) and (a[y].shenfen=‘Z‘) then
begin
decblood(y);
if a[y].blood=0 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=0 then kill(x,y);
exit;
end;
if chupai(x,‘K‘)=false then
begin
decblood(x);
if a[x].blood=0 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=1) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true;
if a[i].blood=0 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=1) and (not a[x].tiaozhong) and (not a[x].tiaofan) then a[x].leifan:=true;
if a[i].blood=0 then kill(x,i);
end;
end;
i:=next(i);
end;
end;
procedure xingdong(x:longint);
var
i,k:longint;
begin
i:=1;
with a[x] do
while i<=num do
begin
if a[x].blood=0 then exit;
if pai[i]=‘N‘ then
begin
delete(pai,i,num);
nanman(x);
i:=1;
continue;
end;
if pai[i]=‘W‘ then
begin
delete(pai,i,num);
wanjian(x);
i:=1;
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:=1;
continue;
end;
end;
if pai[i]=‘F‘ then
begin
k:=next(x);
if x=1 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:=1;
continue;
end;
end;
if shenfen=‘F‘ then
begin
delete(pai,i,num);
tiao(x);
fight(x,1);
i:=1;
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:=1;
continue;
end;
end;
end;
if (pai[i]=‘P‘) and (blood<4) then
begin
inc(blood);
delete(pai,i,num);
i:=1;
continue;
end;
if pai[i]=‘Z‘ then
begin
zhuge:=true;
delete(pai,i,num);
i:=1;
continue;
end;
inc(i);
end;
end;
procedure work;
var
i:longint;
begin
i:=0;
while true do
begin
i:=i mod n+1;
if a[i].blood=0 then continue;
mopai(i);
mopai(i);
a[i].sha:=false;
xingdong(i);
end;
end;
begin
init;
work;
end.
恕我直言，哪天dalao们无聊可以找这题浪费浪费时间。。。。。
