传奇版本

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

[复制链接]
查看46535 | 回复9 | 2012-12-19 12:32:27 | 显示全部楼层 |阅读模式
    (@@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
    论坛一条龙
王红 | 2014-6-4 12:54:45 | 显示全部楼层
我只是来赚积分的!
朱欣 | 2014-6-4 12:56:03 | 显示全部楼层
楼主,你腾飞腾飞喊你回家吃饭!
郑鑫 | 2014-6-4 12:33:53 | 显示全部楼层
有钱、有房、有车,人人都想!
彩虹在线 | 2014-6-4 12:46:12 | 显示全部楼层
不是惊喜,是惊吓!
彩虹在线 | 2014-6-4 12:29:27 | 显示全部楼层
谢谢楼主的分享!
goonx | 2015-1-2 08:42:03 | 显示全部楼层
先下载看看~~~!
goonx | 2015-1-2 08:42:46 | 显示全部楼层

楼主辛苦了~~~支持中!!!
pokes2015 | 2015-7-19 11:35:51 | 显示全部楼层
我下下来测试了一下,M2提示“第526行”有错误!挺喜欢这个脚本的,希望楼主帮忙改一下!本人看见变量就头大!!
SJANJEL | 2016-1-23 03:54:37 | 显示全部楼层
A90这个变量怎么弄
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则