Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Прошу помощи
Прошу помощи
Не могу наити скрипт на скупку у вендоров реагентов пробывал по поиску но не могу наити ! если нахожу то все время стелч ругаеться на ошибки или на то что не хватает инклудов ! инклюды пробывал искать на форуме ну таких нету
Re: Прошу помощи
ссылки на "неработающие" скрипты в студию + ошибки.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Прошу помощи
Вот дали вот такои скрипт но не могу запустить его и все время выдает ошибки ! да и чекфлов не наити и мове ин тоже не могу наити! Помогите плизз или даите какои рабочии
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.
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.
Re: Прошу помощи
если бы ты хотел - ты бы вписал checkflow в поиск форума и нашел бы.
например, вот - http://stealth.od.ua/forum/viewtopic.ph ... =checkflow.
а насчет
например, вот - http://stealth.od.ua/forum/viewtopic.ph ... =checkflow.
а насчет
телепаты, которые силой мыслей узнают ошибки, которые выдаются - ушли в отпуск.не могу запустить его и все время выдает ошибки
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Прошу помощи
спасибо большое буду разбераться счас
Re: Прошу помощи
что может быть когда загружен скрипт не работает не один таргет каторыи ты хочешь зделать сам например по лететь по другои руне или просто кастануть с книги магии что нибудь.
Re: Прошу помощи
а теперь по-русски повтори.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Прошу помощи
если хочешь зделать таргет через бинд кнопки он сразу делает target cancel
Re: Прошу помощи
Можно ли сотворить скрипт на скупку регов или иных итемов в котором можно было бы указывать имена вендоров либо id и чтоб чар после рекола по руне находил это id, обходил все препятствия на экране и подходил в плотную к торговцу, чтоб купить то что будет указано в скрипте. Дело в том что на серваке все нпс торговцы активно ходят и надо стоять к ним в плотную чтоб купить итем, к тому же бывает так что продавцы стоят рядом и на команду buy будет откликаться один и тот же... В таких случаях я обычно кликаю на вендора, появляется менюшка где можно выбрать интересующие тебя действие ( как правило это выучить скиллы, buy и sell)... Понимаю что это будет не просто реализовать... Играю на Zulu Hotel Europe. Пока ещё молодой проект.
Re: Прошу помощи
все разобрался и с таргетом
Re: Прошу помощи
Рад за вас, но этот скопит у нас не пойдёт... А тонко настроить под наш сервак знаний не хватит...
Re: Прошу помощи
все это можно сделать без особых усилий, главное захотеть.
Никто такое просто так писать под тебя не будет.
Никто такое просто так писать под тебя не будет.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Прошу помощи
А если не просто так? За одно изучу готовый скрипт и проанализирую как какой код срабатывает и за что отвечает...
Re: Прошу помощи
я-то писать скрипт не буду в любом случае, так что "А если не просто так?" - не ко мне.
А насчет изучения - да вот в этом же разделе первые три прилепленных топика - подробный скриптинг для начинающих. Ну а потом - читать чужие скрипты, будет намного понятнее.
А насчет изучения - да вот в этом же разделе первые три прилепленных топика - подробный скриптинг для начинающих. Ну а потом - читать чужие скрипты, будет намного понятнее.
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
Re: Прошу помощи
Спасибо, постараюсь осилить) но как то все очень жутко сложно выглядит, по ощущениям куда проще китайскую грамоту изучить)