Переплавка руды из сумки в бэкпаке
Posted: 2006-09-17 20:46:10
Первый настроенный нескажу сделанный потомучто 1 половину содрал у Эдрэда другую еще откудато точно непомню! 
Скрипт будет полезен тем у кого еще хаты и форжи нету а копать влом! Несудите строго вдруг комуто пргодицца. Если допущены какието ошибки прошу на них указать бывалых...
I'm
[/code]
Скрипт будет полезен тем у кого еще хаты и форжи нету а копать влом! Несудите строго вдруг комуто пргодицца. Если допущены какието ошибки прошу на них указать бывалых...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]....[/code]