Стилинг

[Diego]

Люди Добрые, дайте кто то скрипт на стилинг, для Фофа... или напишите... Пожалуйста...
выложите тут или в асю 334353710.
Оч прошу !

[L'inconnu]

Хз че такое фоф, вот есть кривоватенький вариант тут: http://drguild.eater.ru/scripts.php?script=stealing.sc
там при хапуске скрипта воруемая вещь должна лежать в паке у чара который ворует

[Diego]

ФоФ - Filds Of Fire.
у меня дыл такой скрипт, но я не наю, как его настроить...
если расскажешь как я попробую...
Вот например :

Code: Select all

program stealing;   { 24 марта 2006 г. }

var my_timer, stealing_item : Integer;
    item_type : Word;
    thief_name, victim_name : String;
    time_begin : TDateTime;

Begin

thief_name := 'XXX'   { вор }
victim_name := 'XXX'   { жертва }
stealing_item := $XXXXXXXX  { id воруемого предмета }
item_type := $XXXX   { тип воруемого предмета }

ClearJournal
SetWarMode(false)
SetARStatus(true)
if not connected then connect

repeat

   while (dead = false) and (connected = true) do
      begin

      if CharName = thief_name then
         begin
         if FindType(item_type, backpack) <> 0 then DropHere(stealing_item)
         wait(1000)
         while FindTypeEx(item_type, $FFFF, $FFFFFFFF, false) <> 0 do wait 250)
         while FindType(item_type, backpack) = 0 do
            begin
            if TargetPresent then CancelTarget
            WaitTargetObject(stealing_item)
            my_timer := timer + 10 * 1000
            time_begin := now
            UseSkill('Stealing')
            while (InJournalBetweenTimes('fail', time_begin, now) = -1) and (FindType(item_type, backpack) = 0) and (my_timer > timer) do wait(250)
            end
         AddToSystemJournal('Предмет успешно украден.')
         end

      if CharName = victim_name then
         begin
         while FindTypeEx(item_type, 0, ground, false) = 0 do wait(250)
         Grab(finditem, 1)
         wait(500)
         AddToSystemJournal('Возврат украденного предмета.')
         end

      end

   wait(500)

   if dead then
      begin
      AddToSystemJournal('Умерли')
      SetARStatus(false)
      Disconnect
      Exit
      end

until false

End.

так вот я не наю, что вписывать тут :

Code: Select all

while FindTypeEx(item_type, $FFFF, $FFFFFFFF, false)

вместо FFFFFF

[L'inconnu]

вводные данные задаются в начале скрипта, там где комментарии стоят с описанием, далее ничего трогать не надо

[Diego]

Что то я не пойму в этом скрипте...
Он просто юзает стилинг и на предмет и не юзает на чара вроде...
как сделать, что б он сначала юзал стилинг и на чара у которого ворует, а потом у него с пака воровал предмет !

[Miralex]

Перед WaitTargetObject(stealing_item); можно написать:

Code: Select all

WaitTargetObject("ID жертвы");
UseSkill('Stealing');
wait(1000);

[Diego]

А можете написать скрипт, что б 2 чара Воровали друг у друга один и тот же итем... ? просто чтоб запустить 2-х воров и они друг у друга открывали Пак, и воровали Итемы ?
если не трудно буду очень благодарен... и если будут тоже какие-то скрипты, то поделюсь без проблем !

[Cyn]

Этот Скрипт запускать на обих чарах?

upd. вс понял)[/b]

[Cyn]

Code: Select all

program stealing;   { 24 марта 2006 г. } 

var my_timer, stealing_item : Integer; 
    item_type : Word; 
    thief_name, victim_name : String; 
    time_begin : TDateTime; 

Begin 

thief_name := 'Thief';  { вор } 
victim_name := 'Dude';   { жертва } 
stealing_item:=$6A1D2F64; { id воруемого предмета or 6A1D2F64 6A17E93F}
item_type:=$140E;  { тип воруемого предмета or 1406} 

ClearJournal;
SetWarMode(false); 
SetARStatus(true); 
if not connected then connect;

repeat 

   while (dead = false) and (connected = true) do 
      begin 

      if CharName = thief_name then 
         begin 
         if FindType(item_type, backpack) <> 0 then DropHere(stealing_item); 
         wait(1000); 
         while FindTypeEx(item_type, $FFFF, $FFFFFFFF, false) <> 0 do wait(250); 
         while FindType(item_type, backpack) = 0 do 
            begin 
            if TargetPresent then CancelTarget; 
            WaitTargetObject(stealing_item); 
            my_timer := timer + 10 * 1000; 
            time_begin := now; 
            UseSkill('Stealing'); 
            while (InJournalBetweenTimes('fail', time_begin, now) = -1) and (FindType(item_type, backpack) = 0) and (my_timer > timer) do wait(250); 
            end;
         AddToSystemJournal('Предмет успешно украден.'); 
         end; 

      if CharName = victim_name then 
         begin 
         while FindTypeEx(item_type, 0, ground, false) = 0 do wait(250); 
         Grab(finditem, 1); 
         wait(500); 
         AddToSystemJournal('Возврат украденного предмета.'); 
         end;

      end; 

   wait(500); 

   if dead then 
      begin 
      AddToSystemJournal('Умерли'); 
      SetARStatus(false); 
      Disconnect; 
      Exit; 
      end; 

until false; 

End.

Чет они нифга не делают. Хотя скрипт компилируется.

[Cyn]

Блин

[Acronym]

Другая проблема, в моем наброске на стилинг

Code: Select all

***
WaitTargetObject(victim_id);
		   UseSkill('Stealing');
		   CheckSave;
		   WaitJournalLine(Now, '...backpack opened!|That cannot be stolen!', 20000);
		   FindTypeEx(item_type,$FFFF,backpack_id,false);
		   addtosystemjournal('find: '+IntToStr(FindItem));
***

UseSkill('Stealing') - все нормально, открывает, а потом
не находит item_type в сумке жертвы. Что может быть не так?

Попробовал WaitTargetObject на обьект - тоже не находит.
WaitTargetObject error: Object not finded.

Пак жертвы не доступен?

[Miralex]

вместо backpack_id попробуй написать lastcontainer

[Acronym]

вместо backpack_id попробуй написать lastcontainer

Я в шоке, спасибо Miralex. Буду внимательнее читать список команд.
lastcontainer в "Зарезервированные переменные" - из серии "а слона то я и не приметил". Почему то был уверен что нет такого в Stealth

[*13*]

вместо backpack_id попробуй написать lastcontainer

Я в шоке, спасибо Miralex. Буду внимательнее читать список команд.
lastcontainer в "Зарезервированные переменные" - из серии "а слона то я и не приметил". Почему то был уверен что нет такого в Stealth

не было. да стало