Yoko

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

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]....[/code] I'm

_________________
все что нас не убивает - делает нас крепче!

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

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

Fixed

_________________
The End.