Kód: Vybrat vše
#---------------------------------------------------------------
sub refull(kolik,nekro)
#---------------------------------------------------------------
var i
#kolik regu se nabere do pytliku k sobe
var pocetregu=kolik
uo.Print('Vysypani zasob a nabrani '+str(pocetregu)+' regu.')
UO.Print('Odkud mam vysypat regy?')
UO.addObject('mujpytlik')
while UO.targeting()
wait(300)
wend
UO.Print('Kam dat magovske regy?')
UO.addObject('magpytlik')
while UO.targeting()
wait(300)
wend
UO.Print('Kam necro regy?')
UO.addObject('necropytlik')
while UO.targeting()
wait(300)
wend
UO.UseObject('mujpytlik')
wait(500)
UO.UseObject('magpytlik')
wait(500)
UO.UseObject('necropytlik')
wait(500)
dim regy[23]
regy[0]='0x0F8D' #ss
regy[1]='0x0F8C' #sa
regy[2]='0x0F7B' #bm
regy[3]='0x0F84' #ga
regy[4]='0x0F85' #gi
regy[5]='0x0F7A' #bp
regy[6]='0x0F88' #ns
regy[7]='0x0F86' #mr
regy[8]='0x0F87' #eyes of newt
regy[9]='0x0F81' #fertile dirt
regy[10]='0x0F79' #Blackmoor
regy[11]='0x0F91' #Wyrm's Hearts
regy[12]='0x0F80' #Daemon Bones
regy[13]='0x0F89' #Obsidian
regy[14]='0x0F7C' #Bloodspawn
regy[15]='0x0F8E' #Serpent Scales
regy[16]='0x0F8F' #Volcanic Ash
regy[17]='0x0F8B' #Pumice
regy[18]='0x0F83' #Executioner's Cap
regy[19]='0x0F78' #Batwings
regy[20]='0x0F7D' #Daemon blood
regy[21]='0x0F7E' #Bones
regy[22]='0x0F7F' #brimstone
#vysypani zakl. regu - do mag pytliku
for i=0 to 8
UO.Findtype(regy[i],'-1','mujpytlik')
if UO.FindCount()>0 then
UO.Moveitem('finditem','findcount','magpytlik')
wait(1000)
endif
next
#vysypani nekrio a ostatnich regu - do nekro pytliku
for i=9 to 22
UO.Findtype(regy[i],'-1','mujpytlik')
if UO.FindCount()>0 then
UO.Moveitem('finditem','findcount','necropytlik')
wait(1000)
endif
next
# presun mag regu do meho pytliku dle mnozstvi mujrefull
UO.Print('Pocet regu k presunuti: '+STR(pocetregu))
for i=0 to 7
UO.Findtype(regy[i],'-1','magpytlik')
UO.Moveitem('finditem',pocetregu,'mujpytlik')
wait(1000)
endif
next
if nekro == 1 then
UO.Print('Pocet regu k presunuti pro nekro: '+STR(pocetregu))
for i = 8 to 22
UO.Findtype(regy[i],'-1','necropytlik')
UO.Moveitem('finditem',pocetregu,'mujpytlik')
wait(1000)
endif
next
endif
end sub
#---------------------------------------------------------------
sub refull1()
#---------------------------------------------------------------
refull(30,0)
end sub
#---------------------------------------------------------------
sub refull2()
#---------------------------------------------------------------
refull(100,0)
end sub
#---------------------------------------------------------------
sub refull3()
#---------------------------------------------------------------
refull(300,0)
end sub
#---------------------------------------------------------------
sub refull4()
#---------------------------------------------------------------
refull(1000)
end sub