Vyhazovani Klamaku

[Lucifers Angel]

Ahoj lidi vyhazovani klamaku muj nej. problém...mate nekdo na to slusnej script? Zkousel sem to delat sam ale...asi nekde chybuju

[Bloodboy]

A co takhle předvést svůj pokus, jesli vůbec nějaký byl.

[Lucifers Angel]

sub klamak()
use.type(klamak)
end sub

staci? :p akorat bych chtel neco propracovanejsiho co neumim udelat

[Hajek II.]

A co takhle hledat?:) Minimalne jeden jednoduchej tady na foru je.

EDIT:
Tohle psal nekde Castian
-primo zadas do yoka jako hotkey
-makro na vyhadzovanie random klamakov z urciteho pytliku

findtype -1 -1 0x40009056;useobject finditem

[Mephist]

Kód: Vybrat vše

sub UnshrinkAnimal()
   DIM InvalidId[7]
   InvalidId[0] = 8438
   InvalidId[1] = 8479
   InvalidId[2] = 8480
   InvalidId[3] = 8481
   InvalidId[4] = 8484
   InvalidId[5] = 8486
   InvalidId[6] = 8487

   VAR i, id, isok
   for id = 8392 to 8500
      isok = 1
      for i = 0 to 6
         if id == InvalidId[i] then
            isok = 0
         endif
      next
       
      if isok AND UO.Count(id) then
         UO.UseType(id)
         return
      endif
   next

   UO.Print("No shrunk animal found.")
end sub

[Pheme]

Jeste prosim do toho mikeeho scriptu pridejte zapnuti a vypnuti warmodu, diky