传奇元宝pk脚本

腾飞论坛 发表于 2012-11-29 15:44:28

为了游戏内容更精彩，做GM可以在传奇服务端里添加下面的脚本，添加以后，你的传奇里就有了玩家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

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

文章版权网站》:http://hi.baidu/ipsf999
文章版权网站》:http://hi.baidu/ipsf999
文章版权网站》:http://hi.baidu/ipsf999

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

论坛一条龙

现官珂 发表于 2014-3-19 13:28:05

我裤子脱了，纸都准备好了，你就给我看这个？

王帆明 发表于 2014-3-19 14:08:50

楼上的说的很多！

淘宝刷钻 发表于 2014-3-19 13:26:58

视死如归的架势啊！

轨采湖 发表于 2014-3-19 13:43:54

楼主很有经验啊！

云中漫步 发表于 2014-3-19 14:08:09

楼上的别说的那么悲观好吧！

addascao 发表于 2014-4-4 21:37:26

论坛的帖子越来越有深度了！

恭帝国 发表于 2014-4-4 21:50:55

记得吃药！

裴朴发表于 2014-4-4 21:25:34

经典，收藏了！

新歌发表于 2014-4-4 21:47:39

看帖不回帖的人就是耍流氓，我回复了！

页: [1] 2 3

腾飞论坛's Archiver

传奇元宝pk脚本