Stránka 1 z 1

Vyhazovani Klamaku

Napsal: 20.12.2008 08:11:10
od 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 ;)

Napsal: 20.12.2008 10:12:48
od Bloodboy
A co takhle předvést svůj pokus, jesli vůbec nějaký byl. 8)

Napsal: 20.12.2008 11:42:55
od Lucifers Angel
sub klamak()
use.type(klamak)
end sub

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

Napsal: 20.12.2008 12:40:05
od 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

Napsal: 20.12.2008 13:24:32
od 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

Napsal: 20.12.2008 16:16:09
od Pheme
Jeste prosim do toho mikeeho scriptu pridejte zapnuti a vypnuti warmodu, diky