Переплавка руды из сумки в бэкпаке

[Driskill]

Первый настроенный нескажу сделанный потомучто 1 половину содрал у Эдрэда другую еще откудато точно непомню! Скрипт будет полезен тем у кого еще хаты и форжи нету а копать влом! Несудите строго вдруг комуто пргодицца. Если допущены какието ошибки прошу на них указать бывалых...

Code: Select all

sub Smelt() 
var MaxVes=500
VAR Ing1 = '0x1BEF' ; 
VAR Ing2 = '0x1BF2' ; 
repeat 
UO.Findtype('0x19B9', '-1','0x4003edd8') ;тут ставим серийник сумки
If UO.Findcount() == 0 Then 
UO.Findtype('0x19B8', '-1','0x4003edd8') ;тут ставим серийник сумки
If UO.Findcount() == 0 Then 
UO.Findtype('0x19BA', '-1','0x4003edd8') ;тут ставим серийник сумки
If UO.Findcount() == 0 Then 
UO.Findtype('0x19B7', '-1','0x4003edd8') ;тут ставим серийник сумки
If UO.Findcount() == 0 Then      
UO.Print( "No more ore for smelt..." ) 
Return 
Endif 
Endif 
Endif 
Endif 
UO.Exec( "moveitem finditem 1" ) ; Òàùèì 1 â ïàê 
Wait( 1200 ) 
UO.Useobject( 'finditem' ) ; ïåðåïëàâëÿåì 
Wait( 1200 ) 
If UO.Weight > MaxVes Then 
; Ìàêñèìàëüíûé âåñ ïàêà ïðåâûøåí - ðàçãðóæàåìñÿ 
UO.Findtype( Ing1, -1, -1 ) 
If UO.Findcount() > 0 Then 
UO.Drophere( 'finditem' ) 
Wait( 1200 ) 
Endif 
UO.Findtype( Ing2, -1, -1 ) 
If UO.Findcount() > 0 Then 
UO.Drophere( 'finditem' ) 
Wait( 1200 ) 
Endif 
Endif 
until uo.findcount()== 0 
UO.Print( "No more ore for smelt..." ) 
endsub

Code: Select all

Используем теги. [code]....

I'm
[/code]

[Mihail]

во-первых юзай

Code: Select all

,во-вторых что ты хотел сказать данным топом?

[Scripts Writer]

во-первых юзай

Code: Select all

,во-вторых что ты хотел сказать данным топом?[/quote]

Человек видимо хотел внести свой вклад в наше общее дело ))

[I'm]

во-первых юзай

Code: Select all

[/quote]
Fixed