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

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