refull skript - úklid a refull regů pro mága a nekra

[Lara Craft]

Vyberete si váš pytlík, pytlík pro základní regy (magpytlik), pytlík pro ostatní regy (neccropytlik) a pytlik, kam si srovnáte regy

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

Refull 1-4 uklidí všechny regy do dvou prvních a poté nabere množství zadané prvním parametrem do 'mujpytlik' a je li druhý parametr 1 i rozšířené regy. Můžete si tedy udělat více refull skriptů pro různé postavy s pomocí jediného hlavního skriptu a více odvozených.