用于战神引擎的行会捐献Npc脚本，这个脚本帮主是第一次看到，之前看到的捐献脚本都是比较常见的个人捐献，这个增强了个人捐献的功能，必须要行会才能捐献，没有加入行会的个人不行，捐献以后，根据名次，可以进入专属捐献地图，还有对应的攻击、魔法、道术属性，这个脚本设计的不错。
config文件夹里面的元宝捐献.txt要覆盖到D:\mud2.0\Mir200\Share\config里面。
部分脚本
{┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
┃此脚本由【烈阳】编写,定制特色脚本 ┃
┃请尊重每一个创作者,此条勿删,谢谢支持! ┃
┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛}
program mir2;
Const FMNO1 = 30; //第一名防御魔防
GJNO1 = 15; //第一名攻魔道
FMNO2 = 20; //第二名防御魔防
GuildMap = 'R001~133'; //行会地图代码
procedure _exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _domain;
var i,j,x,temp:integer;
temp_str,show_p_name,show_yb_num,show_str,GM_str:string;
rankName : Array [1..100] of String;
rankYb:Array [1..100] of Integer;
begin
for i:=1 to 100 do
begin
if ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)) <> '' then
begin
show_p_name:=ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i));
show_yb_num:=ReadIniSectionStr('元宝捐献.txt','元宝捐献',show_p_name);
rankYb[i]:=strtoint(show_yb_num);
rankName[i]:=show_p_name;
end
else
break;
end
if show_p_name <> '' then
begin
for i:=1 to 100 do
begin
if rankYb[i] <= 0 then
break;
for j:=1 to 100 do
begin
x:=j+1;
if (rankYb[j] <= 0) or (rankYb[x] <= 0) then
break;
if (rankYb[j] < rankYb[x]) and (rankYb[x] > 0) then
begin
temp := rankYb[j];
rankYb[j] := rankYb[x];
rankYb[x] := temp;
temp_str:=rankName[j];
rankName[j] := rankName[x];
rankName[x] := temp_str;
end
end
end
end
for i:=1 to 5 do
begin
if rankName[i] = '' then
begin
temp_str:='|第< '+inttostr(i)+' >名：<虚位已待/fcolor=7>';
end
else
temp_str:='|第< '+inttostr(i)+' >名：<' + rankName[i] + ' /fcolor=251>^<' + inttostr(rankYb[i])+'/fcolor=250>';
show_str:=show_str+temp_str;
end
if rankName[1] <> '' then WriteIniSectionStr('元宝捐献.txt','捐献排名','1',rankName[1]);
if rankName[2] <> '' then WriteIniSectionStr('元宝捐献.txt','捐献排名','2',rankName[2]);
if This_Player.GMLevel > 0 then GM_str:='<一键清理/@GMPage>';
This_Npc.NpcDialog(This_Player,
'|排 名 行会名字 捐献元宝数量'+
show_str+
'|<━━━━━━━━━━━━━━━━━━━━━/fcolor=168>'+
'|<第1名/fcolor=254>行会所有成员可领取<双防+'+inttostr(FMNO1)+'攻魔道+'+inttostr(GJNO1)+'/fcolor=253>'+
'|<第1名/fcolor=254>名行会将拥有<专属地图/fcolor=250>的使用权'+
'|<第2名/fcolor=254>名行会所有成员只可领取<双防+'+inttostr(FMNO2)+'/fcolor=242>|'+
'{cmd}<捐献元宝/@StarDona><领取属性/@DonaAbil><专属地图/@GoGuildMap>'+GM_str+'');
end;
procedure _GoGuildMap;
begin
if This_Player.GetMyPositionInGuild() = -1 then
begin
This_Npc.NpcDialog(This_Player,'你没有行会无法进入此地！| |'+'{cmd}<[返回主页]/@domain>^<[关闭界面]/@exit>');
exit;
end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','1') = This_Player.GuildName then
begin
This_Player.RandomFlyTo(GuildMap);
ServerSay('【'+This_Player.Name+'】进入了行会专属地图！',0);
This_Player.CallOut(This_Npc, 1, 'CheckAbil');
end else
This_Npc.NpcDialog(This_Player,'你们行会暂时无法进入此地！| |'+'{cmd}<[返回主页]/@domain>^<[关闭界面]/@exit>');
end;
procedure CheckAbil;