Прошу помощи

[tuxuu1988]

Не могу наити скрипт на скупку у вендоров реагентов пробывал по поиску но не могу наити ! если нахожу то все время стелч ругаеться на ошибки или на то что не хватает инклудов ! инклюды пробывал искать на форуме ну таких нету

[Vizit0r]

ссылки на "неработающие" скрипты в студию + ошибки.

[tuxuu1988]

Вот дали вот такои скрипт но не могу запустить его и все время выдает ошибки ! да и чекфлов не наити и мове ин тоже не могу наити! Помогите плизз или даите какои рабочии

program autobuy;
{$Include 'all.inc'}
{$Include 'checkflow.inc'}
{$Include 'move.inc'}

const
kolvo = 1000;
s_reag = $4170DD16;
r_home = $41945D95;
rmax = 12;
b=0;
run=$1F14;
br_bag = $41C6DEE6;
r_bag = $41C6DEE6;

type
buy_rail = array[1..rmax] of Integer;
rune_rail = array[1..30] of Integer;
regs_rail = array[1..3] of Integer;
ven_rail = array[1..2] of Integer;


var
buy : buy_rail;
rune : rune_rail;
rumax, r, oldx, oldy, mark_key : Integer;
r_homes : Cardinal;
Times : TDateTime;

procedure IntRune;
var r : integer;
begin
AddToSystemJournal('Инициализация рун');
UseObject(r_bag);
wait(1000);
findtype(run,r_bag);
rumax:=FindCount;
for r:=1 to rumax do
begin
checksave;
findtype(run,r_bag);
rune[r]:=FindItem;
Ignore(FindItem);
end;
AddToSystemJournal('Инициализированно '+IntToStr(rumax)+' рун');
IgnoreReset;
end;

procedure Intbuy;
begin
AddToSystemJournal('Инициализация покупок');
buy[1] := $0F7B; //BM
buy[2] := $0F7B; //NS
//buy[3] := $0E34; //BLS
//buy[4] := $0F1B; //DM
//buy[5] := $0F84; //GA
//buy[6] := $0F85; //GI
//buy[7] := $0F86; //MR
//buy[8] := $0F87; //NW
if not GetAutoBuyMode then SetAutoBuyMode(true);
SetAutoBuyDelay(1);
end;

procedure Reags;
var Reg : regs_rail;
i : Integer;
begin
Reg[1]:=$0F7B;
Reg[2]:=$0F7A;
Reg[3]:=$0F86;
AddToSystemJournal('Берем реги');
Useobject(s_reag);
wait(1000);
for i:=1 to 3 do
begin
findtype(Reg,backpack)
if (FindCount = 0) or (Count(Reg) < 20) then
begin
findtype(Reg,s_reag);
if findcount > 0 then
begin
checksave;
MoveItem(FindItem,50,Backpack,0,0,0);
wait(800);
end;
end;
end;
end;

procedure check_mana;
begin
AddToSystemJournal('Проверка маны');
if Mana < 30 then
begin
repeat
useskill('Meditation');
checksave;
wait(5000);
until Mana = Int;
end;
end;

procedure vendor_buy;
var ven : ven_rail;
vx,vy,i,z,bs : Integer;
vn : string;
begin
AddToSystemJournal('Ищем вендоров и покупаем');
ven[1]:=$0190;
ven[2]:=$0191;
FindDistance:=6;
ignore(Self);
for i:=1 to 2 do
begin
findtype(ven,ground)
if FindCount > 0 then
begin
for z:=1 to FindCount do
begin
FindType(ven,ground);
ClickOnObject(FindItem);
vx:=GetX(FindItem);
vy:=GetY(FindItem);
vn:=GetName(FindItem);
if (GetDistance(FindItem) > 3) then
begin
checksave;
move(vx, vy, 2);
end;
for bs:=1 to rmax do
begin
checksave;
AutoBuy(buy,$0000,kolvo);
UOSay(vn+' buy guards');
wait(5000);
end;
UOSay(vn+' bye');
Ignore(FindItem);
wait(1000);
end;
end;
end;
IgnoreReset;
end;

procedure razgruz;
var i,cnt : Integer;
begin
AddToSystemJournal('Разгрузка');
for i:=1 to rmax do
begin
findtype(buy,backpack);
if FindCount > 0 then
begin
cnt:=GetQuantity(FindItem);
checksave;
moveitem(FindItem,cnt,s_reag,0,0,0);
wait(800);
end;
end;
end;

begin
AddToSystemJournal('Запуск скрипта');
Intbuy;
IntRune;
r_homes:=r_home;
useobject(r_bag);
wait(1000);
useobject(br_bag);
wait(1000);
repeat
Reags;

findtype(run,r_bag);
rumax:=FindCount;
for r:=1 to rumax do
begin
oldx:=GetX(Self);
oldy:=GetY(Self);
AddToSystemJournal('Прыгаем по руне №'+IntToStr(r));
repeat
checksave;
check_mana;
cast('Recall');
WaitForTarget(1500);
TargetToObject(Rune[r]);
wait(6000);
until (oldx <> GetX(Self)) AND (oldy <> GetY(Self));

ClearJournal;
wait(500);
Times:=Now;
ClickOnObject(Rune[r]);
wait(4000);
if (inJournalBetweenTimes('(2 charges)', Times, Now) <> -1) or (inJournalBetweenTimes('(1 charges)', Times, Now) <> -1) then
begin
AddToSystemJournal('Ремарк руны №'+IntToStr(r));
UseObject(br_bag)
wait(1000);
findtype(run,br_bag)
wait(1000);
moveitem(FindItem,1,Backpack,0,0,0);
wait(1000);
repeat
checksave;
check_mana;
FindType(run,backpack);
cast('Mark');
WaitForTarget(1500);
TargetToObject(FindItem);
wait(10000);
Times:=Now;
mark_key:=1;
if (inJournalBetweenTimes('spell', Times, Now) <> -1) then
begin
mark_key:=0;
end;
until mark_key=1;
mark_key:=0;
DropHere(Rune[r]);
Rune[r]:=FindItem;
moveitem(FindItem,1,r_bag,0,0,0);
wait(800);
end;
vendor_buy;
end;

oldx:=GetX(Self);
oldy:=GetY(Self);
AddToSystemJournal('Летим домой');
repeat
checksave;
check_mana;
cast('Recall');
WaitForTarget(1500);
TargetToObject(r_homes);
wait(6000);
until (oldx <> GetX(Self)) AND (oldy <> GetY(Self));
ClearJournal;
wait(500);
Times:=Now;
ClickOnObject(r_homes);
wait(2000);
if (inJournalBetweenTimes('(2 charges)', Times, Now) <> -1) or (inJournalBetweenTimes('(1 charges)', Times, Now) <> -1) then
begin
AddToSystemJournal('Ремарк руны домой');
UseObject(br_bag)
wait(1000);
findtype(run,br_bag)
wait(1000);
moveitem(FindItem,1,Backpack,0,0,0);
wait(1000);
repeat
checksave;
check_mana;
FindType(run,backpack);
cast('Mark');
WaitForTarget(1500);
TargetToObject(FindItem);
wait(8000);
Times:=Now;
mark_key:=1;
if (inJournalBetweenTimes('spell', Times, Now) <> -1) then
begin
mark_key:=0;
end;
until mark_key=1;
mark_key:=0;
DropHere(r_homes);
r_homes:=FindItem;
wait(800);
end;
razgruz;
wait(1000);
repeat
useskill('Hiding');
checksave;
wait(5000);
until Hidden;
wait(350000);
until Dead;
End.

[Vizit0r]

если бы ты хотел - ты бы вписал checkflow в поиск форума и нашел бы.
например, вот - http://stealth.od.ua/forum/viewtopic.ph ... =checkflow.


а насчет

не могу запустить его и все время выдает ошибки

телепаты, которые силой мыслей узнают ошибки, которые выдаются - ушли в отпуск.

[tuxuu1988]

спасибо большое буду разбераться счас

[tuxuu1988]

что может быть когда загружен скрипт не работает не один таргет каторыи ты хочешь зделать сам например по лететь по другои руне или просто кастануть с книги магии что нибудь.

[Vizit0r]

а теперь по-русски повтори.

[tuxuu1988]

если хочешь зделать таргет через бинд кнопки он сразу делает target cancel

[Verana]

Можно ли сотворить скрипт на скупку регов или иных итемов в котором можно было бы указывать имена вендоров либо id и чтоб чар после рекола по руне находил это id, обходил все препятствия на экране и подходил в плотную к торговцу, чтоб купить то что будет указано в скрипте. Дело в том что на серваке все нпс торговцы активно ходят и надо стоять к ним в плотную чтоб купить итем, к тому же бывает так что продавцы стоят рядом и на команду buy будет откликаться один и тот же... В таких случаях я обычно кликаю на вендора, появляется менюшка где можно выбрать интересующие тебя действие ( как правило это выучить скиллы, buy и sell)... Понимаю что это будет не просто реализовать... Играю на Zulu Hotel Europe. Пока ещё молодой проект.

[tuxuu1988]

все разобрался и с таргетом

[Verana]

Рад за вас, но этот скопит у нас не пойдёт... А тонко настроить под наш сервак знаний не хватит...

[Vizit0r]

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

[Verana]

А если не просто так? За одно изучу готовый скрипт и проанализирую как какой код срабатывает и за что отвечает...

[Vizit0r]

я-то писать скрипт не буду в любом случае, так что "А если не просто так?" - не ко мне.
А насчет изучения - да вот в этом же разделе первые три прилепленных топика - подробный скриптинг для начинающих. Ну а потом - читать чужие скрипты, будет намного понятнее.

[Verana]

Спасибо, постараюсь осилить) но как то все очень жутко сложно выглядит, по ощущениям куда проще китайскую грамоту изучить)