{$I gaojishuxing.pas}
procedure TZdemo();
var toukui , wuqi , xunzhang , douli , yifu , yupei , zuos , yous , zuoj , yuoj , xuezi , yaodai , fudu , xianglian,dunpai : string;
begin
//0衣服 1武器 2勋章 3项链 4头盔 5左手镯 6右手镯 7左戒指 8右戒指 9毒符 10腰带 11靴子 13斗笠 29血石
//14玉佩(29) 15 盾牌(34)
toukui := This_Player.GetItemNameOnBody(4);
yupei := This_Player.GetItemNameOnBody(14);
zuos := This_Player.GetItemNameOnBody(5);
yous := This_Player.GetItemNameOnBody(6);
zuoj := This_Player.GetItemNameOnBody(7);
yuoj := This_Player.GetItemNameOnBody(8);
xuezi := This_Player.GetItemNameOnBody(11);
yaodai := This_Player.GetItemNameOnBody(10);
xianglian := This_Player.GetItemNameOnBody(3);
wuqi := This_Player.GetItemNameOnBody(1);
yifu := This_Player.GetItemNameOnBody(0);
fudu := This_Player.GetItemNameOnBody(9);
dunpai := This_Player.GetItemNameOnBody(15);
douli := This_Player.GetItemNameOnBody(13);
xunzhang := This_Player.GetItemNameOnBody(2);
if (dunpai = '一级盾牌') then
begin
if This_player.GetV(194,1) <> 1 then
begin
This_player.setV(194,1,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+1));
This_Player.setV(22,5,(This_Player.getV(22,5)+1));
end;
end else
begin
if This_player.GetV(194,1) = 1 then
begin
This_player.setV(194,1,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-1));
This_Player.setV(22,5,(This_Player.getV(22,5)-1));
end;
end;
if (dunpai = '二级盾牌') then
begin
if This_player.GetV(194,2) <> 1 then
begin
This_player.setV(194,2,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+2));
This_Player.setV(22,5,(This_Player.getV(22,5)+2));
end;
end else
begin
if This_player.GetV(194,2) = 1 then
begin
This_player.setV(194,2,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-2));
This_Player.setV(22,5,(This_Player.getV(22,5)-2));
end;
end;
if (dunpai = '三级盾牌') then
begin
if This_player.GetV(194,3) <> 1 then
begin
This_player.setV(194,3,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+3));
This_Player.setV(22,5,(This_Player.getV(22,5)+3));
ServerSay('玩家【' + This_Player.Name + '】chenggong!', 2);
end;
end else
begin
if This_player.GetV(194,3) = 1 then
begin
This_player.setV(194,3,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-3));
This_Player.setV(22,5,(This_Player.getV(22,5)-3));
ServerSay('玩家【' + This_Player.Name + '】quxia!', 2);
end;
end;
if (dunpai = '四级盾牌') then
begin
if This_player.GetV(194,4) <> 1 then
begin
This_player.setV(194,4,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+4));
This_Player.setV(22,5,(This_Player.getV(22,5)+4));
end;
end else
begin
if This_player.GetV(194,4) = 1 then
begin
This_player.setV(194,4,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-4));
This_Player.setV(22,5,(This_Player.getV(22,5)-4));
end;
end;
if (dunpai = '五级盾牌') then
begin
if This_player.GetV(194,5) <> 1 then
begin
This_player.setV(194,5,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+5));
This_Player.setV(22,5,(This_Player.getV(22,5)+5));
end;
end else
begin
if This_player.GetV(194,5) = 1 then
begin
This_player.setV(194,4,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-5));
This_Player.setV(22,5,(This_Player.getV(22,5)-5));
end;
end;
if (dunpai = '六级盾牌') then
begin
if This_player.GetV(194,6) <> 1 then
begin
This_player.setV(194,6,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+6));
This_Player.setV(22,5,(This_Player.getV(22,5)+6));
end;
end else
begin
if This_player.GetV(194,6) = 1 then
begin
This_player.setV(194,6,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-6));
This_Player.setV(22,5,(This_Player.getV(22,5)-6));
end;
end;
if (dunpai = '七级盾牌') then
begin
if This_player.GetV(194,7) <> 1 then
begin
This_player.setV(194,7,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+7));
This_Player.setV(22,5,(This_Player.getV(22,5)+7));
end;
end else
begin
if This_player.GetV(194,7) = 1 then
begin
This_player.setV(194,7,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-7));
This_Player.setV(22,5,(This_Player.getV(22,5)-7));
end;
end;
if (dunpai = '八级盾牌') then
begin
if This_player.GetV(194,8) <> 1 then
begin
This_player.setV(194,8,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+8));
This_Player.setV(22,5,(This_Player.getV(22,5)+8));
end;
end else
begin
if This_player.GetV(194,8) = 1 then
begin
This_player.setV(194,8,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-8));
This_Player.setV(22,5,(This_Player.getV(22,5)-8));
end;
end;
if (dunpai = '九级盾牌') then
begin
if This_player.GetV(194,9) <> 1 then
begin
This_player.setV(194,9,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+9));
This_Player.setV(22,5,(This_Player.getV(22,5)+9));
end;
end else
begin
if This_player.GetV(194,9) = 1 then
begin
This_player.setV(194,9,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-9));
This_Player.setV(22,5,(This_Player.getV(22,5)-9));
end;
end;
if (dunpai = '十级盾牌' ) then
begin
if This_player.GetV(194,10) <> 1 then
begin
This_player.setV(194,10,1);
This_Player.setV(21,5,(This_Player.GetV(21,5)+10));
This_Player.setV(22,5,(This_Player.getV(22,5)+10));
end;
end
else
begin
if This_player.GetV(194,10) = 1 then
begin
This_player.setV(194,10,0);
This_Player.setV(21,5,(This_Player.GetV(21,5)-10));
This_Player.setV(22,5,(This_Player.getV(22,5)-10));
end;
end;