Шоб качать етот скил на етом скрипте следует зделать следующее:
1.Используете версию Стелса (1,00);
2.Нада два чара ставите их друг на против друга я думаю немешалобы каждому из них выкачать сначала снупинг хотябы до 80 но ето по желанию;
3.В етом скрипте вещ для стилинга ето крис но вы можете поставить любой тайп воруемого предмета;
4.Для прокачки нада будет каждому чару поставить ID бекпака противника в макросе Program stealing;
// v.2.01b (зделан (с)proZak- под шард AoP) {$Include 'all.inc'}
var my_timer: Integer;
item_type : Word;
time_begin : TDateTime;
EnemyWarrior : Cardinal;
const
pack =
$50B46B73; // ID бекпака чара у которого воруем
EnemyType1 = $0190; // типы чаров разных полов
EnemyType2 = $0191;
Bint=$1400; // тайп воруемого предмета function AutoFindEnemy : Cardinal;
// функция поиска чаров рядом для определения жертви
// Возвращает сериал жертви.
begin
Finddistance := 1;
Ignore(self);
if FindType(EnemyType1, Ground) = 0 then FindType(EnemyType2, Ground);
if finditem = 0 then
begin
// не нашли врагов <img src="http://src.ucoz.net/sm/1/sad.gif" border="0" align="absmiddle" alt="sad">
AddToSystemJournal('Error: жертва не найдена!');
Result := $00000000;
Exit;
end
else
begin
// Ага! Вот он, гадина!
AddToSystemJournal('Enemy found: ' + GetName(finditem));
Result := finditem;
end;
end;
Begin
ClearJournal;
SetWarMode(false);
SetARStatus(true);
if not connected then connect;
repeat
while (dead = false) and (connected = true) do
begin
EnemyWarrior := AutoFindEnemy;
if EnemyWarrior = $00000000 then exit
UseObject(EnemyWarrior);
wait(1000);
checksave;
UseObject(pack);
wait(1000);
checksave;
begin
waitconnection(3000);
CheckSave;
UseSkill('Stealing');
waitTargetObject(findType(bint, pack));
wait(10000);
end;
end;
wait(500);
if dead then
begin
AddToSystemJournal('Умерли');
SetARStatus(false);
Disconnect;
Exit;
end;
until false;
End.
