Page 1 of 1
Тут лежит скрипт на прокачку хилинга.
Posted: 2005-01-21 01:41:14
by KrafteR
Code: Select all
###############################################################
;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
Мало таких шардов, но может кому-нибудь пригодится.
Posted: 2005-01-21 10:35:01
by BETEPAH
Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Posted: 2005-01-21 10:39:26
by Askaneli
BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Меня например плющит этим заниматся, я лучше в чужих топах пофлужу !!!
Posted: 2005-01-21 12:20:08
by Sfagnum
BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...
Posted: 2005-01-21 13:22:47
by Askaneli
Sfagnum wrote:BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...
Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
Posted: 2005-01-21 14:48:34
by Sfagnum
Askaneli wrote:Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
да уж... мир не без добрых людей
Posted: 2005-01-21 17:28:41
by KrafteR
BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Слишком мало у меня скриптов, что бы создавать отдельный топик, но со временем возможно...
Posted: 2005-01-23 19:37:02
by Terror
На Ер он че то неработает!!! помогите!
Posted: 2005-01-26 10:59:16
by KrafteR
Terror wrote:На Ер он че то неработает!!! помогите!
Что конкрентно не работает, у меня на ЕП работает нормально.
Posted: 2005-01-28 11:02:18
by Angelok
скрипт на Еп точно не работает, все в этом скрипте досконально разобрался по идее должно работать.Щас напишу что и как у меня вобщем у чара 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
Posted: 2005-01-28 17:40:01
by Angelok
Ребят , ну помогите кто могет ошибка в настроиках сервера моежт можно как-то обоити??
Posted: 2005-02-12 09:01:52
by Angelok
млин никто не знает как обойти это?? просто очень нужен этот скрипт могу дать на ДРВ 500к....
ПС этот скрипт не для ДРВ...))
Posted: 2006-02-22 14:37:45
by eater_m
всё тоже самое, но работает в отличие от остальных
Для платника (с использованием ".bs")
Code: Select all
;брем любого мустанга
;делаем на него 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: Select all
;брем любого мустанга
;делаем на него 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