全民冲级奖励手游脚本(战神引擎的)

全民冲级奖励脚本,从50到60级,分别奖励度元宝和装备,奖励的物品可以在脚本文件里面任意修改。帮主已经亲自测试了,脚本工作一切正常,里面的奖励名额要清空数据才能恢复到原始的,奖励的等级和物品也可以任意修改。你们在安装全民冲级奖励脚本的时候要记得,把脚本放到PsNpcscripts文件夹内才能工作。

全民冲级奖励手游脚本(战神引擎的)

全民冲级奖励手游脚本(战神引擎的)

脚本如下

procedure_GetFreeGold;//

varSnum:Integer;//局部语法变量声明

begin

Snum:=GetG(3,2)

ifSnum<100then

begin

ifThis_Player.GetV(13,4)<>1then

begin

ifThis_Player.Level>=50then

begin

ifThis_Player.FreeBagNum>=2then

begin

This_Player.Give('50元宝',1);

This_Player.Give('50灵符礼包',1);

This_Player.SetV(13,4,1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了50级奖励!',70);

SetG(3,2,Snum+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹不足2格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足50级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'50级奖励已全部领取!');

end;

procedure_GetFreeGold1;//方法

varSnum1:Integer;

begin

Snum1:=GetG(4,2)

ifSnum1<80then

begin

ifThis_Player.GetV(14,4)<>1then

begin

ifThis_Player.Level>=52then

begin

ifThis_Player.FreeBagNum>=3then

begin

This_Player.Give('100元宝',1);

This_Player.Give('100灵符礼包',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了52级奖励!',70);

This_Player.SetV(14,4,1);

SetG(4,2,Snum1+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足52级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'52级奖励已全部领取!');

end;

procedure_GetFreeGold2;//方法

varSnum2:Integer;//局部语法变量声明

begin

Snum2:=GetG(5,2)

ifSnum2<60then

begin

ifThis_Player.GetV(15,4)<>1then

begin

ifThis_Player.Level>=54then

begin

ifThis_Player.FreeBagNum>=3then

begin

This_Player.Give('50元宝',3);

This_Player.Give('100灵符礼包',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了54级奖励!',70);

This_Player.SetV(15,4,1);

SetG(5,2,Snum2+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足54级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'54级奖励已全部领取!');

end;

procedure_GetFreeGold3;//方法

varSnum3:Integer;//局部语法变量声明

begin

Snum3:=GetG(6,2)

ifSnum3<50then

begin

ifThis_Player.GetV(16,4)<>1then

begin

ifThis_Player.Level>=56then

begin

ifThis_Player.FreeBagNum>=3then

begin

This_Player.Give('100元宝',2);

This_Player.Give('100灵符礼包',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了56级奖励!',70);

This_Player.SetV(16,4,1);

SetG(6,2,Snum3+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足56级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'56级奖励已全部领取!');

end;

procedure_GetFreeGold4;//方法

varSnum4:Integer;//局部语法变量声明

begin

Snum4:=GetG(7,2)

ifSnum4<60then

begin

ifThis_Player.GetV(17,4)<>1then

begin

ifThis_Player.Level>=58then

begin

ifThis_Player.FreeBagNum>=3then

begin

ifThis_Player.Gender=0then

This_Player.Give('凤天魔甲',1)

else

This_Player.Give('凰天魔衣',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了58级奖励!',70);

This_Player.SetV(17,4,1);

SetG(7,2,Snum4+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足58级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'58级奖励已全部领取!');

end;

procedure_GetFreeGold5;//方法

varSnum5:Integer;//局部语法变量声明

begin

Snum5:=GetG(8,2)

ifSnum5<50then

begin

ifThis_Player.GetV(18,4)<>1then

begin

ifThis_Player.Level>=60then

begin

ifThis_Player.FreeBagNum>=3then

begin

caseThis_Player.Jobof

0:

begin

This_Player.Give('开天',1);

end;

1:

begin

This_Player.Give('镇天',1);

end;

2:

begin

This_Player.Give('玄天',1);

end;

end;

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了60级奖励!',70);

This_Player.SetV(18,4,1);

SetG(8,2,Snum5+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足60级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'60级奖励已全部领取!');

end;

procedure_GetFreeGold6;//方法

varSnum6:Integer;//局部语法变量声明

begin

Snum6:=GetG(9,2)

ifSnum6<10then

begin

ifThis_Player.GetV(19,4)<>1then

begin

ifThis_Player.Level>=62then

begin

ifThis_Player.FreeBagNum>=3then

begin

caseThis_Player.Jobof

0:

begin

ifThis_Player.Gender=0then

This_Player.Give('虎啸战甲(男)',1)

else

This_Player.Give('虎啸战甲(女)',1);

end;

1:

begin

ifThis_Player.Gender=0then

This_Player.Give('聚魔法衣(男)',1)

else

This_Player.Give('聚魔法衣(女)',1);

end;

2:

begin

ifThis_Player.Gender=0then

This_Player.Give('暗咒道袍(男)',1)

else

This_Player.Give('暗咒道袍(女)',1);

end;

end;

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了62级奖励!',70);

This_Player.SetV(19,4,1);

SetG(9,2,Snum6+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足62级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'62级奖励已全部领取!');

end;

procedure_GetFreeGold7;//方法

varSnum7:Integer;//局部语法变量声明

begin

Snum7:=GetG(10,2)

ifSnum7<8then

begin

ifThis_Player.GetV(20,4)<>1then

begin

ifThis_Player.Level>=64then

begin

ifThis_Player.FreeBagNum>=3then

begin

caseThis_Player.Jobof

0:

begin

This_Player.Give('黄金裁决',1);

end;

1:

begin

This_Player.Give('紫金嗜魂法杖',1);

end;

2:

begin

This_Player.Give('赤金逍遥扇',1);

end;

end;

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了64级奖励!',70);

This_Player.SetV(20,4,1);

SetG(10,2,Snum7+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足64级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'64级奖励已全部领取!');

end;

procedure_GetFreeGold8;//方法

varSnum8:Integer;//局部语法变量声明

begin

Snum8:=GetG(11,2)

ifSnum8<3then

begin

ifThis_Player.GetV(21,4)<>1then

begin

ifThis_Player.Level>=66then

begin

ifThis_Player.FreeBagNum>=3then

begin

ifThis_Player.Gender=0then

This_Player.Give('天龙圣衣(男)',1)

else

This_Player.Give('天龙圣衣(女)',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了66级奖励!',70);

This_Player.SetV(21,4,1);

SetG(11,2,Snum8+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足66级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'66级奖励已全部领取!');

end;

procedure_GetFreeGold9;//方法

varSnum9:Integer;//局部语法变量声明

begin

Snum9:=GetG(12,2)

ifSnum9<2then

begin

ifThis_Player.GetV(22,4)<>1then

begin

ifThis_Player.Level>=68then

begin

ifThis_Player.FreeBagNum>=3then

begin

This_Player.Give('天龙圣剑',1);

ServerSay('玩家<'+This_Player.Name+'在冲级奖励领取了68级奖励!',70);

This_Player.SetV(22,4,1);

SetG(12,2,Snum9+1);

This_NPC.NpcDialog(This_Player,

'恭喜你领取成功');

endelse

This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')

endelse

This_NPC.NpcDialog(This_Player,'你的等级不足68级');

endelse

This_NPC.NpcDialog(This_Player,'你已领取了奖励');

endelse

This_NPC.NpcDialog(This_Player,'68级奖励已全部领取!');

end;

procedure_qingliquanju1;

begin

SetG(3,2,0);

SetG(4,2,0);

SetG(5,2,0);

SetG(6,2,0);

SetG(7,2,0);

SetG(8,2,0);

SetG(9,2,0);

SetG(10,2,0);

SetG(11,2,0);

SetG(12,2,0);

This_NPC.NpcDialog(This_Player,

'清理成功!\\|'

+'{cmd}<返回 main="">');

end;

varSnum,Snum1,Snum2,Snum3,Snum4,Snum5,Snum6,Snum7,Snum8,Snum9:Integer;//主函数入口

begin

begin

Snum:=GetG(3,2)

Snum1:=GetG(4,2)

Snum2:=GetG(5,2)

Snum3:=GetG(6,2)

Snum4:=GetG(7,2)

Snum5:=GetG(8,2)

Snum6:=GetG(9,2)

Snum7:=GetG(10,2)

Snum8:=GetG(11,2)

Snum9:=GetG(12,2)

end;

ifThis_Player.GMLevel>0then

begin

This_NPC.NpcDialog(This_Player,

'50级奖励:50元宝,50灵符当前剩余数量:'+inttostr(100-Snum)+'\\|'+

'52级奖励:100元宝,100灵符当前剩余数量:'+inttostr(80-Snum1)+'\\|'+

'54级奖励:150元宝,100灵符当前剩余数量:'+inttostr(60-Snum2)+'\\|'+

'56级奖励:200元宝,100灵符当前剩余数量:'+inttostr(50-Snum3)+'\\|'+

'58级奖励:凤天魔甲衣服当前剩余数量:'+inttostr(60-Snum4)+'\\|'+

'60级奖励:开天系列武器当前剩余数量:'+inttostr(50-Snum5)+'\\|'+

'62级奖励:虎啸系列衣服当前剩余数量:'+inttostr(10-Snum6)+'\\|'+

'64级奖励:黄金系列武器当前剩余数量:'+inttostr(8-Snum7)+'\\|'+

'66级奖励:天龙系列衣服当前剩余数量:'+inttostr(3-Snum8)+'\\|'+

'68级奖励:天龙圣剑武器当前剩余数量:'+inttostr(2-Snum9)+'\\|'+

'|{cmd}<50级冲级奖励 getfreegold="">^<52级冲级奖励 getfreegold1="">\\'+

'|{cmd}<54级冲级奖励 getfreegold2="">^<56级冲级奖励 getfreegold3="">\\'+

'|{cmd}<58级冲级奖励 getfreegold4="">^<60级冲级奖励 getfreegold5="">\\'+

'|{cmd}<62级冲级奖励 getfreegold6="">^<64级冲级奖励 getfreegold7="">\\'+

'|{cmd}<66级冲级奖励 getfreegold8="">^<68级冲级奖励 getfreegold9="">^<清理全局 qingliquanju1="">'

);

end

else

This_NPC.NpcDialog(This_Player,

'50级奖励:50元宝,50灵符当前剩余数量:'+inttostr(100-Snum)+'\\|'+

'52级奖励:100元宝,100灵符当前剩余数量:'+inttostr(80-Snum1)+'\\|'+

'54级奖励:150元宝,100灵符当前剩余数量:'+inttostr(60-Snum2)+'\\|'+

'56级奖励:200元宝,100灵符当前剩余数量:'+inttostr(50-Snum3)+'\\|'+

'58级奖励:凤天魔甲衣服当前剩余数量:'+inttostr(60-Snum4)+'\\|'+

'60级奖励:开天系列武器当前剩余数量:'+inttostr(50-Snum5)+'\\|'+

'62级奖励:虎啸系列衣服当前剩余数量:'+inttostr(10-Snum6)+'\\|'+

'64级奖励:黄金系列武器当前剩余数量:'+inttostr(8-Snum7)+'\\|'+

'66级奖励:天龙系列衣服当前剩余数量:'+inttostr(3-Snum8)+'\\|'+

'68级奖励:天龙圣剑武器当前剩余数量:'+inttostr(2-Snum9)+'\\|'+

'|{cmd}<50级冲级奖励 getfreegold="">^<52级冲级奖励 getfreegold1="">\\'+

'|{cmd}<54级冲级奖励 getfreegold2="">^<56级冲级奖励 getfreegold3="">\\'+

'|{cmd}<58级冲级奖励 getfreegold4="">^<60级冲级奖励 getfreegold5="">\\'+

'|{cmd}<62级冲级奖励 getfreegold6="">^<64级冲级奖励 getfreegold7="">\\'+

'|{cmd}<66级冲级奖励 getfreegold8="">^<68级冲级奖励 getfreegold9="">'

);

end.

温馨提示:本文最后更新于2022-06-14 22:56:36,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞233 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片