Page 1 of 1
кач !МИНИНГА!
Posted: 2006-06-14 16:45:40
by ghost_hnt
вот решил прокачать мининг другому чару - сидеть копаьть в шахте в лом
есть оч много ора - на переплавку
=> нужен скрипт следующего содержания
ЧАР берет из сундука 1 ирон ор переплавляет и кладет ингот обратно
вот вообщем и все
Можно и так чар берет 100 ирон ор , переплавляЕТ по 1 и кладет инги обратно!
заранее благодарен
Posted: 2006-06-14 17:09:27
by Scripts Writer
Code: Select all
sub mining()
var ore=' type of ore '
var color=' color of ore '
var sunduk=' where ore are '
uo.FindType(ore,color,sunduk)
while uo.FindCount()
uo.FindType(ore,color,sunduk)
uo.moveitem('finditem','1','backpack')
uo.UseObject('finditem')
wait(100)
uo.FindType(ingot,color,'backpack')
uo.moveitem('finditem','1',sunduk)
wait(100)
wend
end sub
Не тестил. Пробуй
Posted: 2006-06-14 17:26:14
by ghost_hnt
забыл дописать
запускаешь - бывает не находит айрона, или слишком быстро пытается переместить инг
ща попробую пауз добавить
и еще пишет когда сплавил - object not found
Posted: 2006-06-14 17:34:06
by Edred
Code: Select all
#####################################################################
; 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
Posted: 2006-06-14 17:47:18
by ghost_hnt
спасибки
а то я\ уже сам наклепал- только с уборкой ингов не особо получалось
Code: Select all
sub smelting()
var ore='0x19B9'
var color='0x0000'
var sunduk='0x401C6E03'
var ingot='0x1BF2'
uo.FindType(ore,color,sunduk)
while uo.FindCount()
uo.FindType(ore,color,sunduk)
wait(300)
uo.moveitem('finditem','1','backpack')
uo.UseObject('finditem')
wait(300)
if UO.InJournal("Вы плавите") then
repeat
end if
wend
if UO.InJournal("You put") then
zachistka()
endif
end sub
var ore='0x19B9'
var color='0x0000'
var sunduk='0x401C6E03'
var ingot='0x1BF2'
sub zachistka()
uo.FindType(ingot,color,'backpack')
wait(300)
uo.moveitem('finditem','1',sunduk)
wait(300)
end if
end sub
ЗЫ в твоем скрипте чек лаг ищет, но с этим я проблему решил)