战神捐献的代码 时间是2小时 小退后需要重新领取的
program Mir2; {$I fh.pas} // NPC脚本 需以此行开头 var today :integer; procedure _exit; // 调用此方法对话框会被关闭 begin This_Npc.CloseDialog(This_Player); // 执行此代码对话框会被关闭 end; function addSpace( s : string; needLen : Integer ) : string; var i, j : Integer; begin i := Length(s); if i < needLen then begin j := needLen - i; for i:=0 to j do begin s := s + ' '; end; end; Result := s; end; //----------------------------开始写代码---------------------------// procedure _YBJX; begin if (GetHour = 0) and (GetMin = 0) then begin This_Npc.NpcDialog(This_Player, '清理数据中，无法捐赠！' +'|<返回/@main>') ; end else This_Npc.InputDialog(This_Player,'输入捐献元宝数量',0,100); end; procedure P100; var i, temp_yb, index, sl: integer; begin index:=0; temp_yb:=StrToIntDef(This_Npc.InputStr,-1); sl:=StrToIntDef(This_Npc.InputStr,-1); if temp_yb > 0 then begin if This_Player.YBNum < temp_yb then begin This_Npc.NpcDialog(This_Player,'你的元宝不够捐献了~');exit; end
if (temp_yb < 100) or (temp_yb > 500000) then begin This_Npc.NpcDialog(This_Player,'请输入100-500000之间的数字~'); exit end
if ReadIniSectionStr('元宝捐献.txt','元宝捐献',This_Player.Name) <> '' then begin temp_yb:=temp_yb + strtoint(ReadIniSectionStr('元宝捐献.txt','元宝捐献',This_Player.Name)); end
if WriteIniSectionStr('元宝捐献.txt','元宝捐献',This_Player.Name,inttostr(temp_yb)) then begin
for i:=1 to 100 do begin if ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)) = This_Player.Name then begin index:=i; break; end end if index > 0 then begin WriteIniSectionStr('元宝捐献.txt','捐献列表',inttostr(index),This_Player.Name); end else begin SetG(99,29,GetG(99,29)+1);
WriteIniSectionStr('元宝捐献.txt','捐献列表',inttostr(GetG(99,29)),This_Player.Name); end SetG(78,6,GetG(78,6)+sl); This_Player.SetV(99,15,This_Player.GetV(99,15) + sl); This_Player.ScriptRequestSubYBNum(strtoint(This_Npc.InputStr)); ServerSay('玩家:['+This_Player.Name+']为沙城捐献了：'+ inttostr(sl)+' 元宝！', 3); This_NPC.NpcDialog(This_Player,'恭喜你成功捐献：'+ inttostr(sl)+' 元宝!' +'| <返回首页/@main>') ; This_Player.CallOut(This_Npc, 1, 'ddomain');
end else This_Npc.NpcDialog(This_Player,'未知错误，请联系管理员~'); end else This_Npc.NpcDialog(This_Player,'非法输入，请输入数字~'); end;
procedure ddomain(AwId:string); var i, j, x, temp, point :integer; temp_str, show_p_name, show_yb_num, show_str : string; rankYb : Array [1..100] of Integer; rankName : Array [1..100] of String; 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 begin for i:=1 to 9 do begin if rankName[i] = '' then begin temp_str:='|第< '+inttostr(i)+' >名：<虚位已待>'; end else temp_str:='|第< '+inttostr(i)+' >名：<' + rankName[i] + ' /fcolor=251>捐献数量 <' + inttostr(rankYb[i])+' > '; show_str:=show_str+temp_str; end This_Npc.NpcDialog(This_Player,''+show_str+'|{cmd}<开始元宝捐献/@YBJX>^<关闭此页/@exit>'); WriteIniSectionStr('元宝捐献.txt','捐献排名','1',rankName[1]); WriteIniSectionStr('元宝捐献.txt','捐献排名','2',rankName[2]); WriteIniSectionStr('元宝捐献.txt','捐献排名','3',rankName[3]); WriteIniSectionStr('元宝捐献.txt','捐献排名','4',rankName[4]); WriteIniSectionStr('元宝捐献.txt','捐献排名','5',rankName[5]); WriteIniSectionStr('元宝捐献.txt','捐献排名','6',rankName[6]); WriteIniSectionStr('元宝捐献.txt','捐献排名','7',rankName[7]); WriteIniSectionStr('元宝捐献.txt','捐献排名','8',rankName[8]); WriteIniSectionStr('元宝捐献.txt','捐献排名','9',rankName[9]); if ReadIniSectionStr('元宝捐献.txt','捐献排名','1') = This_Player.Name then begin This_Player.AddPlayerAbil(0,50,7200); This_Player.AddPlayerAbil(1,50,7200); This_Player.AddPlayerAbil(2,50,7200);
This_Player.AddHeroAbil(0,50,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,50,7200); This_Player.AddHeroAbil(2,50,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,49); // 扣副城主 givefenghao This_Player.PlayerNotice('[第一名]攻魔道+[50]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','2') = This_Player.Name then begin This_Player.AddPlayerAbil(0,40,7200); This_Player.AddPlayerAbil(1,40,7200); This_Player.AddPlayerAbil(2,40,7200);
This_Player.AddHeroAbil(0,40,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,40,7200); This_Player.AddHeroAbil(2,40,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,50); // 扣副城主 givefenghao This_Player.PlayerNotice('[第二名]攻魔道+[40]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','3') = This_Player.Name then begin This_Player.AddPlayerAbil(0,30,7200); This_Player.AddPlayerAbil(1,30,7200); This_Player.AddPlayerAbil(2,30,7200);
This_Player.AddHeroAbil(0,30,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,30,7200); This_Player.AddHeroAbil(2,30,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,51); // 扣副城主 givefenghao This_Player.PlayerNotice('[第三名]攻魔道+[30]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','4') = This_Player.Name then begin This_Player.AddPlayerAbil(0,20,7200); This_Player.AddPlayerAbil(1,20,7200); This_Player.AddPlayerAbil(2,20,7200);
This_Player.AddHeroAbil(0,20,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,20,7200); This_Player.AddHeroAbil(2,20,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,52); // 扣副城主 givefenghao This_Player.PlayerNotice('[第四名]攻魔道+[20]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','5') = This_Player.Name then begin This_Player.AddPlayerAbil(0,10,7200); This_Player.AddPlayerAbil(1,10,7200); This_Player.AddPlayerAbil(2,10,7200);
This_Player.AddHeroAbil(0,10,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,10,7200); This_Player.AddHeroAbil(2,10,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,53); // 扣副城主 givefenghao This_Player.PlayerNotice('[第五名]攻魔道+[10]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','6') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第六名]攻魔道+[5]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','7') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第七名]攻魔道+[5]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','8') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第八名]攻魔道+[5]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','9') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第九名]攻魔道+[5]属性已触发,时效2小时!',2); end ;
end;
end; procedure _domain(AwId:string); var i, j, x, temp, point :integer; temp_str, show_p_name, show_yb_num, show_str : string; rankYb : Array [1..100] of Integer; rankName : Array [1..100] of String; begin if ReadIniSectionStr('元宝捐献.txt','重置奖励','day') <> inttostr(GetDay) then begin for i:=1 to 100 do begin if ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)) <> '' then begin show_p_name:=ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)); show_p_name:=ReadIniSectionStr('元宝捐献.txt','捐献排名',inttostr(i)); //后加删除排名 show_yb_num:=ReadIniSectionStr('元宝捐献.txt','元宝捐献',show_p_name); WriteIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i),''); WriteIniSectionStr('元宝捐献.txt','捐献排名',inttostr(i),''); //后加删除排名 WriteIniSectionStr('元宝捐献.txt','元宝捐献',show_p_name,''); end else break; end WriteIniSectionStr('元宝捐献.txt','重置奖励','day',inttostr(GetDay)); SetG(99,29,0); end for i:=1 to 100 do begin if ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)) <> '' then begin show_p_name:=ReadIniSectionStr('元宝捐献.txt','捐献列表',inttostr(i)); 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 if strtoint(AwId) > 0 then begin if rankName[strtoint(AwId)] = This_Player.Name then begin case strtoint(AwId) of 1: point:=50; 2: point:=40; 3: point:=30; 4: point:=20; 5: point:=10; else point:=5; end end else This_Npc.NpcDialog(This_Player,'你不具有资格，只有第 <'+AwId+' >名玩家才可以带走该奖励~|' +'| <返回/@domain~0>') ; end else begin for i:=1 to 9 do begin if rankName[i] = '' then begin temp_str:='|第< '+inttostr(i)+' >名：<虚位已待>'; end else temp_str:='|第< '+inttostr(i)+' >名：<' + rankName[i] + ' /fcolor=251>捐献数量 <' + inttostr(rankYb[i])+' > '; show_str:=show_str+temp_str; end This_Npc.NpcDialog(This_Player,''+show_str+'|{cmd}<元宝捐献/@YBJX>^<领取属性/@jlingq>^<捐献地图/@jxdt>'); end end; procedure reAwDay; begin
end; procedure domain; begin //脚本入口 点击NPC 脚本从这里开始运行。 放在脚本最底部 if This_Player.GetV(177,99) <= 0 then begin This_NPC.NpcDialog(This_Player, '每日捐献的<总值10%>存入<沙奖池>中.<攻城后>领取,未领取可累计!\' +'|今日总捐献：<'+inttostr(GetG(78,6))+'/fcolor=103> \' +'|您当前捐献：<'+inttostr(This_Player.GetV(99,15))+'/fcolor=249> \' +'|沙奖池累计：<'+inttostr(GetG(78,7)/10)+'/fcolor=250>^^ <城主领取奖励/@lqsjc>\' +'|<─────────────────────>\' +'|<第1名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+50/c=249>\' +'|<第2名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+40/c=249>\' +'|<第3名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+30/c=249>\' +'|<第4名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+20/c=249>\' +'|<第5名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+10/c=249>\' +'|<6-9名/fcolor=103>： <攻魔道/fcolor=242>^^^<全属性+05/c=249>\' +'|<─────────────────────>\' +'|<自动排名.在榜领取属性/fcolor=250> <每日0点清空排名/fcolor=242> \' +'|{cmd}<开始捐献/@domain~0> ^<关闭此页/@exit>'); end else begin This_NPC.NpcDialog(This_Player, '正在加载数据，骚等片刻!' +'|{cmd}<返回上页/@main> ^<关闭此页/@Exit>\' ); end; end;
procedure _jlingq; begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','1') = This_Player.Name then begin This_Player.AddPlayerAbil(0,50,7200); This_Player.AddPlayerAbil(1,50,7200); This_Player.AddPlayerAbil(2,50,7200);
This_Player.AddHeroAbil(0,50,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,50,7200); This_Player.AddHeroAbil(2,50,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,49); // 扣副城主 givefenghao This_Player.PlayerNotice('[第一名]攻魔道+[50]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','2') = This_Player.Name then begin This_Player.AddPlayerAbil(0,40,7200); This_Player.AddPlayerAbil(1,40,7200); This_Player.AddPlayerAbil(2,40,7200);
This_Player.AddHeroAbil(0,40,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,40,7200); This_Player.AddHeroAbil(2,40,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,50); // 扣副城主 givefenghao This_Player.PlayerNotice('[第二名]攻魔道+[40]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','3') = This_Player.Name then begin This_Player.AddPlayerAbil(0,30,7200); This_Player.AddPlayerAbil(1,30,7200); This_Player.AddPlayerAbil(2,30,7200);
This_Player.AddHeroAbil(0,30,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,30,7200); This_Player.AddHeroAbil(2,30,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,51); // 扣副城主 givefenghao This_Player.PlayerNotice('[第三名]攻魔道+[30]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','4') = This_Player.Name then begin This_Player.AddPlayerAbil(0,20,7200); This_Player.AddPlayerAbil(1,20,7200); This_Player.AddPlayerAbil(2,20,7200);
This_Player.AddHeroAbil(0,20,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,20,7200); This_Player.AddHeroAbil(2,20,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,52); // 扣副城主 givefenghao This_Player.PlayerNotice('[第四名]攻魔道+[20]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','5') = This_Player.Name then begin This_Player.AddPlayerAbil(0,10,7200); This_Player.AddPlayerAbil(1,10,7200); This_Player.AddPlayerAbil(2,10,7200);
This_Player.AddHeroAbil(0,10,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,10,7200); This_Player.AddHeroAbil(2,10,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.SetV(69,11,53); // 扣副城主 givefenghao This_Player.PlayerNotice('[第五名]攻魔道+[10]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','6') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第六名]攻魔道+[5]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','7') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第七名]攻魔道+[5]属性已触发,时效2小时!',2); end; if ReadIniSectionStr('元宝捐献.txt','捐献排名','8') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第八名]攻魔道+[5]属性已触发,时效2小时!',2); end;
if ReadIniSectionStr('元宝捐献.txt','捐献排名','9') = This_Player.Name then begin This_Player.AddPlayerAbil(0,5,7200); This_Player.AddPlayerAbil(1,5,7200); This_Player.AddPlayerAbil(2,5,7200);
This_Player.AddHeroAbil(0,5,7200); //英雄一起增加属性，可以删除 This_Player.AddHeroAbil(1,5,7200); This_Player.AddHeroAbil(2,5,7200); This_Player.SetS(1,2,250); This_Player.SetV(108,2,1); This_Player.PlayerNotice('[第九名]攻魔道+[5]属性已触发,时效2小时!',2); end
end;
procedure _lqsjc; begin if GetG(93,39) = 9 then //奖励是否领取 begin This_Npc.NpcDialog(This_Player, '奖励已被管理关闭，等待开启！' +'| <返回/@main>') ; end else begin if ( This_Player.IsCastle = True ) and ( This_Player.IsGuildLord = True ) then begin if (GetHour = 22) and (GetMin > 1) then begin This_Player.ScriptRequestAddYBNum((GetG(78,7)/10)); //沙城捐献奖励 ServerSay('沙巴克城主：[<' + This_Player.Name + '>]领取了[沙池奖励]['+inttostr(GetG(78,7)/10)+']元宝！', 70); ServerSay('沙巴克城主：[<' + This_Player.Name + '>]领取了[沙池奖励]['+inttostr(GetG(78,7)/10)+']元宝！', 70); SetG(78,7,0); This_Npc.NpcDialog(This_Player, '恭喜你领取了沙城池奖励！' +'| <返回/@main>') ; end else This_Npc.NpcDialog(This_Player, '攻沙奖励领取时间：22：02 ！' +'| <返回/@main>') ; end else This_Npc.NpcDialog(This_Player, '只有沙巴克会长才能进行操作！' +'| <返回/@main>') ; end; end;
procedure _q123; begin WriteIniSectionStr('元宝捐献.txt','捐献排名','1','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','2','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','3','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','4','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','5','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','6','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','7','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','8','暂无◆上榜'); WriteIniSectionStr('元宝捐献.txt','捐献排名','9','暂无◆上榜'); end; procedure _jxdt; begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','1') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第一名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','2') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第二名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','3') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第三名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); { end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','4') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第四名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin
if ReadIniSectionStr('元宝捐献.txt','捐献排名','5') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第五名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','6') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第六名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin
if ReadIniSectionStr('元宝捐献.txt','捐献排名','7') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第七名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','8') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第八名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin if ReadIniSectionStr('元宝捐献.txt','捐献排名','9') = This_Player.Name then begin This_Player.RandomFlyto('H010~199'); ServerSay('元宝捐献：[第九名]【' + This_Player.Name + '】进入了[捐献地图散人乐园]！', 1); end else begin This_Player.PlayerNotice('元宝捐献：你没有上榜前九名，无法进入！',2); end; end; end; end; end; end; } end else begin This_Player.PlayerNotice('元宝捐献：你没有上榜前三名，无法进入！',2); end; end; end; end; begin //初始化变量 if This_Player.GetV(108,2) <= 0 then This_Player.SetV(108,2,0);
if GetG(99,29) < 0 then SetG(99,29,0); if GetG(78,6) < 0 then SetG(78,6,0); if GetG(78,7) < 0 then SetG(78,7,0); if GetG(99,29) < 0 then SetG(99,29,0); if This_Player.GetV(99,15) < 0 then This_Player.SetV(99,15,0); if This_Player.GetV(99,16) < 0 then This_Player.SetV(99,16,0); today := GetDateNum(GetNow); if This_Player.GetV(99,16) <> today then This_Player.SetV(99,15,0); //每天重置个人变量 if This_Player.GetV(99,16) <> today then This_Player.SetV(99,16,today); //重置个人变量时间为当前时间 if GetG(99,16) <> today then begin SetG(78,7,GetG(78,7)+GetG(78,6)); SetG(99,16,today); SetG(99,29,0); SetG(78,6,0);
end; doMain; end. |
