芝麻论坛 › 传奇私服脚本 › 传奇玩家PK元宝系统脚本

芝麻论坛 发表于 2017-3-26 09:58:32

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

MOV G10 0
break
#ACT
goto @检查在线否
#IF
hcall $STR(s32) @ttt3
使用<金币进行/@金币>挑战.\
close
SENDMSG 4 [失败:]你当前所拥有的声望数量没有你输入的那么多！\
goto @开始挑战
break
#IF
mapmove F019
#IF
#ACT
#ACT
#IF
如果挑战开始后你失败给对方.你将损失以上数量的注.\\
#ACT
CHECKEXP > $STR(S30)
#ACT
#ACT
EQUAL P9 4
[@getstring30]
#ACT
[[@ttt4]
Getstring s30
close
goto @输入名字
CREDITPOINT - $STR(S30)
[@检查元宝2]
hcall $STR(s32) @ttt2
[@检查金币1]
delay 10 @结束
[@ttt1]
#ELSEACT
hcall $STR(s32) @ttt3
goto @检查元宝1
MOV P9 3
使用<经验进行/@经验>挑战.\
SENDMSG 4 [失败:]刚才有人使用了挑战功能！你需要在10秒后才能使用！\
MOV S32 $USERNAME
break
CHECKONLINE $STR(s31)

MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的金币数量没有挑战所下注那么多！\
#ACT
break
[@声望]
#IF
#IF
hcall $STR(s32) @ttt3
close
#IF
EQUAL G9 1
SENDMSG 4 [失败:]你当前所拥有的经验数量没有挑战所下注那么多！\
queryvalue 请输入你要挑战玩家的名字 2 50 31
goto @检查经验
CHECKEXP > $STR(S30)
你已经成功的向: <$STR(s31)> 发出了挑战要求！\
break
#IF
#ELSEACT
#ACT
[@检查元宝3]
#ACT
#SAY
EQUAL G9 4
break
[@检查金币]
break
[@结束]
break
break
#ACT
MOV S29 声望点
#IF
[@开始挑战]
goto @输入名字
本次挑战活动所下注类型是:<$STR(S29)>:数量:<$STR(S30)>点.\
MOV P9 4
#IF
close
#ACT
queryvalue 请输入你要下的注数量 2 8 30
TAKE 金币 $STR(S30)
#IF
GAMEGOLD - $STR(S30)
#ACT
#IF
#IF
EQUAL P9 2
MOV P9 1
如果接受挑战并战胜了对方.你将获得以上数量的注.\
#IF
SENDMSG 4 [失败:]你当前所拥有的声望数量没有挑战所下注那么多！\
close
#ELSEACT
#ACT
MOV G10 0
#ELSESAY
goto @开始挑战
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
goto @检查声望2
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
#IF
#IF
hcall $STR(s32) @ttt2
hcall $STR(s32) @ttt2
break
goto @检查元宝
[@检查声望1]
EQUAL G9 2
EQUAL G9 4
hcall $STR(s31) @ttt4
CHECKGAMEGOLD > $STR(S30)
#ELSEACT
#ACT
close
[@检查金币3]
close
EQUAL G9 3
hcall $STR(s31) @ttt1
SENDMSG 4 [失败:]刚才有人使用了挑战功能！你需要在10秒后才能使用！\
#ACT
[@我接受]
#ELSEACT
本挑战页面将在10秒后失效！请等待对方的同意...\
Getstring s31
hcall $STR(s31) @ttt4
break
#ELSEACT
EQUAL G9 2
#IF
[@元宝]
[@金币]
close
侠客: <$STR(s32)> 向你提出了单挑PK挑战要求！\
goto @检查经验3
[@检查在线否]
#ACT
CHANGEEXP + $STR(S30)
#ACT
MOV S29 元宝
#ACT
goto @输入名字
CHECKCREDITPOINT > $STR(S30)
give 金币 $STR(S30)
#IF
CHECKGAMEGOLD > $STR(S30)
#ACT
#IF
EQUAL G9 3
如果接受挑战并失败给对方.你将损失以上数量的注.\\
[@检查经验1]
#IF
close
#IF
MOV G10 0
break
SENDMSG 4 [失败:]你当前所拥有的金币数量没有你输入的那么多！\
goto @检查金币1
挑战活动失败！\
#IF
close
goto @开始挑战
CHANGEEXP - $STR(S30)
[@检查类型]
hcall $STR(s32) @ttt2
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有挑战所下注那么多！\
CHECKEXP > $STR(S30)
goto @检查声望3
#ACT
break
MOV G10 0
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有挑战所下注那么多！\
break
SENDMSG 4 [失败:]你当前所拥有的声望数量没有挑战所下注那么多！\
break
break
break
[@检查声望3]
[@检查元宝1]
goto @检查声望
>.当前的:<$STR(S29)>:不够:<$STR(S30)>点.\
hcall $STR(s32) @ttt3
#SAY
break
break
EQUAL G9 4
\
#IF
请选择你要用于挑战赛的注类型？\\
MOV G10 0
#IF
SENDMSG 4 [失败:]挑战者已经自行放弃挑战！已经离线！\
CREDITPOINT - $STR(S30)
CHANGEEXP - $STR(S30)
#ACT
EQUAL G9 3
goto @输入名字
[@检查经验3]
#ACT
<$STR(s31)>当前不在线！\
SENDMSG 4 [失败:]你当前所拥有的金币数量没有挑战所下注那么多！\
break
[@ttt3]
#ACT
[@检查金币2]
CHECKCREDITPOINT > $STR(S30)
CHECKGOLD $STR(S30)
#ELSEACT
MOV G10 1
MOV G9 P9
#ACT
mapmove 0 471 215
挑战不能进行！\
#ACT
EQUAL P9 3
break
#ELSEACT
#ACT
EQUAL G9 1
EQUAL G10 0
#ELSEACT
goto @检查数量
close
#ELSEACT
break
#ACT
[@main]
TAKE 金币 $STR(S30)
MOV G10 0
mapmove F019
MOV G10 0
[@检查声望2]
mapmove F019
break
break
MOV S29 金币
#aCT
欢迎使用自PK擂台！\
close
mapmove 0 471 215
goto @检查金币3
mapmove F019
#ACT
#IF
mapmove F019
#IF
break
[@检查数量]
#ACT
#IF
goto @检查金币2
break
EQUAL G9 1
close
#ACT
#IF
#IF
[@检查元宝]
SENDMSG 4 [失败:]挑战方下注数量不够了！挑战提前结束！\
break
#ELSEACT
break
本次挑战活动对方所下注类型是:<$STR(S29)>:数量:<$STR(S30)>点.\
goto @检查经验2
CHECKGOLD $STR(S30)
goto @检查元宝3
break
#IF
MOV P9 2
MOV G10 0
mapmove 0 471 215
#ACT
goto @检查声望1
break
MOV G10 0
#IF
[@ttt2]
mapmove 0 471 215
#ACT
[@检查经验]
break
close
hcall $STR(s31) @ttt4
SENDMSG 4 [失败:]挑战方下注数量不够了！\
break
CHECKONLINE $STR(s32)
#IF
mapmove F019
CHECKGOLD $STR(S30)
#IF
#IF
GAMEGOLD - $STR(S30)
goto @检查元宝2
EQUAL P9 1
[@检查经验2]
\
#ACT
break
delay 10 @结束
MOV G10 0
#if
#IF
#ACT
[@经验]
#IF
#ACT
#ACT
break
MOV G10 0
\
SENDMSG 4 [失败:]你当前所拥有的经验数量没有你输入的那么多！\
[@结束]
break
[@检查声望]
MOV S29 经验值
break
goto @检查金币
本挑战通知将在10秒后失效！请尽快做出决定！\
close
;==================================================================
#ELSEACT
MOV G10 0
CREDITPOINT + $STR(S30)
#ACT
checkhum F019 1
#ELSEACT
#SAY
GAMEGOLD + $STR(S30)
break
EQUAL G9 2
EQUAL G10 0
使用<元宝进行/@元宝>挑战.\
goto @开始挑战
#IF
CHECKGAMEGOLD > $STR(S30)
#ACT
break
#ACT
#ELSEACT
break
#ACT
hcall $STR(s31) @ttt4
#IF
break
#IF
SENDMSG 4 [失败:]你当前所拥有的元宝数量没有你输入的那么多！\
#ACT
mapmove F019
#IF
[@getstring31]
#IF
#ACT
goto @检查经验1
使用<声望进行/@声望>挑战.\
MOV G10 0
mapmove F019
#SAY
SENDMSG 4 [失败:]你当前所拥有的经验数量没有挑战所下注那么多！\
#ACT
<我接受挑战/@我接受>. <我拒绝挑战/@结束>.\
PK挑战台通知:\
#ELSEACT
CHECKCREDITPOINT > $STR(S30)
#IF
goto @检查类型
[@输入名字]
#IF
#ACT
\
如果挑战开始后你战胜了对方.你将获得以上数量的注.\

li277482319 发表于 2017-3-28 04:15:39

啊啊啊啊啊啊啊啊啊啊啊

skl520 发表于 2017-3-30 03:44:22

路过的帮顶

查看完整版本: 传奇玩家PK元宝系统脚本