Inscription

Post by **Yoko** » 2004-09-23 10:12:56

Discussion:______________
http://yoko.netroof.net/forum/viewtopic.php?t=1439
Author or poster:_________
Edred, tercia@spb.lanck.net
Tested on:_______________
Цитадель http://ultima.e-burg.ru
Must work:_______________
Sphere emu
Customization required:____
Yes/place (serials Sunduk; also check object types)
Description:______________
Скрипт для прокачки инскрипта путем крафта скроллов Magic Arrow.
Чар берет из сундука бланкскроллы, реги, крафтит скроллы заклинания и скидывает их в этот же сундук.

Настройка: внесите в соответствующие переменные сериал сундука, проверьте типы бланкскроллов, скроллов заклинания, регов.
Yoko comment:___________
author updated version to 1.04(b): DMY=06.10.2004
________________________

Code: Select all

#####################################################################
; Inscription. v.1.04b (c) Edred
;
; Берем из сундука blank scroll, nightshade, black pearl,
; крафтим из них скролл Magic Arrow (с повторами в случае физлов), 
; потом скидываем готовый скролл в тот же сундук.
; Если что-либо кончилось - выход.

sub inscript() 
	VAR Sunduk = '0x40140DD1' 		; Сериал сундука с бланкскроллами и регами
	VAR Blank = '0x0E34' 			; Тип бланк скролла
	VAR Arrow = '0x1F32'			; Тип скроллов Magic Arrow
	VAR Reg1 = '0x0F88'				; найтшэд
	VAR Reg2 = '0x0F7A'				; блэкперл
	VAR Fizzle = 'You fail to inscribe the scroll'
	VAR Success = 'You put the'
	VAR k
;   	UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
	UO.CancelMenu()
	UO.AutoMenu( 'Spell Circles', 'First Circle' )
	UO.AutoMenu( 'Spell Circle 1', 'Magic Arrow' )
	UO.UseObject( Sunduk )
	wait(1000)
	While UO.SkillVal( 'Inscription' ) < 1000
		; берем бланк скроллы
;		EatChar( Sunduk, 2, 1, 60 )
		If UO.Count( Blank ) == 0 Then
			UO.FindType( Blank, -1, Sunduk )
			If UO.FindCount() == 0 Then
				UO.Print( 'Blank Scroll not found. Script terminated' )
				return
			Endif
			If UO.GetQuantity( 'finditem' ) < 100 Then
				UO.Grab( '0', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Blank ) > 0
				CheckLag()
			Else
				UO.Grab( '100', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Blank ) == 100
				CheckLag()
			Endif
		Endif
		; берем найтшэд
		If UO.Count( Reg1 ) == 0 Then
			UO.FindType( Reg1, -1, Sunduk )
			If UO.FindCount() == 0 Then
				UO.Print( 'Nightshade not found. Script terminated' )
				return
			Endif
			If UO.GetQuantity( 'finditem' ) < 100 Then
				UO.Grab( '0', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Reg1 ) > 0
				CheckLag()
			Else
				UO.Grab( '100', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Reg1 ) == 100
				CheckLag()
			Endif
		Endif
		; берем блэкперл
		If UO.Count( Reg2 ) == 0 Then
			UO.FindType( Reg2, -1, Sunduk )
			If UO.FindCount() == 0 Then
				UO.Print( 'Black Pearls not found. Script terminated' )
				return
			Endif
			If UO.GetQuantity( 'finditem' ) < 100 Then
				UO.Grab( '0', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Reg2 ) > 0
				CheckLag()
			Else
				UO.Grab( '100', 'finditem' )
				repeat
					wait(100)
				until UO.Count( Reg2 ) == 100
				CheckLag()
			Endif
		Endif
		repeat
			DeleteJournal( Fizzle )
			DeleteJournal( Success )
			UO.UseType( Blank )
			k = 0
			repeat
				k = k + 1
				wait(100)
			until UO.InJournal(Fizzle) OR UO.InJournal(Success) OR UO.Count(Blank) == 0 OR UO.Count(Reg1) == 0 OR UO.Count(Reg2) == 0 OR k > 600
			If UO.Mana < 10 Then
				repeat
					UO.UseSkill( 'Meditation' )
					wait(2000)
				until UO.Mana == UO.Int
			Endif
		Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
		While UO.Count( Arrow ) > 0
			UO.FindType( Arrow )
			If UO.FindCount() > 0 Then
				UO.MoveItem( 'finditem', 0, Sunduk )
				wait(1000)
				CheckLag()
			Endif
		Wend
	Wend
	UO.CancelMenu()
endsub

#####################################################################
Sub CheckLag()
	DeleteJournal( 'backpack' )
	UO.Click( 'backpack' )
	repeat
		wait(100)
	until UO.InJournal( 'backpack' )
	return
end sub

#####################################################################
Sub DeleteJournal( string1 )
	VAR nom = UO.InJournal( string1 )
	If nom > 0 Then
		UO.SetJournalLine( Nom - 1, 'string replaced' )
		DeleteJournal( string1 )
	Endif
endsub