Авторизация  
machette

Стилинг

В теме 3 сообщения

Цитата

program stealing;

const
Enemy = $00050F55;
LootItemType = $097B;
ItemCount = 250;

{$Include 'all.inc'}

BEGIN
AddToSystemJournal('Present by Hi-tech.');
while (not Dead) do
begin
checksave;
Hungry(1,Ground);
UseSkill('Stealing');
WaitTargetObject(enemy);
Wait(2500);
if (CountEx(LootItemType,$0000,LastContainer) > 0) then
begin
repeat
UseSkill('Stealing');
WaitTargetObject(FindType(LootItemType,LastContainer));
Wait(2500);
until (CountEx(LootItemType,$0000,LastContainer) = 0);
end;
if (Count(LootItemType) > 0) then
begin
stack(LootItemType,$0000);
Wait(500);
end;
if (Count(LootItemType) = 0) then
begin
MoveItem(FindType(LootItemType,Ground),ItemCount,Backpack,0,0,0);
Wait(500);
end;
end;
END. 

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

подскажите как после воровства предмет опять оказывается у того у кого воруют?

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

выше указанный скрипт на чара у которого воруют

а на вора вот такой 

program stealing;

const
Enemy = $001B83E2;
LootItemType = $097A;
ItemCount = 100;

{$Include 'all.inc'}

BEGIN
AddToSystemJournal('Present by Hi-tech.');
while (not Dead) do
begin
checksave;
Hungry(1,Ground);
UseSkill('Stealing');
WaitTargetObject(enemy);
Wait(2500);
if (CountEx(LootItemType,$0000,LastContainer) > 0) then
begin
repeat
UseSkill('Stealing');
WaitTargetObject(FindType(LootItemType,LastContainer));
Wait(2500);
until (CountEx(LootItemType,$0000,LastContainer) = 0);
end;
if (Count(LootItemType) > 0) then
begin
stack(LootItemType,$0000);
Wait(500);
end;
if (Count(LootItemType) = 0) then
begin
MoveItem(FindType(LootItemType,$44444444),ItemCount,Backpack,0,0,0);
Wait(500);
end;
end;
END. 

по данному скрипту ворует и кидает под ноги

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Вы должны быть пользователем, чтобы оставить комментарий

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация