Народ помогите со скриптом !

Kiteris · Post by **Kiteris** » 2005-08-18 09:01:20

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

netol · Post by **netol** » 2005-08-18 09:03:54

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

flake · Post by **flake** » 2005-08-18 10:05:43

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

Kiteris · Post by **Kiteris** » 2005-08-18 11:20:37

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

Нуно:)

Kiteris · Post by **Kiteris** » 2005-08-18 11:20:59

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

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

flake · Post by **flake** » 2005-08-18 11:22:03

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

Kiteris · Post by **Kiteris** » 2005-08-18 20:51:32

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

Дай ссылку

Leo · Post by **Leo** » 2005-08-18 20:57:47

http://forum.yoko.com.ua/viewforum.php?f=5

Kiteris · Post by **Kiteris** » 2005-08-18 21:02:38

Leo wrote:http://forum.yoko.com.ua/viewforum.php?f=5

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

Leo · Post by **Leo** » 2005-08-18 21:04:45

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

Kiteris · Post by **Kiteris** » 2005-08-18 21:17:08

Leo wrote:Тогда поищи тут.

Не находит

Leo · Post by **Leo** » 2005-08-18 21:18:17

Kiteris wrote:Не находит

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

Kiteris · Post by **Kiteris** » 2005-08-18 21:19:35

Leo wrote:
Kiteris wrote:Не находит

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

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

Dron D. · Post by **Dron D.** » 2005-08-18 21:30:14

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

Code: Select all

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

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

Kiteris · Post by **Kiteris** » 2005-08-19 12:29:40

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

Code: Select all

;|            |--------------------| 
;|            | 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]

Kiteris · Post by **Kiteris** » 2005-08-19 12:40:13

Все всем спасибо кто пытался помочь найти скрипт

Нашел другой, друг дал, офигенно пашет