(2012/8/10)****脚本一

显示全部楼层 · 2012-8-10 16:03:49

(@@InPutInteger @@InPutString )
[@main]
#IF
ISADMIN
#say
尊敬的管理员:『<$USERNAME>』  <城管理/@城管理>\
假如中奖的话,要扣掉5%佣金.你拥有元宝数量:<$GAMEGOLD>元宝\
下面按你的指示选择你要下注的选项.\
赔率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>〗 <清空**数据/@清空**数据>    <开启关闭城/@开启城> \ \ \ \ \ \
　                                                 <返回/@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 城已关闭,请各位玩家等待下次活动时间!
#ELSEACT
MESSAGEBOX 只有管理员才能使用此功能!
[@kaiducn]
#if
ISADMIN
#ACT
mov G76 1
#ACT
mov G77 60
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
设置成功!       <返回/@main>
#ELSEact
messagebox 输入1-6之间的数字正常作弊,输入其他数字作弊失败!!
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 20001
#Act
Set [65] 1
CLEARDELAYGOTO
GameGold - <$STR(N89)>
MOV P66 2
MUL N78 <$STR(N89)> <$STR(P66)>
INC N78 <$STR(N89)>
DIV P78 <$STR(N78)> 20
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-20000之间,你可能元宝数量不足,或你\已经下过注!
[@中]
当前选择〖<中>〗的玩家一共有<$STR(G79)>)人\

当前选择〖<中>〗的注一共有<$STR(G90)>)注\

你拥有元宝数量<$GAMEGOLD>)元宝\ \

<请输入下注元宝数量/@@InPutInteger90>\ \ \
　 <返回/@main>
[@InPutInteger90]
#If
CHECKGAMEGOLD > 1
#Act
DelayGoto 1 ~InPutInteger90
#ELSEAct
MessageBox 你的元宝数量不足!请冲值.
[~InPutInteger90]
#If
Check [65] 0
CHECKGAMEGOLD > <$STR(N90)>
small N90 20001
LARGE N90 1
#Act
Set [65] 1
CLEARDELAYGOTO
GameGold - <$STR(N90)>
mov P65 2
MUL N79 <$STR(N90)> <$STR(P65)>
INC N79 <$STR(N90)>
DIV P79 <$STR(N79)> 20
DEC N79 <$STR(P79)>
inc G79 1
inc G90 <$STR(N90)>
inc G75 1
inc G74 <$STR(N90)>
addnamelist ..\QuestDiary\重要数据\压注名单.txt
SENDMSG 4 『%s』押了(<$STR(N90)>)注〖中〗,买定离手!
#SAY
恭喜你下注成功!\
你押了(<$STR(N90)>)注〖中〗\
赔率〖<$STR(P65)>〗倍,假如中奖的话,扣掉了5%佣金后,你还可以获得(<$STR(N79)>)元宝\
当前选择〖<中>〗的玩家一共有<$STR(G79)>)人\

当前选择〖<中>〗的注一共有

<$STR(G90)>)注\
你剩余的元宝数量

<$GAMEGOLD>)元宝\
<返回/@main>

论坛一条龙