战神引擎判断玩家穿指定套装下图Npc脚本

用于战神引擎判断玩家穿指定套装下图Npc脚本，脚本是本站的一个赞助会员兄弟独家写出来的，功能经过服务器上线测试，目前没有发现明显的问题，提供给了帮主，主要的功能就是让玩家穿上套装，才能进入对应的地图。

部分脚本

program mi2;
{$I tzxt.pas}
procedure execute; //NPC定时执行
var i:integer;
begin
	if (GetHour = 0) and (GetMin = 0) then
	begin
		for i:= 1 to MaxCoun do
		begin
			if CheckOtherMapHum(BMAPName[i]) > 0 then 
			KickAllHumToMap(BMAPName[i],'3',330+random(5),330+random(5));
		end;
		SerVerSay('XX打宝活动已经重置了，所有玩家可以重新进入!',0);
	end;
end;
procedure domain;
begin
	TZXTDEF;
	clearlog;
	This_NPC.NpcDialog(This_Player,
	+'|介绍xxxx'
	+'|'
	+'|{cmd}<套装一打宝地图/@jieshao~1>'
	+'|{cmd}<套装二打宝地图/@jieshao~2>'
	+'|{cmd}<套装三打宝地图/@jieshao~3>'
	+'|{cmd}<套装四打宝地图/@jieshao~4>'	
	);
end;
procedure _jieshao(id:integer);
var zblist:string;need:integer;
begin
	TZXTDEF;
	zblist:=PrintXTLStr(BZBlist[This_Player.Job][id],':',2);
	need:=StrToIntDef(PrintXTLStr(BZBlist[This_Player.Job][id],':',1),0);	
	This_NPC.NpcDialog(This_Player,
	'|你是战士，穿戴<'+inttostr(need)+'>件及以上下列任意装备可以进入打宝：'
	+'|<'+zblist+'/fcolor=254>'
	+'|该地图最高可以打宝'+inttostr(BmaxYB[id])+'元宝'
	+'|<每天0点重置>'
	+'|{cmd}<进入打宝/@go~'+inttostr(id)+'>'
	+'|{cmd}<返回/@main>'
	);
end;
procedure _go(id:integer);
var atime,ltime:integer;
begin
	TZXTDEF;
	atime:=StrToIntDef(ReadIniSectionStr('套装下图日志.ini',This_Player.Name,'贤者时间'+inttostr(id)),0);
	ltime:=minusDataTime(GetNow,ConvertDBToDateTime(atime)) div 60;
	if ltime < RestTime[id] then
	begin
		This_NPC.NpcDialog(This_Player,
		'上次你阵亡在这个地图中，为了避免你上头，你将经历总共'+inttostr(RestTime[id])+'分种的冷静期。'
		+'当前还剩<'+inttostr(ltime)+'>分。在此期间你可以选择其他地图尝试！'
		+'|{cmd}<返回/@main>'
		);
		exit;
	end;
	if CheckMapTz(id) then
	begin
		This_Player.RandomFlyTo(BMAPName[id]);
	end else
		This_NPC.NpcDialog(This_Player,'你的装备不符合要求！|{cmd}<返回/@main>');
end;
begin
	domain;
end.

分享到：

赞(1)