Yoko

Code: Select all

sub kykla()
uo.Exec('exec say_guards')
UO.Exec('set finddistance 2')
repeat
UO.FindType("0x1074","-1","ground")
wait(100)
UO.UseObject('finditem')
wait(5000)
	until false
end sub

sub say_guards()
repeat
uo.say ('guards')
wait(10000)
until false
end sub

Code: Select all

sub smena_sword()
uo.disarm()
wait(1000)
uo.arm('katana')
wait(500)
uo.Exec('exec kykla')
while UO.SkillVal('Swordsmanship') > 59
UO.Exec('exec smena_fens')
wend
end sub

sub smena_fens()
uo.disarm()
wait(1000)
uo.arm('dagger')
wait(500)
while UO.SkillVal('Fencing') > 59
UO.Exec('exec smena_mace')
wend
end sub

sub smena_mace()
uo.disarm()
wait(1000)
uo.arm('hammer')
wait(500)
while UO.SkillVal('Mace Fighting') > 59
UO.Exec('terminate all')
wait(1000)
UO.Print('all skills already high. End script')
wend
end sub


sub kykla()
uo.Exec('exec say_guards')
UO.Exec('set finddistance 2')
repeat
UO.FindType("0x1074","-1","ground")
wait(100)
UO.UseObject('finditem')
wait(5000)
until false
end sub

sub say_guards()
repeat
if uo.life < uo.str then
uo.say ("guards")
wait(1000)
until false
end sub

Code: Select all

sub Kukla()
; Писано на коленке. Не тестировалось
; v.1.00b, (c) Edred, 2006
;
	DIM Weapon[3]
	Weapon[0] = '0x143A'		; Оружие для мейсы
	Weapon[1] = '0x0F51'		; Оружие для фенсы
	Weapon[2] = '0x13FE'		; Оружие для сворды
	DIM Skills[3]
	Skills[0] = 'Mace Fighting'	; Точные названия скиллов
	Skills[1] = 'Fencing'
	Skills[2] = 'Swordsmanship'
	VAR Kukla = '0x1074'		; Тип куклы
	VAR MaxSkill = 600		; До какого скилла прокачка (*10)
	VAR flag = 1, i
	; Ищем куклу
	UO.Set( 'finddistance', '2' )
	UO.FindType( Kukla, '-1', 'ground' )
	If UO.Findcount() == 0 Then
		UO.Print( 'kukla ne naydena!' )
		return
	Else
		UO.AddObject( 'Kukla', 'finditem' )
	Endif
	; Работаем в цикле
	for i = 0 To 2
		While UO.SkillVal( Skills[i] ) < MaxSkill
			flag = GetDagger( Weapon[i] )
			If flag == 0 Then
				UO.Print( 'weapon not found!' )
				return
			Endif
			UO.UseObject( 'Kukla' )
			wait(4000)
			If UO.Life < 100 Then
				UO.SayU( 'Guards!' )
			Endif
		Wend
	Next
endsub

Sub GetDagger( Dagger )
	If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> Dagger Then
		UO.FindType( Dagger )
		If UO.FindCount() == 0 Then
			return 0
		Endif
		UO.Equipt( 'Rhand', Dagger )
		wait(1000)
	Endif
	return 1
endsub

Code: Select all

   DIM Weapon[3] 
   Weapon[0] = '0x143A'      ; Оружие для мейсы 
   Weapon[1] = '0x0F51'      ; Оружие для фенсы 
   Weapon[2] = '0x13FE'      ; Оружие для сворды 
   DIM Skills[3] 
   Skills[1] = 'Mace Fighting'   ; Точные названия скиллов 
   Skills[2] = 'Fencing' 
   Skills[3] = 'Swordsmanship'

Code: Select all

   VAR Weapon[3] 
   Weapon[0] = '0x143A'      ; Оружие для мейсы 
   Weapon[1] = '0x0F51'      ; Оружие для фенсы 
   Weapon[2] = '0x13FE'      ; Оружие для сворды 
   VAR Skills[3] 
   Skills[0] = 'Mace Fighting'   ; Точные названия скиллов 
   Skills[1] = 'Fencing' 
   Skills[2] = 'Swordsmanship'