Напишите скрипт на нарезку бинтов.

Che · Post by **Che** » 08.04.2008 19:29

Я написал скрипт на порезку бинтов, но он определенное время работал потом перестал =( В чем проблема я немогу разобраться помогите!
program Binty;
var
scissors, cloth:cardinal;
begin
scissors:=$79BF03EC
cloth:=$7A440295
while true do begin
useobject(scissors);
WaitForTarget(500);
TargetToObject(cloth);
wait (3000)
end;
End.

scf · Post by **scf** » 08.04.2008 20:18

Ищи ткань не по ИД, а по типу.

omi4 · Post by **omi4** » 08.04.2008 20:27

надо не ткань искать, а тут читать http://stealth.od.ua/forum/viewtopic.php?t=16

А работать он не мог изначально, операторы завершать нужно ";"

Che · Post by **Che** » 08.04.2008 21:33

ребята, напишите, у меня наверное не аналитический склад ума. Сделайте пожалуйста скрипт очень надо.

scf · Post by **scf** » 08.04.2008 22:09

omi4 wrote:надо не ткань искать, а тут читать http://stealth.od.ua/forum/viewtopic.php?t=16

А работать он не мог изначально, операторы завершать нужно ";"

Кто же знал, что на столько все тяжело.

proZak · Post by **proZak** » 10.04.2008 23:58

Вот вроде робочий скриптик:

Code: Select all

Program cut_bint; 

VAR 
  Tryapki: Cardinal; 

BEGIN 
  AddToSystemJournal('Запускаю макрос...'); 
  Wait(1000); 
  UOSay(Chr(39)+'resend'); 
  Wait(5000); 
  UseObject(Backpack); 
  Wait(1000); 
 UOSay(Chr(39)+'pc net message off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net charitem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net worlditem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net speech off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net sound off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net move off'); 
 Wait(500); 
  AddToSystemJournal('Макрос готов к работе.'); 
  FindType($0F95, backpack); 
      while FindQuantity > 0 do 
      begin 
        if FindType($0F95, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
        FindType($0F95, backpack); 
      end; 
      while true do 
      begin 
        if FindType($1766, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
      end; 
END.

Che · Post by **Che** » 11.04.2008 11:26

proZak wrote:Вот вроде робочий скриптик:

Code: Select all

Program cut_bint; 

VAR 
  Tryapki: Cardinal; 

BEGIN 
  AddToSystemJournal('Запускаю макрос...'); 
  Wait(1000); 
  UOSay(Chr(39)+'resend'); 
  Wait(5000); 
  UseObject(Backpack); 
  Wait(1000); 
 UOSay(Chr(39)+'pc net message off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net charitem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net worlditem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net speech off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net sound off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net move off'); 
 Wait(500); 
  AddToSystemJournal('Макрос готов к работе.'); 
  FindType($0F95, backpack); 
      while FindQuantity > 0 do 
      begin 
        if FindType($0F95, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
        FindType($0F95, backpack); 
      end; 
      while true do 
      begin 
        if FindType($1766, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
      end; 
END.

Спасибо! А ты же тоже на АоП?

proZak · Post by **proZak** » 12.04.2008 5:11

Che wrote:

proZak wrote:Вот вроде робочий скриптик:

Code: Select all

Program cut_bint; 

VAR 
  Tryapki: Cardinal; 

BEGIN 
  AddToSystemJournal('Запускаю макрос...'); 
  Wait(1000); 
  UOSay(Chr(39)+'resend'); 
  Wait(5000); 
  UseObject(Backpack); 
  Wait(1000); 
 UOSay(Chr(39)+'pc net message off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net charitem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net worlditem off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net speech off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net sound off'); 
 Wait(500); 
 UOSay(Chr(39)+'pc net move off'); 
 Wait(500); 
  AddToSystemJournal('Макрос готов к работе.'); 
  FindType($0F95, backpack); 
      while FindQuantity > 0 do 
      begin 
        if FindType($0F95, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
        FindType($0F95, backpack); 
      end; 
      while true do 
      begin 
        if FindType($1766, backpack) = -1 then useobject(backpack); 
        Tryapki := finditem; 
        FindType($0F9E, backpack); 
        WaitTargetObject(Tryapki); 
        UseObject(finditem); 
        Wait(3100); 
      end; 
END.

Спасибо! А ты же тоже на АоП?

Yes=)Age of Power