Мининг Дрв...

[Unholy]

Вообщем суть скрипта Чар стоит в пещерке, копает вокруг себя.

Еще круче было бы, если увидело ЛЮБОГО ЧАРА (в пределах экрана) - Пьём инвизку, реколл по рунке

А вообще в идеале - Чтоб он убивал (и лутал) Элемов (пьем инвиз, каст вортекса... ) И реколлился домой (складывал, и летел обратно)...

Может такое гдето есть... но я не нашол!

[Ko]

чтобы все было, явно нету... обычный мининг точно есть, осталось добавить рекол от пка и килл элема...

Code: Select all

procedure mine_around;
var   dx, dy, timer : integer;
      memory : tdatetime;
begin
  for dx := -2 to 2 do begin
    for dy := -2 to 2 do begin
      repeat
          check_connect;
          if targetpresent then canceltarget;          
          usetype($0e85, $ffff);
          waitfortarget(5000);
          if targetpresent then begin
            targettotile(1341, getx(self) + dx, gety(self) + dy, getz(self));
            memory := now;
            timer := 0;
            repeat
              wait(100);
              timer := timer + 100;
            until (injournalbetweentimes('decide not to mine|You put|You loosen|There is nothing|too far away|reach this|location|elsewhere|mine|thoughts of battle', memory, now) <> -1) or (timer > 7500);
          end;
      until (injournalbetweentimes('There is nothing|too far away|reach this|location|elsewhere|mine here', memory, now) <> -1);
    end;
  end;
end;

вот простая процедурка обкоп вокруг себя без проверок

Code: Select all

procedure check_calm;
var   s : string;
      j, first, last : integer;
begin
    last := highjournal;
    if last > 15 then first := last - 15
      else first := 0;
    for j := last downto first do begin
      s := journal(j);
      if (lineid <> self) and ((linetype = $0190) or (linetype = $0191)) then begin
        addtosystemjournal(linename + ' is here');
        {тут придумай что надо делать}   
        exit;
      end;
    end;
end;

вот простая проверка на наличие вокруг людей по журналу

[Unholy]

Огромное спасибо!
Возможно в ближайшем времени добавлю недостающие ф-ии.