Stealth Client Forum

Posted: **12.07.2008 11:13**

Есть скрипт на картографию...
Все супер, ставишь где есть мпс из которых режеться кожа и запускаешь.... Он сам режет, шьет, пишет карты!
НО!!!
Дойдя до момента когда нужно шить карты пишет - "выберите материал для шитья" и все... Продолжает дальше срезать кожу и резать ее, но не шьет
Вот этот скрипт!

VAR
Corpse: Cardinal;
KojaID: Cardinal;

BEGIN
AddToSystemJournal('Запускаю макрос...');
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
UseObject(Backpack);
Wait(1000);
AddToSystemJournal('Макрос готов к работе.');
while true do
begin
FindDistance := 1;

if FindType($2006, ground) <> 0 then
begin
AddToSystemJournal('Найден труп ' + IntToStr(finditem));
Corpse := finditem;
If FindType($13FF, backpack) <> -1 then
begin
AddToSystemJournal('Режем труп');
WaittargetObject(Corpse);
Wait(1000);
UseObject(finditem);
Wait(3500);
end;
UseObject(Corpse);
Wait(1000);
Ignore(Corpse);
if FindType($1078, Corpse) <> 0 then
begin
DragItem(finditem, 0);
Wait(1000);
DropItem(backpack,0,0,0);
Wait(1000);
end;
AddToSystemJournal('Закончили с трупом.');
end;

If FindType($13FF, self) = 0 then
begin
AddToSystemJournal('Одеваем катану...');
Wait(3500);
UseObject(Backpack);
Wait(1000);
FindType($13FF, backpack)
Equip(1, finditem);
end;

FindType($1081, backpack);

if FindQuantity < 4 then
begin
if FindType($1078, backpack) <> 0 then
begin
while FindType($1078, backpack) <> 0 do
begin
AddToSystemJournal('Режем кожу');
KojaID := finditem;
FindType($0F9E, backpack);
WaitTargetObject(KojaID);
UseObject(finditem);
Wait(3200);
end;
end;
end;

while Life < 100 do
begin
UoSay(Chr(39)+'pc heal self');
Wait(9200);
end;
If FindType($1081, backpack) <> 0 then
begin
AddToSystemJournal('Крафтим пустые карты');
UOSay(Chr(39) + 'craftcreate 1');
AutoMenu ('Leather Working', '(2)');
AutoMenu ('Miscellaneous', '(2)');
WaitTargetObject(finditem);
UseType($0F9D, $FFFF);
Wait(3200);
end;
while FindType($14ED, backpack) <> 0 do
begin
AddToSystemJournal('Рисуем карты');
UOSay(Chr(39) + 'craftcreate 0');
AutoMenu ('Draw Map', '(5)');
UseSkill('Cartography');
Wait(3000);
end;
AddToSystemJournal('---');
Wait(500);
end;
END.

Code: Select all

[code]

Posted: **12.07.2008 15:02**

В тег

Code: Select all

 скрипт засунь.

Posted: **13.07.2008 8:15**

Спрячь все весь скрипт в тег

Code: Select all

 и напиши для какого шарда.

Posted: **13.07.2008 8:57**

Уважаемые Дядьки!
Я бы с удовольствием бы его спрятал, но я без понятия как это сделать... Так, что извините... Уже попросил чтобы подсказали...
Шард АоП.

Posted: **13.07.2008 10:43**

Ты что слепой ?
В форме ответа, где пишешь ответ свой чуть выше есть кнопочки и там есть Code кнопка её и нажимай. Или Alt+C.

Posted: **13.07.2008 10:57**

-=JoKeR=- wrote:Ты что слепой ?

Не груби, у всех бывает в первый раз

Posted: **13.07.2008 13:18**

Code: Select all

VAR
  Corpse: Cardinal;
  KojaID: Cardinal;

BEGIN
  AddToSystemJournal('Запускаю макрос...');
  Wait(1000);
  UOSay(Chr(39)+'resend');
  Wait(5000);
  UseObject(Backpack);
  Wait(1000);
  AddToSystemJournal('Макрос готов к работе.');
while true do
begin
  FindDistance := 1;
  
  if FindType($2006, ground) <> 0 then
  begin
    AddToSystemJournal('Найден труп ' + IntToStr(finditem));
    Corpse := finditem;
    If FindType($13FF, backpack) <> -1 then
    begin
      AddToSystemJournal('Режем труп');
      WaittargetObject(Corpse);
      Wait(1000);
      UseObject(finditem);
      Wait(3500);
    end;
    UseObject(Corpse);
    Wait(1000);
    Ignore(Corpse);
    if FindType($1078, Corpse) <> 0 then
    begin
      DragItem(finditem, 0);
      Wait(1000);
      DropItem(backpack,0,0,0);
      Wait(1000);
    end;
    AddToSystemJournal('Закончили с трупом.');
  end;
  
  If FindType($13FF, self) = 0 then
  begin
    AddToSystemJournal('Одеваем катану...');
    Wait(3500);
    UseObject(Backpack);
    Wait(1000);
    FindType($13FF, backpack)
    Equip(1, finditem);
  end;
  
  FindType($1081, backpack);
  
  if FindQuantity < 4 then
  begin
    if FindType($1078, backpack) <> 0 then
    begin
      while FindType($1078, backpack) <> 0 do
      begin
        AddToSystemJournal('Режем кожу');
        KojaID := finditem;
        FindType($0F9E, backpack);
        WaitTargetObject(KojaID);
        UseObject(finditem);
        Wait(3200);
      end;
    end;
  end;
  
  while Life < 100 do
  begin
    UoSay(Chr(39)+'pc heal self');
    Wait(9200);
  end;
  If FindType($1081, backpack) <> 0 then
  begin
    AddToSystemJournal('Крафтим пустые карты');
    UOSay(Chr(39) + 'craftcreate 1');
    AutoMenu ('Leather Working', '(2)');
    AutoMenu ('Miscellaneous', '(2)');
    WaitTargetObject(finditem);
    UseType($0F9D, $FFFF);
    Wait(3200);
  end;
  while FindType($14ED, backpack) <> 0 do
  begin
    AddToSystemJournal('Рисуем карты');
    UOSay(Chr(39) + 'craftcreate 0');
    AutoMenu ('Draw Map', '(5)');
    UseSkill('Cartography');
    Wait(3000);
  end;
  AddToSystemJournal('---');
  Wait(500);
end;
END.

Posted: **13.07.2008 13:19**

О!!! Получилось )
Скриптс Врайтер, спасибо!!!
Джокер - какашка!!!

Posted: **13.07.2008 16:12**

Никому я не грубил, просто нечего тупить, когда всё перед глазами...

Posted: **14.07.2008 18:59**

-=JoKeR=- wrote:Никому я не грубил, просто нечего тупить, когда всё перед глазами...

Все перед глазами было когда я писал, а отобразить в коде у меня попросили после того!!!
Так поможет кто-то ???

Posted: **14.07.2008 19:20**

ENZO wrote:
-=JoKeR=- wrote:Никому я не грубил, просто нечего тупить, когда всё перед глазами...
Все перед глазами было когда я писал, а отобразить в коде у меня попросили после того!!!
Так поможет кто-то ???

Еслиб это было под мой шард - я бы что-то посоветовал!
Обьясни как у вас должно все происходить?
1. Убиваем живку
2. режем живку
3. Лутаем кожу
4.Режим кожу (?)
5.Делаем из нее бланк мапу (как делаем?)
6. Если скрафтило то качаем картографию ( как качаем?)

Posted: **14.07.2008 19:50**

попрбуй так

Code: Select all

begin 
    AddToSystemJournal('Крафтим пустые карты'); 
    UOSay(Chr(39) + 'craftcreate 1'); 
    UseType($0F9D, $FFFF); 
    WaitTargetObject(finditem); 
    AutoMenu ('Leather Working', '(2)'); 
    AutoMenu ('Miscellaneous', '(2)'); 
    Wait(3200); 
  end;

скрипт ужасный

Posted: **14.07.2008 19:54**

Проще написать свой, чем разбираться в чужом

Posted: **14.07.2008 22:43**

Unholy wrote: Обьясни как у вас должно все происходить?
1. Убиваем живку
2. режем живку
3. Лутаем кожу
4.Режим кожу (?)
5.Делаем из нее бланк мапу (как делаем?)
6. Если скрафтило то качаем картографию ( как качаем?)

В яблочко!!!
Пунк 4. Да, режим кожу.
Пунк 5. Бланк шьем, два раза на нитки, таргет на кожу.
Пунк 6. Просто юзаем скил и выбираем уровень карт.
В скрипте, в силу моих шаряний в оном, )) есть все айдишники, но почему-то не получается ((([/quote]

Posted: **14.07.2008 23:07**

grundick wrote:попрбуй так

Code: Select all

begin 
    AddToSystemJournal('Крафтим пустые карты'); 
    UOSay(Chr(39) + 'craftcreate 1'); 
    UseType($0F9D, $FFFF); 
    WaitTargetObject(finditem); 
    AutoMenu ('Leather Working', '(2)'); 
    AutoMenu ('Miscellaneous', '(2)'); 
    Wait(3200); 
  end;

скрипт ужасный

Тут уже какой-есть... (
Спасибо за пробу... Но не работает (((
Нужно что-то дописать гдето-то в этом месте, чтобы он тыкал таргетом на кожу резаную... ее айди $1081.

Stealth Client Forum

Помогите разобрать со скриптом.

Помогите разобрать со скриптом.