传奇胜者为王脚本-64GM论坛 - Powered by Discuz! Archiver

7ta632m936 发表于 2023-10-3 14:16: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

鸿蒙神器 发表于 2023-11-20 18:28:33

感谢站长分享传奇教程，让我学习到很多知识。

红牛迷失 发表于 2023-11-20 18:28:34

这东西我收了！

弃天龙渊 发表于 2023-11-20 21:55:31

感谢楼主提供这么好的论坛」

龙牌沉默 发表于 2023-11-21 00:40:27

谢谢楼主！喜欢这里的东西，方便又好用！

勇敢牛牛 发表于 2023-11-21 06:37:30

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

万劫连击 发表于 2023-11-21 12:00:48

在这里可以学到很多传奇一条龙开区时遇到的问题。

血战火龙 发表于 2023-11-21 15:34:51

这东西我收了！

漠北双刀 发表于 2023-11-21 21:25:59

新手上路不用愁，碰到传奇架设问题可以来这搜索。

专属合击 发表于 2023-11-21 22:41:55

谢谢楼主！喜欢这里的东西，方便又好用！

页: [1] 2 3 4

传奇版本_GM基地_传奇一条龙_单机服务端下载-64GM论坛's Archiver

传奇胜者为王脚本