全民冲级奖励手游脚本（战神引擎的）
全民冲级奖励脚本，从50到60级，分别奖励度元宝和装备，奖励的物品可以在脚本文件里面任意修改。帮主已经亲自测试了，脚本工作一切正常，里面的奖励名额要清空数据才能恢复到原始的，奖励的等级和物品也可以任意修改。你们在安装全民冲级奖励脚本的时候要记得，把脚本放到PsNpcscripts文件夹内才能工作。
脚本如下：
procedure _GetFreeGold; //
var Snum : Integer;//局部语法变量声明
begin
Snum := GetG(3,2)
if Snum < 100 then
begin
if This_Player.GetV(13,4) <> 1 then
begin
if This_Player.Level >= 50 then
begin
if This_Player.FreeBagNum >= 2 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹不足2格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足50级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'50级奖励已全部领取！');
end;
procedure _GetFreeGold1; //方法
var Snum1 : Integer;
begin
Snum1 := GetG(4,2)
if Snum1 < 80 then
begin
if This_Player.GetV(14,4) <> 1 then
begin
if This_Player.Level >= 52 then
begin
if This_Player.FreeBagNum >= 3 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足52级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'52级奖励已全部领取！');
end;
procedure _GetFreeGold2; //方法
var Snum2: Integer;//局部语法变量声明
begin
Snum2 := GetG(5,2)
if Snum2 < 60 then
begin
if This_Player.GetV(15,4) <> 1 then
begin
if This_Player.Level >= 54 then
begin
if This_Player.FreeBagNum >= 3 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足54级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'54级奖励已全部领取！');
end;
procedure _GetFreeGold3; //方法
var Snum3: Integer;//局部语法变量声明
begin
Snum3 := GetG(6,2)
if Snum3 < 50 then
begin
if This_Player.GetV(16,4) <> 1 then
begin
if This_Player.Level >= 56 then
begin
if This_Player.FreeBagNum >= 3 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足56级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'56级奖励已全部领取！');
end;
procedure _GetFreeGold4; //方法
var Snum4: Integer;//局部语法变量声明
begin
Snum4 := GetG(7,2)
if Snum4 < 60 then
begin
if This_Player.GetV(17,4) <> 1 then
begin
if This_Player.Level >= 58 then
begin
if This_Player.FreeBagNum >= 3 then
begin
if This_Player.Gender = 0 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足58级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'58级奖励已全部领取！');
end;
procedure _GetFreeGold5; //方法
var Snum5: Integer;//局部语法变量声明
begin
Snum5 := GetG(8,2)
if Snum5 < 50 then
begin
if This_Player.GetV(18,4) <> 1 then
begin
if This_Player.Level >= 60 then
begin
if This_Player.FreeBagNum >= 3 then
begin
case This_Player.Job of
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足60级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'60级奖励已全部领取！');
end;
procedure _GetFreeGold6; //方法
var Snum6: Integer;//局部语法变量声明
begin
Snum6 := GetG(9,2)
if Snum6 < 10 then
begin
if This_Player.GetV(19,4) <> 1 then
begin
if This_Player.Level >= 62 then
begin
if This_Player.FreeBagNum >= 3 then
begin
case This_Player.Job of
0 :
begin
if This_Player.Gender = 0 then
This_Player.Give('虎啸战甲(男)',1)
else
This_Player.Give('虎啸战甲(女)',1);
end;
1 :
begin
if This_Player.Gender = 0 then
This_Player.Give('聚魔法衣(男)',1)
else
This_Player.Give('聚魔法衣(女)',1);
end;
2 :
begin
if This_Player.Gender = 0 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足62级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'62级奖励已全部领取！');
end;
procedure _GetFreeGold7; //方法
var Snum7: Integer;//局部语法变量声明
begin
Snum7 := GetG(10,2)
if Snum7 < 8 then
begin
if This_Player.GetV(20,4) <> 1 then
begin
if This_Player.Level >= 64 then
begin
if This_Player.FreeBagNum >= 3 then
begin
case This_Player.Job of
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足64级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'64级奖励已全部领取！');
end;
procedure _GetFreeGold8; //方法
var Snum8: Integer;//局部语法变量声明
begin
Snum8 := GetG(11,2)
if Snum8 < 3 then
begin
if This_Player.GetV(21,4) <> 1 then
begin
if This_Player.Level >= 66 then
begin
if This_Player.FreeBagNum >= 3 then
begin
if This_Player.Gender = 0 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足66级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
This_NPC.NpcDialog(This_Player,'66级奖励已全部领取！');
end;
procedure _GetFreeGold9; //方法
var Snum9: Integer;//局部语法变量声明
begin
Snum9 := GetG(12,2)
if Snum9 < 2 then
begin
if This_Player.GetV(22,4) <> 1 then
begin
if This_Player.Level >= 68 then
begin
if This_Player.FreeBagNum >= 3 then
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,
'恭喜你领取成功');
end else
This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
end else
This_NPC.NpcDialog(This_Player,'你的等级不足68级');
end else
This_NPC.NpcDialog(This_Player,'你已领取了奖励');
end else
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;
var Snum , 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;
if This_Player.GMLevel > 0 then
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.
推荐工具
热门游戏
- 1
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 战神引擎官方制作原始1.85合击端
- 战神版本
- 2
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 帮主RMB买来的，支持安装和苹
- 战神版本
- 3
- 战神引擎官方制作1.76原始端
- 战神版本
- 战神引擎官方制作1.76原始端
- 战神版本
- 4
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 冰雪大陆+冷月驿站+天地神魔+独家制作
- 战神版本
- 5
- 经典版本+一切都有+沉默首选
- 战神版本
- 经典版本+一切都有+沉默首选
- 战神版本
- 6
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 自动回收+装备合成+易币兑换+一切都爆
- 战神版本
- 7
- 新UI+新地图+新怪物+新装备
- 战神版本
- 新UI+新地图+新怪物+新装备
- 战神版本
- 8
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 英雄圣地+卧龙英雄+转生狂暴+加官进爵
- 战神版本
- 9
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 自动回收+九个称号+各种活动+功能丰富
- 战神版本
- 10
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 冰雪之城+九次转生+六道轮回+装备熔炼
- 战神版本
- 11
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 四个大陆+新地图+新装备+玩法丰富
- 战神版本
- 12
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本
- 第二大陆+五套新装+庄园钓鱼+炼体十层
- 战神版本