Tem como?

[careca66]

Acabou ficando assim
acabei colocando 4000ms ele fica piscando mas pelo menos não ta enchendo a tela de span ^^

4000 {Macro Sample}
#ITEMS
goldCoin:=Misc.ItemCountEx(3031)
goldCoinValue:=1 VarMult(goldCoin, !goldCoinValue!) Qntitem1:=Misc.ItemCountEx(10275)
item1:=Misc.ItemCountEx(10275)
item1Value:=35 VarMult(item1, !item1Value!)
Qntitem2:=Misc.ItemCountEx(10275)
item2:=Misc.ItemCountEx(9692)
item2Value:=10 VarMult(item2, !item2Value!)
profitItems:=0 VarAdd(profitItems, !goldCoin!)
VarAdd(profitItems, !item1!)
VarAdd(profitItems, !item2!)

#POTIONS
manaPotion:=15
manaPotionNow:=Misc.ItemCountEx(268)
manaPotionValue:=50 VarSub(manaPotion, !manaPotionNow!) manaPotionGP:=!manaPotion! VarMult(manaPotionGP, !manaPotionValue!) profitPotions:=0 VarAdd(profitPotions, !manaPotionGP!)

#HUD ITEMS
HUD.Setup(1, 0, 255, 255, 0)
HUD.Display()
HUD.Setup(1, 0, 106, 106, 255)
HUD.Display(ITEMS LOOTED)
HUD.Setup(1, 0, 183, 183, 183)
HUD.Display(Gold Coin: !goldCoin!)
HUD.Display(Carrion Fang: !Qntitem1! (!item1!gp))
HUD.Display(Lumps of dirt: !Qntitem1! (!item2!gp))

#HUD POTIONS
HUD.Setup(1, 0, 255, 255, 255)
HUD.Display()
HUD.Setup(1, 0, 106, 106, 255)
HUD.Display(SUPPLIES USED)
HUD.Setup(1, 0, 183, 183, 183)
HUD.Display(Mana Potion: !manaPotion! (!manaPotionGP! gp))

#PRINT PROFIT TOTAL HUNT profitTotal:=0 VarAdd(profitTotal, !profitItems!) VarSub(profitTotal, !profitPotions!)
HUD.Display()
HUD.Setup(1, 0, 255, 0, 0)
HUD.Display(GASTO !profitPotions!)
HUD.Setup(1, 0, 0, 255, 0)
HUD.Display(LUCRO !profitTotal! gp)