战神引擎黑市商人Npc脚本(收购装备功能)

用于战神引擎黑市商人Npc脚本，脚本的功能虽然是收购装备功能，但跟回收装备的NPC不一样，这个NPC里面每天都自动更新回收的装备名单，总共三个名额，默认可以获得金币和声望，脚本是明文版，可以任意修改每天回收的装备名单和对应的奖励货币类型跟数量，前提是你的脚本技术能达到，脚本牵扯到了变量和2份额外的文件，自行添加。

部分脚本

program mir2; 
{$I MSG.pas} 
var
yanse111,yanse222,yanse333 :  integer;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure Execute;
begin
   if  (GetHour = 20) and (GetMin = 1) then  
  begin
    SetG(33,39,random(46));
	SetG(33,38,3);
	This_Npc.NPCSay('我每次只出现一天，走过路过不要错过');
	WriteIniSectionStr('黑市商人.txt','提交名单','1','暂无×上榜');
	WriteIniSectionStr('黑市商人.txt','提交名单','2','暂无×上榜');
	WriteIniSectionStr('黑市商人.txt','提交名单','3','暂无×上榜');
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！'); 
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');	
    end;
      if  (GetHour = 21) and (GetMin = 1) then  
  begin
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！'); 
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
 end;
      if  (GetHour = 22) and (GetMin = 1) then  
  begin
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！'); 
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
 end; 
       if  (GetHour = 23) and (GetMin = 1) then  
  begin
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！'); 
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
	This_NPC.NpcNotice('黑市商人:今日收集物品[ '+  ReadIniSectionStr('黑市商人.txt','收集物品',inttostr(GetG(33,39))) +' ]前三名有丰厚奖励哦！');
 end;
end;
procedure domain;

分享到：

赞(0)