úklid v batohu

[Xan]

ZDravím, mám script, který mi uklidí věc iv báglu na určitou pozici. Na starým yoku fachá ok, na novým je problém u potionů - vždy to xkrát přesouvá pouze jeden konkrétní potion od každého typu na určenou pozici, ostatní stejného typu nebere v potaz, dík

Kód: Vybrat vše

sub debordelizace() 
var gp_type = "0x0EED" 
var gp_color = "0x0000" 
var x
var gb = uo.count("0x0F0C", "0x0025") 
var gs = uo.count ("0x0F09", "0x0000")
var gc = uo.count("0x0F07", "0x0000") 
var tr = uo.count("0x0F0B", "0x0000") 
var tmr = uo.count("0x0F09", "0x0003") 
var mr = uo.count("0x0F09", "0x0005") 

DIM regy[27] 
regy[0] = "0x0F7B" #BM 
regy[1] = "0x0F8C" #SA 
regy[2] = "0x0F7A" #BP 
regy[3] = "0x0F85" #GS 
regy[4] = "0x0F86" #MR 
regy[5] = "0x0F8D" #SS 
regy[6] = "0x0F84" #GL 
regy[7] = "0x0F88" #NS 
regy[8] = "0x0F87" #EON 
regy[9] = "0x0F89" #obsidian 
regy[10] = "0x0F7E" #bone 
regy[11] = "0x0F79" #blackmor 
regy[12] = "0x0F81" #feritle 
regy[13] = "0x0F78" #batwing 
regy[14] = "0x0F8F" #volcanic 
regy[15] = "0x0F8B" #pumice 
regy[16] = "0x0F80" #deamon bone 
regy[17] = "0x0F82" #dragon blood 
regy[18] = "0x0F7D" #dark blood 
regy[19] = "0x0F7C" #blodspawn 
regy[20] = "0x0F91" #wyrmheart 
regy[21] = "0x0F7D" #blood 
regy[22] = "0x0F8E" #serpent 
regy[23] = "0x0F83" #executioners 
regy[24] = "0x0F7F" #brimstone 
regy[25] = "0x0F87" #blue ocka 
regy[26] = "0x0F8A" #pig iron 
#regy[27] = "" #dead wood 
UO.Print("*Uklizim*")
For var i = 0 to 26 
UO.FindType(regy[i], -1, "backpack") 
If UO.FindCount() then 
UO.MoveItem("finditem", -1, "backpack", 110, 40, 0) 
Wait(750) 
EndIf 
Next 
UO.FindType(gp_type, gp_color, "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", -1, "backpack", 70, 40, 0) 
Wait(500) 
EndIf 
uo.print(str(gb)) 
x = 0
while x < gb 
UO.FindType("0x0F0C", "0x0025", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 90, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gs
UO.FindType("0x0F09", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 30, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < gc
UO.FindType("0x0F07", "0x0000", "backpack")
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 60, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tr
UO.FindType("0x0F0B", "0x0000", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 120, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < tmr
UO.FindType("0x0F09", "0x0003", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
x = 0
while x < mr
UO.FindType("0x0F09", "0x0005", "backpack") 
If UO.FindCount() Then 
UO.MoveItem("finditem", 1, "backpack", 150, 140, 0) 
Wait(500) 
EndIf
x = x + 1
wEnd
UO.print("*Uklizeno*") 
endsub

[Johny Matovic]

Nedosiel si na to nahodou?
Sa mi zda, ze som neaky presuvac mal, ale neviem ho najst.

[Xan]

Ne, nikoho na yoku, kdo to umel vyresit jsem tehdy nesehnal, moje znalosti scriptovani v yoku jsou tezce zakladni, takze sam jsem si ti neumel vyresit a tak jsem fungoval bez toho tu chvili co jsem hral a uz jsem nelogl hoodne dlouho a ani uz neplanuji