Page 1 of 1
Мининг Дрв...
Posted: 23.06.2008 2:32
by Unholy
Вообщем суть скрипта Чар стоит в пещерке, копает вокруг себя.
Еще круче было бы, если увидело ЛЮБОГО ЧАРА (в пределах экрана) - Пьём инвизку, реколл по рунке
А вообще в идеале - Чтоб он убивал (и лутал) Элемов (пьем инвиз, каст вортекса... ) И реколлился домой (складывал, и летел обратно)...
Может такое гдето есть... но я не нашол!
Posted: 08.07.2008 17:18
by 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;
вот простая проверка на наличие вокруг людей по журналу
Posted: 10.07.2008 0:06
by Unholy
Огромное спасибо!
Возможно в ближайшем времени добавлю недостающие ф-ии.