Yoko

Code: Select all

sub GHFriend1() # хилинг напарника
var Max="0x0000E4FF" 
        uo.waittargetobject(Max)
        UO.Exec("usetype bandage")
        wait(300)
	if  UO.Count("s_gh") > 0  then
			uo.waittargetobject(Max)
			UO.Exec("usetype s_gh")
			VAR cnt=UO.Count("s_gh") - 1
			UO.PRINT(""+STR(cnt)+" Greater Heal")
	else
			uo.waittargetobject(Max)
			UO.Exec("cast 'Greater Heal'")
			UO.Print("No Greater Heal Scrolls")
	end if
	UO.print("Max Greater Heal") 
end sub


sub FSLast() #атака врага
click()
	if UO.Count("s_fs") > 0 then
			UO.waittargetlast()
			UO.Exec("usetype s_fs")
			VAR cnt=UO.Count("s_fs") - 1
			UO.Print(""+STR(cnt)+" Flame Strike")
	else
			UO.waittargetlast()
			UO.Exec("cast 'Flame Strike'")
			UO.Print("No Flame Strike Scrolls")
	end if
end sub

и вот еще проблема ресуректа =(

sub Res()
var ghost_type="0x0192"  #гост мужик
var ghostW_type="0x0193" #гост баба
var Player="0x00000009" # типа айдишники игроков var Player2="0x00000008"
var healdelay="1000"
 if uo.GetGraphic(Player)==ghostW_type and uo.GetDistance(Player)<=1 then
        uo.waittargetobject(Player)
        UO.Exec("usetype bandage")
        wait(healdelay)
        UO.Print("Player res")
 end if

 if uo.GetGraphic(Player2)==ghost_type and uo.GetDistance(Player2)<=1 then
        uo.waittargetobject(Player2)
        UO.Exec("usetype bandage")
        wait(healdelay)
        UO.Print("Player2 res")
 end if

end sub

Code: Select all

sub GHFriend() 
var Friend='0x00001D1B' # айдишник напарника 
var ManaNeed=9 # кол-во маны
If UO.Count('bandage') Then
	UO.WaitTargetObject(Friend)
	UO.UseType('bandage')
Else
	UO.Print("Bandage is Off")
	If UO.Mana > ManaNeed Then
		UO.WaitTargetObject(Friend)
		UO.Cast('Greater Heal')
	Else
		UO.Print("Low Mana!")
	EndIf
EndIf
end sub

Code: Select all

sub Res() 
var Friend='0x00001D1B' # айдишник напарника 
var ManaNeed=50 # кол-во маны 
If UO.Count('bandage') >= 20 and UO.GetDistance('lastcorpse') <= 2 Then 
   UO.WaitTargetObject(Friend) 
   UO.UseType('bandage') 
Else 
   UO.Print("Bandage is Off") 
   If UO.Mana > ManaNeed Then 
      UO.WaitTargetObject(Friend) 
      UO.Cast('Resurrection') 
   Else 
      UO.Print("Low Mana!") 
   EndIf 
EndIf 
end sub

Code: Select all

sub Select()
UO.Print("!!!SELECT YOU TARGET!!!") 
UO.Exec('addobject Target') 
While UO.Targeting() 
	Wait(500) 
Wend 
end sub

Code: Select all

,cast 'Magic Arrow' Target

Code: Select all

sub Select() 
UO.Print("!!!SELECT YOU TARGET!!!") 
UO.Exec('addobject Target') 
While UO.Targeting() 
   Wait(500) 
Wend 
UO.Cast('Magic Arrow', Target)
end sub