стыковка руды

[Irohay]

Помогите пожалуйста сделать скрипт на стыковку нишки типа что-то подобное тока на стелс


sub DropOre()
var Self_Pos,k
Self_Pos=STR(UO.GetX())+" "+STR(UO.GetY())+" "+STR(UO.GetZ())

dim rudac[15]
rudac[1]=0x0602 #cooper
rudac[2]=0x0000 #iron
rudac[3]=0x01BF #Bronza
rudac[4]=0x03E9 #silvayt
rudac[5]=0x0590 #vaugzit
rudac[6]=0x0455 #Obsit
rudac[7]=0x0162 #Gold
rudac[8]=0x0160 #Manazit
rudac[9]=0x0386 #Coal
rudac[10]=0x003D #doom
rudac[11]=0x009C #bluesteel
rudac[12]=0x010A #Darkruby
rudac[13]=0x0602 #crystalyt
rudac[14]=0x0602 #onix
rudac[15]=0x0602 #mifril

for k=1 to 14

uo.exec("findtype derevo "+str(rudac[k])+" ground")
if uo.findcount() then
uo.exec("addobject derevo1 finditem")
uo.exec("findtype 0x1BF2 "+str(rudac[k])+" my")
uo.exec("moveitem finditem all derevo1 0 0 0")
wait(100)
else

wait(100)
endif

uo.exec("findtype 0x19B9 "+str(rudac[k])+" my")
if uo.findcount() then
wait(100)
endif
endif
next

end sub

sub Stack(StackType,Color)
var GroundItem, PackItem, GrndTmp
PackItem = ''
GroundItem = ''
if UO.Count(StackType) then
PackItem = '^'+StackType
endif
if UO.CountGround(StackType) then
UO.IgnoreReSet()
repeat
UO.FindType(StackType,Color,'ground')
if UO.FindCount() then
GrndTmp = UO.GetSerial('finditem')
if (UO.GetQuantity(GrndTmp) > 55000) then
UO.Ignore(GrndTmp)
else
GroundItem = GrndTmp
endif
endif
UO.FindType(StackType,Color,'ground')
until ((UO.FindCount() == 0) or (GroundItem <> ''))
endif
if ((PackItem <> '') and (GroundItem <> '')) then
UO.MoveItem(PackItem,STR(UO.GetQuantity(PackItem)),GroundItem,'0','0','0')
else
UO.DropHere('^'+StackType)
Endif
end sub

[shinma]

Введи по ссылке ниже слово stack

[Irohay]

Введи по ссылке ниже слово stack

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

[shinma]

в этой теме все есть
http://stealth.od.ua/forum/viewtopic.ph ... ilit=stack
учи паскаль.