helo BS

[P]

под оском бс с переплавкой поделитесь пожалуйсто ( чтобы плавил снова брал молоток и продолжал кувать) пожалуйсто!

[Scripts Writer]

Тебе сказачно повезло. Недавно был на оскоме, качал бс и правил под себя скрипт. Держи

Code: Select all

################## 
# Black Smithing # 
################## 
# 
# Ignots on the ground. Smith hammer on the right hand. 
# We're standing near a forge, which we'll target and 
# near ingots. If you can't find ingots - ,set finddistance 10 
# When a quantity of produced item more than 20 -smelthing 
# for ingots. 
# 21.12.06 .Tested on shard Dragon World 
# 
sub BlackSmithingYMD() 
 var IngType=0x1BF2 # Type of ignots to smith 
 var IngColor=0x0000 # Color of ingots to smith 
 var Item=0x1440 # Type of a produced item 
 var hammer=0x13E3
 var k
 uo.AddObject('Forge') 
 while uo.Targeting() 
   wait(100) 
 wend 
 uo.AddObject('Sunduk')
 while uo.Targeting()
   wait(100)
 wend
 uo.UseObject('Sunduk')
 wait(1000)
  while uo.SkillVal('Blacksmithing','1') < 1000 
    uo.DeleteJournal() 
    uo.FindType(IngType,IngColor,'backpack') 
    if not uo.FindCount() || uo.GetQuantity('finditem') < 50 then 
      GetItem(IngType,IngColor,200,'Sunduk','backpack') 
    end if 
    k=0
    uo.waitmenu('Blacksmithing','Weapons','Weapons','Swords','Swords','cutlass')  # Change 
    uo.UseObject('finditem') 
    repeat 
      k=k+1
      wait(100) 
    until uo.InJournal('put') || uo.InJournal('íå ñìîãëè') || k>100 
    if uo.InJournal('put') then 
      uo.FindType(Item,'-1','backpack') 
      if uo.FindCount() > 3 then 
        while uo.FindCount() > 0
          uo.WaitTargetObject('finditem') 
          uo.UseObject('Forge') 
          wait(750) 
          uo.FindType(Item,'-1','backpack') 
        wend 
      end if 
      wait(50) 
      uo.UseType(hammer)
      wait(750)
    end if 
  wend 
end sub 

########### 
# GetItem # 
########### 

sub GetItem(type, color, quantity, where , to) 
  uo.FindType(type,'-1',where) 
  if uo.FindCount() then 
    uo.moveitem('finditem',quantity,to) 
    wait(750) 
  end if 
end sub

[P]

опа хелло )) ещё не тестил но надеюсь скрипт имба? ))

[P]

LinE 39 PARSE ERORR

[P]

LINE 41

[Destruction]

На 39ой и 41ой строках ошибки нет.

[P]

а почему скрипт не работает у меня? мне надо кувать дагерры я менял мб чё то нето? поменяйте плиз по братскии

[grundick]

'Плиз по братски' это как то звучит...

[Scripts Writer]

Самое интересное что скрипт копи/паст из своего автолода,-не понятно как я не заметил ошибки когда качал бс.

[KTO nyKHyJI???]

все работает гуд , но висит таргет ненужный , не подскажите пожалуйста как его убрать ? (после переплавки вещей молоток падает из рук , кувать также можно нажав на инги)
шард оском