копия спелбука
Posted: 2015-09-19 13:46:24
скажите может есть какойто скрипт для копирования или просто раскажите как вообще происходит заполнение спелбука магиями
зарание спс
зарание спс
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