кач !МИНИНГА!

[ghost_hnt]

вот решил прокачать мининг другому чару - сидеть копаьть в шахте в лом
есть оч много ора - на переплавку
=> нужен скрипт следующего содержания
ЧАР берет из сундука 1 ирон ор переплавляет и кладет ингот обратно
вот вообщем и все
Можно и так чар берет 100 ирон ор , переплавляЕТ по 1 и кладет инги обратно!
заранее благодарен

[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

Не тестил. Пробуй

[ghost_hnt]

забыл дописать

Code: Select all

 var ingot='тип' 

запускаешь - бывает не находит айрона, или слишком быстро пытается переместить инг
ща попробую пауз добавить
и еще пишет когда сплавил - object not found

[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

[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

ЗЫ в твоем скрипте чек лаг ищет, но с этим я проблему решил)