润芒论坛

 找回密码
立即注册

QQ登录

只需一步,快速开始

查看: 1498|回复: 0

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

[复制链接]
online_moderator 发表于 2017-9-21 08:59:02 | 显示全部楼层 |阅读模式
[@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





上一篇:传奇服务器启动异常!Code:1 Table does not exist解决方法
下一篇:传奇无限仓库脚本
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册 qq_login

本版积分规则

QQ|手机版|润芒论坛 ( 冀ICP备17016208号-6 )|网站地图

GMT+8, 2021-3-1 08:37

Powered by 传奇一条龙 X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表