Page 1 of 1
помогите разобраться!
Posted: 29.10.2011 19:11
by kykypy3a
я его настроил! но в скриптах я не очень! надо когда с бэкпака пропадает(воруют) блэкперлы что бы чяр добирал из из сундука(трюма) но он просто стоит и ничего не делает! Шард Форест варс! кто может помогите плз!
Code: Select all
Program testing;
const
Item= $0F7A; // Итем
Color= $0000; // Цвет
Sunduk= $47B7F194; // ИД Сундука
waittime= 10; // Сколько ждать
qty= 65; // Кол-Во
procedure CheckItem;
begin
if (Count(Item) < 1) then
begin
MoveItem(FindTypeEx(Item,Color,Sunduk,False),qty,Backpack,0,0,0);
wait(waittime);
end;
end;
BEGIN
addtosystemjournal('Скрипт стартовал');
setarstatus(true);
while true do
begin
CheckItem;
end;
END.
Re: помогите разобраться!
Posted: 29.10.2011 21:47
by MuDaCk
Code: Select all
Program testing;
const
Item= $0F7A; // Итем
Color= $0000; // Цвет
Sunduk= $47B7F194; // ИД Сундука
waittime= 10; // Сколько ждать
qty= 65; // Кол-Во
procedure CheckItem;
begin
if (CountEx(item,ResColor,Backpack) < 1) then
begin
MoveItem(FindTypeEx(Item,Color,Sunduk,False),qty,Backpack,0,0,0);
wait(waittime);
end;
end;
BEGIN
addtosystemjournal('Скрипт стартовал');
setarstatus(true);
while true do
begin
CheckItem;
wait(100);
end;
END.
Re: помогите разобраться!
Posted: 01.11.2011 14:18
by kykypy3a
спасибо за помощь! тока токая проблемка! сундук под ногами( ид прописал ) когда запускаяю скрипт пишет Drag error: Object not found.
в этой строчке с Sunduk
Code: Select all
MoveItem(FindTypeEx(Item,Color,Sunduk,False),qty,Backpack,0,0,0);
поменял на Ground
Code: Select all
MoveItem(FindTypeEx(Item,Color,Ground,False),qty,Backpack,0,0,0);
и вот какая проблема! когда из пака мой вор ворует эти 65 шт ( в данном случае блэк перлы) тоон все лишь 1 раз берет с пола а потом просто стоит! в чем может быть проблема ?
когда делаю дисконект и сразу конект и запускаю скрипт он опять возмет эти 65шт у него их украдут и он просто стоит ничего не делает ( помогите плз
Re: помогите разобраться!
Posted: 01.11.2011 15:56
by MuDaCk
Code: Select all
Program testing;
const
Item= $0F7A; // Итем
Color= $0000; // Цвет
Sunduk= $47B7F194; // ИД Сундука
waittime= 10; // Сколько ждать
qty= 65; // Кол-Во
procedure CheckItem;
begin
if (CountEx(item,ResColor,Backpack) < 1) then
begin
useobject(Sunduk);
wait(400);
MoveItem(FindTypeEx(Item,Color,Sunduk,False),qty,Backpack,0,0,0);
wait(waittime);
end;
end;
BEGIN
addtosystemjournal('Скрипт стартовал');
setarstatus(true);
while true do
begin
CheckItem;
wait(100);
end;
END.
вотч то я добавил
useobject(Sunduk);
wait(400);
но там лучше через кол-во итемов в сундуке - типо если больше нуля, то воровать, если нет, то открывать сундук - так будет быстрее
Re: помогите разобраться!
Posted: 01.11.2011 17:14
by kykypy3a
спасибо щя потестю! тока вот еще чего так ?
at 13:18): Unknown identifier 'ResColor'
1 раз берет бп после это у него из пака их воруют и он просто стоит! больше не берет в пак ничего!
когда
он берет блэк перлы по 1 штуке все работает! а когда по 2 и до 9999 не хочет! тоесть как я понял он не проверяет кол-во складываемых обьектов!
кто в этом шарит помогите плз!
Re: помогите разобраться!
Posted: 01.11.2011 18:21
by MuDaCk
Code: Select all
at 13:18): Unknown identifier 'ResColor'
с этим надеюсь всё понятно)
когда
он берет блэк перлы по 1 штуке все работает! а когда по 2 и до 9999 не хочет! тоесть как я понял он не проверяет кол-во складываемых обьектов!
кто в этом шарит помогите плз!
Не могу понять как он может брать по одной штуке, если у тебя кол-во стоит 65. Хотя может ты в сундук по одной штучке складываешь...
Re: помогите разобраться!
Posted: 01.11.2011 18:26
by kykypy3a
MuDaCk wrote:Code: Select all
at 13:18): Unknown identifier 'ResColor'
с этим надеюсь всё понятно)
когда
он берет блэк перлы по 1 штуке все работает! а когда по 2 и до 9999 не хочет! тоесть как я понял он не проверяет кол-во складываемых обьектов!
кто в этом шарит помогите плз!
Не могу понять как он может брать по одной штуке, если у тебя кол-во стоит 65. Хотя может ты в сундук по одной штучке складываешь...
кстати по 1 тоже не берет (
ну это я разное пробывал и по 1 и по 100 не хочет и все!
какая система игрок№1 стоит берет к себе в бэк пак по 100 блэкперлов только тогда когда у него из бек пака игрок№2 их сворует! он берет только 1 раз по этому скрипту и все! дальше просто стоит!
Re: помогите разобраться!
Posted: 01.11.2011 18:32
by MuDaCk
значит скрипт зависает и паузу между проверками надо больше поставить...
Re: помогите разобраться!
Posted: 01.11.2011 18:34
by kykypy3a
я его дом труба шатал этого скрипта ) вообщем просто поменял
это
(CountEx(item,ResColor,Backpack) < 1) then
на это
(FindTypeEx(item,ResColor,Backpack,False) < 1) then
и все работает ))
спс за помощь )
Re: помогите разобраться!
Posted: 02.11.2011 17:08
by kykypy3a
kykypy3a wrote:я его дом труба шатал этого скрипта ) вообщем просто поменял
это
(CountEx(item,ResColor,Backpack) < 1) then
на это
(FindTypeEx(item,ResColor,Backpack,False) < 1) then
и все работает ))
спс за помощь )
и все же проблема актуальна! скрипт заработа но берет и по 1 и по 100 и по 65 шт но проблема в бругов! работает примерно 5 минут! и потом опять же просто стоит! иралса с задержками не помогло! в чем может быть причита ! вот скрипт который заработал!
Code: Select all
Program testing;
const
Item= $0F7A; // Итем
ResColor= $0000; // Цвет
Sunduk= $47D99ACA; // ИД Сундука
waittime= 1000; // Сколько ждать
qty= 100 ; // Кол-Во
procedure CheckItem;
begin
if (FindTypeEx(item,ResColor,Backpack,False) < 1) then
begin
useobject(Sunduk);
wait(400);
MoveItem(FindTypeEx(Item,ResColor,Sunduk,False),qty,Backpack,0,0,0);
wait(waittime);
end;
end;
BEGIN
addtosystemjournal('Скрипт стартовал');
setarstatus(true);
while true do
begin
CheckItem;
end;
END.
Re: помогите разобраться!
Posted: 03.11.2011 9:25
by MuDaCk
Code: Select all
BEGIN
addtosystemjournal('Скрипт стартовал');
setarstatus(true);
while true do
begin
CheckItem;
end;
END.
Ты хочешь сказать что ты после чек итем ставил задержку и скрипт всё равно зависает? А зачем ты её убрал? задержка должна быть обязательно!
Re: помогите разобраться!
Posted: 03.11.2011 10:53
by CFA
Code: Select all
const
itemType = $0F7A;
itemColor = $0000;
container = $47B7F194;
qty = 65;
begin
useObject(container);
checkLag(5000);
while true do
begin
wait(200);
findTypeEx(itemType, itemColor, Backpack, false);
if (finditem = 0) then
begin
findTypeEx(itemType, itemColor, container, false);
if findItem <> 0 then
begin
moveItem(finditem, qty, Backpack, 0, 0 ,0);
checkLag(5000);
end
else
begin
addToSystemJournal('В сундуке нет регов!');
exit;
end;
end;
end;
end.
Re: помогите разобраться!
Posted: 11.11.2011 16:09
by kykypy3a
CFA wrote:Code: Select all
const
itemType = $0F7A;
itemColor = $0000;
container = $47B7F194;
qty = 65;
begin
useObject(container);
checkLag(5000);
while true do
begin
wait(200);
findTypeEx(itemType, itemColor, Backpack, false);
if (finditem = 0) then
begin
findTypeEx(itemType, itemColor, container, false);
if findItem <> 0 then
begin
moveItem(finditem, qty, Backpack, 0, 0 ,0);
checkLag(5000);
end
else
begin
addToSystemJournal('В сундуке нет регов!');
exit;
end;
end;
end;
end.
огромное спасибо все работает!