[Gm版本库]传奇全服挑战系列脚本

(@@InPutString @@InPutInteger )

[@main]
<你是找人来激情；还是寻求帮助呢？找我你就找对人了/SCOLOR=250>\  \
<给我20000元宝我就能为你在全服叫阵一次！/SCOLOR=253> \  \
<给我20000元宝我就可以为你放出行会支援令！/SCOLOR=250>        <返回盟重/@盟重>\ \
<给我20000元宝我就可以为你放出全服激情令！/SCOLOR=254>        <关    闭/@EXIT> \  \
<发布个人叫阵/@叫阵>    <发布行会支援令/@行会>     <发布全服激情令/@全服>\ \  


[@叫阵]
#IF
checkgamegold > 19999
#SAY
<请你输入被挑战人的名字，然后输入一段挑战内容/SCOLOR=250>\
<如果被挑战人在线，他(她)就会收到您的挑战信息/SCOLOR=253>\
<如果对方不在线，您的挑战自动取消！/SCOLOR=250>\ \
<请输入被挑战人的名字/@@InPutString52>\ \
#ACT
BREAK
#ELSEACT
MESSAGEBOX 你有足够的元宝吗？
BREAK

[@CallInPutString52]
#IF
CheckOnline <$STR(S52)>
#SAY
您输入的名字为[{<$STR(S52)>/SCOLOR=254}]:<对方此时正在线/SCOLOR=253>\
您现在发布挑战申请，对方会及时的收到您的信息！\
核对内容无误后请\ \
<输入个人挑战内容/@@InPutString53>
#ELSESAY
您输入的名字为[{<$STR(S52)>/SCOLOR=254}]:<对方此时已离线/SCOLOR=252>\ \ \
<确定/@EXIT>

[@CallInPutString53]
<您输入的挑战申请内容为：/SCOLOR=250>\ \
{<$STR(S53)>/SCOLOR=250}\ \
<核对内容无误后请点击/SCOLOR=253>\ \
<确定发布/@确定发布4>   挑战申请 \



[@确定发布4]
#IF
#ACT
gamegold - 20000
MOV A102 <$STR(S53)>
MOV A103 <$USERNAME>
HCall <$STR(S52)> @发布个人叫阵
BREAK
#ELSEACT
MESSAGEBOX 你有足够的元宝吗
close
BREAK

[@叫阵1]
#IF
checkgamegold > 4999
#ACT
gamegold - 5000
SENDMSG 0 【<$USERNAME>】说：不要迷恋哥，哥只是个传说！哥在激情殿堂！江湖都有哥的传说！哥杀的不是人！是畜生！世上本没有哥，死在哥刀下的人多了，就开始出现了哥！！
SENDMSG 0 【<$USERNAME>】说：不要迷恋哥，哥只是个传说！哥在激情殿堂！江湖都有哥的传说！哥杀的不是人！是畜生！世上本没有哥，死在哥刀下的人多了，就开始出现了哥！！
goto @main
BREAK
#ELSEACT
MESSAGEBOX 你有足够的元宝吗？还是您没有加入任何行会？
BREAK
                          


[@行会]
#IF
HaveGuild
checkgamegold > 19999
#ACT
gamegold - 20000
MOV A99 <$GUILDNAME>
MOV A98 <$USERNAME>
Gmexecute 开始提问 @行会支援令
SENDMSG 7 行会支援令已放出，请等待你的援军！
SENDMSG 7 行会支援令已放出，请等待你的援军！
SENDMSG 7 行会支援令已放出，请等待你的援军！
BREAK
#ELSEACT
MESSAGEBOX 你有足够的元宝吗？还是您没有加入任何行会？
BREAK


[@全服]
#IF
checkgamegold > 19999
#ACT
gamegold - 20000
MOV A93 <$USERNAME>
Gmexecute 开始提问 @全服激情令
SENDMSG 7 全服激情令已放出，请等待激情的降临！
SENDMSG 7 全服激情令已放出，请等待激情的降临！
SENDMSG 7 全服激情令已放出，请等待激情的降临！
BREAK
#ELSEACT
MESSAGEBOX 你有足够的元宝吗？
BREAK


[@盟重]
#IF
#ACT
mapmove 3 330 330
BREAK