Yoko
http://forum.yoko.com.ua/

Сброс в определенную точку
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13089		 Page 1 of 1
Author:  Avel Mink [ 2008-01-19 22:34:32 ]
Post subject:  Сброс в определенную точку
В этом скриптике надо поменять сброс руды не в сундук а на пол в определенную точку,

Code:
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
Author:  Kynep [ 2008-01-20 09:19:41 ]
Post subject:  Re: Сброс в определенную точку
Avel Mink wrote:
В этом скриптике надо поменять сброс руды не в сундук а на пол в определенную точку,



Code:
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


пробуй
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/