Тут лежит скрипт на прокачку хилинга.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:
Contact KrafteR

Тут лежит скрипт на прокачку хилинга.

Post 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
Мало таких шардов, но может кому-нибудь пригодится.
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Все просто.
BETEPAH ™
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Меня например плющит этим заниматся, я лучше в чужих топах пофлужу !!!
Сделал дело - флуди смело !!!
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...
Top
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Sfagnum wrote:
BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
да я то свой сделал... но так влом новое закидывать...
Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
Сделал дело - флуди смело !!!
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Askaneli wrote:Гыыыыыыы !!! За тебя другие выкладывают и в других топах !!!
да уж... мир не без добрых людей :evil:
Top
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:
Contact KrafteR

Post by KrafteR »

BETEPAH wrote:Молодца Проклятый.......... Совет сделай топики как у меня и у сфаги и просто пости там свои скрипты
Слишком мало у меня скриптов, что бы создавать отдельный топик, но со временем возможно...
Top
Terror
Posts: 2
Joined: 2005-01-23 14:43:12

Post by Terror »

На Ер он че то неработает!!! помогите!
Top
KrafteR
Posts: 260
Joined: 2004-07-22 16:07:11
Contact:
Contact KrafteR

Post by KrafteR »

Terror wrote:На Ер он че то неработает!!! помогите!
Что конкрентно не работает, у меня на ЕП работает нормально.
Top
Angelok
Posts: 76
Joined: 2004-07-15 09:43:11

Post 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
Top
Angelok
Posts: 76
Joined: 2004-07-15 09:43:11

Post by Angelok »

Ребят , ну помогите кто могет ошибка в настроиках сервера моежт можно как-то обоити??
Top
Angelok
Posts: 76
Joined: 2004-07-15 09:43:11

Post by Angelok »

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

ПС этот скрипт не для ДРВ...))
Top
eater_m
Posts: 5
Joined: 2006-02-22 14:26:30
Contact:
Contact eater_m

Post 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
Top
Post Reply

Return to “Scripting Ore”