战神引擎每日任务Npc脚本(提交装备得奖励)

用于战神引擎每日任务Npc脚本，相比其他的任务脚本，这个任务脚本更有意思，玩家通过提交装备得奖励，脚本是明文版的，可以任意修改里面的内容。

部分脚本

end else
This_Npc.NpcDialog(This_Player,'你已经完成了所有任务~');
end;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
begin 
today := GetDateNum(GetNow);   
   if This_Player.GetV(68,8) <> today then
     begin
	 This_Player.SetV(68,8,today);
	 WriteIniSectionStr('每日收集.txt','任务',This_Player.Name,'')
     WriteIniSectionStr('每日收集.txt','数量',This_Player.Name,'0');
     end; 
 if ReadIniSectionStr('每日收集.txt','任务',This_Player.Name) <> '' then
	begin
	sjzb := ReadIniSectionStr('每日收集.txt','任务',This_Player.Name);
	rwa := ReadIniSectionStr('每日收集.txt','数量',This_Player.Name);
	end else
	//random(45)
	if ReadIniSectionStr('每日收集.txt','数量',This_Player.Name) <> '' then
	begin
	sjzb := ck_name[random(30)+1];
	WriteIniSectionStr('每日收集.txt','任务',This_Player.Name,sjzb);
	sjzb := ReadIniSectionStr('每日收集.txt','任务',This_Player.Name);
	rwa := ReadIniSectionStr('每日收集.txt','数量',This_Player.Name);
	end else
	begin
	sjzb := ck_name[random(30)+1];
	WriteIniSectionStr('每日收集.txt','任务',This_Player.Name,sjzb);
	WriteIniSectionStr('每日收集.txt','数量',This_Player.Name,'0');
	sjzb := ReadIniSectionStr('每日收集.txt','任务',This_Player.Name);
	rwa := ReadIniSectionStr('每日收集.txt','数量',This_Player.Name);
	end;
	//inttostr(ck_kind)
	This_Npc.NpcDialog(This_Player,
	   +'<每天>可以完成<20次>收集任务 |\'  
	   +'当前收集 ：<[ '+sjzb+' ]/c=250>      1 件    已收集 [ <'+rwa+'/c=250>]次|\'
	   +'单任务奖励：<技能神石/c=254>  <1000W经验/c=254> |\'
	   +'第10层奖励：<技能神石*10/c=254> |\'
	   +'第20层奖励：<强化神石*10/c=254> |\'
       +'{cmd}<提交物品/@shangjiao>             ^<关闭窗口/@doexit> \ \'
	      );
end.

分享到：

赞(0)