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

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