Yoko

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

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

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