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

Yoko http://forum.yoko.com.ua/

Народ помогите со скриптом ! http://forum.yoko.com.ua/viewtopic.php?f=20&t=4856	Page 1 of 1

Author:	Kiteris [ 2005-08-18 09:01:20 ]
Post subject:	Народ помогите со скриптом !
Нужен скрипт на ковку фуллов на ДРВ, все облазил и поиск юзал нигде нет, если кто может написать или есть у кого отпишите плиз.

Author:	netol [ 2005-08-18 09:03:54 ]
Post subject:
фрее че ты забыл на дрв

Author:	flake [ 2005-08-18 10:05:43 ]
Post subject:
Есть мой скрипт на крафт фулов. По идее подойдет на ДРВ. В этом разделе лежит.

Author:	Kiteris [ 2005-08-18 11:20:37 ]
Post subject:
netol wrote: фрее че ты забыл на дрв Нуно:)

Author:	Kiteris [ 2005-08-18 11:20:59 ]
Post subject:
flake wrote: Есть мой скрипт на крафт фулов. По идее подойдет на ДРВ. В этом разделе лежит. В этом это каком ?

Author:	flake [ 2005-08-18 11:22:03 ]
Post subject:
В том, в котором мы сейчас обшаемся. Scripts.

Author:	Kiteris [ 2005-08-18 20:51:32 ]
Post subject:
flake wrote: В том, в котором мы сейчас обшаемся. Scripts. Дай ссылку

Author:	Leo [ 2005-08-18 20:57:47 ]
Post subject:
http://forum.yoko.com.ua/viewforum.php?f=5

Author:	Kiteris [ 2005-08-18 21:02:38 ]
Post subject:
Leo wrote: http://forum.yoko.com.ua/viewforum.php?f=5 Лучше бы дал ссылку на скрипт, а не на форум. Искал уже не нашел. По поиску ниче не находит.

Author:	Leo [ 2005-08-18 21:04:45 ]
Post subject:
Тогда поищи тут.

Author:	Kiteris [ 2005-08-18 21:17:08 ]
Post subject:
Leo wrote: Тогда поищи тут. Не находит

Author:	Leo [ 2005-08-18 21:18:17 ]
Post subject:
Kiteris wrote: Не находит Быстро ты 460 постов просмотрел...

Author:	Kiteris [ 2005-08-18 21:19:35 ]
Post subject:
Leo wrote: Kiteris wrote: Не находит Быстро ты 460 постов просмотрел... Угу, когда вторую страничку открываешь пишут что таких постов нет или че то типо такого.

Author:

Dron D. [ 2005-08-18 21:30:14 ]

Post subject:

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

Code:

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

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

Author:

Kiteris [ 2005-08-19 12:29:40 ]

Post subject:

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

Code:

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

Author:	Kiteris [ 2005-08-19 12:40:13 ]
Post subject:
Все всем спасибо кто пытался помочь найти скрипт Нашел другой, друг дал, офигенно пашет

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/