Yoko

Code: Select all

####KASTUJUSIJ
sub e1() 
var ter 
UO.Exec("set finddistance 15") 
#UO.DeleteJournal() 
repeat 
#if UO.InJournal("Smog GO") then 
repeat 
wait(500)
UO.WaitTargetTile('0','2038','1261','0')#Koordinati kuda kastuetsya spirit, 2-oe(X) i 3-e(Y) chislo 
wait(500)
UO.Cast("Blade Spirits")  
wait(10000) 
UO.FindType('0x023E','-1',1) 
until UO.FindCount('finditem')>0 
UO.Exec("warmode 0") 
int() 
UO.Exec('terminate int') 
repeat 
wait(3000) 
UO.FindType('0x023E','-1',1) 
until UO.FindCount('finditem')<1 
repeat 
wait(3000) 
#UO.FindType('0x0190','-1',1) 
#ter=UO.GetSerial('finditem') 
uo.getstatus('0x0042F2AA') #ID togo kto ubivaet spirita. 
until uo.GetHP('0x0042F2AA')>254 #ID togo kto ubivaet spirita. 
#else 
#wait(1000) 
#end if 
until UO.Dead() 
end sub 


sub e2()####KTO UBIVAET 
UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem') 
repeat 
wait(5000) 
UO.FindType('0x023E','0000x0',1) 
until UO.FindCount('finditem')<1 
else 
While uo.GetHP('self')<uo.GetMaxHP('self') 

UO.SetArm('CWeapon') 
stirka() 
UO.Exec("bandageself") 
wait (1000) 
UO.Arm('CWeapon')
wait(5000) 
# if UO.Armor < 50 then 
#UO.WaitTargetSelf() 
#UO.Cast("Protection") 
#wait(5000) 
#else 
#wait(100) 
#end if 
wend 
end if 
wait(1000) 
until UO.DEAD() 
end sub 

sub stirka() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub 

sub int() 
repeat 
UO.DeleteJournal() 
repeat 
UO.UseSkill('Meditation') 
wait (2100) 
until UO.InJournal("You must") or UO.InJournal("You are at") 
if UO.InJournal("You must") then 
repeat 
wait (100) 
until UO.InJournal("You are at peace.") 
end if 
end sub



#============================================================== 
#  Gong(counter) - playing wav-file 'counter'-times 
#  http://www.djetta.ru/cow.wav 
#-------------------------------------------------------------- 
sub Gong(times) ; play wav-file 
   VAR i 
   for i=1 to times 
      UO.Exec("playwav C:\UO\inject\SOUND\mp3.wav")
      wait(1200) ; time to play sample at once 
   next 
end sub 


#============================================================== 
#  Alarm() - when char lose some HP, U are informed :) 
#-------------------------------------------------------------- 
sub Alarm() 
   VAR CharHP=10
   while 1==1 
      wait(1000) 
      if UO.Life<CharHP then 
         gong(1) 
      endif       
   wend 
end sub

Code: Select all

	VAR Banka='0x401C4D33' ; айди умывальницы 
	UO.waittargetobject(banka) 
	UO.usetype('0x0E21') # бенты

Code: Select all

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

	clean_bandage()
	while NOT uo.Dead() 
		uo.DeleteJournal()  
	Wait(2000)
		if Uo.GetHP('self') < Uo.Str then 
			uo.SetArm('MyArm') 
			wait(100) 
			uo.DisArm() 
			while Uo.GetHP('self') < Uo.Str 
				uo.bandageself()  
						if uo.injournal('no bandages found') then
							clean_bandage()
						endif
				uo.DeleteJournal() 
				while NOT uo.Injournal('You') 
					wait(1000) 
				wend 
			wend  
		endif
		uo.Arm('MyArm') 
		Uo.DeleteJournal() 
		CheckLag() 
		while Uo.GetHP('self') == Uo.Str 
			uo.say(msgReady) 
			wait(3000) 
		wend 
		uo.deletejournal() 
		while NOT Uo.Injournal(msgBladeDied) 
			If Uo.GetHP('self') < 20 then 
				uo.say(msgHelp) 
			endif 
			checkhp()
			wait(2000) 
		wend 
		Uo.DeleteJournal() 
	wend 
end sub 
sub CheckLag() 
	uo.DeleteJournal() 
	uo.Click('backpack') 
	repeat 
		wait(150) 
	until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub

Code: Select all

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

	clean_bandage()        <----------- РАЗ
	while NOT uo.Dead() 
		uo.DeleteJournal()  
	Wait(2000)
		if Uo.GetHP('self') < Uo.Str then 
			uo.SetArm('MyArm') 
			wait(100) 
			uo.DisArm() 
			while Uo.GetHP('self') < Uo.Str 
				uo.bandageself()  
				uo.DeleteJournal() 
				while NOT uo.Injournal('You') 
					wait(1000) 
					clean_bandage()     <-------- ДВАЗ
				wend 
				clean_bandage()      <------- ТРИЗ
			wend  
		endif
		uo.Arm('MyArm') 
		Uo.DeleteJournal() 
		CheckLag() 
		while Uo.GetHP('self') == Uo.Str 
			uo.say(msgReady) 
			wait(3000) 
		wend 
		uo.deletejournal() 
		while NOT Uo.Injournal(msgBladeDied) 
			If Uo.GetHP('self') < 20 then 
				uo.say(msgHelp) 
			endif 
			checkhp()
			wait(2000) 
		wend 
		Uo.DeleteJournal() 
	wend 
end sub 
sub CheckLag() 
	uo.DeleteJournal() 
	uo.Click('backpack') 
	repeat 
		wait(150) 
	until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub