传奇GM教程 胜者为王脚本,非常实用

(@@InPutInteger, @@InPutString)
[@MAIN]
本人【<$USERNAME>】拳打南山敬老院，脚踢北海幼儿园！<阅读游戏规则/@Help>
擂台擂主：【<$STR(A90)>】　等级：【<$STR(G49)>】　行会：【<$STR(A91)>】
挑战之人：【<$STR(A92)>】　等级：【<$STR(G50)>】　行会：【<$STR(A93)>】
挑战抵押的战利品：【<$STR(A94)>】 已经押赢【<$STR(G53)>】个 已经押输【<$STR(G54)>】个
挑战赌金：【<$STR(G51)>】元宝     共可押赢【<$STR(G55)>】个 共可押输【<$STR(G56)>】个
本次擂台离结束时间还有：【<$STR(G52)>】分钟　<开始单挑时记时开始/@MAIN>
<开设擂台/@KaG_1>　<开设赌金/@KaG_2>　╔┅╗╔┅╗╔┅╗╔┅╗
<挑战擂主/@KaG_3>　<取回赌注/@KaG_4>　┇<胜>┇┇<者>┇┇<为>┇┇<王>┇  您所压元宝数
<买擂主赢/@@InPutInteger49>　<买擂主输/@@InPutInteger52>　╚┅╝╚┅╝╚┅╝╚┅╝【<$STR(N44)>】个元宝
[@KaG_4]
#If
EQUAL A95 开始
#Act
SENDMSG 5 [正在比赛中无法取回]
BREAK
#If
EQUAL N46 1
#Act
GIVE <$STR(A94)> 1
SENDMSG 5 [你已经领回了物品【<$STR(A94)>】]
MOV N46 0
MOV A90 无
MOV A91 无
MOV A92 无
MOV A93 无
MOV A94 0
MOV G48 0
MOV G49 0
MOV G50 0
MOV G52 0
MOV N50 0
MOV N51 0
MOV N52 0
GOTO @MAIN
BREAK
#If
EQUAL N47 1
#Act
GAMEGOLD + <$STR(G51)>
SENDMSG 5 [你已经领回了【<$STR(G51)>】个元宝]
MOV G51 0
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
MOV N47 0
MOV A90 无
MOV A91 无
MOV A92 无
MOV A93 无
MOV G48 0
MOV G49 0
MOV G50 0
MOV G52 0
MOV N50 0
MOV N51 0
MOV N52 0
GOTO @tempadd
BREAK
#If
EQUAL N48 1
EQUAL G54 0
#Act
DEC G53 <$STR(N44)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
GAMEGOLD + <$STR(N44)>
MOV N44 0
SENDMSG 5 [你已经领回了【<$STR(N44)>】个元宝]
MOV N48 0
MOV G48 0
MOV N50 0
GOTO @tempadd
BREAK
#If
EQUAL N48 1
large G54 0
#Act
DEC G53 <$STR(N44)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
GAMEGOLD + <$STR(N44)>
MOV N44 0
SENDMSG 5 [你已经领回了【<$STR(N44)>】个元宝]
MOV N48 0
MOV G48 0
MOV N50 0
GOTO @tempadd
BREAK
#If
EQUAL N45 1
EQUAL G53 0
#Act
DEC G54 <$STR(N44)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
GAMEGOLD + <$STR(N44)>
SENDMSG 5 [你已经领回了【<$STR(N44)>】个元宝]
MOV N44 0
MOV N45 0
MOV G48 0
MOV N50 0
GOTO @tempadd
BREAK
#If
EQUAL N45 1
large G53 0
#Act
DEC G54 <$STR(N44)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
GAMEGOLD + <$STR(N44)>
SENDMSG 5 [你已经领回了【<$STR(N44)>】个元宝]
MOV N44 0
MOV N45 0
MOV G48 0
MOV N50 0
GOTO @tempadd
BREAK
#ELSEACT
SENDMSG 5 [你已经取回了你的物品和元宝，或你根本就没压注]
GOTO @MAIN
BREAK
[@InPutInteger52]
#If
CheckLevelEx > 0
large N52 0
#Act
DelayGoto 1 ~InPutInteger52
#elseact
messagebox 输入的数字必须大于0
[~InPutInteger52]
#IF
EQUAL A90 <$USERNAME>
#ACT
SENDMSG 5 [你已经是擂主了，请不要自己赌自己]
MOV N52 0
GOTO @MAIN
BREAK
#IF
EQUAL N48 1
#ACT
SENDMSG 5 [你已经购买了擂主赢，将无法购买擂主输]
GOTO @MAIN
BREAK
#IF
EQUAL A92 <$USERNAME>
#ACT
SENDMSG 5 [你已经是擂台挑战者了，请不要自己赌自己]
MOV N52 0
GOTO @MAIN
BREAK
#IF
LARGE N52 <$STR(G56)>
#ACT
MOV N52 0
MESSAGEBOX [提示]：对不起，擂主的本钱已达到上限不够赔了。　　　　目前你只可以下注【<$STR(G56)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(N52)>
#ACT
SENDMSG 5 [你身上的元宝不足<$STR(N52)>个]
MOV N52 0
GOTO @MAIN
BREAK
#If
#ACT
INC G54 <$STR(N52)>
GAMEGOLD - <$STR(N52)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
MOV S33 输
MOV N45 1
MOV G48 1
MOV N50 <$STR(N52)>
SENDMSG 5 [成功下注【<$STR(N50)>】押擂主【<$STR(S33)>】]
INC N44 <$STR(N52)>
MOV N52 0
GOTO @tempadd
BREAK
#ELSEACT
SENDMSG 5 [你已经支付了【<$STR(N50)>】元宝购买擂主【<$STR(S33)>】无法重复下注]
MOV N52 0
GOTO @MAIN
BREAK
[@InPutInteger49]
#If
CheckLevelEx > 0
large N49 0
#Act
DelayGoto 1 ~InPutInteger49
#elseact
messagebox 输入的数字必须大于0
[~InPutInteger49]
#IF
EQUAL A90 <$USERNAME>
#ACT
SENDMSG 5 [你已经是擂主了，请不要自己赌自己]
MOV N49 0
GOTO @MAIN
BREAK
#IF
EQUAL N45 1
#ACT
SENDMSG 5 [你已经购买了擂主输，将无法购买擂主赢]
GOTO @MAIN
BREAK
#IF
EQUAL A92 <$USERNAME>
#ACT
SENDMSG 5 [你已经是擂台挑战者了，请不要自己赌自己]
MOV N49 0
GOTO @MAIN
BREAK
#IF
LARGE N49 <$STR(G55)>
#ACT
MOV N49 0
MESSAGEBOX [提示]：对不起，擂主的本钱已达到上限不够赔了。　　　　目前你只可以下注【<$STR(G55)>】以下的元宝！
GOTO @MAIN
BREAK
#IF
CHECKGAMEGOLD < <$STR(G55)>
#ACT
SENDMSG 5 [你身上的元宝不足<$STR(N49)>个]
MOV N49 0
GOTO @MAIN
BREAK
#If
#ACT
INC G53 <$STR(N49)>
GAMEGOLD - <$STR(N49)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G53)>
dec N43 <$STR(G54)>
mov G56 <$STR(N43)>
mov N43 0
mov N43 <$STR(G51)>
inc N43 <$STR(G54)>
dec N43 <$STR(G53)>
mov G55 <$STR(N43)>
MOV S33 赢
MOV N48 1
MOV G48 1
MOV N50 <$STR(N49)>
SENDMSG 5 [成功下注【<$STR(N50)>】押擂主【<$STR(S33)>】]
INC N44 <$STR(N49)>
MOV N49 0
GOTO @tempadd
BREAK
#ELSEACT
SENDMSG 5 [你已经支付了【<$STR(N50)>】元宝购买擂主【<$STR(S33)>】无法重复下注]
MOV N49 0
GOTO @MAIN
BREAK
[@tempadd]
#if
equal G54 0
equal G53 0
#act
goto @main
BREAK
#if
equal G54 0
#act
inc G56
dec G55
goto @main
BREAK
#if
equal G53 0
#act
inc G55
dec G56
goto @main
BREAK
#elseact
goto @main
[@KaG_2]
#IF
EQUAL A90 <$USERNAME>
#SAY
擂台擂主可以开设赌金，全服所有玩家都可以下注卖你输赢！
赌金最少不能低于1000元宝，全服玩家下注输掉的赌金在你摆擂
结束后将全部归你所有，当然全服玩家下注赢得的元宝也要在你
的赌金里扣。下注只有两个选择，擂主赢或者擂主输！
你明白开设赌金的规则了吗？
<明白了，立刻开设赌金/@@InPutInteger51>
<返回前页/@MAIN>
<离开/@EXIT>
#ELSEACT
SENDMSG 5 [你不是擂台擂主，无法开设赌金]
GOTO @MAIN
BREAK
[@InPutInteger51]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutInteger51
[~InPutInteger51]
#IF
LARGE G51 0
#ACT
SENDMSG 5 [你已经支付了<$STR(G51)>元宝作为赌金了]
MOV N51 0
GOTO @MAIN
BREAK
#IF
SMALL N51 1000
#ACT
SENDMSG 5 [开设赌金需要拿出1000以上的元宝作为本钱]
MOV N51 0
GOTO @MAIN
BREAK

#IF
CHECKGAMEGOLD < <$STR(N51)>
#ACT
SENDMSG 5 [你身上的元宝不足<$STR(N51)>个]
MOV N51 0
GOTO @MAIN
BREAK
#IF
EQUAL A90 <$USERNAME>
EQUAL G53 0
EQUAL G54 0
#ACT
GAMEGOLD - <$STR(N51)>
MOV G51 <$STR(N51)>
MOV G55 <$STR(N51)>
MOV G56 <$STR(N51)>
MOV N51 0
MOV N47 1
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
SENDMSG 0 【<$STR(A90)>】使用【<$STR(G51)>】元宝开设了擂台赌金！
SENDMSG 0 【公告】全服玩家可以在胜者为王NPC处买擂主【<$STR(A90)>】输赢
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
GOTO @MAIN
BREAK
#ELSEACT
GOTO @yydz
[@yydz]
#IF
large G53 <$STR(G54)>
#ACT
MOV N41 <$STR(G53)>
DEC N41 <$STR(G54)>
GOTO @yydzx
BREAK
#IF
large G54 <$STR(G53)>
#ACT
MOV N41 <$STR(G54)>
DEC N41 <$STR(G53)>
GOTO @yydzx
BREAK
#IF
equal G54 <$STR(G53)>
#ACT
MOV N41 <$STR(G54)>
GOTO @yydzx
BREAK
#ELSEACT
SENDMSG 5 [你不是擂台擂主，无法开设赌金]
GOTO @MAIN
BREAK
[@yydzx]
#IF
large N51 <$STR(N41)>
#ACT
GAMEGOLD - <$STR(N51)>
MOV G51 <$STR(N51)>
MOV G55 <$STR(N51)>
MOV G56 <$STR(N51)>
MOV N51 0
MOV N47 1
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
SENDMSG 0 【<$STR(A90)>】使用【<$STR(G51)>】元宝开设了擂台赌金！
SENDMSG 0 【公告】全服玩家可以在胜者为王NPC处买擂主【<$STR(A90)>】输赢
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
GOTO @MAIN
BREAK
#ELSEACT
MESSAGEBOX 由于上次擂主未开始比赛就已经取回了赌注所以这次开设赌金起码大于<$STR(N41)>个元宝
BREAK

[@KaG_3]
#IF
EQUAL A90 无
#SAY
暂时还没人设擂摆台，要不你试试摆个擂台吧。
<开设擂台/@KaG_1>
<看看擂台规则/@Help>
<返回前页/@MAIN>
<离开/@EXIT>
#Act
BREAK
#If
LARGE N50 0
#ACT
SENDMSG 5 [你已经支付了【<$STR(N50)>】元宝购买擂主【<$STR(S33)>】无法成为挑战者]
GOTO @MAIN
BREAK
#IF
EQUAL A90 <$USERNAME>
#ACT
SENDMSG 5 [你已经是擂主了，请不要自己挑战自己]
GOTO @MAIN
BREAK
#IF
CheckLevelEx < 50
#ACT
SENDMSG 5 [你的级别低于50级，无法挑战擂主]
GOTO @MAIN
BREAK
#IF
Checkitem <$STR(A94)> 1
EQUAL A92 无
#ACT
Take <$STR(A94)> 1
MOV A92 <$USERNAME>
MOV A93 <$GUILDNAME>
MOV G50 <$LEVEL>
MAP DTPK
GMEXECUTE 传唤 <$STR(A90)>
MOV A95 开始
MOV G52 10
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
SENDMSG 0 【<$STR(A92)>】抵押宝物【<$STR(A94)>】挑战擂主【<$STR(A90)>】
SENDMSG 0 【公告：】【<$STR(A90)>】和【<$STR(A92)>】开始单挑啦！
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
Close
BREAK
#ELSEACT
SENDMSG 5 [你的包裹里没有【<$STR(A94)>】做抵押或者已经有了另外挑战者]
GOTO @MAIN
BREAK
[@KaG_1]
#IF
EQUAL A90 无
#SAY
本人【<$USERNAME>】拳打南山养老院，脚踢北村幼儿园！
今日摆擂迎接全天下挑战者。我将拿出一件宝物作为战利品！
打败我的人可以拿走我的宝物，输的人请你留下你的宝物。
<使用物品作为战利品/@@InPutString32>
<看看擂台规则/@Help>
<返回前页/@MAIN>
<离开/@EXIT>
#ELSESAY
目前【<$STR(A90)>】已经摆下了擂台。
你可以选择挑战【<$STR(A90)>】，赢得战利品【<$STR(A94)>】
你也可以下注买擂主赢输，下注的前提是擂主拿出了挑战赌金！
<返回前页/@MAIN>
<离开/@EXIT>
[@InPutString32]
#If
CheckLevelEx > 0
#Act
DelayGoto 1 ~InPutString32
[~InPutString32]
#IF
CheckLevelEx < 50
#ACT
MOV S32
SENDMSG 5 [你的级别低于50级，无法开设擂台]
GOTO @MAIN
BREAK
#IF
EQUAL A90 无
CheckLevelEx > 49
Checkitem <$STR(S32)> 1
#ACT
Take <$STR(S32)> 1
MOV A90 <$USERNAME>
MOV A91 <$GUILDNAME>
MOV G49 <$LEVEL>
MOV A94 <$STR(S32)>
MOV N46 1
SETOFFLINEFUNC @xxcf
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
SENDMSG 0 【<$STR(A90)>】设下擂台，使用宝物【<$STR(A94)>】作为战利品！
SENDMSG 0 【公告：】要挑战擂主【<$STR(A90)>】请到盟重胜者为王NPC处挑战！
SENDMSG 0 ★┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈★
GOTO @MAIN
BREAK
#ELSEACT
SENDMSG 5 [你的包裹里没有【<$STR(S32)>】无法抵押]
MOV S32
GOTO @KaG_1
BREAK
[@Help]
摆擂迎接全天下挑战者。必须要先拿出一件宝物作为战利品！成
为擂台擂主后可以开设赌金，全服玩家都可以下注赌擂主是输是
赢！挑战者要挑战擂主时必须拥有和擂主拿出的宝物相同的物品
做抵押，开始挑战后，倒计时10分钟开始，在时间内谁先将对方
杀死算谁赢，并赢得对方抵押的宝物。到10分钟后还未能分出胜
负的算平局。所抵押的物品归还给双方。赌博收取10%手续费！
<注意：中途下线视作自动放弃比赛，自动认输！下注押擂主输赢>
<的玩家中途下线视作自动放弃本局输赢！不能使用极品属性的装>
<备赌博，否则归还的将是正常属性装备。>　　　　　　　　<返回/@MAIN>
[@IsInFilterList]
#If
CheckLevelEx > 0
#Act
MessageBox 输入数据中包含了非法字符。请重新编辑。
Goto @Main
Break