Vyhazovani Klamaku
Napsal: 20.12.2008 08:11:10
Ahoj lidi vyhazovani klamaku muj nej. problém...mate nekdo na to slusnej script? Zkousel sem to delat sam ale...asi nekde chybuju 

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