Stealing

[-=JoKeR=-]

Немогу понять как зделать, всё перепробовал. мои знания в стэлсе не позволяют доделать дальше алгоритм.
Чар юзает перчатки и таргетом на чара.
Если фэйл, то пишется You failed to snoop "Charname"
Если удачно, то ничего не пишется, а просто открывается пак.
Дальше юзаем перчатки и тыкаем на предмет, который воруем.
Если своровал, то следовательно сообщение You put...
Если не своровал, то failed.
Дальше по кругу.
Кто-то сможет перевести на стэлс ? =)
А дальше я сам.

Code: Select all

Вырезано =)

[Edred]

OFFTOPIC ON

Кстати, что там на форест варз? Вайп-то был?

OFFTOPIC OFF

[-=JoKeR=-]

Можешь зайти на сайт или форум и увидеть таймер, который ведёт отсчёт до вайпа. ШД скриптит в поте лица, я по карте помогаю. Осталось меньше месяца
Помоги со скриптом пожалуста, ты же наверняка качал стилинг у нас

[Edred]

Не, до стилинга я так и не добрался... Поэтому и не разбирался как он качается и как под него скрипты писать. А на стелсе я только на Форест Варз играл.

[-=JoKeR=-]

Понятно, тогда буду ждать пока кто-то поможет или пока сам додумаюсь, или пока ты вернёшься на ФВ, будешь качать стилинг, напишешь скриптик и поделишься им

[Edred]

На последнее особо не рассчитывай. Не насчет поделиться, а на счет моего возвращения куда-либо в УО. Вероятность того, что я снова начну играть в УО - примерно 0,0000000000000000000000001%

[-=JoKeR=-]

А зачем интересуешься шардом тогда ? =)

[grundick]

Попробуй.Ошибки могуть быть, сам исправишь

Code: Select all

Program Stealing;
// made by -=JoKeR=- ©
// for Forest Wars Shard

{$Include 'all.inc'}

Const
   Doll = $00085882; // ID  чара, у которого воруем
   Gloves = $400C3CB8; // ID перчаток
   Deelz = $0F7A; // тип предмета, который воруем

Var 
   STime: TDateTime;

  procedure Snoop;
  Begin
    repeat
       If Not Connected OR Dead then Exit;
       checksave;
       if TargetPresent then CancelTarget;
       STime:=Now;
       UseObject(Gloves);
       WaitTargetObject(Doll);
       WaitJournalLine(STime,'You failed to snoop',5000);
    until (InJournalBetweenTimes('You failed to snoop',STime,Now)=-1);
  End;
  
  procedure Stealing;
  Var
     TargetBackPack: cardinal;
  Begin
    checksave;
    TargetbackPack:=ObjAtLayerEx(BpackLayer,Doll);
    repeat
       If Not Connected OR Dead then Exit;
       FindType(Deelz,TargetBackPack); 
       If FindCount>0 then 
          begin
	  if TargetPresent then CancelTarget;
	  STime:=Now;
	  UseObject(Gloves);
	  WaitTargetObject(FindItem);
          WaitJournalLine(STime,'You put|failed.',5000);
	  end
       Else Exit;
    until (InJournalBetweenTimes('failed.',STime,Now)=-1);
 End;
  
BEGIN
WaitConnection(5000);
SetARStatus(true);
while not Dead do
  begin
  If Connected then
     begin
     Snoop;
     Stealing;
     end
  Else 
     Wait(5000);
   end;
END.

[-=JoKeR=-]

Ок, спасибо, попробую, только не под пивом)))
отпишусь завтра))

[-=JoKeR=-]

grundick, ОГРОМНОЕ спасибо за помощь, сидел бы рядом я бы тебя расцеловал
Скрипт - конфетка =)
Есть один вопрос ещё.
Когда запускаю ниже указанный скрипт, то проц загружается на все 100%. Почему так ?

Code: Select all

Deleted

[grundick]

repeat
if Count(Deelz) = 0 then

until;
Если Count(Deelz)<>0 скрипт гоняет пустой цикл.

Code: Select all

Program PodborDeelzForStealing;

{$Include 'all.inc'}

const
Deelz = $0F7A;
CountDeelz = 2;

Begin
repeat
  checksave;
  if Count(Deelz) = 0 then 
    begin 
      waitconnection(3000); 
      findtype(Deelz,ground); 
      if GetQuantity(Finditem) < CountDeelz then 
      begin 
        repeat 
            AddToSystemJournal('-= Ждём пока чар сворует и выкинет на пол Deelz =-'); 
            wait(10000); 
            findtype(Deelz,ground); 
        until GetQuantity(Finditem) = CountDeelz; 
      end;  
      Grab(FindItem,CountDeelz);
      AddToSystemJournal('-= Подобрал Deelz =-');	  
      wait(1000);  
    end
   Else Wait(500);
until Dead;	
End.

[-=JoKeR=-]

Ага, вижу ошибку =)

Code: Select all

Else Wait(500);

[-=JoKeR=-]

грюндик, прочитай лс

[grundick]

Ага, вижу ошибку =)

Code: Select all

Else Wait(500);

Это не ошибка, это как раз исправление ошибки

[-=JoKeR=-]

Ну я не так выразился =)