72家族网-手游源码论坛

6.9
查看:【51】 回复:【0】 发表于 2020-5-20 11:09
本主题由 族长 于 2020-5-24 11:13 分类
全站
1天前
全站
2天前
全站
3天前
全站
3天前
全站
4天前
全站
5天前
全站
5天前
全站
6天前
全站
7天前
全站
7天前
全站
8天前
全站
9天前
全站
9天前
全站
11天前
全站
12天前
全站
12天前
全站
13天前
全站
14天前
全站
18天前
全站
18天前

战神引擎手游源码

战神引擎骰子娱乐中心修复脚本

战神引擎骰子娱乐中心修复脚本
  1. {娱乐中心
  2. 作者:
  3. 内容:☆☆本中心只供娱乐,严禁用于赌博,一切后果自负☆☆
  4. 人机对赌模式
  5. }
  6. PROGRAM Mir2;
  7. var
  8. str :string;
  9. num,num1 :integer;
  10. i : Integer;
  11. j : Integer;
  12. k : Integer;
  13. Procedure _doexit;
  14. begin
  15.    This_Npc.CloseDialog(This_Player);
  16. end;
  17. procedure domain;
  18. begin
  19.     str := This_NPC.InputStr;
  20.     This_NPC.NpcDialog(This_Player,
  21.        '☆☆☆欢迎光临【开心就好】娱乐中心☆☆☆\|'
  22.       +'                   '+'<每次投注至少需要100元宝/c=red>!|\'
  23.      +' ☆☆本中心只供娱乐,严禁用于赌博,一切后果自负☆☆\|'
  24.     +'{cmd}<我要买大/@md> ^<我要买小/@mx> ^<我要买豹子/@mbz> \|'
  25.       +'{cmd}<买定开骰/@DoPlayDice>');
  26. end;
  27. procedure _mx;
  28. begin
  29. begin
  30.   if This_Player.GetV(74,1)< 1  then
  31.   begin   
  32.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,111) ;
  33.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了!'+'{cmd}<返回/@main>') ;
  34. end;
  35. end;
  36. procedure p111;
  37. begin
  38.    num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  39.    if This_NPC.InputOK  then            
  40.     begin
  41.         if (num1 < 100) or  (num1 > 65534)  then
  42.        begin
  43.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  44.        end
  45.         else if (num1 >= 100) and (num1 < 65535) then
  46.          begin
  47.            if  This_Player.YBNum >= num1 then
  48.            begin
  49.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  50.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的小!'+'{cmd}<返回/@main>') ;
  51.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家,及只能在3个选项中同一时间选一个
  52.                 This_Player.setv(73,1,1); // 限定选择的下注的类型,改类型为选了小
  53.                               
  54.            end else
  55.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的小!' +'{cmd}<返回/@main>') ;
  56.          end;
  57.     end;
  58. end;
  59. procedure _md;
  60. begin
  61.   if This_Player.GetV(74,1)< 1  then
  62.   begin   
  63.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,112) ;
  64.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了!'+'{cmd}<返回/@main>') ;
  65. end;
  66. procedure p112;
  67. begin
  68.     num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  69.    if This_NPC.InputOK  then
  70.         if (num1 < 100) or  (num1 > 65534) then
  71.        begin
  72.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  73.        end
  74.         else if (num1 >= 100) and (num1 < 65535) then
  75.          begin
  76.            if  This_Player.YBNum >= num1 then
  77.            begin
  78.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  79.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的大!'+'{cmd}<返回/@main>') ;
  80.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家,及只能在3个选项中同一时间选一个
  81.                 This_Player.setv(73,2,1); // 限定选择的下注的类型,改类型为选了大
  82.            end else
  83.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的大!' +'{cmd}<返回/@main>') ;
  84.          end;
  85.     end;
  86. procedure _mbz;
  87. begin
  88.   if This_Player.GetV(74,1)< 1  then
  89.   begin   
  90.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,113) ;
  91.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了!'+'{cmd}<返回/@main>') ;
  92. end;
  93. procedure p113;
  94. begin
  95.     num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  96.    if This_NPC.InputOK  then  
  97.         if  (num1 < 100) or  (num1 > 65534) then
  98.        begin
  99.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  100.        end
  101.         else if (num1 >= 100) and (num1 < 65535) then
  102.          begin
  103.            if  This_Player.YBNum >= num1 then
  104.            begin
  105.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  106.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的豹子!'+'{cmd}<返回/@main>') ;
  107.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家,及只能在3个选项中同一时间选一个
  108.                 This_Player.setv(73,3,1); // 限定选择的下注的类型,改类型为选了豹子
  109.            end else
  110.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的豹子!' +'{cmd}<返回/@main>') ;
  111.          end;
  112. end;
  113. procedure _AfterPlayDice();//注意这里需要下画线
  114. begin
  115.     i:=This_Player.GetV(0, 1);
  116.     j:=This_Player.GetV(0, 2);
  117.     k:=This_Player.GetV(0, 3);
  118.     num:= i+j+k ;
  119.      if (This_Player.getv(73,1)=1) //限定选了小的玩家并且3骰子点数在3到9并且不出现豹子的情况下 执行以下奖励代码
  120.          and (num >3) and (num <9) and ((i <> j) or (i <> k) or (k <> j)) then
  121.       begin
  122.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  123.        +inttostr(num)+'点,恭喜你你买中了小,获得一倍赔率!') ;
  124.        This_Player.ScriptRequestAddYBNum(num1 *2);
  125.        This_Player.setv(74,1,0);//保险起见,所有变量初始化化,跳出
  126.        This_Player.setv(73,1,0);
  127.        num1 := 0;
  128.       This_Player.SetV(0, 1, 0);
  129.       This_Player.SetV(0, 2, 0);
  130.       This_Player.SetV(0, 3, 0);
  131.       end
  132.       else
  133.       if(This_Player.getv(73,2)=1)//限定选了大的玩家并且3骰子点数在9到18并且不出现豹子的情况下 执行以下奖励代码
  134.           and (num >=9) and (num <18) and ((i <> j) or (i <> k) or (k <> j)) then
  135.       begin
  136.        This_Player.ScriptRequestAddYBNum(num1 *2);
  137.        This_Player.setv(74,1,0);//部分变量初始化是非必须的,保险起见所有变量初始化化
  138.        This_Player.setv(73,2,0);
  139.        str:= '';
  140.       This_Player.SetV(0, 1, 0);
  141.       This_Player.SetV(0, 2, 0);
  142.       This_Player.SetV(0, 3, 0);
  143.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  144.        +inttostr(num)+'点,恭喜你你买中了大,获得一倍赔率!'+'{cmd}<继续投注/@main>') ;
  145.       end else
  146.       if (This_Player.getv(73,3)=1) //限定选了豹子的玩家并且3骰子点数相等情况下 执行以下奖励代码
  147.           and ((i = j) and (i = k) and (k = j))  then
  148.          
  149.       begin
  150.        This_Player.ScriptRequestAddYBNum(num1 *4);
  151.        This_Player.setv(74,1,0);//部分变量初始化是非必须的,保险起见所有变量初始化化
  152.        This_Player.setv(73,3,0);
  153.        Str := '';
  154.        This_Player.SetV(0, 1, 0);
  155.       This_Player.SetV(0, 2, 0);
  156.       This_Player.SetV(0, 3, 0);
  157.         This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  158.        +inttostr(num)+'点,恭喜你你买中了豹子,获得三倍赔率!'+'{cmd}<继续投注/@main>') ;
  159.       end else  
  160.       begin
  161.       This_Player.setv(74,1,0);//即使失败也需要变量初始化化,部分变量初始化是非必须的
  162.        This_Player.setv(73,3,0);
  163.        This_Player.setv(73,2,0);
  164.        This_Player.setv(73,1,0);
  165.       Str := '';
  166.       This_Player.SetV(0, 1, 0);
  167.       This_Player.SetV(0, 2, 0);
  168.       This_Player.SetV(0, 3, 0);
  169.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  170.        +inttostr(num)+'点,很抱歉你没有买中!'+'{cmd}<继续投注/@main>') ;
  171.       end;
  172. end;
  173. procedure _DoPlayDice(); //扔骰子//注意这里需要下画线
  174. begin
  175. if This_Player.getv(74,1)=1 then
  176.     begin
  177. This_Player.SetV(0, 1, (Random(6) + 1));
  178. This_Player.SetV(0, 2, (Random(6) + 1));
  179. This_Player.SetV(0, 3, (Random(6) + 1));
  180. This_Player.setv(74,1,0);
  181. This_Npc.PlayDice(This_Player, 3, '@AfterPlayDice'); //注意这里需要@
  182.     end else
  183.     This_Npc.NpcDialog(This_Player,'你没有下注不可以投骰子,请不要重复投骰子!'
  184.         ) ;
  185. end;
  186. function xin(price, num: Integer):boolean;
  187. begin
  188.    result := true;
  189. end;
  190. Begin
  191.   domain;
  192. end.
复制代码


使用道具

关闭

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

综合统计   资源量:698112   会员数:108618   今日活跃:81   昨日活跃:533   同时在线:334

9年老站欢迎您,已运行,感谢一路相伴

域名:72jz.com 年龄:9年 世界排名:1,091,577 日均访问[PV]:15000  创建于2011年04月20日,过期时间为2029年04月20日[待续] 皖ICP备11014237号

本站专注为新手提供手游源码、网页游戏源码、游戏一键端资源教程开发技术交流学习论坛

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
若有侵权与文章中不妥之处,请联系邮箱:admjz@vip.qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2020 72家族网 版权所有 Powered by Discuz!
本站部分资源系统会自动采集第三方,若不小心侵权了品牌请及时联系我们邮箱,会在第一时间删除。