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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Avel Mink
Posts: 48
Joined: 2007-12-30 14:23:05

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

Post by Avel Mink »

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

Code: Select all

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
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

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

Post by Kynep »

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
пробуй
Post Reply