[Gm版本库]传奇擂主系列脚本

[@main]
\ \
擂主:<$GLOBAL(摆擂玩家)>\
摆擂元宝:<$GLOBAL(摆擂元宝)>\
<取回摆擂元宝/@取回元宝>       <邀请全服打擂/@全服>
\ \
\ \
<我要挑战/@挑战>        <继续观战/@exit>\
<温馨提示：/SCOLOR=253> <点击回城/@回城>\
<擂主如果要离开擂台.请先取回元宝再回城,否则将收不到元宝！/SCOLOR=253>\



[@回城]
#IF
CHECKVAR GLOBAL 摆擂玩家 = <$USERNAME>
#ACT
MESSAGEBOX  摆擂玩家回城失败！！
BREAK

#IF
CHECKVAR GLOBAL 打擂玩家 = <$USERNAME>
#ACT
MESSAGEBOX  打擂玩家回城失败！！
BREAK

#IF
CHECKLEVELEX > 0
#ACT
mapmove 3 333 333
SetHumAttackMode 1 1


[@全服]
#IF
CHECKVAR GLOBAL 是否打擂 = 1
#ACT
MESSAGEBOX 已经有人打擂了 决定胜负吧！！
BREAK
#IF
checkgamegold > 499
CHECKVAR GLOBAL 摆擂玩家 = <$USERNAME>
#ACT
gamegold - 500
Gmexecute 开始提问 @全服打擂
SENDMSG 7 全服激情令已放出，请等待激情的降临！
SENDMSG 7 全服激情令已放出，请等待激情的降临！
SENDMSG 7 全服激情令已放出，请等待激情的降临！
BREAK
#ELSEACT
MESSAGEBOX 发起激情令需要500元宝.或者你不是摆擂玩家
BREAK


[@取回元宝]

#IF
CHECKVAR GLOBAL 是否打擂 = 1
#ACT
MESSAGEBOX [错误]:已经有人打擂了...决定胜负吧...
BREAK

#IF
CHECKVAR GLOBAL 摆擂玩家 = <$USERNAME>
#ACT
MoveMapPlay leitai 3 333 333
GAMEGOLD + <$GLOBAL(摆擂元宝)>
CALCVAR GLOBAL 摆擂元宝 = 0
CALCVAR GLOBAL 是否打擂 = 0
GuildNoticeMsg 0  146  玩家【%s】取回摆擂元宝...摆擂结束...有兴趣的玩家可以进入摆擂挑战
GuildNoticeMsg 0  146  玩家【%s】取回摆擂元宝...摆擂结束...有兴趣的玩家可以进入摆擂挑战
#ELSEACT
MESSAGEBOX [错误]:你不是摆擂玩家..

[@挑战]

#IF
CHECKVAR GLOBAL 摆擂玩家 = <$USERNAME>
#ACT
MESSAGEBOX  不能挑战自己！！
BREAK


#IF
CHECKVAR GLOBAL 是否打擂 = 1
#ACT
MESSAGEBOX [错误]:已经有人打擂了...
BREAK


#IF
CHECKGAMEGOLD > <$GLOBAL(摆擂元宝)>
#ACT
CALCVAR GLOBAL 是否打擂 = 1
CALCVAR GLOBAL 打擂玩家 = <$USERNAME>
MapMove leitai 23 17
HCALL <$GLOBAL(摆擂玩家)>  @我要打擂
MOV S3 <$GLOBAL(摆擂玩家)>
MOV N99 600
ChangeModeEx 1 1
SetOnTimer 19 1
GAMEGOLD - <$GLOBAL(摆擂元宝)>
CALCVAR GLOBAL 摆擂元宝 + <$GLOBAL(摆擂元宝)>
GuildNoticeMsg 0  146  玩家【%s】成功接受打擂...成王败寇，大家都去围观吧...
GuildNoticeMsg 0  146  玩家【%s】成功接受打擂...成王败寇，大家都去围观吧...
GuildNoticeMsg 0  146  玩家【%s】成功接受打擂...成王败寇，大家都去围观吧...
SetHumAttackMode 0 5