Yoko

Posted: **2008-01-19 22:34:32**

В этом скриптике надо поменять сброс руды не в сундук а на пол в определенную точку,

sub DropOres() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a, Exit
var UnloadChest='0x4012B413' ## ID ñóíäóêà äëÿ ñáðîñà ðóäû.
DIM Ore[4] 
Ore[0]=0x19B9 ## - 4 and more ore 
Ore[1]=0x19B7 ## - 1 ore 
Ore[2]=0x19BA ## - 2 ore 
Ore[3]=0x19B8 ## - 3 ore 
uo.SetReceivingContainer(UnloadChest) 
for a=0 to 3 
exit=0 
repeat 
uo.FindType(Ore[a]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(300)
CheckLag() 
else 
exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer() 
end sub

Posted: **2008-01-20 09:19:41**

Avel Mink wrote:В этом скриптике надо поменять сброс руды не в сундук а на пол в определенную точку,

Code: Select all

sub DropOres() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a, Exit
DIM Ore[4] 
Ore[0]=0x19B9 ## - 4 and more ore 
Ore[1]=0x19B7 ## - 1 ore 
Ore[2]=0x19BA ## - 2 ore 
Ore[3]=0x19B8 ## - 3 ore 
for a=0 to 3 
exit=0 
repeat 
uo.FindType(Ore[a]) 
if uo.GetQuantity('finditem')>0 then 
UO.Drop('-1', 'кудаX, 'кудаY', 'кудаZ', 'finditem')
wait(300)
CheckLag() 
else 
exit=1 
end if 
until Exit==1 
next 
end sub

пробуй

Yoko

Сброс в определенную точку

Сброс в определенную точку

Re: Сброс в определенную точку