Kód: Vybrat vše
sub Trening_Hearding()
UO.DeleteJournal()
UO.Print('Jake zvire chces ovladat?')
UO.AddObject('zviratko')
While UO.Targeting()
Wait(100)
Wend
While UO.Count('0x0E81')> 0
UO.DeleteJournal()
UO.WaitTargetObject('zviratko')
UO.UseType('0x0E81')
Uo.Print('Kam ma jit?')
Wait(500)
Repeat
Wait(2000)
Until UO.InJournal("animal goes|seem to be able")
WEnd
endsub
Kód: Vybrat vše
######
sub herding()
uo.set("finddistance","10")
var i
dim npc[20]
npc[1]='0x0005' # eagle
npc[2]='0x00D9' # dog
npc[3]='0x00EE' # rat
npc[4]='0x00C9' # cat
npc[5]='0x00DF' # lamb
npc[6]='0x0097' # dolphin
npc[7]='0x00D7' # giant rat
npc[8]='0x00CB' # pig
npc[9]='0x00EA' # hart
npc[10]='0x00CF'# sheep
npc[11]='0x00E7'# cow
npc[12]='0x0006'# magpie,raven
npc[13]='0x00CD'# rabbit
npc[14]='0x00D0'# chicken
while not uo.dead()
for i = 1 to 14
uo.findtype(npc[i],-1,'ground')
while uo.findcount()
uo.print('nalezeno npc')
if not uo.count('0x0E81','0x0000') then
uo.print('nemas sherperdku')
uo.exec('terminate all')
wait(500)
end if
uo.deletejournal()
uo.waittargetobject('finditem','self')
uo.usetype('0x0E81','0x0000')
repeat
wait(100)
until uo.injournal('seem to be able|animal goes where')
uo.charprint(0x0040+uo.random(200),str(uo.skillval("Herding",1)/10))
wait(1000)
uo.findtype(npc[i],-1,'ground')
wend
next
wait(5000)
wend
end sub
#################