копия спелбука

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
7ice_k7
Posts: 30
Joined: 2014-06-03 16:10:29

копия спелбука

Post by 7ice_k7 »

скажите может есть какойто скрипт для копирования или просто раскажите как вообще происходит заполнение спелбука магиями
зарание спс :)
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: копия спелбука

Post by Mirage »

Если нужно просто заполнить книгу свитками то перебор типов от первого до последнего цель на книгу. Типа того:

Code: Select all

sub SpellBook();
	var SundLoot = 'ID сундука со свитками'
	var SpellBook = 'ID спеллбука'
	PUTLoot2(0x1f19, 0x1f6c, '0', SundLoot, SpellBook)	; свиток с 1 по 88 из сумки на книгу. 
endsub
Sub PUTLoot2(Type1, Type2, Color, SourceContainer, TargetContainer)
	;uo.ignorereset()
	for TType = Type1 to Type2
		PUTLoot(TType, Color, SourceContainer, TargetContainer)
	next
end sub
Sub PUTLoot(Type, Color, SourceContainer, TargetContainer)
	var timemove
	;uo.ignorereset()
	UO.FindType(Type, Color, SourceContainer)
	while UO.FindCount()
		timemove=UO.Timer()
		uo.MoveItem('finditem',0,TargetContainer)
		repeat
			wait(100)
		until UO.ContainerOf('finditem')<>TargetContainer && timemove+30>UO.Timer()
		UO.FindType(Type, Color, SourceContainer)
	wend
end sub
Если нужна именно копия существующей книги то чуть чуть сложнее.
Post Reply