Yoko
http://forum.yoko.com.ua/

Тут лежит скрипт на прокачку хилинга.
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2742		 Page 1 of 1
Author:  KrafteR [ 2005-01-21 01:41:14 ]
Post subject:  Тут лежит скрипт на прокачку хилинга.
Code:
###############################################################
;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
Мало таких шардов, но может кому-нибудь пригодится.
Author:  BETEPAH [ 2005-01-21 10:35:01 ]
Post subject: 
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Author:  Askaneli [ 2005-01-21 10:39:26 ]
Post subject: 
BETEPAH wrote:
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты

Меня например плющит этим заниматся, я лучше в чужих топах пофлужу !!!
Author:  Sfagnum [ 2005-01-21 12:20:08 ]
Post subject: 
BETEPAH wrote:
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...
Author:  Askaneli [ 2005-01-21 13:22:47 ]
Post subject: 
Sfagnum wrote:
BETEPAH wrote:
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...


Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
Author:  Sfagnum [ 2005-01-21 14:48:34 ]
Post subject: 
Askaneli wrote:
Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
да уж... мир не без добрых людей :evil:
Author:  KrafteR [ 2005-01-21 17:28:41 ]
Post subject: 
BETEPAH wrote:
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты

Слишком мало у меня скриптов, что бы создавать отдельный топик, но со временем возможно...
Author:  Terror [ 2005-01-23 19:37:02 ]
Post subject: 
На Ер он че то неработает!!! помогите!
Author:  KrafteR [ 2005-01-26 10:59:16 ]
Post subject: 
Terror wrote:
На Ер он че то неработает!!! помогите!
Что конкрентно не работает, у меня на ЕП работает нормально.
Author:  Angelok [ 2005-01-28 11:02:18 ]
Post subject: 
скрипт на Еп точно не работает, все в этом скрипте досконально разобрался по идее должно работать.Щас напишу что и как у меня вобщем у чара 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
Author:  Angelok [ 2005-01-28 17:40:01 ]
Post subject: 
Ребят , ну помогите кто могет ошибка в настроиках сервера моежт можно как-то обоити??
Author:  Angelok [ 2005-02-12 09:01:52 ]
Post subject: 
млин никто не знает как обойти это?? просто очень нужен этот скрипт могу дать на ДРВ 500к....

ПС этот скрипт не для ДРВ...))
Author:  eater_m [ 2006-02-22 14:37:45 ]
Post subject: 
всё тоже самое, но работает в отличие от остальных

Для платника (с использованием ".bs")
Code:
;брем любого мустанга
;делаем на него 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")
Code:

;брем любого мустанга
;делаем на него 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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/