Yoko

Нужен скрипт на ковку фуллов на ДРВ, все облазил и поиск юзал нигде нет, если кто может написать или есть у кого отпишите плиз.

фрее че ты забыл на дрв

Есть мой скрипт на крафт фулов. По идее подойдет на ДРВ. В этом разделе лежит.

Нуно:)

В этом это каком ?

В том, в котором мы сейчас обшаемся.
Scripts.

Дай ссылку

Лучше бы дал ссылку на скрипт, а не на форум. Искал уже не нашел. По поиску ниче не находит.

Тогда поищи тут.

Не находит

Быстро ты 460 постов просмотрел...

Угу, когда вторую страничку открываешь пишут что таких постов нет или че то типо такого.

Скрипт кота базилио подойдёт.

sub bsarm()
   VAR IngName,Delay=3000

   IngName="Gold"
   UO.FindType('0x0E76','0x0000')
   UO.SetCatchBag('finditem')

   UO.AutoMenu(IngName+' Plate','Platemail (25')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Plate:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Plate
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Legs')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Legs:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Legs
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Arms')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Arms:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Arms
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Platemail Gauntlets')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Gloves:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Gloves
   endif
   UO.CancelMenu()
   wait(Delay)

   UO.AutoMenu(IngName+' Plate','Plate Helm')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Helm:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Helm
   endif
   UO.CancelMenu()
   wait(Delay)
   
   UO.AutoMenu(IngName+' Plate','Platemail Gorget')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')

Gorget:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Gorget
   endif
   UO.CancelMenu()
   wait(Delay)

goto End

   UO.AutoMenu(IngName+' Plate','Heater')
   UO.AutoMenu(IngName+' Armor','Plate')
   UO.AutoMenu('Colored','Armor')
   UO.AutoMenu('Blacksmithing','Colored')
Heater:
   UO.DeleteJournal()
   UO.UseType('ing')

   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
         wait(500)
   wend
   if UO.InJournal("You have failed") then
      goto Heater
   endif
   UO.CancelMenu()
   wait(Delay)

End:
   UO.UnSetCatchBag()

end sub

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

Flake нашел твой скрипт

;|            |--------------------| 
;|            | Full Armor Crafter |                      
;|------------| ver 1.02           |--------> 
;|            | crafted by Flake   | 
;|            |--------------------| 


sub CraftFullArmor() 

VAR IngotsNeed = '118'    ; Кол-во ингов, требуемое на крафт. 
VAR ArmBag = '0x0E76'   ; Тип мешков под арм 
VAR IngotsType, IngotsColor, ArmBagSer, QuantBefore, QuantFizzl, AddIngots, k, a, c 

Dim Choise[7] 
Choise[1] = "'Armor' 'Shields'  'Shields'  'Heater Shield'" 
Choise[2] = "'Armor' 'Plate Mail' 'Plate Mail' 'Platemail Gorget'" 
Choise[3] = "'Armor' 'Plate Mail' 'Plate Mail' 'Platemail Gauntlets'" 
Choise[4] = "'Armor' 'Plate Mail' 'Plate Mail' 'Plate Helm'" 
Choise[5] = "'Armor' 'Plate Mail' 'Plate Mail' 'Platemail Arms'" 
Choise[6] = "'Armor' 'Plate Mail' 'Plate Mail' 'Platemail Legs'" 
Choise[7] = "'Armor' 'Plate Mail' 'Plate Mail' 'Platemail'" 
  
Dim ArmPart[7] 
ArmPart[1] = 0x1415 ;Platemail 
ArmPart[2] = 0x1411 ;PlatemailLegs 
ArmPart[3] = 0x1410 ;PlatemailArms 
ArmPart[4] = 0x1414 ;PlatemailGauntlets 
ArmPart[5] = 0x1412 ;PlatemailHelm 
ArmPart[6] = 0x1413 ;PlatemailHelm 
ArmPart[7] = 0x1B76 ;Heater 

 UO.Print( 'Укажите контейнер с ингами!' ) 
 UO.Exec('addobject CraftBox') 
   While UO.Targeting() 
     Wait(100) 
   Wend 

 UO.Print( 'Укажите Инги для крафта!' ) 
 UO.Exec('addobject Ingots') 
   While UO.Targeting() 
     Wait(100) 
   Wend 

    IngotsType = UO.GetGraphic( 'Ingots' ) 
     IngotsColor = UO.GetColor( 'Ingots' ) 
    
  
    
 UO.FindType( IngotsType, IngotsColor, 'CraftBox' ) 
  While UO.GetQuantity( 'finditem' ) > IngotsNeed 
    UO.Grab( IngotsNeed,  'finditem' ) 
     CheckLag() 

         ;------------- Крафтим------------ 
     For c=1 To 7  
      Craft: 
     UO.FindType( IngotsType ) 
       QuantBefore = UO.GetQuantity( 'finditem' ) 
        UO.DeleteJournal() 
        UO.Exec('waitmenu '+Choise[c]) 
        UO.UseType( IngotsType ) 
         k = 0 
             While NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )              
           k = k + 1    
           Wait(500) 
           Wend 
             If UO.InJournal('fail') Then 
         ;----- Физл! Добовляем нужное кол-во инго и повторяем крафт. ------ 
         UO.FindType( IngotsType ) 
           QuantFizzl = UO.GetQuantity( 'finditem' ) 
           AddIngots = QuantBefore - QuantFizzl 
             UO.FindType( IngotsType, IngotsColor, 'CraftBox' ) 
           If UO.GetQuantity( 'finditem' ) > AddIngots Then 
          UO.Grab( AddIngots, 'finditem' ) 
          CheckLag() 
                   GoTo Craft 
           Else 
          UO.Print( 'Не достаточно ингов, завершаем крафт!' ) 
          UO.Exec( 'terminate CraftFullArmor' ) 
           EndIf          
             EndIf 
     Next 

               ;-----Сгружаем Арм в мешок, а затем кидаем мешок в сундук 
     UO.FindType( ArmBag ) 
     ArmBagSer = UO.GetSerial( 'finditem' ) 
      For a=1 To 7 
         UO.FindType( ArmPart[a] ) 
               If UO.FindCount() > 0 then 
               UO.MoveItem( 'finditem', -1, ArmBagSer ) 
               CheckLag() 
             EndIf 
        Next 
     UO.MoveItem( ArmBagSer, -1, 'CraftBox' ) 
     CheckLag() 
     UO.FindType( IngotsType, IngotsColor, 'CraftBox' ) 
  Wend 
end sub

Но при запуске ошибка в 52 строке, пишет: "Line52: Function not found - CHECKLAG"

Помоги настроить плиз, или может еще кто поймет в чем проблема. (Шард DRW)

[Не забывай использовать теги. Leo]

Все всем спасибо кто пытался помочь найти скрипт Нашел другой, друг дал, офигенно пашет