Yoko

###############################################################
;Healing. v.1.00. (c) DamneD
;****Скрипт работает только на тех шардах, где после удара по 
;домашнему животному оно не растаймливается.****
;====================ПЕРЕД ЗАПУСКОМ СКРИПТА====================
;Перед запуском скрипта, надо ударить по животному, что бы оно
;било в ответ, после чего взять в руки лук и проследить что бы
;в паке не было стрел, после чего запустить скрипт.
;------------------------Что делает----------------------------
;Чар хилится, до опасности быть убитым, после чего садится на 
;лошадь, отхиливает все HP, после чего слезает и всё продолжается.
;
;
sub Heal()
VAR Type= "0x00C8" ; Тип животного
VAR Color= "0x0000" ; Цвет животного
While NOT UO.Dead()
   While UO.Life> 174 AND UO.Life<UO.STR ; Предел до какого количества НР чар хилится, это же число надо подставить в строчку *.
      wait(2000)
      UO.Bandageself()
      Repeat
         UO.DeleteJournal()
         wait(100)
      Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
   Wend
   If UO.Life<=174 Then ; *
      UO.Set("finddistance","1")
      UO.findtype(Type, Color, "ground")
      wait(100)
      UO.UseFromGround(Type)
      Repeat
         wait(2500)
         UO.BandageSelf()
         Repeat
         UO.DeleteJournal()
            wait(100)
         Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
      Until UO.Life==UO.STR
   Endif
      If UO.Life==UO.STR Then
      UO.UseObject("self")
      
   Endif
Wend
end sub

Мало таких шардов, но может кому-нибудь пригодится.

Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты

_________________
Все просто.
BETEPAH ™

Меня например плющит этим заниматся, я лучше в чужих топах пофлужу !!!

_________________
Сделал дело - флуди смело !!!

да я то свой сделал... но так влом новое закидывать...

Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!

_________________
Сделал дело - флуди смело !!!

да уж... мир не без добрых людей

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

На Ер он че то неработает!!! помогите!

Что конкрентно не работает, у меня на ЕП работает нормально.

скрипт на Еп точно не работает, все в этом скрипте досконально разобрался по идее должно работать.Щас напишу что и как у меня вобщем у чара 150 хп , я встаю около орна и начинаю бить его даггером (он наносит 0 урона по орну, а луки пофиксили короче когда у тебя в руках лук лошадь или орн не отнимают хп, ну вот я пользуюсь даггером ну думаю это не суть важно). Запускаю скрипт когда хп снижаются чар прыгает на орна, а потом хилится НО когда в след раз слазиет с орна то УО по-моему подвисает короче пишет такую фразу FORBIDEN SYMBOLS!!!(UNSP) вот в этом по-моему и есть все дело, что и как сиправить не пойму.

Вот мой немного иправленый скрипт думал в этом ошибка что не находит по типу и цвету , но оказалось нет.

Orn-предворительно добавить в обьекты.

sub Heal()
While NOT UO.Dead()
While UO.Life> 149 AND UO.Life<UO.STR ;
wait(2000)
UO.Bandageself()
Repeat
UO.DeleteJournal()
wait(100)
Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
Wend
If UO.Life<=149 Then ; *
uo.useobject("orn")
Repeat
wait(2500)
UO.BandageSelf()
Repeat
UO.DeleteJournal()
wait(100)
Until UO.InJournal("You sucessfully") OR UO.InJournal("You bandage")
Until UO.Life==UO.STR
Endif
If UO.Life==UO.STR Then
UO.UseObject("self")

Endif
Wend
end sub

Ребят , ну помогите кто могет ошибка в настроиках сервера моежт можно как-то обоити??

млин никто не знает как обойти это?? просто очень нужен этот скрипт могу дать на ДРВ 500к....

ПС этот скрипт не для ДРВ...))

всё тоже самое, но работает в отличие от остальных

Для платника (с использованием ".bs")

;брем любого мустанга
;делаем на него 2 раза команду ,info и записываем его серийный номер
;кормим мустанга до отвала(яблоки,груши,сено)
;бьем муста пару раз,и затем садимся на него
;в руки берем лук или арбалет и выкидываем все стрелы\болты из бек пека
;под ноги бросаем чистые бинты


sub main()
UO.Exec("set distance 3")
UO.Useobject('backpack')
Wait(1000);
while 1
   while UO.Life < UO.Str
      if uo.count(0x0e21) < 20 then
      uo.waittargetground(0x0E21);
      uo.exec("grab 100");
      Wait(500)
      endif
      Wait(2000);
      uo.Say(".bs");
      Waiter();
   wend
   uo.waittargettype(0x0E20);
   uo.exec("drop");   
   uo.useobject(uo.getserial());   
   uo.usetype(0x13B1);   
   while UO.Life > (uo.str-3)
   wend
   uo.useobject(0x00347279);ТУТ ВПИСАТЬ НОМЕР ЛОШАДКИ
wend
end sub

sub Waiter() 
VAR Zdat = 0 
  UO.DeleteJournal() 
  While UO.InJournal("You bandage ")==0 and Zdat < 20 and UO.InJournal("You sucessfully ")==0
  Wait(500) 
  Zdat = Zdat + 1 
  Wend 
  While UO.InJournal("You put ")==0 and Zdat < 6
  Wait(500) 
  Zdat = Zdat + 1 
  Wend 
end sub

Для бесплатника (без использования ".bs")

;брем любого мустанга
;делаем на него 2 раза команду ,info и записываем его серийный номер
;кормим мустанга до отвала(яблоки,груши,сено)
;бьем муста пару раз,и затем садимся на него
;в руки берем лук или арбалет и выкидываем все стрелы\болты из бек пека
;под ноги бросаем чистые бинты


sub main()
UO.Exec("set distance 3")
UO.Useobject('backpack')
Wait(1000);
while 1
   while UO.Life < UO.Str
      if uo.count(0x0e21) < 20 then
      uo.waittargetground(0x0E21);
      uo.exec("grab 100");
      Wait(500)
      endif
      Wait(2000);
      //uo.Say(".bs");
      uo.waittargetself();
      uo.usetype(0x0e21)
      Waiter();
   wend
   uo.waittargettype(0x0E20);
   uo.exec("drop");   
   uo.useobject(uo.getserial());   
   uo.usetype(0x13B1);   
   while UO.Life > (uo.str-3)
   wend
   uo.useobject(0x00347279);ТУТ ВПИСАТЬ НОМЕР ЛОШАДКИ
wend
end sub

sub Waiter() 
VAR Zdat = 0 
  UO.DeleteJournal() 
  While UO.InJournal("You bandage ")==0 and Zdat < 20 and UO.InJournal("You sucessfully ")==0
  Wait(500) 
  Zdat = Zdat + 1 
  Wend 
  While UO.InJournal("You put ")==0 and Zdat < 6
  Wait(500) 
  Zdat = Zdat + 1 
  Wend 
end sub

_________________
http://eater.ru