72家族网-手游源码论坛

私服论坛»资源论坛 › 【仅供开发学习】【教程】《本站不提供任何游戏下载服务》 › 战神引擎 › 战神引擎骰子娱乐中心修复脚本
查看:【422】 回复:【2】 发表于 2020-5-20 11:09 存档时间:2022-07-02
本主题由 族长 于 2021-11-6 02:20 反删除
展开

72家族网最新资源头条【最新优质手游源码与其他游戏资源信息推荐】   

头条
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

战神引擎手游源码
SEO

娱乐中心 修复脚本 战神引擎 手游源码

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

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

  28. procedure _mx;
  29. begin


  32. begin
  33.   if This_Player.GetV(74,1)< 1  then
  34.   begin   
  35.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,111) ;
  36.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了！'+'{cmd}<返回/@main>') ;
  37. end;
  38. end;
  39. procedure p111;
  40. begin
  41.    num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  42.    if This_NPC.InputOK  then            
  43.     begin
  44.         if (num1 < 100) or  (num1 > 65534)  then
  45.        begin
  46.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  47.        end
  48.         else if (num1 >= 100) and (num1 < 65535) then
  49.          begin
  50.            if  This_Player.YBNum >= num1 then
  51.            begin
  52.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  53.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的小！'+'{cmd}<返回/@main>') ;
  54.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家，及只能在3个选项中同一时间选一个
  55.                 This_Player.setv(73,1,1); // 限定选择的下注的类型，改类型为选了小
  56.                               
  57.            end else
  58.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的小!' +'{cmd}<返回/@main>') ;
  59.          end;
  60.     end;
  61. end;
  62. procedure _md;

  64. begin
  65.   if This_Player.GetV(74,1)< 1  then
  66.   begin   
  67.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,112) ;
  68.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了！'+'{cmd}<返回/@main>') ;
  69. end;

  71. procedure p112;
  72. begin
  73.     num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  74.    if This_NPC.InputOK  then
  75.         if (num1 < 100) or  (num1 > 65534) then
  76.        begin
  77.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  78.        end
  79.         else if (num1 >= 100) and (num1 < 65535) then
  80.          begin
  81.            if  This_Player.YBNum >= num1 then
  82.            begin
  83.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  84.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的大！'+'{cmd}<返回/@main>') ;
  85.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家，及只能在3个选项中同一时间选一个
  86.                 This_Player.setv(73,2,1); // 限定选择的下注的类型，改类型为选了大
  87.            end else
  88.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的大!' +'{cmd}<返回/@main>') ;
  89.          end;
  90.     end;

  92. procedure _mbz;

  94. begin
  95.   if This_Player.GetV(74,1)< 1  then
  96.   begin   
  97.         This_NPC.InputDialog(This_Player,'请输入你要买的数额',0,113) ;
  98.   end else This_NPC.NpcDialog(This_Player,'你已经投过注了！'+'{cmd}<返回/@main>') ;
  99. end;

  101. procedure p113;
  102. begin
  103.     num1 :=  StrToIntDef(This_NPC.InputStr,-1);//输入非阿拉伯数字的字符都返回-1
  104.    if This_NPC.InputOK  then  
  105.         if  (num1 < 100) or  (num1 > 65534) then
  106.        begin
  107.        This_NPC.NpcDialog(This_Player,'投注必须使用大于100小于65534的阿拉伯数字!') ;
  108.        end
  109.         else if (num1 >= 100) and (num1 < 65535) then
  110.          begin
  111.            if  This_Player.YBNum >= num1 then
  112.            begin
  113.                 This_Player.PsYBConsum(This_NPC,'xin',20001,num1,1);
  114.                 This_NPC.NpcDialog(This_Player,'你买了'+inttostr(num1)+'元宝的豹子！'+'{cmd}<返回/@main>') ;
  115.                 This_Player.setv(74,1,1);   //限定能投骰子的玩家，及只能在3个选项中同一时间选一个
  116.                 This_Player.setv(73,3,1); // 限定选择的下注的类型，改类型为选了豹子
  117.            end else
  118.            This_NPC.NpcDialog(This_Player,'你没有足够的元宝买'+inttostr(num1)+'的豹子!' +'{cmd}<返回/@main>') ;
  119.          end;

  121. end;

  123. procedure _AfterPlayDice();//注意这里需要下画线
  124. begin
  125.     i:=This_Player.GetV(0, 1);
  126.     j:=This_Player.GetV(0, 2);
  127.     k:=This_Player.GetV(0, 3);
  128.     num:= i+j+k ;
  129.      if (This_Player.getv(73,1)=1) //限定选了小的玩家并且3骰子点数在3到9并且不出现豹子的情况下 执行以下奖励代码
  130.          and (num >3) and (num <9) and ((i <> j) or (i <> k) or (k <> j)) then
  131.       begin
  132.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  133.        +inttostr(num)+'点，恭喜你你买中了小，获得一倍赔率！') ;
  134.        This_Player.ScriptRequestAddYBNum(num1 *2);
  135.        This_Player.setv(74,1,0);//保险起见，所有变量初始化化，跳出
  136.        This_Player.setv(73,1,0);
  137.        num1 := 0;
  138.       This_Player.SetV(0, 1, 0);
  139.       This_Player.SetV(0, 2, 0);
  140.       This_Player.SetV(0, 3, 0);
  141.       end
  142.       else
  143.       if(This_Player.getv(73,2)=1)//限定选了大的玩家并且3骰子点数在9到18并且不出现豹子的情况下 执行以下奖励代码
  144.           and (num >=9) and (num <18) and ((i <> j) or (i <> k) or (k <> j)) then
  145.       begin

  147.        This_Player.ScriptRequestAddYBNum(num1 *2);
  148.        This_Player.setv(74,1,0);//部分变量初始化是非必须的，保险起见所有变量初始化化
  149.        This_Player.setv(73,2,0);
  150.        str:= '';
  151.       This_Player.SetV(0, 1, 0);
  152.       This_Player.SetV(0, 2, 0);
  153.       This_Player.SetV(0, 3, 0);
  154.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  155.        +inttostr(num)+'点，恭喜你你买中了大，获得一倍赔率！'+'{cmd}<继续投注/@main>') ;
  156.       end else

  158.       if (This_Player.getv(73,3)=1) //限定选了豹子的玩家并且3骰子点数相等情况下 执行以下奖励代码
  159.           and ((i = j) and (i = k) and (k = j))  then
  160.          
  161.       begin

  163.        This_Player.ScriptRequestAddYBNum(num1 *4);
  164.        This_Player.setv(74,1,0);//部分变量初始化是非必须的，保险起见所有变量初始化化
  165.        This_Player.setv(73,3,0);
  166.        Str := '';
  167.        This_Player.SetV(0, 1, 0);
  168.       This_Player.SetV(0, 2, 0);
  169.       This_Player.SetV(0, 3, 0);
  170.         This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  171.        +inttostr(num)+'点，恭喜你你买中了豹子，获得三倍赔率！'+'{cmd}<继续投注/@main>') ;
  172.       end else  
  173.       begin
  174.       This_Player.setv(74,1,0);//即使失败也需要变量初始化化，部分变量初始化是非必须的
  175.        This_Player.setv(73,3,0);
  176.        This_Player.setv(73,2,0);
  177.        This_Player.setv(73,1,0);
  178.       Str := '';
  179.       This_Player.SetV(0, 1, 0);
  180.       This_Player.SetV(0, 2, 0);
  181.       This_Player.SetV(0, 3, 0);
  182.       This_Npc.NpcDialog(This_Player,'你扔的骰子数是' + IntToStr(i) + IntToStr(j)+IntToStr(k)+'一共|\'
  183.        +inttostr(num)+'点，很抱歉你没有买中！'+'{cmd}<继续投注/@main>') ;
  184.       end;
  185. end;

  187. procedure _DoPlayDice(); //扔骰子//注意这里需要下画线
  188. begin
  189. if This_Player.getv(74,1)=1 then
  190.     begin
  191. This_Player.SetV(0, 1, (Random(6) + 1));
  192. This_Player.SetV(0, 2, (Random(6) + 1));
  193. This_Player.SetV(0, 3, (Random(6) + 1));
  194. This_Player.setv(74,1,0);
  195. This_Npc.PlayDice(This_Player, 3, '@AfterPlayDice'); //注意这里需要@
  196.     end else
  197.     This_Npc.NpcDialog(This_Player,'你没有下注不可以投骰子,请不要重复投骰子!'
  198.         ) ;
  199. end;

  201. function xin(price, num: Integer):boolean;
  202. begin
  203.    result := true;

  205. end;

  207. Begin
  208.   domain;
  209. end.
复制代码


使用道具

娱乐中心战神引擎修复脚本
关闭

72家族网 - 游戏开发者学习平台上一条 /1 下一条

sitemap|版权声明/下架通知|免责声明|隐私条款|sitemap.xml|

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