pole berto znamená, jestli danou věc sbírat (hodnota 1) nebo ne (hodnota 0)
Kód: Vybrat vše
#---------------------------------------------------------------
sub quickloot()
#---------------------------------------------------------------
#sbirejsipy()
UO.Set('finddistance', '20')
UO.deleteJournal()
#pomocna promenna pro prochazeni pole veci
var i
#delka pole k prochazeni (vzdy musi byt nejvyse o 1 nizsi nez hodnota dim[loot] a dim[lootc], tj delka pole!)
var pole=19
#mam sbirat hides? 1=ano, 0=ne
var kuze=1
#timeout na zruseni catchbag, stejne to zlobi :p
var cas=6000
#seznam veci co se ma sbirat
dim berto[20]
dim lootg[20]
dim lootc[20]
berto[0]=1
lootg[0]=0x0E76
lootc[0]=0x049A #Loot (nepouzivam)
berto[1]=1
lootg[1]=0x1BFB
lootc[1]=0x0000 #sipky
berto[2]=0
lootg[2]=0x0F7D
lootc[2]=0x031D #dark blood
berto[3]=1
lootg[3]=0x0F3F
lootc[3]=0x0000 #sipy
berto[4]=0
lootg[4]=0x0F8E
lootc[4]=0x0000 #serpent scales
berto[5]=1
lootg[5]=0x0F7E
lootc[5]=0x0000 #bones
berto[6]=1
lootg[6]=0x0F80
lootc[6]=0x0000 #demon bones
berto[7]=1
lootg[7]=0xF87
lootc[7]=0x0000 #Eyes of Newt
berto[8]=1
lootg[8]=0x0F78
lootc[8]=0x0000 #batwings
berto[9]=1
lootg[9]=0x0E80
lootc[9]=0x0123 #Dark Chest of Wonders
berto[10]=1
lootg[10]=0x1BD1
lootc[10]=0x0000 #peri
berto[11]=1
lootg[11]=0xE34
lootc[11]=0x0000 #blank scrolls
berto[12]=1
lootg[12]=0x0F8D
lootc[12]=0x0000 #spider silk
berto[13]=0
lootg[13]=0x09F1
lootc[13]=0x0000 #raw ribs
berto[14]=1
lootg[14]=0x1078
lootc[14]=0x0615 #dark hide
berto[15]=1
lootg[15]=0x0F7D
lootc[15]=0x31D #dark blood
berto[16]=1
lootg[16]=0x0F82
lootc[16]=0x0000 #dragon blood
berto[17]=0
lootg[17]=0x18E3
lootc[17]=0x0000 #Majova kvetina
berto[18]=0
lootg[18]=0x11FA
lootc[18]=0x0000 #Furs
berto[19]=1
lootg[19]=0x1BDD
lootc[19]=-1 #Furs
#catchbag bezny pytlicek:
UO.findtype('0x0E76','0x0000')
#catchbag modry pytlicek2:
#UO.findtype('0x0E76','0x0062')
#catchbag cerveny pytlicek1:
#UO.findtype('0x0E76','0x0026')
#catchbag zeleny pytlicek2:
#UO.findtype('0x0E76','0x044')
if UO.FindCount()==0 then
#catchbag tasticka:
UO.findtype('0x0E79',-1)
endif
if UO.FindCount()==0 then
#catchbag pytlik:
UO.findtype('0x0E76','0x0000')
endif
UO.SetCatchBag('finditem')
UO.addobject('container','lastcontainer')
UO.Print('Vzdalenost lastcorpse: '+STR(Uo.GetDistance('lastcorpse')))
IF Uo.GetDistance('lastcorpse') < 8 AND NOT UO.InJournal('jeste nemuzes') then
UO.UseObject('lastcorpse')
wait(1000)
#loot:
UO.findtype('0x0E76','0x049A','lastcorpse')
if UO.findcount()>0 then
UO.GRAB(0,'finditem')
UO.Print('lootim lastcorpse...')
wait(2000)
endif
if UO.GetGraphic('lastcorpser')=='0x0E7E' OR UO.GetGraphic('lastcorpse')=='0x0E76' then
return
endif
#kuze
UO.findtype('0x1078','0x0000','lastcorpse')
if UO.findcount()>0 AND kuze then
UO.WaitTargetObject('finditem')
UO.UseType(0x0F9E,0x0000)
repeat
wait(300)
until uo.injournal('You put the cut up leathers')
uo.deletejournal()
endif
#vyber veci z dungu
for i=1 to pole
UO.findtype(lootg[i],lootc[i],'lastcorpse')
if UO.FindCount()>0 AND berto[i]==1 AND NOT UO.InJournal('jeste nemuzes') then
UO.GRAB(0,'finditem')
wait(2000)
endif
next
endif