Yoko

Code: Select all

sub CheckLag()
	UO.DeleteJournal()
	UO.Click('backpack')

	repeat
		wait(50)
	until UO.InJournal('backpack')
end sub



sub carpentry() 
VAR Sunduk1 = '0x4006F366' ; Сериал сундука с пустыми мешками 
VAR Sunduk2 = '0x4007E004' ; Сериал пустого сундука 
VAR Meshok = '0x0E76' ; Тип мешка 
VAR Logi = '0x1BDD' ; Тип логов 
VAR Rubanok = '0x1033' ; Тип инструмента карпентера 
VAR Udochka = '0x0DBF' ; Тип удочки 
VAR Kolvo = 250 ; Брать логов (2 лога = 1 удочка) 
VAR MeshSer, j, k 
While TRUE 
checklag()
UO.FindType( Logi, -1, 1 ) ; Ищем логи на полу 
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак 
wait( 2000 ) 
If UO.FindCount() == 0 Then 
UO.Print("Logs not found, script terminated") 
return 
Endif 
UO.FindType( Meshok, -1, Sunduk1 ) ; Ищем мешок в сундуке 1 
MeshSer = UO.GetSerial( 'finditem' ) 
checklag()
UO.Grab( '1', 'finditem' ) ; Кладем его в бэкпак 
wait( 2000 ) 
UO.MoveItem( MeshSer, 0, Sunduk2 ) 
checklag()
wait( 2000 ) 
While UO.Count( Logi ) > 5 
; Пока в паке есть логи 
checklag()
UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' ) 
UO.DeleteJournal() 
UO.CancelMenu() 
UO.WaitMenu ('Carpentry', 'Weapons & Tools', 'Weapons & Tools', 'fishing' ) 
checklag()
UO.UseType( Rubanok ) 
k = 0 
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
k = k + 1 
wait(500) 
wend 

; Wait( 14000 ) 
; Скрафтили удочку 
; Сразу переложим ее в мешок 
if UO.Count( Udochka ) > 0 then 
UO.FindType( Udochka, -1, 'backpack' ) 
checklag()
UO.MoveItem( 'finditem', 0, MeshSer ) 
wait( 2000 ) 
UO.Print( 'Udochka perelozhena' ) 
end if 
Wend 
Wend 
end sub

Code: Select all

; Teiloring. v.1.03b (c) Edred
;
sub teiloring() 
	VAR Sunduk1 = '0x4017439B' 		; Сериал сундука с пустыми мешками
	VAR Sunduk2 = '0x4000F46C' 		; Сериал пустого сундука
	VAR Meshok = '0x0E76' 			; Тип мешка
	VAR Shkur = '0x1067' 			; Тип шкур
	VAR Vosk = '0x1423' 			; Тип воска
	VAR Kit = '0x0F9D' 			; Тип инструмента тейлора
	VAR Map = '0x14EB' 				; Тип карты
	VAR Kolvo = 200 				; Брать шкур и воска
	VAR MeshSer, j, ShkurSer, k
	While TRUE
		UO.FindType( Shkur, -1, 1 ) 			; Ищем шкуры на полу
		If UO.FindCount() == 0 Then
			UO.Print("Leathers not found, script terminated")
			return
		Endif
		UO.Grab( Str( Kolvo ), 'finditem' ) 	; Кладем логи в пак
		wait( 2000 )
		UO.FindType( Vosk, -1, 1 ) 				; Ищем и берем воск
		If UO.FindCount() == 0 Then
			UO.Print("Beeswaxs not found, script terminated")
			return
		Endif
		UO.Grab( Str( Kolvo ), 'finditem' )
		wait( 2000 )
		UO.FindType( Meshok, -1, Sunduk1 ) 		; Ищем мешок в сундуке 1
		MeshSer = UO.GetSerial( 'finditem' )
		UO.Grab( '1', 'finditem' ) 			; Кладем его в бэкпак
		wait( 2000 )
		UO.MoveItem( MeshSer, 0, Sunduk2 )
		wait( 2000 )
		While UO.Count( Shkur ) > 1
			; Пока в паке есть шкуры
			UO.Print('Ostalos ' + Str( UO.Count( Shkur ) ) + ' shkur' )
			UO.FindType( Shkur, -1, 'backpack' )
			ShkurSer = UO.GetSerial( 'finditem' )
			UO.CancelMenu()
			UO.DeleteJournal() 
			UO.WaitMenu ("Leather", "Blank's", "Blank's", "blank map" )
			UO.WaitTargetObject( ShkurSer )
			UO.UseType( Kit )
			k = 0
			while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
				k = k + 1
				wait(500) 
			wend
			; Wait( 14000 )
			; Скрафтили карту
			; Сразу переложим ее в мешок
			if UO.Count( Map ) > 0 then
				UO.FindType( Map, -1, 'backpack' )
				UO.MoveItem( 'finditem', 0, MeshSer )
				wait( 2000 )
				UO.Print( 'Karta perelozhena' )
			end if
		Wend
	Wend
end sub