Taming ostrý
Napsal: pon bře 12, 2018 11:15 pm
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