Dark Paradise

Kód: Vybrat vše

sub presunregy() ;vylozi regy z pytlyku do cile
var C,T
UO.AddObject("z")
While UO.Targeting()
      Wait(500)
Wend
UO.AddObject("cil")
While UO.Targeting()
      Wait(500)
Wend
wait(100)
dim color_regu[1]
color_regu[0]=0x0000 #vsechny reagenty
dim typ_regu[8]
typ_regu[0]="0x0F7B" # Bloodmoss
typ_regu[1]="0x0F7A" # Black Pearls
typ_regu[2]="0x0F84" # Garlic
typ_regu[3]="0x0F85" # Ginseng
typ_regu[4]="0x0F86" # Mandragore Root
typ_regu[5]="0x0F88" # Nightshade
typ_regu[6]="0x0F8C" # Sulfurous Ash
typ_regu[7]="0x0F8D" # Spider Silk
for C=0 to 0
        for T=0 to 7
            uo.findtype(typ_regu[T],color_regu[C],"z")
            while uo.findcount()
               uo.moveitem("finditem",-1,"cil")
               wait(500)
                uo.findtype(typ_regu[T],color_regu[C],"z")
            wend
        next
next
end sub