Taming ostrý

[Lara Craft]

Potřebujete taming staff a káď se shrinky.

Kód: Vybrat vše

#---------------------------------------------------------------
sub Taming()
#---------------------------------------------------------------
uo.print('Ostry taming')
    UO.DeleteJournal()
    UO.FindType('0x13F4','0x076B','my')#nenabita tamovaci hul
    If UO.FindCount() > 0 Then
        UO.FindType('0x0F09','0x045E','my')#shrink
        If UO.FindCount() > 0 Then
            UO.WaitTargetObject('finditem')
            UO.UseType(0x13F4,0x076B)
            Repeat
                UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
                Wait(200)
            until UO.FindCount() > 0
            
        Else
            UO.Print('Nemas shrink...')
            Return
        EndIf    
    Else
        UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
        If UO.FindCount() == 0 Then
              UO.Print('Nemas tamovaci hul...')                
            Return
        EndIf
    EndIf
	UO.Print('Zvol zvire:')
		uo.addobject('zvire')
		while uo.targeting()
			wait(200)
		wend
            UO.UseType(0x13F4,0x096D)
	UO.WaitTargetObject('zvire')
    While not UO.InJournal('byl tamnut a opet propusten') AND not UO.InJournal('Nemuzes mluvit na zvire, kdyz jsi skryty!') AND not UO.InJournal('Ale co to delas?') AND not UO.InJournal('Zviratko bylo shrinknuto') AND not UO.InJournal('Bez bliz') AND not UO.InJournal('byl tamnut.') AND not UO.InJournal('Jsi moc daleko') AND not UO.InJournal('Toto zvire nelze ochocit.') AND not UO.InJournal('Zviratko uz ma majitele') AND not UO.InJournal('Toto zvire nedokazes ochocit') AND not UO.InJournal('Targeting Cancelled')
        If UO.InJournal('Ochoceni se nezdarilo.') then
            UO.DeleteJournal()
            UO.WaitTargetObject('zvire')
            UO.UseType(0x13F4,0x096D)
            Wait(1000)
        EndIf
        wait(200)
    wend
    If UO.InJournal('Targeting Cancelled') then
        UO.Print('Zrusil jsi tamovani...')
    endif
    If UO.InJournal('byl tamnut') then
	UO.PlayWav('C:Windows\Media\Windows - cink.wav')
        UO.Print('Sbiram zviratko...')
	UO.FindType(-1,UO.GetColor('zvire'),'ground')
	wait(1000)
	UO.Grab(0,'finditem')
    endif
    UO.DeleteJournal()
    UO.Print('konec tamovani')
end sub

[Lara Craft]

Aktualizovaná verze (sama nabíjí hůl)

Kód: Vybrat vše

#---------------------------------------------------------------
sub Taming()
#---------------------------------------------------------------
uo.print('Ostry taming')
    UO.DeleteJournal()
	#mas shrink kad, a mas nenabitou tamovaci hul
	if UO.Count('0x1843','0x0724') > 0 AND  UO.Count('0x13F4','0x076B') >0 then
		UO.WaitTargetType('0x1843','0x0724')
		UO.UseType('0x13F4','0x076B')
		wait(800)
	endif
	UO.Print(str(UO.Count('0x1843','0x0724'))+", "+str(UO.Count('0x0F0E','0x0000'))+", "+str(UO.Count('0x0F09','0x045E'))+", "+str(UO.Count('0x13F4','0x076B')) )
	#nenabita tamovaci hul
    If UO.Count('0x13F4','0x076B') > 0 Then
        UO.FindType('0x0F09','0x045E','my')#shrink
		
        If UO.FindCount() > 0 Then
            UO.WaitTargetObject('finditem')
            UO.UseType(0x13F4,0x076B)
            Repeat
                UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
                Wait(200)
            until UO.FindCount() > 0
            
        Else
		
            UO.Print('Nemas shrink...')
            Return
        EndIf    
    Else
        UO.FindType('0x13F4','0x096D','my')#nabita tamovaci hul
        If UO.FindCount() == 0 Then
              UO.Print('Nemas tamovaci hul...')                
            Return
        EndIf
    EndIf
	UO.Print('Zvol zvire:')
		uo.addobject('zvire')
		while uo.targeting()
			wait(200)
		wend
            UO.UseType(0x13F4,0x096D)
	UO.WaitTargetObject('zvire')
    While not UO.InJournal('byl tamnut a opet propusten') AND not UO.InJournal('Nemuzes mluvit na zvire, kdyz jsi skryty!') AND not UO.InJournal('Ale co to delas?') AND not UO.InJournal('Zviratko bylo shrinknuto') AND not UO.InJournal('Bez bliz') AND not UO.InJournal('byl tamnut.') AND not UO.InJournal('Jsi moc daleko') AND not UO.InJournal('Toto zvire nelze ochocit.') AND not UO.InJournal('Zviratko uz ma majitele') AND not UO.InJournal('Toto zvire nedokazes ochocit') AND not UO.InJournal('Targeting Cancelled')
        If UO.InJournal('Ochoceni se nezdarilo.') then
            UO.DeleteJournal()
            UO.WaitTargetObject('zvire')
            UO.UseType(0x13F4,0x096D)
            Wait(1000)
        EndIf
        wait(200)
    wend
    If UO.InJournal('Targeting Cancelled') then
        UO.Print('Zrusil jsi tamovani...')
    endif
    If UO.InJournal('byl tamnut') then
	UO.PlayWav('C:Windows\Media\Windows - cink.wav')
        UO.Print('Sbiram zviratko...')
	UO.FindType(-1,UO.GetColor('zvire'),'ground')
	wait(1000)
	UO.Grab(0,'finditem')
    endif
    UO.DeleteJournal()
    UO.Print('konec tamovani')
end sub