一个可以通过股子,竞争排名的脚本,可以获得额外属性的提成
pName := ReadIniSectionStr(‘骰王名单.txt’,’id’, inttostr(i));
if (This_player.Name <> pName) and (This_player.gets(12,21) > 0) then
begin
This_Player.AddPlayerAbil(0, This_Player.MaxDC + 12, 0);
This_Player.AddPlayerAbil(1, This_Player.MaxMC + 12, 0);
This_Player.AddPlayerAbil(2, This_Player.MaxSC + 12, 0);
This_Player.PlayerNotice(‘你的骰王已被人顶替,1.2倍属性消失’, 2);
end;
end;
end;
// 在 begin end. 中 调用 removeAbil2;
begin