Скрипт на ловлю таликов

[ahmed544]

@Алеку, в последнем end выдает ошибку при проверке скрипта

 

[ahmed544]

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

 

[iMxO]

@ahmed544, он итак их удаляет. Что значит "при полном инвентаре он уже" ?

 

[ahmed544]

@iMxO, уже разобрался, за что большое спасибо Громе)

 

[magogs]

Emancipator, чтобы расти в делфи нужно не делать подобную ерунду, а ставить перед собой такие задачи, которые ты не сможешь сделать с текущими знаниями. Чтобы ты пытался, искал информацию. Либо чтобы укрепить свой фундамент и текущий скилл, ставить перед собой решаемые, но объемные задачи. А теперь я покажу тебе, что такое именно Delphi. http://dl3.joxi.net/.../b2205d9d2c.png Так что не стыдись, еще не дорос. )

Или просто по мере поступления задачи =)

 

[Derbrent]

[member=Hunter], не подскажите как поправили что бы удалял не нужные талики ?

 

[ahmed544]

[member=Damaes],

procedure talisman;
var
item: TL2Item;
begin
while 1<>2 do begin
engine.SetTarget(35656);
delay(333);
Engine.Dlgopen ();
delay(333);
Engine.Dlgsel(6);
delay(333);
Engine.Dlgsel(1);
end;
end;

procedure delete_items; //берем сначала процедурку
var i,count: integer; //ебашим переменные
begin
while true do begin //зацикливаем наше гамно
For i := 0 to (itemlist.count-1) do begin //ой бля, я хочу весь интвентарь
Case itemlist.items(i).id of
9921,9917,10534,9930,10542,9963,9960,10542,9965,10543,9928,10422,9925,10541,10421,9948,9958,9934,10418,10536,9938,10535,9929,9927,9964,9957,10533,9935,10537,10419,9916,9933,9943,9942,9937,10423,9961,9939,10535,10539,9950,9931,9914,9949,9947,9962,10420,9945,9922,9936,9954,10540,10416,9920,9952,9946,9944,9926,9953,9951,10519,10538,9924,9956 : //тут ебашишь свои айдишники ненужных таликов
begin
Engine.DestroyItem(itemlist.items(i).id, 1); //удаляем все к чертям
delay(1000+random(160)); //делей для слабых, мы же не боты, юзаем рандом
end; //я просто в ахуе и ебашу змейкой энды!
end;
end;
end;
end;

begin
script.newThread(@talisman);
script.newThread(@delete_items);
end.
где делай 1000+рандом 160 выставляй свои цифры в зависимости от компа. у меня хороший комп поэтому поставил удаление каждую секунду

 

[ХОРВЕСТР]

у меня хороший комп поэтому поставил удаление каждую секунду

ID таликов на всех серваках одинаковые?

 

[ahmed544]

@ХОРВЕСТР,
по идее да.. а там хз,я не сверял .