Snooping & Stealing for DRW

[v26RuS]

Все просто кидаем в сундук катлетки которые будем тырить прописываем все данные на основном чаре запускаем 1-й скрипт на леваке запускаем 2-й скриптик и все
1-й скрип

Code: Select all

Program snop_steal;
{$Include 'timer.inc'}
{$Include 'checksave.inc'}
{$Include 'skilloger.inc'}

const
BackEny = $40041466;	// ИД бекпака чара на ком качаемся
Sunduk = $40041466;	// Сундук с котлетками
itemst = $097B;		// Что будем красть
eda = $097B;		// Что будем кушать


procedure snooping;
var ctime:TTimer;
skills : array of TSkill;
begin
skills := [makeSkill('Snooping')];
ctime:=setTimer(60000*5);
repeat
if (isTimerExpire(ctime)) then
begin
FindType(eda,backpack)
if FindCount > 0 then
begin
checksave;
UseObject(FindItem);
wait(500);
end;
resetTimer(ctime);
end;
checksave;
UseObject(BackEny);
wait(2500);
skillLogger(skills, @journalLogger);
until (GetSkillValue('Snooping') = 100) or Dead;
end;

procedure Stealing;
 var ctime:TTimer;
 stime : TDateTime;
 ist:integer;
 skills : array of TSkill;
begin
 skills := [makeSkill('Stealing')];
 ctime:=setTimer(60000*5);
 UseObject(BackEny);
 wait(1000);
repeat
  if (isTimerExpire(ctime)) then
  begin
   FindType(eda,backpack)
   if FindCount > 0 then
   begin
    checksave;
    UseObject(FindItem);
    wait(500);
   end;
   resetTimer(ctime);
  end;
  checksave;
  FindType(itemst,BackEny);
  if FindCount > 0 then
  begin
   WaitTargetObject(FindItem);
   wait(300);
   UseSkill('Stealing');
   stime:=Now;
   ist:=Count(itemst);
   repeat
    wait(500);
   until (InJournalBetweenTimes('You fail', STime, Now)<>-1) or (Count(Itemst) > ist) or Dead;
  end;
 FindType(itemst,backpack);
 if (FindCount > 0) AND (Count(itemst) > 10) then
 begin
  moveitem(FindItem,ist,Sunduk,0,0,0);
  wait(800);
 end;
  skillLogger(skills, @journalLogger);
 until (GetSkillValue('Stealing') >= 100) or Dead;
end;

Begin
snooping;
stealing;
END.

2-й скрипт

Code: Select all

Program Popolnit_stealing;
const
Sunduk = $4035FF1B;	// Сундук с котлетками
itemst = $097B;		// Что будут красть

Begin
repeat
FindType(itemst,backpack);
if (FindCount=0) OR (GetQuantity(FindItem)<10) then 
begin
 useobject(Sunduk);
 wait(500);
 FindType(itemst,Sunduk);
 if FindCount > 0 then
 Begin
  Grab(FindItem,100);
 end;
end;
wait(10000);
until dead;
End.

[Unholy]

Я как человек с опытом в этом деле (я 3 чарам качал и то и другое) могу сказать пару вещей.
1. Снупинг и стилинг качаеться отдельно!
2. На левача можно еще одеть 1 курсовую шмотку) Это снизит его дексу, а декса играет большую роль как для снупинга дак и для стилинга.
3. "Тырить" лучше всего - Золото! Оно не имеет веса. (и опять же тут прикол в том что чем меньше вес у вещи, тем больше шанс ее стырить)

Ну и небольшой П. С.
Снупинг - нужный скилл если вы хотете покупать с рук карты, и прочую ерунду которая покупаеться мешками.
Стилинг - бесполезный скилл! Он бесполезен даже если создать левача с 200 дексы! Все-равно воровать вы сможете только золото! А вы много знаете чаров которые стоят в гз с большим кол-вом золота в паке?

На основном персе качать стилинг - глупо! Вы даже золото воровать не сможете (ну так чтоб не стать серым).

[$hkeR]

немогу понять где взять ети фаилы:

Code: Select all

{$Include 'timer.inc'} 
{$Include 'skilloger.inc'}

помогите[/code]

[v26RuS]

Update
1-y skript

Code: Select all

Program snop_steal;
{$Include 'timer.inc'}
{$Include 'checksave.inc'}
{$Include 'skilloger.inc'}

const
BackEny = $400496FD;	// ИД бекпака чара на ком качаемся
Sunduk = $4035FF1B;	// Сундук с котлетками
itemst = $097B;		// Что будем красть
eda = $097B;		// Что будем кушать


procedure snooping;
var ctime:TTimer;
skills : array of TSkill;
begin
skills := [makeSkill('Snooping')];
ctime:=setTimer(60000*5);
repeat
if (isTimerExpire(ctime)) then
begin
FindType(eda,backpack)
if FindCount > 0 then
begin
checksave;
UseObject(FindItem);
wait(500);
end;
resetTimer(ctime);
end;
checksave;
UseObject(BackEny);
wait(2500);
skillLogger(skills, @journalLogger);
until (GetSkillValue('Snooping') = 100) or Dead;
end;

procedure Stealing;
 var ctime:TTimer;
 stime : TDateTime;
 ist:integer;
 skills : array of TSkill;
begin
 skills := [makeSkill('Stealing')];
 ctime:=setTimer(60000*5);
 UseObject(BackEny);
 wait(2500);
repeat
  if (isTimerExpire(ctime)) then
  begin
   FindType(eda,backpack)
   if FindCount > 0 then
   begin
    checksave;
    UseObject(FindItem);
    wait(500);
   end;
   resetTimer(ctime);
  end;
  checksave;
  FindType(itemst,BackEny);
  if FindCount > 0 then
  begin
   WaitTargetObject(FindItem);
   wait(300);
   UseSkill('Stealing');
   stime:=Now;
   ist:=Count(itemst);
   repeat
    wait(500);
   until (InJournalBetweenTimes('You fail', STime, Now)<>-1) or (Count(Itemst) > ist) or Dead;
  end;
 FindType(itemst,backpack);
 if (FindCount > 0) AND (Count(itemst) >= 10) then
 begin
  moveitem(FindItem,5,Sunduk,0,0,0);
  wait(800);
 end;
  skillLogger(skills, @journalLogger);
 until (GetSkillValue('Stealing') >= 100) or Dead;
end;

Begin
if (GetSkillValue('Snooping') < 100) then
begin
 AddToSystemJournal('Snooping');
 snooping;
end;
 AddToSystemJournal('Stealing');
 stealing;

END.

2-y skript

Code: Select all

Program Popolnit_stealing;
const
Sunduk = $4035FF1B;	// Сундук с котлетками
itemst = $097B;		// Что будут красть

Begin
repeat
FindType(itemst,backpack);
if (FindCount=0) OR (GetQuantity(FindItem)<3) then 
begin
 useobject(Sunduk);
 wait(500);
 FindType(itemst,Sunduk);
 if FindCount > 0 then
 Begin
  Grab(FindItem,5);
 end;
end;
wait(10000);
until dead;
End.

Code: Select all

{$Include 'timer.inc'}
{$Include 'skilloger.inc'}

Berem otsuda
http://stealth.od.ua/forum/viewtopic.php?t=152

[MurZilka]

Не мог бы слегка модифицировать скрипт, а? Чтоб основной чар крал у левака из БЭК ПЭКА указанный ИТЕМ (скажем перо), потом после того, как основной чар украдет указанный итем, он кидает его на пол. Второй чар ЛЕВАК, подбирает перо с пола, а первый опять его ворует. И так пока стилинга не будет предел. Просто я нечиго не понимаю в скриптах. Был бы очень благодарен за этот скрипт.
Еще раз. Суть следующая: основной чар ворует один итем, когда он его своровал он выкидовает его из бэк пэка себе под ноги, левочар подбирает у него этот итем из под ног и кладет себе в бэк пэк. Основной опять ворует и кидает. И т.д. Будут ВМР скоро, 100 рублей закину за этот скрипт. Слово даю.
Мой меил [email protected]

[Envy]

Я, как человек с опытом...
Стилинг - бесполезный скилл! Он бесполезен даже если создать левача с 200 дексы! Все-равно воровать вы сможете только золото! А вы много знаете чаров которые стоят в гз с большим кол-вом золота в паке?

Я, как человек с опытом, тырю в гз реги, арморы, пушки, бинты, стрелы, химию, гп, и многое другое имея всего 100 дексы.


ЗЫ. Для прокачки, действительно, лучше тырить гп, а левачу одеть курсу до нуля ловкости

[Envy]

После ВорлдСейва прекращает тырить. Каждый раз надо перезапускать скрипт. Заставил понервничать...

[Envy]

из УОжурнала

Code: Select all

[02:07:58:805] System: You can't see the target

После ничего не происходит. Всмысле не ворует.