72家族网-游戏资源论坛

2020-2-17

全站
4天前
全站
5天前
全站
12天前
全站
13天前
全站
13天前
全站
13天前
全站
21天前
全站
22天前
全站
23天前
全站
23天前
全站
26天前
全站
2020-01-17
全站
2020-01-14
全站
2020-01-14
全站
2020-01-10
全站
2020-01-03
全站
2020-01-03
全站
2020-01-01
全站
2019-12-29
全站
2019-12-28
全站
2019-12-28
全站
2019-12-28
全站
2019-12-19
全站
2019-12-16
全站
2019-12-11
全站
2019-12-10
全站
2019-12-07
全站
2019-12-07
全站
2019-12-05
全站
2019-12-04
查看:【415】 回复:【1】 发表于 2019-7-24 11:21
族长

  在线 

小编

发表于 2019-7-24 11:21 | 显示全部楼层 |[复制链接]|阅读模式

GowLom2传奇手游引擎-随机分配奖励脚本

GowLom2传奇手游引擎-随机分配奖励脚本

  1. GowLom2战神引擎随机分配奖励脚本
  2. 1.先定义一个简单的随机给予奖励的样板函数,这个函数的功能是开天,玄天,镇天这三把刀必得也只能得一把,几率都是三分之一。



  3. procedure GiveRandomRewards();

  4. var

  5.     r : Integer;

  6. begin

  7.       r := random(3);

  8.       if r = 0 then

  9.        begin

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

  11.       end

  12.       else if r = 1 then

  13.       begin

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

  15.       end

  16.       else if r = 2 then

  17.       begin

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

  19.       end

  20.       else

  21.       begin

  22.         //……这里

  23.       end;

  24. end;



  25. 2.以下模板是用以配置比较复杂的大型奖励时使用的模板,具体这个模板的使用还是最后口头描述比较方便。



  26. //////////这部分代码用于生成随机奖励配置////////////



  27. const REWARD_KIND = 15; //定义奖励的种类

  28. const REWARD_NUM  = 10; //每种奖励最大有多少件物品

  29. //返回0表示发奖成功,-1表示空格不够, -2表示没有发奖品

  30. function GiveRandomReward(): Integer;

  31. var

  32.   name  : array[1..REWARD_KIND] of array[1..REWARD_NUM] of string;

  33.   num   : array[1..REWARD_KIND] of array[1..REWARD_NUM] of Integer;

  34.   pos   : array[1..REWARD_KIND] of Integer;

  35.   total : Integer;

  36.   i     : Integer;

  37.   j     : Integer;

  38.   rand  : Integer;    //生成随机数

  39.   temp  : Integer;    //

  40. begin

  41.   //发奖励之前,判断是否有足够的空格

  42.   if This_Player.FreeBagNum < REWARD_NUM then

  43.   begin

  44.     Result := -1;

  45.     Exit;

  46.   end;      



  47. //初始化

  48.   for i := 1 to REWARD_KIND do

  49.   begin

  50.     for j := 1 to REWARD_NUM do

  51.     begin

  52.       name[i][j] := '';

  53.       num[i][j]  := 0;

  54.     end;

  55.     pos[i] := 0;

  56.   end;



  57.   //初始化奖励的物品和数量

  58.   //1号奖励内容

  59.   name[1][1] := '屠龙';

  60.   name[1][2] := '半月';

  61.   name[1][3] := '神火魔甲';



  62. num[1][1] := 1;

  63. num[1][2] := 1;

  64. num[1][3] := 1;



  65.   //2号奖励内容

  66.   name[2][1] := '开天';

  67.   name[2][2] := '幽灵战衣(男)';

  68.   name[2][3] := '上古道袍';



  69. num[2][1] := 1;

  70. num[2][2] := 0;

  71. num[2][3] := 0;



  72. //设置奖励的概率(如果需要可以考虑玩家的属性因素)

  73.   total  := 100;   //total表示奖励得到的概率都是50分之几



  74.   //根据人物属性可以调整不同奖项的获得几率

  75.   //0战士,1法师,2道士

  76.   if This_Player.Job = 2 then

  77.   begin

  78.     pos[1] := 40;

  79.     pos[2] := 10;

  80.   end

  81.   else

  82.   begin

  83.     pos[1] := 10;

  84.     pos[2] := 40;

  85.   end;



  86.   //进行随机生成奖励

  87.   rand := Random(total) + 1;

  88.   temp := 0;

  89.   for i := 1 to REWARD_KIND do

  90.   begin

  91.     temp := temp + pos[i];

  92.     if rand <= temp then

  93.     begin

  94.       //发放i号奖励,

  95.       for j := 1 to REWARD_NUM do

  96.       begin

  97.         if (name[i][j] <> '') and (num[i][j] > 0) then

  98.         begin

  99.           This_Player.Give(name[i][j], num[i][j]);

  100.         end;

  101.       end;

  102.       Result := 0;

  103.       Exit;

  104.     end;

  105.   end;

  106.   Result := -2;  

  107. end;



  108. ///////////////////////生成随机奖励配置///////////////////////
复制代码


免责声明:

本站所有资源、教程来自互联网转载,仅供学习交流,不得商业运营资源,不确保资源完整性,不提供任何技术服务。【点击此处加入72家族网QQ群

本站资源仅供本地编辑研究学习参考,禁止未经资源商正版授权参与任何商业行为,违法行为!如需商业请购买各资源商正版授权

本站仅收集资源,提供用户自学研究使用,本站不存在私自接受协助用户架设游戏或资源,非法运营资源行为。免责声明

1、本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!
2、本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,不存在任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。 我们不承担任何技术及版权问题,且不对任何资源负法律责任。
4、论坛的所有内容都不保证其准确性,完整性,有效性。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任,由用户自行承担
6、本站所有资源来自互联网转载,版权归原著所有,用户访问和使用本站的条件是必须接受本站“免责声明”,如果不遵守,请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。若有学员需要商用本站资源,请务必联系版权方购买正版授权!
10、本网站如无意中侵犯了某个企业或个人的知识产权,请来信【站长信箱】告之,本站将立即删除。

【点击此处查看部分资源的解压密码】

【资源失效,购买后无法正常下载解决办法】


回复

使用道具 打印 举报

回复楼主 感谢您加入72家族网!每发一个帖子可以增加一定的家族币哦~请点击右下角“查看本版积分规则”

游客
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

72家族网欢迎您-手游开发者论坛上一条 /1 下一条

本站创立于2011年,已运行,感谢一路相伴

本站资源来自互联网收集,本站资源仅限本地电脑单机学习使用,不确保资源完整性,如有意见请勿注册