(@@InPutString @@InputInteger)
[@main]
本游戏充值卡{唯一销售=FCO=70}官网∶{www.longm2.cn=FCO=244}\ \
{领取说明∶=FCO=253} 在输入框内输入购买得的充值卡序列号!\ \
{开始充值=FCO=254}\ \
<&输入序列号/@@InPutString1>\
<&返回最前/@main>\
<&关闭对话/@exit>\
<&官方网页/@联系作者>\
[@@InPutString1]
#IF
CHECKTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
#ACT
GETRANDOMNAME ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt S8
goto @类型判断
#elseact
MESSAGEBOX 您输入的序列号有误！请您确认后再试。
Close
break
[@类型判断]
#if
CHECKCONTAINSTEXT <$STR(S1)> T
#act
give <$STR(S8)> 1
DELTEXTLIST <$STR(S1)>|物品卡|StdItems|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;物品卡;<$STR(S1)>;<$STR(S8)>;1 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用物品卡，获得1件<$STR(S8)>。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用物品卡，获得1件<$STR(S8)>。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> M
#act
mov N1 <$STR(S8)>
GAMEGOLD + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|元宝卡|元宝数|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;元宝卡;<$STR(S1)>;增加元宝数:<$STR(N1)> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用元宝卡，获得<$STR(N1)>个元宝。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用元宝卡，获得<$STR(N1)>个元宝。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> F
#act
mov N1 <$STR(S8)>
CHANGEMAKEMAGICPOINT + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|技能卡|技能点|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;技能卡;<$STR(S1)>;增加技能点:<$STR(N1)> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用技能卡，获得<$STR(N1)>技能点。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用技能卡，获得<$STR(N1)>技能点。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> O
#act
mov N1 <$STR(S8)>
CHANGEGAMEGIRD + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|修炼卡|修炼点数|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;修炼卡;<$STR(S1)>;增加修炼点数:<$STR(N1)> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用修炼卡，获得<$STR(N1)>点修炼。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用修炼卡，获得<$STR(N1)>点修炼。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> U
#act
mov N1 <$STR(S8)>
CREDITPOINT + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|声望卡|声望值|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;声望卡;<$STR(S1)>;增加声望点:<$STR(N1)> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用声望卡，获得<$STR(N1)>点声望。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用声望卡，获得<$STR(N1)>点声望。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> A
#act
mov N1 <$STR(S8)>
CHANGELEVEL + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|等级卡|等级值|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;等级卡;<$STR(S1)>;提升:<$STR(N1)>级;当前等级<$LEVEL> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用等级卡，提升<$STR(N1)>级。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用等级卡，提升<$STR(N1)>级。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> G
#act
mov N1 <$STR(S8)>
CHANGEPERMISSION <$STR(N1)>
DELTEXTLIST <$STR(S1)>|权限卡|权限等级|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;权限卡;<$STR(S1)>;提升权限为:<$STR(N1)>级。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用权限卡;<$STR(S1)>;提升权限为:<$STR(N1)>级。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用权限卡;<$STR(S1)>;提升权限为:<$STR(N1)>级。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> H
#act
mov N1 <$STR(S8)>
CHANGEGAMEDIAMOND + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|积分卡|积分点数|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;积分卡;<$STR(S1)>;增加积分点数:<$STR(N1)>个。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用积分卡;<$STR(S1)>;增加积分点数为:<$STR(N1)>个。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用积分卡;<$STR(S1)>;增加积分点数为:<$STR(N1)>个。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> K
#act
mov N1 <$STR(S8)>
CHANGEPULLULATION + <$STR(N1)>
DELTEXTLIST <$STR(S1)>|成长卡|成长点数|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;成长卡;<$STR(S1)>;增加成长点:<$STR(N1)> ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用成长卡;<$STR(S1)>;增加成长点:<$STR(N1)>。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用成长卡;<$STR(S1)>;增加成长点:<$STR(N1)>。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> Z
#act
mov N1 <$STR(S8)>
KILLMONEXPRATE 200 <$STR(N1)>
DELTEXTLIST <$STR(S1)>|双倍卡|双倍经验时间|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;双倍卡;<$STR(S1)>;获得双倍经验时间:<$STR(N1)>秒。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用双倍卡;<$STR(S1)>;获得双倍经验时间:<$STR(N1)>秒。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用双倍卡;<$STR(S1)>;获得双倍经验时间:<$STR(N1)>秒。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> X
#act
mov N1 <$STR(S8)>
POWERRATE 200 <$STR(N1)>
DELTEXTLIST <$STR(S1)>|双倍卡|双倍攻击时间|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;双倍卡;<$STR(S1)>;获得双倍攻击力时间:<$STR(N1)>秒 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用双倍卡;<$STR(S1)>;获得双倍攻击力时间:<$STR(N1)>秒。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用双倍卡;<$STR(S1)>;获得双倍攻击力时间:<$STR(N1)>秒。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> B
#act
addnamelist ..\QuestDiary\数据文件\会员数据\会员名单.txt
ADDUSERDATE ..\QuestDiary\数据文件\会员数据\临时会员.txt
DELTEXTLIST <$STR(S1)>|临时VIP卡|临时会员|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;临时VIP卡;<$STR(S1)>;获得临时会员的资格。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用临时VIP卡;<$STR(S1)>;获得临时会员的资格。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用临时VIP卡;<$STR(S1)>;获得临时会员的资格。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> E
#act
addnamelist ..\QuestDiary\数据文件\会员数据\会员名单.txt
addnamelist ..\QuestDiary\数据文件\会员数据\充点会员.txt
DELTEXTLIST <$STR(S1)>|充点VIP卡|月季会员|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;充点VIP卡;<$STR(S1)>;获得月季会员的资格。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用充点VIP卡;<$STR(S1)>;获得月季会员的资格。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功使用充点VIP卡;<$STR(S1)>;获得月季会员的资格。
ADDTEXTLIST DEL　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
#if
CHECKCONTAINSTEXT <$STR(S1)> Q
#act
addnamelist ..\QuestDiary\数据文件\会员数据\会员名单.txt
ADDUSERDATE ..\QuestDiary\数据文件\会员数据\一年会员.txt
DELTEXTLIST <$STR(S1)>|年终VIP卡|年终会员|<$STR(S8)> ..\QuestDiary\充值系统\Data.txt
ADDTEXTLIST <$DATETIME>;<$USERNAME>;年终VIP卡;<$STR(S1)>;获得年终会员的资格。 ..\QuestDiary\充值系统\充值领取记录.txt
SENDMSG 0 恭喜玩家[<$USERNAME>]，使用年终VIP卡;<$STR(S1)>;获得年终会员的资格。
SENDMSG 5 提示：[<$USERNAME>]，您已经成功年终VIP卡;<$STR(S1)>;获得年终会员的资格。
ADDTEXTLIST del　/S　<$STR(S1)>.txt ..\QuestDiary\充值系统\清理卡号.txt
DELTEXTLIST <$STR(S1)> ..\QuestDiary\充值系统\卡号列表.txt
DELTEXTLIST <$STR(S8)> ..\QuestDiary\充值系统\Data\<$STR(S1)>.txt
break
[@联系作者]
#If
CHECKLEVELEX > 0
#Act
OPENURL http://www.longm2.cn

物品 T
声望 U
元宝 M
灵符 O
等级 A
能量 F
权限 G
金刚 H
荣誉 K
精元 W
双倍经验 Z
双倍攻击 X
临时VIP B
充点VIP E
年终VIP Q