72家族网-手游源码论坛

查看:【422】 回复:【2】 发表于 2020-5-20 11:09 存档时间:2022-07-02
本主题由 族长 于 2021-11-6 02:20 反删除
头条
7天前
头条
15天前
头条
26天前
头条
2022-05-30
头条
2022-05-30
头条
2022-05-30
头条
2022-05-19
头条
2022-05-02
头条
2022-04-22
头条
2022-04-18
头条
2022-04-13
头条
2022-04-02
头条
2022-04-01
头条
2022-03-28
头条
2022-03-24
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23

战神引擎手游源码

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

战神引擎骰子娱乐中心修复脚本
  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 下一条

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
本站仅提供信息存储空间服务,软件的复制品持有人不知道也没有合理的理由应当知道展示的作品侵权!
本站所有资源仅限用于研究产品软件内含、设计思想和原理为目的用途,禁止任何商用行为,违者后果自负!
若有侵权与文章中不妥之处,请联系邮箱:zhende5555@qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2022 私服论坛 www.sifubbs.com 手游源码技术讨论平台 Powered by Discuz!