传奇PK元(2012/8/24)宝脚本

[@main]
英雄合击欢迎使用自由PK擂台！\
请选择你要用于挑战赛的注类型？\\
使用<金币进行/@金币>挑战.\
使用<元宝进行/@元宝>挑战.\
使用<经验进行/@经验>挑战.\
使用<声望进行/@声望>挑战.\

[@金币]
#IF
#ACT
MOV P9 1
MOV S29 金币
goto @开始挑战
break

[@元宝]
#IF
#ACT
MOV P9 2
MOV S29 元宝
goto @开始挑战
break

[@经验]
#IF
#ACT
MOV P9 3
MOV S29 经验值
goto @开始挑战
break

[@声望]
#IF
#ACT
MOV P9 4
MOV S29 声望点
goto @开始挑战
break


[@开始挑战]
#if
checkhum F019 1
#aCT
SENDMSG 4 [失败:]当前PK擂台已经有人在进行打擂，请稍后再试！\
break

#IF
EQUAL G10 0
#ACT
queryvalue 请输入你要下的注数量 2 8 30
#ELSEACT
SENDMSG 4 [失败:]刚才有人使用了挑战功能！你需要在10秒后才能使用！\
break

[@getstring30]
#ACT
Getstring s30
goto @检查数量

[@检查数量]
#IF
EQUAL P9 1
#ACT
goto @检查金币
break

#IF
EQUAL P9 2
#ACT
goto @检查元宝
break

#IF
EQUAL P9 3
#ACT
goto @检查经验
break

#IF
EQUAL P9 4
#ACT
goto @检查声望
break

[@检查金币]
#IF
CHECKGOLD $STR(S30)
#ACT
goto @输入名字
#ELSEACT
SENDMSG 4 [失败:]你当前所拥有的金币数量没有你输入的那么多！\
break

[@检查元宝]
#IF
CHECKGAMEGOLD > $STR(S30)
#ACT
goto @输入名字
#ELSEACT
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有你输入的那么多！\
break

[@检查经验]
#IF
CHECKEXP > $STR(S30)
#ACT
goto @输入名字
#ELSEACT
SENDMSG 4 [失败:]你当前所拥有的经验数量没有你输入的那么多！\
break

[@检查声望]
#IF
CHECKCREDITPOINT > $STR(S30)
#ACT
goto @输入名字
#ELSEACT
SENDMSG 4 [失败:]你当前所拥有的声望数量没有你输入的那么多！\
break


[@输入名字]
#IF
EQUAL G10 0
#ACT
queryvalue 请输入你要挑战玩家的名字 2 50 31
#ELSEACT
SENDMSG 4 [失败:]刚才有人使用了挑战功能！你需要在10秒后才能使用！\
break

[@getstring31]
#ACT
Getstring s31
goto @检查在线否


[@检查在线否]
#IF
CHECKONLINE $STR(s31)
#ACT
MOV S32 $USERNAME
MOV G10 1
MOV G9 P9
hcall $STR(s31) @ttt1
delay 10 @结束
#SAY
你已经成功的向: <$STR(s31)> 发出了挑战要求！\
本次挑战活动所下注类型是:<$STR(S29)>:数量:<$STR(S30)>点.\
如果挑战开始后你战胜了对方.你将获得以上数量的注.\
如果挑战开始后你失败给对方.你将损失以上数量的注.\\
本挑战页面将在10秒后失效！请等待对方的同意...\
#ELSESAY
<$STR(s31)>当前不在线！\
挑战不能进行！\

[@结束]
#IF
#SAY
　 \
#ACT
MOV G10 0
close


;==================================================================



[@ttt1]
#IF
#ACT
delay 10 @结束
#SAY
PK挑战台通知:\
侠客: <$STR(s32)> 向你提出了单挑PK挑战要求！\
本次挑战活动对方所下注类型是:<$STR(S29)>:数量:<$STR(S30)>点.\
如果接受挑战并战胜了对方.你将获得以上数量的注.\
如果接受挑战并失败给对方.你将损失以上数量的注.\\
<我接受挑战/@我接受>. <我拒绝挑战/@结束>.\
本挑战通知将在10秒后失效！请尽快做出决定！\

[@结束]
#IF
#SAY
　 \
#ACT
MOV G10 0
close

[@我接受]
#IF
CHECKONLINE $STR(s32)
#ACT
goto @检查类型
#ELSEACT
SENDMSG 4 [失败:]挑战者已经自行放弃挑战！已经离线！\
break
close

[@检查类型]
#IF
EQUAL G9 1
#ACT
goto @检查金币1
break

#IF
EQUAL G9 2
#ACT
goto @检查元宝1
break

#IF
EQUAL G9 3
#ACT
goto @检查经验1
break

#IF
EQUAL G9 4
#ACT
goto @检查声望1
break

[@检查金币1]
#IF
CHECKGOLD $STR(S30)
#ACT
TAKE 金币 $STR(S30)
hcall $STR(s32) @ttt2
mapmove F019
#ELSEACT
hcall $STR(s32) @ttt3
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的金币数量没有挑战所下注那么多！\
break
close

[@检查元宝1]
#IF
CHECKGAMEGOLD > $STR(S30)
#ACT
GAMEGOLD - $STR(S30)
hcall $STR(s32) @ttt2
mapmove F019
#ELSEACT
hcall $STR(s32) @ttt3
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有挑战所下注那么多！\
break
close

[@检查经验1]
#IF
CHECKEXP > $STR(S30)
#ACT
CHANGEEXP - $STR(S30)
hcall $STR(s32) @ttt2
mapmove F019
#ELSEACT
hcall $STR(s32) @ttt3
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的经验数量没有挑战所下注那么多！\
break
close

[@检查声望1]
#IF
CHECKCREDITPOINT > $STR(S30)
#ACT
CREDITPOINT - $STR(S30)
hcall $STR(s32) @ttt2
mapmove F019
#ELSEACT
hcall $STR(s32) @ttt3
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的声望数量没有挑战所下注那么多！\
break
close


[@ttt2]
#IF
EQUAL G9 1
#ACT
goto @检查金币2
break

#IF
EQUAL G9 2
#ACT
goto @检查元宝2
break

#IF
EQUAL G9 3
#ACT
goto @检查经验2
break

#IF
EQUAL G9 4
#ACT
goto @检查声望2
break

[@检查金币2]
#IF
CHECKGOLD $STR(S30)
#ACT
TAKE 金币 $STR(S30)
mapmove F019
#ELSEACT
hcall $STR(s31) @ttt4
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的金币数量没有挑战所下注那么多！\
break
close

[@检查元宝2]
#IF
CHECKGAMEGOLD > $STR(S30)
#ACT
GAMEGOLD - $STR(S30)
mapmove F019
#ELSEACT
hcall $STR(s31) @ttt4
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有挑战所下注那么多！\
break
close

[@检查经验2]
#IF
CHECKEXP > $STR(S30)
#ACT
CHANGEEXP - $STR(S30)
mapmove F019
#ELSEACT
hcall $STR(s31) @ttt4
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的经验数量没有挑战所下注那么多！\
break
close

[@检查声望2]
#IF
CHECKCREDITPOINT > $STR(S30)
#ACT
CREDITPOINT - $STR(S30)
mapmove F019
#ELSEACT
hcall $STR(s31) @ttt4
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的声望数量没有挑战所下注那么多！\
break
close


[@ttt3]
　 \
对不起！<$STR(s31)>.当前的:<$STR(S29)>:不够:<$STR(S30)>点.\
挑战活动失败！\

[[@ttt4]
#IF
EQUAL G9 1
#ACT
goto @检查金币3
break

#IF
EQUAL G9 2
#ACT
goto @检查元宝3
break

#IF
EQUAL G9 3
#ACT
goto @检查经验3
break

#IF
EQUAL G9 4
#ACT
goto @检查声望3
break

[@检查金币3]
#IF
#ACT
mapmove 0 471 215
give 金币 $STR(S30)
MOV G10 0
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
break
close

[@检查元宝3]
#IF
#ACT
mapmove 0 471 215
GAMEGOLD + $STR(S30)
MOV G10 0
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
break
close

[@检查经验3]
#IF
#ACT
mapmove 0 471 215
CHANGEEXP + $STR(S30)
MOV G10 0
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
break
close

[@检查声望3]
#IF
#ACT
mapmove 0 471 215
CREDITPOINT + $STR(S30)
MOV G10 0
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
break
close


论坛一条龙