〖原创脚本〗 游戏NPC自动CK-Key序列号领取脚本

传奇服务端

这玩意自己写的,代码自己看吧,能像其他网游一样输入正确的序列号就能领取指定的装备！

当然,脚本看起来可能有点乱,不过我还根据这个脚本用易语言写了一个CD-Key生成器,能够简单快速生成序列号

生成器已经发到了工具区，地址是https://www.hongyingbbs.com/thread-17554-1-1.html
还有一段代码要加在QManage.txt里面的,已经发在了一楼

下面是脚本代码,看到的朋友回复下吧,多谢

[@兑换]
{
#ACT
OpenBigDialogBox 0
#say
　\
小伙子,很高兴见到你,相见是缘。\
　\
如果小友拥有神界的CD-Key的话,可以在我这里领取物品\
　\
key可以通过参加活动、举报外挂、甚至是收徒出师之时都会发放哦！\
　\
至于是否神物嘛,这便是小友的机缘了！\
　\　\
<我拥有CD-Key/SCOLOR=55>                    →<兑换领取/@CDKEY>\   
　\
<唯一官方网站 www.whsfzx.com/SCOLOR=253>  <→点击进入官方网站/@adyxw>\
　\
<关闭对话/@exit> \

[@CDKEY]
<领取说明∶在输入框内输入系统发放的Key序列号！>\ \
<输入您的CD-Key/@@InPutString43>　　　　←<立刻领取/SCOLOR=249>\
<输入CD-Key必须存在哦~/SCOLOR=6>\　\
　\　\　\　\
<唯一官方网站 www.whsfzx.com/SCOLOR=253>  <→点击进入官方网站/@adyxw>\
　\
<关闭对话/@exit> \
[@@InPutString43]
#ACT
DELAYGOTO 1 ~InPutInteger43
[~InPutInteger43]
#IF
CheckTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
#ACT
GetRandomText .\QuestDiary\cdkey\Data\<$STR(S43)>.txt S44
goto @类型判断
#elseact
SENDMSG 5 您输入的CD-Key有误！请您确认后再试。
[@类型判断]
#if
CheckContainsText <$STR(S43)> MS
#act
goto @数量判断
break
#if
CheckContainsText <$STR(S43)> GY
#act
mov A445 <$STR(S44)>
GAMEGOLD + <$STR(A445)>
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;元宝卡;<$STR(S43)>;元宝数量:<$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
SENDMSG 7 使用在线元宝卡,成功为您充值<$STR(A445)>个元宝.您当前的元宝为：<$GAMEGOLD>个
break
#if
CheckContainsText <$STR(S43)> EK
#act
mov A445 <$STR(S44)>
GAMEPOINT + <$STR(A445)>
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;能量卡;<$STR(S43)>;能量数量:<$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
SENDMSG 7 使用在线能量卡,成功为您充值<$STR(A445)>个能量.您当前的能量为：<$GAMEPOINT>
break
#if
CheckContainsText <$STR(S43)> LV
#act
mov A445 <$STR(S44)>
hcall <$USERNAME> @提升等级
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;等级卡;<$STR(S43)>;提升等级:<$STR(S44)>;当前等级<$LEVEL>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
SENDMSG 7 使用在线等级卡！<$STR(A446)>
#if
CheckContainsText <$STR(S43)> PW
#act
mov A445 <$STR(S44)>
CHANGEPERMISSION <$STR(A445)>
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;权限卡;<$STR(S43)>;权限等级:<$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
SENDMSG 7 CD-Key在线权限卡,小退/下线消失！
break
[@数量判断]
#if
CheckContainsText <$STR(S43)> F
#act
give <$STR(S44)> 3
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;物品卡;<$STR(S43)>;<$STR(S44)>;3
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
SENDMSG 5 恭喜您获得3件<$STR(S44)>
break
#if
CheckContainsText <$STR(S43)> Z
#act
give <$STR(S44)> 2
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;物品卡;<$STR(S43)>;<$STR(S44)>;2
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
SENDMSG 5 恭喜您获得2件<$STR(S44)>
break
#if
CheckContainsText <$STR(S43)> I
#act
give <$STR(S44)> 1
AddTextListEx .\QuestDiary\CDKey\领取记录.txt <$DATETIME>;<$USERNAME>;物品卡;<$STR(S43)>;<$STR(S44)>;1
DelTextList .\QuestDiary\cdkey\Data.txt <$STR(S43)>
DelTextList .\QuestDiary\cdkey\Data\<$STR(S43)>.txt <$STR(S44)>
AddTextListEx .\QuestDiary\CDKey\清除文本.txt <$STR(S43)>
SENDMSG 5 恭喜您获得1件<$STR(S44)>
break
[@adyxw]
#IF
#ACT
OpenWebSite https://www.hongyingbbs.com
}

脚本里面的点券领取是要依赖于
\mirserver\Mir200\Envir\MapQuest_def\QManage.txt 的部分脚本的  
现在补上  ， 这一段加在QManage.txt 的下面
等级部分可能要改改,因为我测试的服最高等级是230

[@提升等级]
#act
mov N45 <$LEVEL>
CHANGELEVEL + <$STR(A445)>
goto @提升判断
[@提升判断]
#if
CHECKLEVELEX > 230
#act
mov N46 230
DEC N46 <$STR(N45)>
mov A446 玩家“<$STR(A444)>”提升<$STR(N46)>级.<$STR(A444)>当前等级230！
SendMsg 7 升级提示:提升<$STR(N46)>级.您当前等级230！
goto @最高等级
#elseact
mov A446 玩家“<$STR(A444)>”提升<$STR(A445)>级.<$STR(A444)>当前等级<$LEVEL>！
SendMsg 7 升级提示:提升<$STR(A445)>级.您当前等级<$LEVEL>！
[@最高等级]
#act
mov N45 <$LEVEL>
DEC N45 230
CHANGELEVEL - <$STR(N45)>
[@降低等级]
#act
mov N44 <$STR(A445)>
mov N45 <$LEVEL>
CHANGELEVEL - <$STR(A445)>
goto @降级判断
[@降级判断]
#if
CHECKLEVELEX < 1
#act
mov A446 玩家“<$STR(A444)>”降低<$STR(N45)>级.<$STR(A444)>当前等级0！
SendMsg 7 降级提示:降低<$STR(N45)>级.您当前等级0！
#elseact
mov A446 玩家“<$STR(A444)>”降低<$STR(A445)>级.<$STR(A444)>当前等级<$LEVEL>！
SendMsg 7 降级提示:降低<$STR(A445)>级.您当前等级<$LEVEL>！


[@增加元宝]
#act
GAMEGOLD + <$STR(A445)>
mov A446 <$GAMEGOLD>
SENDMSG 7 提示:元宝增加<$STR(A445)>个.您当前的元宝为：<$GAMEGOLD>个
[@减少元宝]
#act
GAMEGOLD - <$STR(A445)>
mov A446 <$GAMEGOLD>
SENDMSG 7 提示:元宝减少<$STR(A445)>个.您当前的元宝为：<$GAMEGOLD>个

周荣浩

支持一下。。。。