Yoko

Posted: **2007-12-12 18:18:25**

Подскажите что тут нужно исправить чтобы чар брал по 5 оре а не по 1 и переплавлял в инги. Заранее спасибо

вот скрипт

sub Smelt() ; Ïåðåïëàâêà
    UO.Set('quiet','off')
   repeat
    UO.findtype('0x19B9', '-1', 'my') ; Èùåì áîëüøîé êóñîê ðóäû, áîëüøå 3-õ â êó÷å
    if (UO.FindCount()==0) then
       UO.findtype('0x19B8', '-1', 'my') ; Èùåì ñðåäíèé êóñîê ðóäû, òðè â êó÷å
       if (UO.FindCount()==0) then
          UO.findtype('0x19BA', '-1', 'my') ; Èùåì ìàëåíüêèé êóñîê ðóäû, äâå â êó÷å
          if (UO.FindCount()==0) then
             UO.findtype('0x19B7', '-1', 'my') ; Èùåì îäíó åäåíèöó ðóäû ñàìàÿ ìåëêàÿ
             if (UO.FindCount()==0) then
                GOTO Exit ; åñëè â ïàêå íåòó íå îäíîé èç ðóä òî âûõîäèì(çàâåðøàÿ ñêðèïò)
             else   
                UO.usetype('0x19B7') ; ïåðåïëàâëÿåì (îäíó åäåíèöó ðóäû ñàìàÿ ìåëêàÿ)
             endif
          endif
       endif
    endif ; åñëè æå êàêàÿ òî êó÷êà åñòü òî  
    UO.moveitem('finditem', '1', 'backpack','30','50','50') ; ïåðåìåùÿåì å¸ â óãîë ïàêà
    Wait(100)                                               ; æä¸ì ïåðåìåùåíèÿ (ìîíà èçìåíÿòü)
    UO.usetype('0x19B7')                                    ; ïåðåïëàâëÿåì!
   until not UO.FindCount() ; äîïîëíèòåëüíàÿ ïðîâåðêà íà íàõîæäåíèå ðóäû...
Exit:
    UO.Print('Óñ¸... Âñ¸ ÷òî ìîãëè - ïåðåïëàâèëè...')
end sub

Posted: **2007-12-12 19:12:20**

UO.moveitem('finditem', '1', 'backpack','30','50','50')

число 1 в этой строке указывает на то, сколько брать.

Posted: **2007-12-13 07:42:03**

Спасибо. Он теперь берет по 5 но почемуто непереплавляет их в инготы.

Posted: **2007-12-13 08:35:39**

'30','50','50')
а эт че такое?:)

Posted: **2007-12-13 11:58:39**

Zodroteg UO wrote:'30','50','50')
а эт че такое?:)

ет кажись координаты в бп, куда складывается finditem

у кучки type другой

Posted: **2007-12-13 15:57:15**

подскажите как исправить плизз

Posted: **2007-12-13 16:25:10**

,info на кучку с ироном и здесь UO.usetype('0x19B7') вписать тип, если он другой

Posted: **2007-12-13 19:10:11**

вот что он мне выдал

Code: Select all

ID=0x418FE958 Type=0x0EB3 ONNAPOD Name=
Quantity: 1  Colour: 0x0000  Layer: 0  Has: 1
X=101 Y=65 Z=0 C=0x4187942E F=0x00

ID=0x418D2A0D Type=0x19B9 JJHQOOD Name=50 iron ore
Quantity: 50  Colour: 0x0000  Layer: 0  Has: 1
X=57 Y=91 Z=0 C=0x4187942E F=0x00

Posted: **2007-12-14 15:31:28**

Code: Select all

sub Smelt()
  UO.Set('quiet','off')
  Repeat
    UO.FindType('0x19B9', '-1', 'my')
    If UO.FindCount() == 0 then
      UO.FindType('0x19B8', '-1', 'my')
      If UO.FindCount() == 0 then
        UO.FindType('0x19BA', '-1', 'my')
        If UO.FindCount() == 0 then
          UO.FindType('0x19B7', '-1', 'my')
          If UO.FindCount() ==0 then
            GoTo Exit
           Else   
            UO.UseType('0x19B7')
          EndIf
        EndIf
      EndIf
    EndIf
    UO.MoveItem('finditem', '5', 'backpack','30','50','50')
    Wait(100)
    UO.usetype('0x19B9')
  Until not UO.FindCount()
  Exit:
  UO.Print('Óñ¸... Âñ¸ ÷òî ìîãëè - ïåðåïëàâèëè...')
EndSub

Попробуй

Поздравляю иришку с др

Posted: **2007-12-14 19:53:19**

ZeroDX спасибо большое все работает

Yoko

Как исправить

Как исправить

Re: Как исправить