传奇版本猜点赌博脚本添加方法

蔡忠忠

传奇GM爱好者传奇单机游戏游戏中，玩家可以通过在线游戏的赌博方式获得更多的乐趣。以至于在游戏不乏味，添加脚本的步骤有点多，大家注意下每个添加的位置与变量是否重复，不然导致npc没作用，添加脚本步骤如下：
第一步：先添加一个npc
庄家    3     330 320          美女庄家        0       13      0
添加好了以后我们添加相应的脚本.
(@@InPutInteger @@InPutString )
[@main]
#IF
ISADMIN
#say
尊敬的管理员：<$USERNAME>  <赌城管理/@赌城管理>\
<假如中奖的话，要扣掉5%佣金。><你拥有元宝数量>：<$GAMEGOLD>\
下面按你的指示选择你要下注的选项。\
赔率2倍：【<单/@单>】   【<双/@双>】\
赔率3倍：【<大/@大>】   【<中/@中>】   【<小/@小>】\
赔率6倍：【<一点/@一点>】 【<二点/@二点>】 【<三点/@三点>】 【<四点/@四点>】 【<五点/@五点>】 【<六点/@六点>】\ \
离开局时间还剩下<$STR(G77)>秒，请抓紧时间下注！\
<熟悉规则/@熟悉规则>     <查看下注情况/@查看下注情况>             <返回盟重/@返回到盟重>  <关闭窗口/@exit>
#ELSESAY
亲爱的玩家：<$USERNAME>\
<假如中奖的话，要扣掉5%佣金。。><你拥有元宝数量>：<$GAMEGOLD>\
按下面提示选择你要下注的选项\
赔率2倍：【<单/@单>】   【<双/@双>】\
赔率3倍：【<大/@大>】   【<中/@中>】   【<小/@小>】\
赔率6倍：【<一点/@一点>】 【<二点/@二点>】 【<三点/@三点>】 【<四点/@四点>】 【<五点/@五点>】 【<六点/@六点>】\ \
离开局时间还剩下<$STR(G77)>秒，请抓紧时间下注！\
<熟悉规则/@熟悉规则>     <查看下注情况/@查看下注情况>             <返回盟重/@返回到盟重>  <关闭窗口/@exit>
[@赌城管理]
#IF
  ISADMIN
#say
一共有：<$STR(G75)>人次参与了赌博，吃进：<$STR(G74)>元宝，赔出<$STR(G73)>元宝\ \
【<输入你想开的点数/@@InPutInteger71>】   <清空赌场数据/@清空赌场数据>       <开启关闭赌城/@开启赌城> \
【<赢多少元宝以上出红字/@@InPutInteger70>】：<$STR(G70)> 【<还有多少秒投骰子/@@InPutInteger77>】：<$STR(G77)>\<赌场参数查看/@测试> \ \ \ \
　                                                   <返回/@main>
#elseact
messagebox 对不起!!!你不是管理员!!!快点闪开!!!!
[@清空赌场数据]
#IF
  ISADMIN
#act
MOV G73 0
MOV G74 0
MOV G75 0
MOV G78 0
MOV G79 0
MOV G80 0
MOV G81 0
MOV G82 0
MOV G83 0
MOV G84 0
MOV G85 0
MOV G86 0
MOV G87 0
MOV G88 0
MOV G89 0
MOV G90 0
MOV G91 0
MOV G92 0
MOV G93 0
MOV G94 0
MOV G95 0
MOV G96 0
MOV G97 0
MOV G98 0
MOV G99 0
messagebox 清空赌场数据成功！
[@开启赌城]
#if
equal G76 1
#ACT
#SAY
赌城状况为：开启\ \
<关闭赌城/@guanducn>      <返回/@赌城管理>
#ELSESAY
赌城状况为：关闭\ \
<开启赌城/@kaiducn>      <返回/@赌城管理>
[@guanducn]
#if
ISADMIN
#ACT
mov G76 0
#ACT
SENDMSG 0 赌城已关闭，请各位玩家等待下次活动时间！
SENDMSG 0 赌城已关闭，请各位玩家等待下次活动时间！
SENDMSG 0 赌城已关闭，请各位玩家等待下次活动时间！
SENDMSG 0 赌城已关闭，请各位玩家等待下次活动时间！
SENDMSG 0 赌城已关闭，请各位玩家等待下次活动时间！
#ELSEACT
MESSAGEBOX 只有管理员才能使用此功能！
[@kaiducn]
#if
ISADMIN
#ACT
mov G76 1
#ACT
mov G77 60
SENDMSG 0  拉斯维加斯赌城开启！
SENDMSG 0  拉斯维加斯赌城开启！
SENDMSG 0  拉斯维加斯赌城开启！
SENDMSG 0  拉斯维加斯赌城开启！
SENDMSG 0  拉斯维加斯赌城开启！
SENDMSG 0  拉斯维加斯赌城开启！
#ELSEACT
MESSAGEBOX 只有管理员才能使用此功能！
[@InPutInteger71]
#IF
ISADMIN
#Act
DelayGoto 1 ~InPutInteger71
#ELSEsay
嘿嘿，你是骗子吗？
[~InPutInteger71]
#IF
ISADMIN
LARGE N71 0
SMALL N71 7
#Act
mov G71 <$STR(N71)>
#say
设置成功!        <返回/@赌城管理>
#ELSEact
messagebox 输入1-6之间的数字正常作弊，输入其他数字作弊失败！！
goto @main
break
[@InPutInteger70]
#IF
ISADMIN
#Act
DelayGoto 1 ~InPutInteger70
#ELSEsay
嘿嘿，你是骗子吗？
[~InPutInteger70]
#IF
ISADMIN
LARGE N70 0
SMALL N70 10000000
#Act
mov G70 <$STR(N70)>
#say
设置成功!        <返回/@赌城管理>
#ELSEact
messagebox 输入1-10000000之间的数字，输入其他数字操作失败！！
goto @main
break
[@InPutInteger77]
#IF
ISADMIN
#Act
DelayGoto 1 ~InPutInteger77
#ELSEsay
嘿嘿，你是骗子吗？
[~InPutInteger77]
#IF
ISADMIN
LARGE N77 0
SMALL N77 60
#Act
mov G77 <$STR(N77)>
#say
设置成功!        <返回/@赌城管理>
#ELSEact
messagebox 输入1-60之间的数字，输入其他数字操作失败！！
goto @main
break
[@熟悉规则]
#IF
#ACT
messagebox 点击押大中小单双123456输入你想押下的元宝数量\等其他玩家赌注全部下好，由我摇动骰子！\中奖后玩家可获得相应赌注奖金，假如中奖的话，要扣掉5%佣金。\如果开出的点数和玩家下的点数不一致,赌注将不做返还\玩家获胜后系统自动把奖金增加到人物身上，\玩家游戏过程中不可强行退出,也不可以切换地图\不然会导致已投注及奖金无法返还,为了增加中奖率,\希望您记住每次开的数字研究后然后再慎重下赌注！\小赌怡情，娱乐为本，祝愿大家金玉满堂！
[@查看下注情况]
当前这局选择【<大>】的玩家一共有：<$STR(G78)>人，一共有：<$STR(G89)>注\
当前这局选择【<中>】的玩家一共有：<$STR(G79)>人，一共有：<$STR(G90)>注\
当前这局选择【<小>】的玩家一共有：<$STR(G80)>人，一共有：<$STR(G91)>注\
当前这局选择【<单>】的玩家一共有：<$STR(G81)>人，一共有：<$STR(G92)>注\
当前这局选择【<双>】的玩家一共有：<$STR(G82)>人，一共有：<$STR(G93)>注\
当前这局选择【<一点>】的玩家一共有：<$STR(G83)>人，一共有：<$STR(G94)>注\
当前这局选择【<二点>】的玩家一共有：<$STR(G84)>人，一共有：<$STR(G95)>注\
当前这局选择【<三点>】的玩家一共有：<$STR(G85)>人，一共有：<$STR(G96)>注\
　                                           <下一页/@查看下注情况1> <返回/@main>
[@查看下注情况1]
当前这局选择【<四点>】的玩家一共有：<$STR(G86)>人，一共有：<$STR(G97)>注\
当前这局选择【<五点>】的玩家一共有：<$STR(G87)>人，一共有：<$STR(G98)>注\
当前这局选择【<六点>】的玩家一共有：<$STR(G88)>人，一共有：<$STR(G99)>注\ \ \ \ \ \
　                                           <上一页/@查看下注情况> <返回/@main>
　
[@返回到盟重]
#IF
#ACT
mapmove 3 330 330
break
[@大]
当前选择【<大>】的玩家一共有：<$STR(G78)>人\
当前选择【<大>】的赌注一共有：<$STR(G89)>注\
你拥有元宝数量：<$GAMEGOLD>\ \
<点击输入你要选择押大下注的元宝数量/@@InPutInteger89>\ \ \
　                                                    <返回/@main>
[@InPutInteger89]
#If
CHECKGAMEGOLD > 1
#Act
DelayGoto 1 ~InPutInteger89
#ELSEAct
MessageBox 你的元宝数量不足！请冲值。
[~InPutInteger89]
#If
Check [65] 0
CHECKGAMEGOLD > <$STR(N89)>
LARGE N89 1
small N89 10000001
#Act
Set [65] 1
CLEARDELAYGOTO
GameGold - <$STR(N89)>
mov N78 <$STR(N89)>
mov P66 3
MUL N78 <$STR(N78)> <$STR(P66)>
MOV P78 <$STR(N78)>
dec P78 <$STR(N89)>
MUL P78 <$STR(P78)> 5
DIV P78 <$STR(P78)> 100
dec N78 <$STR(P78)>
inc G78 1
inc G89 <$STR(N89)>
inc G75 1
inc G74 <$STR(N89)>
addnamelist ..\QuestDiary\一休数据\酒馆赌博数据.TXT
SENDMSG 4 [%s]押了：<$STR(N89)>注【大】，买定离手！
#SAY
恭喜你下注成功！\
你押了：<$STR(N89)>注【大】，\
赔率<$STR(P66)>倍，假如中奖的话，扣掉了5%佣金后，你还可以获得<$STR(N78)>的元宝\
当前选择【<大>】的玩家一共有：<$STR(G78)>人\
当前选择【<大>】的赌注一共有：<$STR(G89)>注\
你剩余的元宝数量：<$GAMEGOLD>\
<返回/@main>
#ELSEsay
下注的元宝数量应该在2-10000000之间，你可能元宝数量不足，或你\已经下过注！
第二步:
我们还要添加QManage脚本
D:\mirserver\Mir200\Envir\MapQuest_def\QManage.txt
[@NewduboyxGame]
#If
IsOnMap LSWJS
check [65] 1
checknamelist ..\QuestDiary\一休数据\酒馆赌博数据.TXT
#ACT
mov D0 <$STR(G72)>
playdice 1 @cube_cds
break
#IF
IsOnMap LSWJS
#ACT
mov D0 <$STR(G72)>
playdice 1 @dutouzi_ll
#SAY
正在投骰子。。。\ \
[@cube_cds]
#IF
check [65] 0
#ACT
goto @dutouzi_ll
break
;-------------------大中小开始--------
#IF
IsOnMap LSWJS
check [65] 1
equal D0 6
LARGE N89 0
LARGE N78 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N78)>
inc G73 <$STR(N78)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N78)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N78)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
#IF
IsOnMap LSWJS
check [65] 1
equal D0 5
LARGE N89 0
LARGE N78 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N78)>
inc G73 <$STR(N78)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N78)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N78)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
#IF
IsOnMap LSWJS
check [65] 1
equal D0 4
LARGE N90 0
LARGE N79 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N79)>
inc G73 <$STR(N79)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N79)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N79)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
#IF
IsOnMap LSWJS
check [65] 1
equal D0 3
LARGE N90 0
LARGE N79 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N79)>
inc G73 <$STR(N79)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N79)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N79)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
#IF
IsOnMap LSWJS
check [65] 1
equal D0 2
LARGE N91 0
LARGE N80 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N80)>
inc G73 <$STR(N80)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N80)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N80)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
#IF
IsOnMap LSWJS
check [65] 1
equal D0 1
LARGE N91 0
LARGE N80 2
#ACT
CLEARDELAYGOTO
GameGold + <$STR(N80)>
inc G73 <$STR(N80)>
SENDMSG 6 提示：骰子点数为：<$STR(D0)>点！恭喜你中奖，你获得了<$STR(N80)>元宝的奖励！
GuildNoticeMsg 254 249 【<$USERNAME>】在地下赌场赢得<$STR(N80)>元宝，想要发财的快快行动！
goto @dutouzi_cds-lk
break
第三步:
添加机器人的脚本.
D:\mirserver\Mir200\Envir\Robot_def\AutoRunRobot.txt
D:\mirserver\Mir200\Envir\Robot_def\RobotManage.txt
AutoRunRobot.txt添加.
#AutoRun NPC SEC 1 @Newmanmapgame
RobotManage.txt添加.
[@Newmanmapgame]
#IF
LARGE G71 0
SMALL G71 7
equal G77 0
equal G76 1
#ACT
mov G72 <$STR(G71)>
Gmexecute 开始提问  @Newduboyxgame
mov G77 60
break
#IF
equal G77 0
equal G76 1
#ACT
movr G72 6
inc G72 1
Gmexecute 开始提问  @Newduboyxgame
mov G77 60
break
#IF
EQUAL G77 10
equal G76 1
#ACT
;SENDMSG 0 提示：拉斯维加斯还有10秒种开始摇动骰子，要下注的玩家赶快下注！
DEC G77 1
break
#IF
equal G77 58
equal G76 1
#ACT
Gmexecute 开始提问 @NewduboxyGame
DEC G77 1
break
#IF
LARGE G77 0
equal G76 1
#ACT
DEC G77 1
break

煮豆豆

魂牵梦萦地

后来者

希望是完整脚本

常歌

这个帖子不回对不起自己！我想我是一天也不能离开GM爱好者：www.gmahz.com

布山草堂

这东西我收了！谢谢楼主！GM爱好者：www.gmahz.com真好！

卿医生

楼主，大恩不言谢了！GM爱好者：www.gmahz.com是最棒的！

sdlzlsq

我看不错噢 谢谢楼主！GM爱好者：www.gmahz.com越来越好！

街角386

拿币走人。。。。

大美亡川普兴

其实我一直觉得楼主的品味不错！呵呵！GM爱好者：www.gmahz.com太棒了！

xinxin520

楼主太厉害了！楼主，I*老*虎*U！我觉得GM爱好者：www.gmahz.com真是个好地方