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

Выброс руды в шахте в стек (ХЕЛП)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9035		 Page 1 of 1
Author:  LeXuS™ [ 2006-10-12 17:31:57 ]
Post subject:  Выброс руды в шахте в стек (ХЕЛП)
Парни помогите, хана, уже целый день мудрую... он не находит в паке руды, когда она там есть

Code:
sub DropOre()
UO.Exec("set finddistance 1")
var i, ore_my, ore_floor
DIM color[12]
color[1] = '0x0602' #copper
color[2] = '0x0000' #iron
color[3] = '0x0231' #steel
color[4] = '0x045E' #anra
color[5] = '0x0585' #valurit
color[6] = '0x006F' #lava
color[7] = '0x0481' #ice
color[8] = '0x0386' #shadow
color[9] = '0x0042' #azurite
color[10] = '0x003D' #doom
color[11] = '0x009C' # Blust
color[12] = '0x010A' # DarkRuby
for i = 1 to 12 step 1
UO.FindType(0x19B9,-1,'backpack')
wait(500)

while UO.GetQuantity('finditem') > 0 
#
uo.print("dd");
UO.Click('finditem')
ore_my = UO.GetSerial('finditem')

UO.Ignore('finditem')
UO.FindType(0x19B9,color[i],'ground')
IF Uo.FindCount() then
ore_floor = UO.GetSerial('finditem')
else
ore_floor = 'ground'
endif
UO.MoveItem(ore_my,STR(UO.GetQuantity(ore_my)),ore_floor,'0','0','0')
UO.Ignore('finditem')
UO.FindType(0x19B9,color[i],'backpack')
wait (500)
wend
next
RETURN
RETURN
end sub

не заходит в этот цикл
while UO.GetQuantity('finditem') > 0
почему это может быть, подскажите плз!
Author:  Nmy [ 2006-10-12 17:45:26 ]
Post subject: 
Code:
sub main()
VAR n
Dim Drop[10]
Drop[1] = '0x0909'
Drop[2] = '0x03E3'
Drop[3] = '0x0026'
Drop[4] = '0x06D6'
Drop[5] = '0x0000'
Drop[6] = '0x0601'
Drop[7] = '0x052D'
Drop[8] = '0x0488'
Drop[9] = '0x084D'
Drop[10] = '0x060C'

while true
For n = 1 To 10
UO.FindType('0x19B9', Drop[n] ,'backpack')
If UO.FindCount() then
UO.MoveItem('finditem', -1 ,'ground')
wait(1000)
Endif
Next
wait(1000)
wend
end sub


вот свой нашол, поменяй массив и вперед! :roll:
Author:  LeXuS™ [ 2006-10-12 17:49:05 ]
Post subject: 
Дело в том, что у меня на шарде нельзя выкидывать руду на пол в шахте, а когда перевес идёт то она выпадает и нужно руду в её стек на пол кинуть и после этого тотемом лутаю... шард на POL сделан
Author:  LeXuS™ [ 2006-10-12 17:51:41 ]
Post subject: 
и он то дропает то не дропает, хрен его поймёшь... зачастую только купер скинет и всё... остальные ни в какую :о(
Author:  LeXuS™ [ 2006-10-12 18:02:54 ]
Post subject: 
я заюзал ,info на руду выдало вот что
ID=0xFFFFFFFF Type=0x19B9 6? Name=99 copper ore
Quantity: 105 Colour: 0x0602 Layer: 0 Has: 1
X=67 Y=104 Z=0 C=0x62A0BA5F F=0x00 ignored

к чему бы ?
Author:  Scripts Writer [ 2006-10-12 18:13:07 ]
Post subject: 
LeXuS™ wrote:
я заюзал ,info на руду выдало вот что
ID=0xFFFFFFFF Type=0x19B9 6? Name=99 copper ore
Quantity: 105 Colour: 0x0602 Layer: 0 Has: 1
X=67 Y=104 Z=0 C=0x62A0BA5F F=0x00 ignored

к чему бы ?


Намудрил ты со скриптом. Используй проще , который тебе NMY кинул. Вообще не понимаю что такое стек? сундук? Так введи ИД сундука куда кидать. Если мувать не получается, то юзай команду drophere() вроде. синтаксис смотри в ФАКе
Author:  Edred [ 2006-10-12 18:24:07 ]
Post subject: 
You Must Die wrote:
Вообще не понимаю что такое стек?


Стек - это одна стопка. Stack. То есть ему надо складывать руду на полу в одну стопку по каждому виду, а не разбрасывать по разным координатам.

ЗЫ: Хинт прост - используй уже существующую кучу как контейнер, в который ты кладешь новую руду. Она автоматически сложится в ту же стопку.
Author:  Scripts Writer [ 2006-10-12 20:02:12 ]
Post subject: 
Понятно. 2 вариант-возможно складывать по координатам руды.
Author:  Nmy [ 2006-10-12 22:01:17 ]
Post subject: 
Code:
ignored

начнём с ignorereset() :roll:
Author:  Edred [ 2006-10-12 22:09:17 ]
Post subject: 
You Must Die wrote:
Понятно. 2 вариант-возможно складывать по координатам руды.


На ранке положить по координатам - не всегда означает положить в стек с тем, что в этих координатах лежит. Прекрасно уживаются несколько стопок одного и того же предмета в одной точке.
Author:  LeXuS™ [ 2006-10-13 09:39:41 ]
Post subject: 
Ребята, решил проблему следующим образом

Code:
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]=0x0231           #steel
rudac[4]=0x045E          #anra
rudac[5]=0x0585          #valurit
rudac[6]=0x006F          #lavarok     
rudac[7]=0x0481     #icerok
rudac[8]=0x0386          #shadow
rudac[9]=0x0042     #azurie
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 0x19B9 "+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


Всем спасибо, топ клозед :о)
Author:  Nmy [ 2006-10-13 17:49:43 ]
Post subject: 
странный код :roll:
Author:  LeXuS™ [ 2006-10-16 10:17:51 ]
Post subject: 
по другому работать не хотело :о) я рад что работает ))
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/