72家族网-手游源码论坛


6.9
查看:【41】 回复:【0】 发表于 2020-6-29 16:50
全站
38分钟前
全站
3天前
全站
4天前
全站
4天前
全站
4天前
全站
4天前
全站
5天前
全站
6天前
全站
6天前
全站
6天前
全站
10天前
全站
12天前
全站
17天前
全站
19天前
全站
19天前
全站
21天前
全站
25天前
全站
25天前
全站
25天前
全站
25天前

战神引擎手游源码

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

战神引擎的全民冲级奖励手游脚本
全民冲级奖励脚本,从50到60级,分别奖励度元宝和装备,奖励的物品可以在脚本文件里面任意修改。帮主已经亲自测试了,脚本工作一切正常,里面的奖励名额要清空数据才能恢复到原始的,奖励的等级和物品也可以任意修改。你们在安装全民冲级奖励脚本的时候要记得,把脚本放到PsNpcscripts文件夹内才能工作。
战神引擎,脚本文件,-战神引擎的全民冲级奖励手游脚本
战神引擎,脚本文件,-战神引擎的全民冲级奖励手游脚本
  1. procedure _GetFreeGold;  //
  2. var Snum : Integer;//局部语法变量声明
  3. begin
  4.    Snum := GetG(3,2)
  5.      if Snum < 100 then
  6.       begin
  7.         if This_Player.GetV(13,4) <> 1 then
  8.         begin
  9.             if This_Player.Level >= 50 then
  10.           begin
  11.             if This_Player.FreeBagNum >= 2 then
  12.             begin
  13.                 This_Player.Give('50元宝',1);
  14.                 This_Player.Give('50灵符礼包',1);
  15.                 This_Player.SetV(13,4,1);
  16.         ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了50级奖励!', 70);
  17.                 SetG(3,2,Snum + 1);
  18.                 This_NPC.NpcDialog(This_Player,
  19.                 '恭喜你领取成功');
  20.             end else
  21.             This_NPC.NpcDialog(This_Player,'你的包裹不足2格')
  22.           end else
  23.           This_NPC.NpcDialog(This_Player,'你的等级不足50级');
  24.         end  else
  25.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  26.       end  else
  27.       This_NPC.NpcDialog(This_Player,'50级奖励已全部领取!');
  28. end;
  29. procedure _GetFreeGold1;  //方法
  30. var  Snum1 : Integer;
  31. begin
  32.    Snum1 := GetG(4,2)
  33.     if Snum1 < 80 then
  34.     begin
  35.          if This_Player.GetV(14,4) <> 1 then
  36.         begin
  37.           if This_Player.Level >= 52 then
  38.            begin
  39.              if This_Player.FreeBagNum >= 3 then
  40.              begin
  41.                 This_Player.Give('100元宝',1);
  42.                 This_Player.Give('100灵符礼包',1);
  43.         ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了52级奖励!', 70);
  44.                 This_Player.SetV(14,4,1);
  45.                 SetG(4,2,Snum1 + 1);
  46.                 This_NPC.NpcDialog(This_Player,
  47.                '恭喜你领取成功');
  48.              end else
  49.              This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  50.            end else
  51.             This_NPC.NpcDialog(This_Player,'你的等级不足52级');
  52.         end else
  53.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  54.     end else
  55.     This_NPC.NpcDialog(This_Player,'52级奖励已全部领取!');
  56. end;
  57. procedure _GetFreeGold2;  //方法
  58. var  Snum2: Integer;//局部语法变量声明
  59. begin
  60.     Snum2 := GetG(5,2)
  61.     if Snum2 < 60 then
  62.     begin
  63.         if This_Player.GetV(15,4) <> 1 then
  64.         begin
  65.           if This_Player.Level >= 54 then
  66.           begin
  67.             if This_Player.FreeBagNum >= 3 then
  68.             begin
  69.                 This_Player.Give('50元宝',3);
  70.                 This_Player.Give('100灵符礼包',1);
  71.         ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了54级奖励!', 70);
  72.                 This_Player.SetV(15,4,1);
  73.                 SetG(5,2,Snum2 + 1);
  74.                 This_NPC.NpcDialog(This_Player,
  75.                '恭喜你领取成功');
  76.             end else
  77.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  78.           end else
  79.           This_NPC.NpcDialog(This_Player,'你的等级不足54级');
  80.         end else
  81.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  82.     end else
  83.     This_NPC.NpcDialog(This_Player,'54级奖励已全部领取!');
  84. end;
  85. procedure _GetFreeGold3;  //方法
  86. var  Snum3: Integer;//局部语法变量声明
  87. begin
  88.     Snum3 := GetG(6,2)
  89.     if Snum3 < 50 then
  90.     begin
  91.         if This_Player.GetV(16,4) <> 1 then
  92.         begin
  93.           if This_Player.Level >= 56 then
  94.           begin
  95.             if This_Player.FreeBagNum >= 3 then
  96.             begin
  97.                 This_Player.Give('100元宝',2);
  98.                 This_Player.Give('100灵符礼包',1);
  99.         ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了56级奖励!', 70);
  100.                 This_Player.SetV(16,4,1);
  101.                 SetG(6,2,Snum3 + 1);
  102.                 This_NPC.NpcDialog(This_Player,
  103.                '恭喜你领取成功');
  104.             end else
  105.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  106.           end else
  107.           This_NPC.NpcDialog(This_Player,'你的等级不足56级');
  108.         end else
  109.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  110.     end else
  111.     This_NPC.NpcDialog(This_Player,'56级奖励已全部领取!');
  112. end;
  113. procedure _GetFreeGold4;  //方法
  114. var Snum4: Integer;//局部语法变量声明
  115. begin
  116.     Snum4 := GetG(7,2)
  117.     if Snum4 < 60 then
  118.     begin
  119.         if This_Player.GetV(17,4) <> 1 then
  120.         begin
  121.             if This_Player.Level >= 58 then
  122.           begin
  123.             if This_Player.FreeBagNum >= 3 then
  124.             begin
  125.            if This_Player.Gender = 0 then
  126.                  This_Player.Give('凤天魔甲',1)
  127.                  else
  128.                  This_Player.Give('凰天魔衣',1);
  129.          ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了58级奖励!', 70);
  130.                 This_Player.SetV(17,4,1);
  131.                 SetG(7,2,Snum4 + 1);
  132.                 This_NPC.NpcDialog(This_Player,
  133.                '恭喜你领取成功');
  134.             end else
  135.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  136.           end else
  137.           This_NPC.NpcDialog(This_Player,'你的等级不足58级');
  138.         end else
  139.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  140.     end else
  141.     This_NPC.NpcDialog(This_Player,'58级奖励已全部领取!');
  142. end;
  143. procedure _GetFreeGold5;  //方法
  144. var    Snum5: Integer;//局部语法变量声明
  145. begin
  146.     Snum5 := GetG(8,2)
  147.     if Snum5 < 50 then
  148.     begin
  149.         if This_Player.GetV(18,4) <> 1 then
  150.         begin
  151.             if This_Player.Level >= 60 then
  152.           begin
  153.             if This_Player.FreeBagNum >= 3 then
  154.             begin
  155.                 case This_Player.Job of
  156.                0 :
  157.                begin
  158.                    This_Player.Give('开天',1);
  159.                end;
  160.                1 :
  161.                begin
  162.                    This_Player.Give('镇天',1);
  163.                end;
  164.                2 :
  165.                begin
  166.                    This_Player.Give('玄天',1);
  167.                end;
  168.            end;
  169.           ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了60级奖励!', 70);   
  170.                 This_Player.SetV(18,4,1);
  171.                 SetG(8,2,Snum5 + 1);
  172.                 This_NPC.NpcDialog(This_Player,
  173.                '恭喜你领取成功');
  174.             end else
  175.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  176.           end else
  177.           This_NPC.NpcDialog(This_Player,'你的等级不足60级');
  178.         end else
  179.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  180.     end else
  181.     This_NPC.NpcDialog(This_Player,'60级奖励已全部领取!');
  182. end;
  183. procedure _GetFreeGold6;  //方法
  184. var    Snum6: Integer;//局部语法变量声明
  185. begin
  186.     Snum6 := GetG(9,2)
  187.     if Snum6 < 10 then
  188.     begin
  189.         if This_Player.GetV(19,4) <> 1 then
  190.         begin
  191.             if This_Player.Level >= 62 then
  192.           begin
  193.             if This_Player.FreeBagNum >= 3 then
  194.             begin
  195.                 case This_Player.Job of
  196.                0 :
  197.                begin
  198.                  if This_Player.Gender = 0 then
  199.                  This_Player.Give('虎啸战甲(男)',1)
  200.                  else
  201.                  This_Player.Give('虎啸战甲(女)',1);
  202.                end;
  203.                1 :
  204.                begin
  205.                    if This_Player.Gender = 0 then
  206.                  This_Player.Give('聚魔法衣(男)',1)
  207.                  else
  208.                  This_Player.Give('聚魔法衣(女)',1);
  209.                end;
  210.                2 :
  211.                begin
  212.                   if This_Player.Gender = 0 then
  213.                  This_Player.Give('暗咒道袍(男)',1)
  214.                  else
  215.                  This_Player.Give('暗咒道袍(女)',1);
  216.                end;
  217.            end;
  218.       ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了62级奖励!', 70);
  219.                 This_Player.SetV(19,4,1);
  220.                 SetG(9,2,Snum6 + 1);
  221.                 This_NPC.NpcDialog(This_Player,
  222.                '恭喜你领取成功');
  223.             end else
  224.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  225.           end else
  226.           This_NPC.NpcDialog(This_Player,'你的等级不足62级');
  227.         end else
  228.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  229.     end else
  230.     This_NPC.NpcDialog(This_Player,'62级奖励已全部领取!');
  231. end;
  232. procedure _GetFreeGold7;  //方法
  233. var    Snum7: Integer;//局部语法变量声明
  234. begin
  235.     Snum7 := GetG(10,2)
  236.     if Snum7 < 8 then
  237.     begin
  238.         if This_Player.GetV(20,4) <> 1 then
  239.         begin
  240.             if This_Player.Level >= 64 then
  241.           begin
  242.             if This_Player.FreeBagNum >= 3 then
  243.             begin
  244.                 case This_Player.Job of
  245.                0 :
  246.                begin
  247.                    This_Player.Give('黄金裁决',1);
  248.                end;
  249.                1 :
  250.                begin
  251.                    This_Player.Give('紫金嗜魂法杖',1);
  252.                end;
  253.                2 :
  254.                begin
  255.                    This_Player.Give('赤金逍遥扇',1);
  256.                end;
  257.            end;
  258. ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了64级奖励!', 70);
  259.                 This_Player.SetV(20,4,1);
  260.                 SetG(10,2,Snum7 + 1);
  261.                 This_NPC.NpcDialog(This_Player,
  262.                '恭喜你领取成功');
  263.             end else
  264.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  265.           end else
  266.           This_NPC.NpcDialog(This_Player,'你的等级不足64级');
  267.         end else
  268.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  269.     end else
  270.     This_NPC.NpcDialog(This_Player,'64级奖励已全部领取!');
  271. end;
  272. procedure _GetFreeGold8;  //方法
  273. var Snum8: Integer;//局部语法变量声明
  274. begin
  275.     Snum8 := GetG(11,2)
  276.     if Snum8 < 3 then
  277.     begin
  278.         if This_Player.GetV(21,4) <> 1 then
  279.         begin
  280.             if This_Player.Level >= 66 then
  281.           begin
  282.             if This_Player.FreeBagNum >= 3 then
  283.             begin
  284.            if This_Player.Gender = 0 then
  285.                  This_Player.Give('天龙圣衣(男)',1)
  286.                  else
  287.                  This_Player.Give('天龙圣衣(女)',1);
  288.          ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了66级奖励!', 70);
  289.                 This_Player.SetV(21,4,1);
  290.                 SetG(11,2,Snum8 + 1);
  291.                 This_NPC.NpcDialog(This_Player,
  292.                '恭喜你领取成功');
  293.             end else
  294.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  295.           end else
  296.           This_NPC.NpcDialog(This_Player,'你的等级不足66级');
  297.         end else
  298.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  299.     end else
  300.     This_NPC.NpcDialog(This_Player,'66级奖励已全部领取!');
  301. end;
  302. procedure _GetFreeGold9;  //方法
  303. var  Snum9: Integer;//局部语法变量声明
  304. begin
  305.     Snum9 := GetG(12,2)
  306.     if Snum9 < 2 then
  307.     begin
  308.         if This_Player.GetV(22,4) <> 1 then
  309.         begin
  310.           if This_Player.Level >= 68 then
  311.           begin
  312.             if This_Player.FreeBagNum >= 3 then
  313.             begin
  314.                 This_Player.Give('天龙圣剑',1);
  315.         ServerSay('玩家<' + This_Player.Name + '在冲级奖励领取了68级奖励!', 70);
  316.                 This_Player.SetV(22,4,1);
  317.                 SetG(12,2,Snum9 + 1);
  318.                 This_NPC.NpcDialog(This_Player,
  319.                '恭喜你领取成功');
  320.             end else
  321.             This_NPC.NpcDialog(This_Player,'你的包裹剩余不足3格')
  322.           end else
  323.           This_NPC.NpcDialog(This_Player,'你的等级不足68级');
  324.         end else
  325.         This_NPC.NpcDialog(This_Player,'你已领取了奖励');
  326.     end else
  327.     This_NPC.NpcDialog(This_Player,'68级奖励已全部领取!');
  328. end;
  329. procedure _qingliquanju1;
  330. begin
  331. SetG(3,2,0);
  332. SetG(4,2,0);
  333. SetG(5,2,0);
  334. SetG(6,2,0);
  335. SetG(7,2,0);
  336. SetG(8,2,0);
  337. SetG(9,2,0);
  338. SetG(10,2,0);
  339. SetG(11,2,0);
  340. SetG(12,2,0);
  341.         This_NPC.NpcDialog(This_Player,
  342.         '清理成功!\|'
  343.         +'{cmd}<返回 main="">');
  344. end;
  345. var Snum , Snum1 , Snum2 , Snum3 , Snum4 , Snum5 , Snum6 , Snum7 , Snum8 , Snum9 : Integer; //主函数入口
  346. begin
  347.     begin
  348.      Snum := GetG(3,2)
  349.      Snum1 := GetG(4,2)
  350.      Snum2 := GetG(5,2)
  351.      Snum3 := GetG(6,2)
  352.      Snum4 := GetG(7,2)
  353.      Snum5 := GetG(8,2)
  354.    Snum6 := GetG(9,2)
  355.    Snum7 := GetG(10,2)
  356.    Snum8 := GetG(11,2)
  357.    Snum9 := GetG(12,2)
  358.     end;
  359.     if This_Player.GMLevel > 0  then
  360.     begin
  361.     This_NPC.NpcDialog( This_Player,
  362.     '50级奖励:50元宝,50灵符当前剩余数量:   ' + inttostr(100 - Snum) + '\|' +
  363.     '52级奖励:100元宝,100灵符当前剩余数量:  ' + inttostr(80 - Snum1) + '\|' +
  364.     '54级奖励:150元宝,100灵符当前剩余数量:  ' + inttostr(60 - Snum2) + '\|' +
  365.     '56级奖励:200元宝,100灵符当前剩余数量:  ' + inttostr(50 - Snum3) + '\|' +
  366.     '58级奖励:凤天魔甲衣服   当前剩余数量:  ' + inttostr(60 - Snum4) + '\|' +
  367.     '60级奖励:开天系列武器   当前剩余数量:  ' + inttostr(50 - Snum5) + '\|' +
  368.   '62级奖励:虎啸系列衣服   当前剩余数量:  ' + inttostr(10 - Snum6) + '\|' +
  369.   '64级奖励:黄金系列武器   当前剩余数量:  ' + inttostr(8 - Snum7) + '\|' +
  370.   '66级奖励:天龙系列衣服   当前剩余数量:  ' + inttostr(3 - Snum8) + '\|' +
  371.   '68级奖励:天龙圣剑武器   当前剩余数量:  ' + inttostr(2 - Snum9) + '\|' +
  372.     '|{cmd}<50级冲级奖励 getfreegold=""> ^<52级冲级奖励 getfreegold1="">\'  +
  373.     '|{cmd}<54级冲级奖励 getfreegold2=""> ^<56级冲级奖励 getfreegold3="">\' +
  374.     '|{cmd}<58级冲级奖励 getfreegold4=""> ^<60级冲级奖励 getfreegold5="">\' +
  375.   '|{cmd}<62级冲级奖励 getfreegold6=""> ^<64级冲级奖励 getfreegold7="">\' +
  376.   '|{cmd}<66级冲级奖励 getfreegold8=""> ^<68级冲级奖励 getfreegold9="">^<清理全局 qingliquanju1="">'
  377.   );
  378.    end
  379.       else
  380.     This_NPC.NpcDialog( This_Player,
  381.     '50级奖励:50元宝,50灵符当前剩余数量:   ' + inttostr(100 - Snum) + '\|' +
  382.     '52级奖励:100元宝,100灵符当前剩余数量:  ' + inttostr(80 - Snum1) + '\|' +
  383.     '54级奖励:150元宝,100灵符当前剩余数量:  ' + inttostr(60 - Snum2) + '\|' +
  384.     '56级奖励:200元宝,100灵符当前剩余数量:  ' + inttostr(50 - Snum3) + '\|' +
  385.     '58级奖励:凤天魔甲衣服   当前剩余数量:  ' + inttostr(60 - Snum4) + '\|' +
  386.     '60级奖励:开天系列武器   当前剩余数量:  ' + inttostr(50 - Snum5) + '\|' +
  387.   '62级奖励:虎啸系列衣服   当前剩余数量:  ' + inttostr(10 - Snum6) + '\|' +
  388.   '64级奖励:黄金系列武器   当前剩余数量:  ' + inttostr(8 - Snum7) + '\|' +
  389.   '66级奖励:天龙系列衣服   当前剩余数量:  ' + inttostr(3 - Snum8) + '\|' +
  390.   '68级奖励:天龙圣剑武器   当前剩余数量:  ' + inttostr(2 - Snum9) + '\|' +
  391.     '|{cmd}<50级冲级奖励 getfreegold=""> ^<52级冲级奖励 getfreegold1="">\'  +
  392.     '|{cmd}<54级冲级奖励 getfreegold2=""> ^<56级冲级奖励 getfreegold3="">\' +
  393.     '|{cmd}<58级冲级奖励 getfreegold4=""> ^<60级冲级奖励 getfreegold5="">\' +
  394.   '|{cmd}<62级冲级奖励 getfreegold6=""> ^<64级冲级奖励 getfreegold7="">\' +
  395.   '|{cmd}<66级冲级奖励 getfreegold8=""> ^<68级冲级奖励 getfreegold9="">'
  396.   );
  397.   
  398. end.
复制代码


使用道具

关闭

72家族网免费流量资源共享平台上一条 /1 下一条


本站目前总资源量:704443   会员数:110572   今日活跃:539   昨日活跃:542   实时在线人数:173
72家族网加速节点 72家族网加速节点

本站资源仅供本地电脑研究软件内含使用,禁止任何非研究设计思想和原理为目的用途,如需商用请支持正版!

本站仅提供相关网络软件应用代码技术开发学习与技术教材,禁止未经版权方授权允许私自运营软件或应用行为。

域名:72jz.com 年龄:9年 世界排名:1,091,577 日均访问[PV]:2W+  创建于2011年04月20日,过期时间为2029年04月20日[待续] 皖ICP备11014237号
本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
若有侵权与文章中不妥之处,请联系邮箱:admjz@vip.qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2020 72家族网 版权所有 Powered by Discuz!