传奇全服挑战脚本

畅游

传奇全服挑战脚本

(@@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