function MobInZone:boolean;
var
    i:integer;
    mob:TL2live;
begin
    result:=false;
    for i:=0 to npclist.count-1 do
    begin
        mob:=npclist.items(i);
        if ((mob.inzone) and (not mob.dead) and (mob.valid) and (abs(mob.z-user.z)<=200)) then result:=true;
    end;
end;

procedure Farm;
begin
    engine.facecontrol(0, true);
    while MobInZone do delay(500);
    engine.facecontrol(0, false);
end;

begin
    while (true) do
    begin
        engine.loadzone('Disciples_Necropolis_new1.zmap');
        Farm;
        Engine.MoveTo(179448, -10008, -4880);
        Engine.MoveTo(180472, -10040, -4880);

        engine.loadzone('Disciples_Necropolis_new2');
        Farm;
        Engine.MoveTo(180760, -10520, -4880);
        Engine.MoveTo(182472, -10536, -4880);
        Engine.MoveTo(182440, -9208, -4880);
        Engine.MoveTo(182440, -8888, -4880);

        engine.loadzone('Disciples_Necropolis_2.zmap');
        Farm;
        Engine.MoveTo(182959, -8423, -4927);
        Engine.MoveTo(182964, -7607, -4925);

        engine.loadzone('Disciples_Necropolis_3.zmap');
        Farm;
        Engine.MoveTo(182648, -7297, -4925);
        Engine.MoveTo(181422, -7292, -4925);

        engine.loadzone('Disciples_Necropolis_1.zmap');
        Farm;
        Engine.MoveTo(180616, -7528, -4880);
        Engine.MoveTo(180616, -8696, -4880);
        Engine.MoveTo(179928, -8712, -4880);
        Engine.MoveTo(179944, -9048, -4880);
        Engine.MoveTo(178872, -9016, -4880);
        Engine.MoveTo(178856, -10008, -4880);

        delay(2000);
    end;
end.