ПРошу помочь со скриптом Edred'a на переплавку руды. Можно ли его изменить так чтобы : он брал из сундука ОРЫ => переплавлял их => кидал обратно в сундук? Но тока чтобы выха оставалась не тронутой.
Поисковиком ничего не нашёл кроме прокачки мининга путём переплавки.
Code:
#####################################################################
; Training of Mining, ver 2.00b, (c) Edred
; 2.00b - добавляем сундук, откуда берется руда по 100 шт. и кидается
; под ногм. Дальше как было. Заодно все правлю и переписываю
; более правильно :)
sub Smelt()
VAR Sunduk = '0x40437910' ; Сериал сундука с рудой
VAR Ruda1 = '0x19B9' ; Тип руды
VAR Ruda2 = '0x19B8' ; Тип руды - 3 шт.
VAR Ruda3 = '0x19BA' ; Тип руды - 2 шт.
VAR Ruda4 = '0x19B7' ; Тип руды - 1 шт.
VAR Ing1 = '0x1BEF' ; Тип ингов металлов
VAR Ing2 = '0x1BF2' ; Тип ингов строймата
VAR MaxVes = 200 ; Максимальный вес пака
While UO.SkillVal( 'Mining' ) < 1000
repeat
UO.Findtype( Ruda1, '-1', '1' ) ; Ищем руду на земле
If UO.Findcount() == 0 Then
UO.Findtype( Ruda2, '-1', '1' )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda3, '-1', '1' )
If UO.Findcount() == 0 Then
UO.Findtype( Ruda4, '-1', '1' )
If UO.Findcount() == 0 Then
If GetOre( Sunduk, Ruda1 ) == 0 Then
UO.Print( "No more ore for smelt..." )
Return
Endif
Endif
Endif
Endif
Endif
until UO.FindCount() > 0
UO.Grab( '1', 'finditem' )
Wait(500)
CheckLag()
UO.UseType( Ruda4 ) ; переплавляем
Wait(500)
CheckLag()
If UO.Weight > MaxVes Then
; Максимальный вес пака превышен - разгружаемся
UO.Findtype( Ing1 )
If UO.Findcount() > 0 Then
UO.MoveItem( 'finditem', '0', Sunduk )
Wait(500)
CheckLag()
Endif
UO.Findtype( Ing2 )
If UO.Findcount() > 0 Then
UO.MoveItem( 'finditem', '0', Sunduk )
Wait(500)
CheckLag()
Endif
Endif
Wend
endsub
Sub GetOre( cont, typ )
; Взять из сундука 100 руды и бросить под ноги.
; Если руды нет - возвращаем 0, если есть 1
UO.FindType( typ, '-1', cont )
If UO.FindCount() == 0 Then
return 0
Else
UO.Grab( '100', 'finditem' )
wait(500)
CheckLag()
UO.FindType( typ )
If UO.FindCount() == 0 Then
UO.Print( 'Idiot! Your script is fuck!' )
Else
UO.Drophere( 'finditem' )
wait(500)
CheckLag()
Endif
Endif
return 1
endsub
У меня мининг ГМ но когда я попытася изменить 15 строчку (<1000 на = 1000) у меня при запуске скрипта пишет CHECKLAG ERROR.
ПОмогите ПЛИЗ....такой скрипт любому пригодился бы.