传奇版本斗牛脚本

gmbbs醉后知酒浓

[@main]
#IF
IsAdmin
#SAY
┏━<游戏说明/@游戏说明>━┓ 〓〓〓〓〓〓〓<激烈的斗牛比赛>〓〓<初始化/@初始化>〓〓　\
┃            ┃【<$USERNAME>】你所拥有的元宝：【<$GAMEGOLD>】　\
┃  <我来坐庄[url=]/@@InPutInteger36[/url]>  ┃ <$STR(A60)>成本：【<$STR(I25)>】\
┃            ┃ 压注甲方的总共人数：【<$STR(I15)>】　\
┃  <压注甲方[url=]/@@InPutInteger30[/url]>  ┃ 压注乙方的总共人数：【<$STR(I17)>】　\
┃            ┃ 压注甲方的总元宝数：【<$STR(I14)>】　\
┃  <压注乙方[url=]/@@InPutInteger32[/url]>  ┃ 压注乙方的总元宝数：【<$STR(I16)>】　\
┃            ┃ 你将【<$STR(N34)>】个元宝下注在【<$STR(S23)>】　\
┗━<返回盟重/@返回盟重>━┛ 开始斗牛比赛还差【<$STR(I10)>】秒　<甲/@甲>  <乙/@乙>  <刷新[url=]/@MAIN[/url]> <$STR(I20)> <$STR(I24)>\
#ELSESAY
┏━<游戏说明/@游戏说明>━┓ 〓〓〓〓〓〓〓<激烈的斗牛比赛>〓〓〓〓〓〓〓　\
┃            ┃【<$USERNAME>】你所拥有的元宝：【<$GAMEGOLD>】　\
┃  <我来坐庄[url=]/@@InPutInteger36[/url]>  ┃ <$STR(A60)>成本：【<$STR(I25)>】\
┃            ┃ 压注甲方的总共人数：【<$STR(I15)>】　\
┃  <压注甲方[url=]/@@InPutInteger30[/url]>  ┃ 压注乙方的总共人数：【<$STR(I17)>】　\
┃            ┃ 压注甲方的总元宝数：【<$STR(I14)>】　\
┃  <压注乙方[url=]/@@InPutInteger32[/url]>  ┃ 压注乙方的总元宝数：【<$STR(I16)>】　\
┃            ┃ 你将【<$STR(N34)>】个元宝下注在【<$STR(S23)>】　\
┗━<返回盟重/@返回盟重>━┛ 开始斗牛比赛还差【<$STR(I10)>】秒　   <刷新[url=]/@MAIN>\[/url]
[@甲]
#IF
IsAdmin
#ACT
MOV I20 1
GOTO @main
SENDMSG 6 将甲方的胜率晋升了！！！！！！！！

[@乙]
#IF
IsAdmin
#ACT
MOV I20 2
GOTO @main
SENDMSG 6 将乙方的胜率晋升了！！！！！！！！

[@返回盟重]
#IF
#ACT
MapMove 3 330 330
BREAK

[@InPutInteger36]
#IF
CheckLevelEx > 0
#ACT
MOVR N25 100 3000
DelayGoto <$str(N25)> @Integer36

[@Integer36]
#IF
EQUAL I32 1
#ACT
MOV N36 0
SendMSG 5 [提示]：别人正在下注。请等待再下注！
#ELSEACT
MOV I32 1
GOTO ~Integer36
DelayGoto 500 @jiekai36

[@jiekai36]
#ACT
MOV I32 0

[~Integer36]
#IF
SMALL I18 3
#ACT
MOV N36 0
MOV I32 0
SENDMSG 5 [提示]：抢庄时间已经结束。你可以下注或等待新开局！
GOTO @main
BREAK

#IF
EQUAL A61 <$USERNAME>
#ACT
MOV N36 0
MOV I32 0
SENDMSG 5 [提示]：你目前已经是庄家，无法重复坐庄。
GOTO @main
BREAK

#IF
EQUAL M44 2
#ACT
MOV N36 0
MOV I32 0
SENDMSG 5 [提示]：你已经下注甲方，无法再抢庄！
GOTO @main
BREAK

#IF
EQUAL M44 3
#ACT
MOV N36 0
MOV I32 0
SENDMSG 5 [提示]：你已经下注乙方，无法再抢庄！
GOTO @main
BREAK

#IF
SMALL N36 100
#ACT
SENDMSG 5 [提示]：请输入100以上的数值！
MOV N36 0
MOV I32 0
GOTO @main
BREAK

#IF
CHECKGAMEGOLD < <$STR(N36)>
#ACT
SENDMSG 5 [提示]：你身上的元宝不足。
MOV N36 0
MOV I32 0
GOTO @main
BREAK

#IF
EQUAL I25 0
#ACT
GAMEGOLD - <$STR(N36)>
MOV I25 <$STR(N36)>
MOV I26 <$STR(N36)>
MOV I27 <$STR(N36)>
MOV A61 <$USERNAME>
MOV A60 现在的庄家是【
INC A60 <$STR(A61)>
INC A60 】
MOV I32 0
SendMSG 0 %s　使用<$STR(N36)>个元宝坐庄。
SendMSG 0 有<$STR(I18)>秒的抢庄时间，需要抢庄的抓紧时间!<$STR(I18)>秒后闲家开始下注！
SENDMSG 5 [提示]：使用【<$STR(N36)>】个元宝坐庄。
MOV N36 0
GOTO @main
BREAK

#IF
LARGE N36 <$STR(I25)>
#ACT
MOV I35 <$STR(I25)>
MOV A64 <$STR(A61)>
HCall <$STR(A64)> @斗牛被人抢庄
GAMEGOLD - <$STR(N36)>
MOV I25 <$STR(N36)>
MOV I26 <$STR(N36)>
MOV I27 <$STR(N36)>
MOV A61 <$USERNAME>
MOV A60 现在的庄家是【
INC A60 <$STR(A61)>
INC A60 】
MOV I32 0
SendMSG 0 %s　使用<$STR(N36)>个元宝抢得斗牛比赛的庄家！
SENDMSG 5 [提示]：使用【<$STR(N36)>】个元宝抢庄成功。
MOV N36 0
GOTO @main
BREAK
#ELSEACT
SENDMSG 5 [提示]：你必需出多于【<$STR(I25)>】个元宝才能抢庄。
MOV N36 0
MOV I32 0
GOTO @main
BREAK

[@InPutInteger30]
#IF
CheckLevelEx > 0
#ACT
MOVR N25 100 3000
DelayGoto <$str(N25)> @Integer30

[@Integer30]
#IF
EQUAL I33 1
#ACT
MOV N30 0
SendMSG 5 [提示]：别人正在下注。请等待再下注！
#ELSEACT
MOV I33 1
GOTO ~Integer30
DelayGoto 500 @jiekai30

[@jiekai30]
#ACT
MOV I33 0

[~Integer30]
#IF
LARGE I18 0
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：现在是抢庄时间，稍等一下才能下注！
GOTO @main
BREAK

#IF
EQUAL A61 <$USERNAME>
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：你目前已经是庄家，不能在闲家下注！
GOTO @main
BREAK

#IF
SMALL I10 3
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：下注时间已过，不能下注，等这把斗完才能下注！
GOTO @main
BREAK

#IF
LARGE N30 <$STR(I26)>
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：对不起，庄家的成本已达到上限不够赔了。\目前你只可以下注【<$STR(I26)>】以下的元宝！
GOTO @main
BREAK

#IF
SMALL N30 10
#ACT
SENDMSG 5 [提示]：下注下限不能少于10个元宝,请重新下注！
MOV N30 0
MOV I33 0
GOTO @main
BREAK

#IF
LARGE N30 <$STR(I25)>
#ACT
SENDMSG 5 [提示]：下注上限不能多过10000个元宝,请重新下注！
MOV N30 0
MOV I33 0
GOTO @main
BREAK

#IF
CHECKGAMEGOLD < <$STR(N30)>
#ACT
SENDMSG 5 [提示]：你身上的元宝不足。
MOV N30 0
MOV I33 0
GOTO @main
BREAK

#IF
EQUAL M44 3
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：你已经下注乙方，不能在甲方下注了！
GOTO @main
BREAK
#IF
EQUAL M44 2
#ACT
MOV N30 0
MOV I33 0
SENDMSG 5 [提示]：你已经下注甲方，不能在甲方重复下注！
GOTO @main
#ELSEACT
MOV S23 甲方
MOV M44 2
MOV N31 <$STR(N30)>
MOV N34 <$STR(N31)>
GAMEGOLD - <$STR(N34)>
INC I14 <$STR(N31)>
INC I15 1
DEC I26 <$STR(N31)>
MOV I8 1
MOV I33 0
MOV N30 0
SENDMSG 6 你将<$STR(N34)>个元宝下注到【<$STR(S23)>】！祝你好运！！
GOTO @MAIN
[@InPutInteger32]
#IF
CheckLevelEx > 0
#ACT
MOVR N25 100 3000
DelayGoto <$str(N25)> @Integer32
[@Integer32]
#IF
EQUAL I34 1
#ACT
MOV N32 0
SendMSG 5 [提示]：别人正在下注。请等待再下注！
#ELSEACT
MOV I34 1
GOTO ~Integer32
DelayGoto 500 @jiekai32
[@jiekai32]
#ACT
MOV I34 0
[~Integer32]
#IF
LARGE I18 0
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：现在是抢庄时间，稍等一下才能下注！
GOTO @main
BREAK

#IF
EQUAL A61 <$USERNAME>
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：你目前已经是庄家，不能在闲家下注！
GOTO @main
BREAK

#IF
SMALL I10 3
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：下注时间已过，不能下注，等这把斗完才能下注！
GOTO @main
BREAK

#IF
LARGE N32 <$STR(I27)>
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：对不起，庄家的成本已达到上限不够赔了。\目前你只可以下注【<$STR(I27)>】以下的元宝！
GOTO @main
BREAK
#IF
SMALL N32 10
#ACT
SENDMSG 5 [提示]：下注下限不能少于10个元宝,请重新下注！
MOV N32 0
MOV I34 0
GOTO @main
BREAK
#IF
LARGE N32 <$STR(I25)>
#ACT
SENDMSG 5 [提示]：下注上限不能多过10000个元宝,请重新下注！
MOV N32 0
MOV I34 0
GOTO @main
BREAK
#IF
CHECKGAMEGOLD < <$STR(N32)>
#ACT
SENDMSG 5 [提示]：你身上的元宝不足。
MOV N32 0
MOV I34 0
GOTO @main
BREAK

#IF
EQUAL M44 2
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：你已经下注甲方，不能在乙方下注了！
GOTO @main
BREAK

#IF
EQUAL M44 3
#ACT
MOV N32 0
MOV I34 0
SENDMSG 5 [提示]：你已经下注乙方，不能在乙方重复下注！
GOTO @main
#ELSEACT
MOV S23 乙方
MOV M44 3
MOV N33 <$STR(N32)>
MOV N34 <$STR(N33)>
GAMEGOLD - <$STR(N34)>
INC I16 <$STR(N33)>
INC I17 1
DEC I27 <$STR(N33)>
MOV I8 1
MOV I34 0
MOV N32 0
SENDMSG 6 你将<$STR(N34)>个元宝下注到【<$STR(S23)>】！祝你好运！！
GOTO @MAIN
[@游戏说明]
1) 假如只有一个玩家下注，2分钟后系统坐庄和下注的玩家比赛！　\
2) 下注的限制在10个元宝--10000个元宝之间！！　\
3) 下注的玩家下线将被视做弃权，损失下注元宝。　\
4) 比赛获胜的赔率是：买一赔一  假如甲乙同时战死算庄家赢！！  　\
5) 比赛不限制介入者数目，介入的玩家越多越好！！！　\
6) 两只斗牛比赛，最后没死的为胜方！同时战死算庄家赢！　\
7) 玩家下注完后可以留下观看比赛，也可以去做别的事情！　\
8) 赢方要交纳10%的税务！\
<返回[url=]/@main[/url]>　　<离开[url=]/@EXIT[/url]>
[@初始化]
#IF
IsAdmin
#ACT
MOV I8 0
MOV I9 2
MOV I10 120
MOV I14 0
MOV I15 0
MOV I16 0
MOV I17 0
MOV I18 60
MOV I19 0
MOV I20 0
MOV I21 0
MOV I22 0
MOV I23 0
MOV I24 0
MOV I25 0
MOV I26 0
MOV I27 0
MOV I28 0
MOV I32 0
MOV I33 0
MOV I34 0
MOV N30 0
MOV N31 0
MOV N32 0
MOV N33 0
MOV N34 0
MOV N35 0
MOV M44 0
MOV S23
MOV S24 <$USERNAME>
MOV A60 现在的庄家是【暂无】
MOV A61
CLEARMAPMON  douniu
MapMove douniu 35 28
MONGENEX douniu 34 28 斗牛(甲)|0|255 0 1
MONGENEX douniu 37 28 斗牛(乙)|0|255 0 1
AUTOGOTOXY 36 28
SENDMSG 6 斗牛初始化完成，你现在处于离线挂机状态！！
SendMSG 0 --------------------------------------------------------------
SendMSG 0 　　　　　　　　　现在是抢庄时间，请抓紧时间！　　　　　　　　
SendMSG 0 --------------------------------------------------------------
;OFFLINEPLAY 14400 1
[@IsInFilterList]
#ACT
SENDMSG 5 [错误]：输入数据中包含了非法字符，请重新编纂

棠尴

无论是不是沙发都得回复下

逄娅智

LZ帖子不给力，勉强给回复下吧

仁涔禀

没人回帖。。。我来个吧

俩撮谕

支持你哈...................................

注右

鼎力支持！！

店砝

我只是路过打酱油的。

美诽

我擦！我要沙发！

毛琴

鄙视楼下的顶帖没我快，哈哈

czlfvlpkoi

LZ帖子不给力，勉强给回复下吧