传奇玩家PK赌元宝系统脚本

[@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
CHANLeg引擎XP - $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
CHANLeg引擎XP - $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
CHANLeg引擎XP + $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