用于战神引擎的玩家每日任务Npc脚本，脚本每天都会给玩家新的任务，完成以后有对应的奖励，脚本是明文版，可以任意修改任务内容和奖励名单，脚本牵扯到变量，适合有一定的变量知识的Gm使用。

部分脚本

procedure _jies;
var ruid : integer;
begin
    ruid := This_Player.GetV(34,10);
     if ruid = 0 then
     begin
       case random(12) of
         0:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,11,1);
		      	 This_Player.SetV(36,11,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         1:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,12,1);
		      	 This_Player.SetV(36,12,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         2:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,13,1);
			       This_Player.SetV(36,13,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         3:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,14,1);
			       This_Player.SetV(36,14,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         4:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,1,1);
			       This_Player.SetV(16,2,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         5:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,9,1);
			       This_Player.SetV(16,3,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         6:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,16,1);
			       This_Player.SetV(16,4,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         7:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,17,1);
			       This_Player.SetV(16,5,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         8:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,18,1);
			       This_Player.SetV(16,6,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         9:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,19,1);
			       This_Player.SetV(16,7,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         10:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(34,20,1);
			       This_Player.SetV(16,8,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
         11:
         begin
             This_Player.SetV(34,10,1);
             This_Player.SetV(32,35,1);
			       This_Player.SetV(16,9,0);
             This_NPC.NpcDialog(This_Player,'杀怪任务已领取成功，请指定地图杀怪'+'|{cmd}<返回/@sha>');
         end;
       end;  
     end else
     if ruid = 1 then
     begin
         This_NPC.NpcDialog(This_Player,'今天的杀怪任务你已领取过，请先去完成任务'+'|{cmd}<返回/@sha>');
     end else
     if ruid = 2 then
     begin
         This_NPC.NpcDialog(This_Player,'今天的杀怪任务你已完成了，请明天再来'+'|{cmd}<返回/@sha>');
     end; 
end;