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

Проблема со скриптом
http://forum.yoko.com.ua/viewtopic.php?f=3&t=3144		 Page 1 of 1
Author:  Grizl [ 2005-02-18 22:13:50 ]
Post subject:  Проблема со скриптом
В этом (как я понял) участке указана функция сброса и стекировки дерева из очень хорошего скрипта на ламбер.Должно сбрасыватся все дерево до солмура,простое же должно тоже сбрасыватся и стекироватся в кучку простого дерева,которое уже лежит на полу,вот тут у меня и возникает проблема - дерево находится,но не сбрасывается - пишет "Could not add item to stack", проблема возникает только у меня ,у человека у которого брал скрипт все работает нормально. У меня самая последняя версия инжекта,у хорошего человека постарее,Подозреваю,что трабл именно в этом,но не хочу устанавливать старую версию инжекта.Может чем поможите?


sub ReMoveLogs(per1,per2,per3)
var k
DIM ColorOfLogs[17]
ColorOfLogs[17]=0x0000 #simple- òÿãàåì çà ñîáîé
ColorOfLogs[16]=0x0362 #jade
ColorOfLogs[15]=0x010D #oak
ColorOfLogs[14]=0x0094 #karund
ColorOfLogs[13]=0x01B0 #lehram
ColorOfLogs[12]=0x01A2 #turmalit
ColorOfLogs[11]=0x0026 #emerint
ColorOfLogs[10]=0x00CB #legrand
ColorOfLogs[9]=0x094A #solmur
ColorOfLogs[8]=0x092B #kleor
ColorOfLogs[7]=0x0931 #lorgadum
ColorOfLogs[6]=0x093F #violonit
ColorOfLogs[5]=0x0074 #stardust
ColorOfLogs[4]=0x006F #pironil
ColorOfLogs[3]=0x09EF #mistyk
ColorOfLogs[2]=0x0119 #elvin
ColorOfLogs[1]=0x000B #elkris

for k=1 to 17
if k==17 then #|| k==7 || k==8
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" ground")
if uo.findcount() then
uo.exec("moveitem finditem all ground "+STR(per1)+" "+STR(per2)+" "+STR(per3))
wait(100)
endif
else
if per1<>UO.GetX() || per2<>UO.GetY() || per3<>UO.GetZ() then
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" my")
if uo.findcount() then
uo.exec("moveitem finditem all ground "+STR(per1)+" "+STR(per2)+" "+STR(per3))
wait(50)
endif
endif
endif
next
end sub
;----------------------------------------------------------------
sub DropLogs()
var Self_Pos,k
Self_Pos=STR(UO.GetX())+" "+STR(UO.GetY())+" "+STR(UO.GetZ())
DIM ColorOfLogs[17]
ColorOfLogs[1]=0x0000 #simple- òÿãàåì çà ñîáîé
ColorOfLogs[2]=0x0362 #jade
ColorOfLogs[3]=0x010D #oak
ColorOfLogs[4]=0x0094 #karund
ColorOfLogs[5]=0x01B0 #lehram
ColorOfLogs[6]=0x01A2 #turmalit
ColorOfLogs[7]=0x0026 #emerint- òÿãàåì çà ñîáîé
ColorOfLogs[8]=0x00CB #legrand- òÿãàåì çà ñîáîé
ColorOfLogs[9]=0x094A #solmur
ColorOfLogs[10]=0x092B #kleor
ColorOfLogs[11]=0x0931 #lorgadum
ColorOfLogs[12]=0x093F #violonit
ColorOfLogs[13]=0x0074 #stardust
ColorOfLogs[14]=0x006F #pironil
ColorOfLogs[15]=0x09EF #mistyk
ColorOfLogs[16]=0x0119 #elvin
ColorOfLogs[17]=0x000B #elkris

for k=1 to 8
if k==1 then #|| k==7 || k==8
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" ground")
if uo.findcount() then
uo.exec("addobject derevo1 finditem")
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" my")
uo.exec("moveitem finditem all derevo1 0 0 0")
wait(50)
else
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" my")
uo.exec("moveitem finditem all ground "+Self_Pos)
wait(50)
endif
else
uo.exec("findtype derevo "+str(ColorOfLogs[k])+" my")
if uo.findcount() then
uo.exec("moveitem finditem all ground "+Self_Pos)
wait(50)
endif
endif
next

end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/