Скрипт на плавку (что в нем не так?)

Archy_87 · Post by **Archy_87** » 2007-09-25 05:43:32

sub Smelth()
Var Ruda='0x19B7'
Var Bag='0x40024289'
Var Ore='0x19B9'

IF UO.Count( Ruda ) = 0 Then
   UO.FindType ( 'Ore', '-1', 'Bag' )
      If UO.FindCount() > 4 Then
         UO.MoveItem('finditem', '1')
         wait( 300 )
         UO.UseType( 'Ruda' )
         wait(300 )
      Else
         UO.Print( 'В мешке нет руды!' )
      Endif
Endif
Next
EndSub

У меня на сервере руда плавится дабл кликом на руду, вот я себе и написал скрипт, только он почемуто ошибку выдает в строке

UO.MoveItem('finditem', '1')

Я пробывал UO.Grab не помогает тоже самое... Подскажите что не так?

Scripts Writer · Post by **Scripts Writer** » 2007-09-25 13:40:18

Code: Select all

sub Smelth() 
Var Ruda='0x19B7' 
Var Bag='0x40024289' 
Var Ore='0x19B9' 

uo.UseObject(Bag)
wait(1000)
UO.FindType ( 'Ore', '-1', 'Bag' ) 
if uo.FindCount() then
 repeat
  uo.moveitem('finditem','1')
  wait(500)
  uo.UseObject('finditem')
  wait(750)
  UO.FindType ( 'Ore', '-1', 'Bag' ) 
 until uo.FindCount() ==0
end if
uo.Print('there are no more ores to smelt.')
EndSub

Archy_87 · Post by **Archy_87** » 2007-09-25 15:29:24

Ошибку пишет... UO.FINDCOUNT и указывает почемуто на строку где написанно Endsub

Scripts Writer · Post by **Scripts Writer** » 2007-09-25 15:50:03

Исправил

Archy_87 · Post by **Archy_87** » 2007-09-25 22:24:35

Мешок открывается, и далее у меня в паке все вещи начинают перекладываться... А вот руда с мешка не берется...

Scripts Writer · Post by **Scripts Writer** » 2007-09-26 04:01:00

Мешок у тебя в бекпеке лежит?

Archy_87 · Post by **Archy_87** » 2007-09-26 08:29:37

Нет наполу рядом с чаром... А нада в бекпаке?

grundick · Post by **grundick** » 2007-09-26 10:54:29

Пох где мешок.Вот так должно работать

Code: Select all

sub Smelth() 
Var Bag='0x4013C28D' 
Var IronOre='0x19B9' 

uo.UseObject(Bag)
wait(1000)
UO.FindType (IronOre,-1,Bag) 
if uo.FindCount() then
 repeat
  uo.moveitem('finditem',1)
  wait(200)
  uo.UseObject('finditem')
  wait(200)
  UO.FindType ( IronOre, -1, Bag ) 
 until uo.FindCount() ==0
end if
uo.Print('there are no more ores to smelt.')
end sub

Scripts Writer · Post by **Scripts Writer** » 2007-09-26 17:34:08

Archy_87 wrote:Нет наполу рядом с чаром... А нада в бекпаке?

Найди нормальный скрипт на переплавку(В проверенных скриптах там Smelthing (by Gremlin если не ошибаюсь))

Spirit · Post by **Spirit** » 2007-09-26 20:04:08

Там, где используются переменные, ковычки не нужны.