清除PK值脚本 - 武易好服官方网站！

[@清除PK值脚本]
{
#SAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回主菜单/@功能菜单>═══════════\
清除PK值需要支付一定的费用，支付方式共分为4种({元宝=FCOLOR=250}、{声望=FCOLOR=250}\
、{金币=FCOLOR=250}、{灵符=FCOLOR=250}),您可选用{任意一种=FCOLOR=151}方式清除。白名和黄名不可使\
使用此功能 [{1元宝清除100点=FCOLOR=250}，{1声望清除25点=FCOLOR=250}，{300万金币清除=FCOLOR=250}\
<100点/FCOLOR=250>，{1灵符清除100点=FCOLOR=250}]。 {清除时只需输入相应方式的数量=FCOLOR=56}。\
════════════════════════════\
<$USERNAME>,您的PK值为:[ {<$PKPOINT>=FCOLOR=56} ] 点\
　<使用元宝/@使用元宝清除> <使用声望/@使用声望清除> <使用金币/@使用金币清除> <使用灵符/@使用灵符清除>

[@使用元宝清除]
#IF
checkpkpoint 2
#SAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回上一页/@清除PK值脚本>═══════════\
<说明:/FCOLOR=253> {1个元宝=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}。请在下面输入相应的元宝数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
<请输入元宝数量/FCOLOR=151>: {一次性最多可输入300元宝=FCOLOR=70} <开始输入元宝数/@@InPutInteger31>\
<提示:/FCOLOR=253> 输入后你可根据你的实际PK点数进行修改所输入的元宝数\
════════════════════════════\
　<使用元宝> <使用声望/@使用声望清除> <使用金币/@使用金币清除> <使用灵符/@使用灵符清除>
#ELSEACT
GOTO @清除PK值脚本
MESSAGEBOX [提示]:您还没有变成红名，不必要清除!

[@InPutInteger31]
#IF
small N31 1
#ACT
GOTO @使用元宝清除
MESSAGEBOX [错误]:你输入的数字小于1，请输入一个大于0的数字!
break

#IF
large N31 300
#ACT
GOTO @使用元宝清除
MESSAGEBOX [错误]:请输入一个300以内的元宝数!
break

#IF
CHECKGAMEGOLD < <$STR(N31)>
#ACT
GOTO @使用元宝清除
MESSAGEBOX [错误]:您的元宝数不够[<$STR(N31)>]个!
#ELSEACT
MOV P41 <$STR(N31)>
MUL P42 <$STR(P41)> 100
MOV S61 元宝
#ELSESAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回主菜单/@功能菜单>═══════════\
<说明:/FCOLOR=253> {1个元宝=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}。请在下面输入相应的元宝数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
您输入的元宝数: [ {<$STR(N31)>=FCOLOR=250} ] 个     可清除PK值: [ {<$STR(P42)>=FCOLOR=56} ] 点\
<修改元宝数量/@@InPutInteger31>           <确定清除PK值/@确定清除PK值>           <返回上一页/@清除PK值脚本>\
════════════════════════════\
　<使用元宝>       <使用声望/@使用声望清除>       <使用金币/@使用金币清除>      <使用灵符/@使用灵符清除>

[@使用声望清除]
#IF
checkpkpoint 2
#SAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回上一页/@清除PK值脚本>═══════════\
<说明:/FCOLOR=253> {1点声望=FCOLOR=56}可以清除{25点PK值=FCOLOR=250}。请在下面输入相应的声望数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
<请输入声望数量/FCOLOR=151>: {一次性最多可输入900声望=FCOLOR=70} <开始输入声望数/@@InPutInteger32>\
<提示:/FCOLOR=253> 输入后你可根据你的实际PK点数进行修改所输入的声望数\
════════════════════════════\
　<使用元宝/@使用元宝清除> <使用声望> <使用金币/@使用金币清除> <使用灵符/@使用灵符清除>
#ELSEACT
GOTO @清除PK值脚本
MESSAGEBOX [提示]:您还没有变成红名，不必要清除!

[@InPutInteger32]
#IF
small N32 1
#ACT
GOTO @使用声望清除
MESSAGEBOX [错误]:你输入的数字小于1，请输入一个大于0的数字!
break

#IF
large N32 900
#ACT
GOTO @使用声望清除
MESSAGEBOX [错误]:请输入一个900以内的声望数!
break

#IF
CHECKCREDITPOINT < <$STR(N32)>
#ACT
GOTO @使用声望清除
MESSAGEBOX [错误]:您的声望数不够[<$STR(N32)>]点!
#ELSEACT
MOV P43 <$STR(N32)>
MUL P44 <$STR(P43)> 25
MOV S61 声望
#ELSESAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回主菜单/@功能菜单>═══════════\
<说明:/FCOLOR=253> {1点声望=FCOLOR=56}可以清除{25点PK值=FCOLOR=250}。请在下面输入相应的声望数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
您输入的声望数: [ {<$STR(N32)>=FCOLOR=250} ] 个     可清除PK值: [ {<$STR(P44)>=FCOLOR=56} ] 点\
<修改声望数量/@@InPutInteger32>           <确定清除PK值/@确定清除PK值>           <返回上一页/@清除PK值脚本>\
════════════════════════════\
　<使用元宝/@使用元宝清除>       <使用声望>       <使用金币/@使用金币清除>      <使用灵符/@使用灵符清除>

[@使用金币清除]
#IF
checkpkpoint 2
#SAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回上一页/@清除PK值脚本>═══════════\
<说明:/FCOLOR=253> {300万金币=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}.请在下面输入相应的数值\
输入标准: 输入1就代表300万金币，以此类推 ( {X乘300万=FCOLOR=56} )。\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
<请输入金币数量/FCOLOR=151>: {最大可输放的字值为: 30=FCOLOR=70} <开始输入数值/@@InPutInteger33>\
<提示:/FCOLOR=253> 输入后你可根据你的实际PK点数进行修改所输入的金币数\
════════════════════════════\
　<使用元宝/@使用元宝清除> <使用声望/@使用声望清除> <使用金币> <使用灵符/@使用灵符清除>
#ELSEACT
GOTO @清除PK值脚本
MESSAGEBOX [提示]:您还没有变成红名，不必要清除!

[@InPutInteger33]
#ACT
MOV N35 0
MUL N35 <$STR(N33)> 3000000
MUL N36 <$STR(N33)> 300
MOV S88 <$GOLDCOUNT>
DEC S88 /200000000
MOV N37 <$STR(S88)>
GOTO @查测金币数量

[@查测金币数量]
#IF
small N33 1
#ACT
GOTO @使用金币清除
MESSAGEBOX [错误]:你输入的数字小于1，请输入一个大于0的数字!
break

#IF
large N33 30
#ACT
GOTO @使用金币清除
MESSAGEBOX [错误]:请输入一个30以内的数值!
break

#IF
small N37 <$STR(N35)>
#ACT
GOTO @使用金币清除
MESSAGEBOX [错误]:您的金币数不够[<$STR(N36)>]万!
#ELSEACT
MOV P45 <$STR(N33)>
MUL P46 <$STR(P45)> 100
MOV S61 金币
#ELSESAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回主菜单/@功能菜单>═══════════\
<说明:/FCOLOR=253> {300万金币=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}.请在下面输入相应的数值\
输入标准: 输入1就代表300万金币，以此类推 ( {X乘300万=FCOLOR=56} )。\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
您输入的金币数: [ {<$STR(N36)>=FCOLOR=250} ] 万   可清除PK值: [ {<$STR(P46)>=FCOLOR=56} ] 点\
<修改金币数量/@@InPutInteger33>           <确定清除PK值/@确定清除PK值>           <返回上一页/@清除PK值脚本>\
════════════════════════════\
　<使用元宝/@使用元宝清除>       <使用声望/@使用声望清除>       <使用金币>      <使用灵符/@使用灵符清除>

[@使用灵符清除]
#IF
checkpkpoint 2
#SAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回上一页/@清除PK值脚本>═══════════\
<说明:/FCOLOR=253> {1张灵符=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}。请在下面输入相应的灵符数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
<请输入灵符数量/FCOLOR=151>: {一次性最多可输入300灵符=FCOLOR=70} <开始输入灵符数/@@InPutInteger34>\
<提示:/FCOLOR=253> 输入后你可根据你的实际PK点数进行修改所输入的灵符数\
════════════════════════════\
　<使用元宝/@使用元宝清除> <使用声望/@使用声望清除> <使用金币/@使用金币清除> <使用灵符>
#ELSEACT
GOTO @清除PK值脚本
MESSAGEBOX [提示]:您还没有变成红名，不必要清除!

[@InPutInteger34]
#IF
small N34 1
#ACT
GOTO @使用灵符清除
MESSAGEBOX [错误]:你输入的数字小于1，请输入一个大于0的数字!
break

#IF
large N34 300
#ACT
GOTO @使用灵符清除
MESSAGEBOX [错误]:请输入一个300以内的灵符数!
break

#IF
CHECKGAMEGIRD < <$STR(N34)>
#ACT
GOTO @使用灵符清除
MESSAGEBOX [错误]:您的元宝数不够[<$STR(N34)>]个!
#ELSEACT
MOV P47 <$STR(N34)>
MUL P48 <$STR(P47)> 100
MOV S61 灵符
#ELSESAY
您目前有元宝:{<$GAMEGOLD>=FCOLOR=56} 个灵符:{<$GAMEGIRD>=FCOLOR=56} 张金刚石:{<$GAMEDIAMOND>=FCOLOR=56} 颗声望:{<$CREDITPOINT>=FCOLOR=56} 点\
════════════<返回主菜单/@功能菜单>═══════════\
<说明:/FCOLOR=253> {1张灵符=FCOLOR=56}可以清除{100点PK值=FCOLOR=250}。请在下面输入相应的灵符数\
　　系统会按照您输入的数量，运算出你将能清除的PK值点数\
<您目前的PK值为/FCOLOR=151>: [ {<$PKPOINT>=FCOLOR=56} ] 点\
您输入的灵符数: [ {<$STR(N34)>=FCOLOR=250} ] 张     可清除PK值: [ {<$STR(P48)>=FCOLOR=56} ] 点\
<修改灵符数量/@@InPutInteger34>           <确定清除PK值/@确定清除PK值>           <返回上一页/@清除PK值脚本>\
════════════════════════════\
　<使用元宝/@使用元宝清除>       <使用声望/@使用声望清除>       <使用金币/@使用金币清除>      <使用灵符>

[@确定清除PK值]
#IF
equal S61 元宝
#ACT
GameGold - <$STR(N31)>
CHANGEPKPOINT - <$STR(P42)>
GOTO @使用元宝清除
MESSAGEBOX [成功]:您使用[<$STR(N31)>]个元宝清除了[<$STR(P42)>]点PK值!
break
#IF
equal S61 声望
#ACT
CREDITPOINT - <$STR(N32)>
CHANGEPKPOINT - <$STR(P44)>
GOTO @使用声望清除
MESSAGEBOX [成功]:您使用[<$STR(N32)>]个声望清除了[<$STR(P44)>]点PK值!
break
#IF
equal S61 金币
#ACT
TAKE 金币 <$STR(N35)>
CHANGEPKPOINT - <$STR(P46)>
GOTO @使用金币清除
MESSAGEBOX [成功]:您使用[<$STR(N36)>]万金币清除了[<$STR(P46)>]点PK值!
break
#IF
equal S61 灵符
#ACT
GAMEGIRD - <$STR(N34)>
CHANGEPKPOINT - <$STR(P46)>
GOTO @使用灵符清除
MESSAGEBOX [成功]:您使用[<$STR(N34)>]张灵符清除了[<$STR(P48)>]点PK值!
break
}