MerChant做个NPC
ph 3 345 342 游戏排行 0 12 1
具体效果如下
QManag
先声明下自定义变量用到的2个自定义变量有些平台可能是别的 你自己修改成统一的
[@Login]
#if
CHECKLEVELEX > 0
#act
VAR Integer HUMAN 消费积分
VAR Integer HUMAN 元宝消费
LOADVAR HUMAN 消费积分 ..\QuestDiary\充值积分\消费积分Save.txt
LOADVAR HUMAN 元宝消费 ..\QuestDiary\充值积分\元宝消费Save.txt
#CALL [\充值积分\排行刷新.txt] @排行刷新
NPC脚本ph-3 占用了A变量（全局变量可保存)
[@MAIN]
<第一名〖天下首富〗/AUTOCOLOR=254>:<$STR(A81)> <共充值/AUTOCOLOR=253>:<$STR(G101)><个元宝/AUTOCOLOR=253>\
<第二名〖首富逼人〗/AUTOCOLOR=254>:<$STR(A82)> <共充值/AUTOCOLOR=253>:<$STR(G102)><个元宝/AUTOCOLOR=253>\
<第三名〖富甲一方〗/AUTOCOLOR=254>:<$STR(A83)> <共充值/AUTOCOLOR=253>:<$STR(G103)><个元宝/AUTOCOLOR=253>\
<第四名〖富贵荣华〗/AUTOCOLOR=254>:<$STR(A84)> <共充值/AUTOCOLOR=253>:<$STR(G104)><个元宝/AUTOCOLOR=253>\
<第五名〖家财万贯〗/AUTOCOLOR=254>:<$STR(A85)> <共充值/AUTOCOLOR=253>:<$STR(G105)><个元宝/AUTOCOLOR=253>\
<第六名〖一掷千金〗/AUTOCOLOR=254>:<$STR(A86)> <共充值/AUTOCOLOR=253>:<$STR(G106)><个元宝/AUTOCOLOR=253>\
<第七名〖财运亨想〗/AUTOCOLOR=254>:<$STR(A87)> <共充值/AUTOCOLOR=253>:<$STR(G107)><个元宝/AUTOCOLOR=253>\
<第八名〖财大气粗〗/AUTOCOLOR=254>:<$STR(A88)> <共充值/AUTOCOLOR=253>:<$STR(G108)><个元宝/AUTOCOLOR=253>\ \
然后需要创建几个储存名单、消费积分、元宝消费什么的TXT有些平台也是自动生成的可能路径会不一致你需要手动改成和QM里面保存的路径一致
\QuestDiary\充值积分下面
排行刷新脚本占用了G变量(也是全局变量 可保存的类型)
[@排行刷新]
{
#IF
checknamelist ..\QuestDiary\充值积分\排行1.txt
#ACT
GOTO @jianc1
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行2.txt
#ACT
GOTO @jianc2
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行3.txt
#ACT
GOTO @jianc3
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行4.txt
#ACT
GOTO @jianc4
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行5.txt
#ACT
GOTO @jianc5
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行6.txt
#ACT
GOTO @jianc6
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行7.txt
#ACT
GOTO @jianc7
BREAK
#IF
checknamelist ..\QuestDiary\充值积分\排行8.txt
#ACT
GOTO @jianc8
BREAK
#IF
CHECKVAR HUMAN 消费积分 > 0
#ACT
MOV G100 <$HUMAN(消费积分)>
goto @shuaxin
BREAK
[@jianc1]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G101)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行1.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc2]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G102)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行2.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc3]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G103)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行3.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc4]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G104)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行4.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc5]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G105)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行5.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc6]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G106)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行6.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc7]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G107)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行7.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@jianc8]
#IF
CHECKVAR HUMAN 消费积分 > <$STR(G108)>
#ACT
CLEARNAMELIST ..\QuestDiary\充值积分\排行8.txt
SENDMSG 5 避免数据出错，请小退后再登陆！
SENDMSG 5 避免数据出错，请小退后再登陆！
KICK
BREAK
[@shuaxin]
#IF
large G100 <$STR(G101)>
#ACT
MOV G101 <$STR(G100)>
MOV A81 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行1.txt
addnamelist ..\QuestDiary\充值积分\排行1.txt
BREAK
#IF
large G100 <$STR(G102)>
#ACT
MOV G102 <$STR(G100)>
MOV A82 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行2.txt
addnamelist ..\QuestDiary\充值积分\排行2.txt
BREAK
#IF
large G100 <$STR(G103)>
#ACT
MOV G103 <$STR(G100)>
MOV A83 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行3.txt
addnamelist ..\QuestDiary\充值积分\排行3.txt
BREAK
#IF
large G100 <$STR(G104)>
#ACT
MOV G104 <$STR(G100)>
MOV A84 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行4.txt
addnamelist ..\QuestDiary\充值积分\排行4.txt
BREAK
#IF
large G100 <$STR(G105)>
#ACT
MOV G105 <$STR(G100)>
MOV A85 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行5.txt
addnamelist ..\QuestDiary\充值积分\排行5.txt
BREAK
#IF
large G100 <$STR(G106)>
#ACT
MOV G106 <$STR(G100)>
MOV A86 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行6.txt
addnamelist ..\QuestDiary\充值积分\排行6.txt
BREAK
#IF
large G100 <$STR(G107)>
#ACT
MOV G107 <$STR(G100)>
MOV A87 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行7.txt
addnamelist ..\QuestDiary\充值积分\排行7.txt
BREAK
#IF
large G100 <$STR(G108)>
#ACT
MOV G108 <$STR(G100)>
MOV A88 <$USERNAME>
CLEARNAMELIST ..\QuestDiary\充值积分\排行8.txt
addnamelist ..\QuestDiary\充值积分\排行8.txt
BREAK
}
