这是之前写的沙巴克攻城开关领取奖励NPC

sg非哥2023-09-09 21:54:24416

program Mir2;

{$I TaoZhuang.pas}

var

sbkhhmz, sbkhhld, gcbl: string;

gcjl, gcjl2, gcjl3: integer;

procedure _DoExit;

begin

This_Npc.CloseDialog(This_Player);

end;

procedure _Exit;

begin

This_Npc.CloseDialog(This_Player);

end;

procedure doMain;

begin

if GetG(93,39) = 0 then

begin

gcbl := '暂无消息';

end

if This_Player.GMLevel > 4 then

begin

This_Npc.NpcDialog(This_Player,

+'首次攻城在开区<三天>以后，统一提交申请，之后每<周六>系统自动安排攻城|\'

+'首战奖励<50000元宝>,合区奖励<30000元宝>,其余时间捐献奖池奖励!\'

+'|<─────────────────────>\'

+'|<沙巴克城主>可在此领取以下<沙城奖励:>|\'

+'1: <'+inttostr(GetG(93,40))+'元宝/fcolor=254> + <'+inttostr(GetG(93,41))+'灵符/fcolor=254> + <'+inttostr(GetG(93,42))+'金刚石/fcolor=254>|\ \'

+'2: <城主战袍/fcolor=254> |\ \'

+'3: <沙城捐献元宝/fcolor=254> <'+inttostr(GetG(78,7)/10)+'/fcolor=243> 元宝\ \'

+'|<─────────────────────>\'

+'|<本届沙巴克老大：/fcolor=250><'+sbkhhld+'/fcolor=254> \ \'

+'|<本届沙巴克行会：/fcolor=250><'+sbkhhmz+'/fcolor=254> \ \'

+'|<本次攻城状态为：/fcolor=254> <'+gcbl+'/fcolor=254> |\ \'

+'|<城主领取奖励/@lqsjc> <关闭此页/@Exit> <GM后台操作/@GM>|\'

);

end else

begin

This_Npc.NpcDialog(This_Player,

+'首次攻城在开区<三天>以后，统一提交申请，之后每<周六>系统自动安排攻城|\'

+'首战奖励<50000元宝>,合区奖励<30000元宝>,其余时间捐献奖池奖励!\'

+'|<─────────────────────>\'

+'|<沙巴克城主>可在此领取以下<沙城奖励:>|\'

+'1: <'+inttostr(GetG(93,40))+'元宝/fcolor=254> + <'+inttostr(GetG(93,41))+'灵符/fcolor=254> + <'+inttostr(GetG(93,42))+'金刚石/fcolor=254>|\ \'

+'2: <城主战袍/fcolor=254> |\ \'

+'3: <沙城捐献元宝/fcolor=254> <'+inttostr(GetG(78,7)/10)+'/fcolor=243> 元宝\ \'

+'|<─────────────────────>\'

+'|<本届沙巴克老大：/fcolor=250><'+sbkhhld+'/fcolor=254> \ \'

+'|<本届沙巴克行会：/fcolor=250><'+sbkhhmz+'/fcolor=254> \ \'

+'|<本次攻城状态为：/fcolor=254> <'+gcbl+'/fcolor=254> |\ \'

+'|<城主领取奖励/@lqsjc>^ <关闭/@Exit>|\'

);

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 GetG(93,43) = 0 then //奖励是否领取

begin

if (GetHour = 22) and (GetMin > 1) then

begin

This_Player.ScriptRequestAddYBNum(GetG(93,40)); //奖励元宝

This_Player.AddLF(0,GetG(93,41)); //奖励灵符

This_player.give('金刚石',GetG(93,42)); //奖励金刚石

// This_player.give('城主神剑',2) //奖励物品

if This_Player.Gender = 0 then

begin

// This_player.SysGiveGift('城主战袍(男)',1,true) //奖励物品

end else

begin

// This_player.SysGiveGift('城主战袍(女)',1,true) //奖励物品

end;

This_Player.ScriptRequestAddYBNum((GetG(78,7)/10)); //沙城捐献奖励

ServerSay('沙巴克城主：[<' + This_Player.Name + '>]领取了[攻城奖励]['+inttostr(GetG(93,40))+']元宝！', 70);

ServerSay('沙巴克城主：[<' + This_Player.Name + '>]领取了[沙池奖励]['+inttostr(GetG(78,7)/10)+']元宝！', 70);

SetG(78,7,0);

SetG(93,43,GetG(93,43)+1);

sbkhhld := This_Player.Name;

sbkhhmz := This_Player.GuildName;

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 else

This_Npc.NpcDialog(This_Player,

'只有沙巴克会长才能进行操作！'

+'| <返回/@main>') ;

end;

//============================

procedure _GM;

begin

if This_Player.GMLevel > 4 then

begin

This_Npc.NpcDialog(This_Player,

+'|尊敬的管理大人，我这里可以控制攻城时间!\'

+'|<点击><星期1-7/fcolor=250><立即生效，无需提供任何物品>\'

+'|<自动攻城>==<每天攻城/fcolor=250> <不攻城> ==<攻城初始化/fcolor=250>\'

+'|<开始攻城>==<立即开始/fcolor=250> <停止攻城>==<立即停止/fcolor=250>\'

+'|<─────────────────────>\'

+'|<星期一/@xq1> <星期二/@xq2> <星期三/@xq3> <星期四/@xq4>|\ \'

+'|<星期五/@xq5> <星期六/@xq6> <星期天/@xq7> <每天攻城/@xq8>|\ \'

+'|<开始攻城/@xq10> <停止攻城/@xq11> <初始攻城/@xq9> <攻城奖励/@xq12>\ \'

+'|<─────────────────────>|\'

+'<您当前设置攻城为：/fcolor=242> <'+gcbl+'/fcolor=254> |\ \'

);

end else

begin

This_NPC.NpcDialog(This_Player,

'警告：你无权此操作，请速速联系管理员！！|\'+

'| <返回首页/@main>');

end;

procedure _xq1;

begin

SetG(93,39,1);

gcbl := '星期一';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期一/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq2;

begin

SetG(93,39,2);

gcbl := '星期二';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期二/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq3;

begin

SetG(93,39,3);

gcbl := '星期三';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期三/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq4;

begin

SetG(93,39,4);

gcbl := '星期四';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期四/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq5;

begin

SetG(93,39,5);

gcbl := '星期五';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期五/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq6;

begin

SetG(93,39,6);

gcbl := '星期六';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期六/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq7;

begin

SetG(93,39,7);

gcbl := '星期天';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <星期天/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq8;

begin

SetG(93,39,8);

gcbl := '每天';

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <每天/fcolor=250> <晚20点开启/fcolor=254>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq9;

begin

SetG(93,39,9);

SetG(93,40,0);

SetG(93,41,0);

SetG(93,42,0);

SetG(93,43,0);

gcbl := '暂停';

This_NPC.NpcDialog(This_Player,

'攻城系统初始化完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<元宝奖励/fcolor=254>： <0/fcolor=250> \'+

'|<灵符奖励/fcolor=254>： <0/fcolor=250> \'+

'|<金刚石奖励/fcolor=254>： <0/fcolor=250> \'+

'|<您当前设置攻城时间为：/fcolor=254> <关闭/fcolor=250> 奖励归 0\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq10;

begin

SetG(93,39,10);

SetG(1,1,1);

gcbl := '正在攻城';

ServerSay('沙巴克攻城战已经开启',0);

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <立即开启/fcolor=250> \'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq11;

begin

SetG(93,39,11);

SetG(1,1,2);

gcbl := '攻城结束';

ServerSay('沙巴克攻城战已经结束',0);

This_NPC.NpcDialog(This_Player,

'攻城系统调整完毕： <'+inttostr(GetG(93,39))+'/fcolor=243>|\'+

'|<您当前设置攻城时间为：/fcolor=254> <立即关闭/fcolor=250> \'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq12;

begin

This_NPC.NpcDialog(This_Player,

'调整攻城奖励系统：\'+

'|<元宝奖励/fcolor=254>： <'+inttostr(GetG(93,40))+'/@xq13> <0-1000000/fcolor=250>\'+

'|<灵符奖励/fcolor=254>： <'+inttostr(GetG(93,41))+'/@xq14> <100-1000000/fcolor=250>\'+

'|<金刚石奖励/fcolor=254>： <'+inttostr(GetG(93,42))+'/@xq15> <100-10000/fcolor=250>\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq13;

begin

This_NPC.InputDialog(This_Player,'请输入攻沙奖励-元宝',0,13) ;

end;

procedure p13;

begin

gcjl := StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1

if This_NPC.InputOK then

begin

if (gcjl >= 0) and (gcjl < 1000000) then

begin

SetG(93,40,gcjl);

This_NPC.NpcDialog(This_Player,

'调整攻城奖励系统：\'+

'|<元宝奖励/fcolor=254>： <'+inttostr(GetG(93,40))+'/@xq13> 0-1000000\'+

'|<灵符奖励/fcolor=254>： <'+inttostr(GetG(93,41))+'/@xq14> 100-1000000\'+

'|<金刚石奖励/fcolor=254>： <'+inttostr(GetG(93,42))+'/@xq15> 100-10000\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励元宝输入错误： 0-1000000 之内|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励元宝输入错误：非法字符，只能输入数字！|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq14;

begin

This_NPC.InputDialog(This_Player,'请输入攻沙奖励-灵符',0,14) ;

end;

procedure p14;

begin

gcjl2 := StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1

if This_NPC.InputOK then

begin

if (gcjl2 >= 100) and (gcjl2 < 1000000) then

begin

SetG(93,41,gcjl2);

This_NPC.NpcDialog(This_Player,

'调整攻城奖励系统：\'+

'|<元宝奖励/fcolor=254>： <'+inttostr(GetG(93,40))+'/@xq13> 0-1000000\'+

'|<灵符奖励/fcolor=254>： <'+inttostr(GetG(93,41))+'/@xq14> 100-1000000\'+

'|<金刚石奖励/fcolor=254>： <'+inttostr(GetG(93,42))+'/@xq15> 100-10000\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励灵符输入错误： 1-10 之内|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励灵符输入错误：非法字符，只能输入数字！|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

procedure _xq15;

begin

This_NPC.InputDialog(This_Player,'请输入攻沙奖励-金刚石',0,15) ;

end;

procedure p15;

begin

gcjl3 := StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1

if This_NPC.InputOK then

begin

if (gcjl3 >= 100) and (gcjl3 < 10000) then

begin

SetG(93,42,gcjl3);

This_NPC.NpcDialog(This_Player,

'调整攻城奖励系统：\'+

'|<元宝奖励/fcolor=254>： <'+inttostr(GetG(93,40))+'/@xq13> 0-1000000\'+

'|<灵符奖励/fcolor=254>： <'+inttostr(GetG(93,41))+'/@xq14> 100-1000000\'+

'|<金刚石奖励/fcolor=254>： <'+inttostr(GetG(93,42))+'/@xq15> 100-10000\'+

'|{cmd}<返回上页/@GM> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励金刚石输入错误： 100-10000 之内|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end else

This_NPC.NpcDialog(This_Player,

'攻城奖励金刚石输入错误：非法字符，只能输入数字！|\'+

'|{cmd}<返回上页/@xq12> ^<返回首页/@main> ^<关闭此页/@DoExit>');

end;

//=====================================================================================

//=================================================开启攻城开始

procedure Execute;

begin

if (GetDayOfWeek = 1) and (GetG(93,39) = 1) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 2) and (GetG(93,39) = 2) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 3) and (GetG(93,39) = 3) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 4) and (GetG(93,39) = 4) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 5) and (GetG(93,39) = 5) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 6) and (GetG(93,39) = 6) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetDayOfWeek = 7) and (GetG(93,39) = 7) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

if (GetG(93,39) = 8) and (GetHour = 20) and (GetMin = 1) then

begin

SetG(1,1,1);

ServerSay('沙巴克攻城战已经开启',0);

end

//=================================================开启攻城结束

//=================================================关闭攻城开始

if (GetDayOfWeek = 1) and (GetG(93,39) = 1) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 2) and (GetG(93,39) = 2) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 3) and (GetG(93,39) = 3) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 4) and (GetG(93,39) = 4) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 5) and (GetG(93,39) = 5) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 6) and (GetG(93,39) = 6) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetDayOfWeek = 7) and (GetG(93,39) = 7) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

if (GetG(93,39) = 8) and (GetHour = 22) and (GetMin = 1) then

begin

SetG(1,1,2);

ServerSay('沙巴克攻城战已经关闭',0);

end

//=================================================关闭攻城结束

//=================================================以下可填写白天全服攻城公告---例子

if (GetG(93,39) = 1) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 2) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 3) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 4) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 5) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 6) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 7) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetG(93,39) = 8) and (GetHour = 12) and (GetMin = 1) then

begin

ServerSay('今晚20:00开启沙巴克攻城战争，请各大行会做好装备',0);

end

if (GetHour = 22) and (GetMin < 1) then

begin

SetG(93,43,0);

end

end;

procedure Pangu_ShaBuck;

begin

if (This_Player.GuildName = This_NPC.GetCastleGuildName) and (Length(This_NPC.GetCastleLoadName) < 1) then

begin

This_Player.SetS(1,1,6);

end;

procedure OnInitialize;

begin

sbkhhld := This_NPC.GetCastleLoadName;

sbkhhmz := This_NPC.GetCastleGuildName;

end;

begin

//初始化变量

if GetG(93,39) <= 0 then SetG(93,39,0);

if GetG(93,40) <= 0 then SetG(93,40,0);

if GetG(93,41) <= 0 then SetG(93,41,0);

if GetG(93,42) <= 0 then SetG(93,42,0);

if GetG(93,43) <= 0 then SetG(93,43,0);

TZJH_NPC;

doMain;

Pangu_ShaBuck;

end.

Tags：战神引擎手游技术传奇手游

文章评论

取消回复