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

никлейсы ДРВ
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3024		 Page 1 of 1
Author:  The Cheater [ 2005-02-08 16:54:05 ]
Post subject:  никлейсы ДРВ
народ у кого есть скрипт на тинкер никлейсов и расфасовку их по
мешкам -выложите плиз или дайте ссылку

спасибо!
Author:  Sfagnum [ 2005-02-08 16:59:04 ]
Post subject:  Re: никлейсы ДРВ
попробуй разобраться...
найду время... - распишу.
За основу взят Emil'евский скрипт.

sub carpFishingPole() - крафт удочек
sub tinkIron() - некласов
sub tinkGold() - золотые брасы...

Code:
VAR Cont1 = '0x4023A5A4' ;ресурсы, пустые мешки и фишстейки
VAR Cont2 = '0x40255B42' ;сундук де будут лежать полные мешки
VAR Count = 250 ;какое количество ресусров бёрем 
var Tools = '0x1EBC' ;инструмент, при котором появляется
var Creat = '0x1086' ;тип созданной вещи(удочка, даггер и т.д.) 
VAR Food = '0x097B' ;тип еды, кторую будем кушать 
var Bag = '0x09B0' ;тип мешочков 
var Source = '0x1BE9' 
var BagSer, i=0, fizl=0, control=5, time, z 


sub carpFishingPole()
Tools = '0x1033'
Creat = '0x0DBF'
Source = '0x1BDD' 
UO.CancelMenu()
UO.AutoMenu('Carpentry','Weapons ')
UO.AutoMenu('Weapons ','fishing ')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
   main()
end if
UO.CancelMenu()
end sub

sub tinkIron()
Tools = '0x1EBC'
Creat = '0x1085'
Source = '0x1BEF' 
UO.CancelMenu()
UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','necklace')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
   main()
end if
UO.CancelMenu()
end sub

sub tinkGold()
Tools = '0x1EBC'
Creat = '0x1086'
Source = '0x1BE9' 
UO.CancelMenu()
UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','bracelet')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
end if
main()
UO.CancelMenu()
end sub

sub main() 
var CountSource = 1 ;кол-во разных типов сырья, которые мы возьмем из сундука 
Open('backpack')
NewBag()
if UO.Count(Source) then
   UO.FindType(Source,'0x0000', 'backpack') 
   UO.MoveItem('finditem','-1',Cont1)
   wait(1000) 
end if
UO.FindType(Source,'0x0000', Cont1) 
UO.Grab(STR(Count),'finditem') 
wait(1000) 
CheckLag()      
while UO.Count(Source) > 0
   if UO.Count(Source) < 2 then 
      UO.FindType(Source,'0x0000', Cont1) 
      UO.Grab(STR(Count),'finditem') 
      wait(1000) 
   endif 
   UO.DeleteJournal()
   UO.UseObject('objTools')
   Repeat 
      wait(500) 
   Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ')   
   While UO.Count(Creat)>0 
      UO.FindType(Creat,'-1',-1) 
      UO.MoveItem('finditem','0',BagSer) 
      If UO.Count(Creat)>0 then 
         FastLootCheck() 
      endif 
      if UO.InJournal("Too many items") then 
         NewBag() 
      endif 
   Wend    
Wend 
UO.CancelMenu()
Detect_Hidden()
end sub 

sub Open(Container) 
   UO.DeleteJournal() 
   UO.UseObject(Container) 
   wait(500) 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(450) 
   If UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      UO.Click('backpack') 
      repeat 
         wait(300) 
      until UO.InJournal('backpack') 
   Endif 
end sub 

sub NewBag() 
   Open(Cont1) 
   Open(Cont2) 
   ToEat()
   UO.FindType(Bag, -1, Cont1)
   UO.Print('Ok')
   if UO.FindCount() < 1 then 
      Detect_Hidden()
   end if
   BagSer=UO.GetSerial('finditem')    
   UO.MoveItem(BagSer, 0, Cont2) 
   wait(1000) 
end sub 

sub ToEat()
   UO.FindType('0x097B', '0x0000',Cont1)
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','backpack')
   else
      return
   end if
   repeat    
      CheckLag()
      uo.UseType('0x097B')
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
         wait(100)
      wend
   until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't")
   UO.FindType('0x097B', '0x0000','backpack')
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','Cont1')    
   end if
end sub

sub Detect_Hidden()
 UO.CancelMenu()
 repeat
  CheckLag()
  uo.UseSkill('Detect Hidden')  
  repeat
   wait(50)
  until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
 until uo.Dead()
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
end sub
Author:  The Cheater [ 2005-02-08 17:16:14 ]
Post subject:  Re: никлейсы ДРВ
Sfagnum wrote:
попробуй разобраться...
найду время... - распишу.
За основу взят Emil'евский скрипт.

sub carpFishingPole() - крафт удочек
sub tinkIron() - некласов
sub tinkGold() - золотые брасы...

Code:
VAR Cont1 = '0x4023A5A4' ;ресурсы и пустые мешки 
VAR Cont2 = '0x40255B42' ;сундук де будут лежать полные мешки
VAR Count = 250 ;какое количество ресусров бёрем 
var Tools = '0x1EBC' ;инструмент, при котором появляется
var Creat = '0x1086' ;тип созданной вещи(удочка, даггер и т.д.) 
VAR Food = '0x097B' ;тип еды, кторую будем кушать 
var Bag = '0x09B0' ;тип мешочков 
var Source = '0x1BE9' 
var BagSer, i=0, fizl=0, control=5, time, z 


sub carpFishingPole()
Tools = '0x1033'
Creat = '0x0DBF'
Source = '0x1BDD' 
UO.CancelMenu()
UO.AutoMenu('Carpentry','Weapons ')
UO.AutoMenu('Weapons ','fishing ')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
   main()
end if
UO.CancelMenu()
end sub

sub tinkIron()
Tools = '0x1EBC'
Creat = '0x1085'
Source = '0x1BEF' 
UO.CancelMenu()
UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','necklace')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
   main()
end if
UO.CancelMenu()
end sub

sub tinkGold()
Tools = '0x1EBC'
Creat = '0x1086'
Source = '0x1BE9' 
UO.CancelMenu()
UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','bracelet')
if UO.Count(Tools) > 0 then
   UO.FindType(Tools,'-1','backpack')
   UO.AddObject('objTools','finditem')
end if
main()
UO.CancelMenu()
end sub

sub main() 
var CountSource = 1 ;кол-во разных типов сырья, которые мы возьмем из сундука 
Open('backpack')
NewBag()
if UO.Count(Source) then
   UO.FindType(Source,'0x0000', 'backpack') 
   UO.MoveItem('finditem','-1',Cont1)
   wait(1000) 
end if
UO.FindType(Source,'0x0000', Cont1) 
UO.Grab(STR(Count),'finditem') 
wait(1000) 
CheckLag()      
while UO.Count(Source) > 0
   if UO.Count(Source) < 2 then 
      UO.FindType(Source,'0x0000', Cont1) 
      UO.Grab(STR(Count),'finditem') 
      wait(1000) 
   endif 
   UO.DeleteJournal()
   UO.UseObject('objTools')
   Repeat 
      wait(500) 
   Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ')   
   While UO.Count(Creat)>0 
      UO.FindType(Creat,'-1',-1) 
      UO.MoveItem('finditem','0',BagSer) 
      If UO.Count(Creat)>0 then 
         FastLootCheck() 
      endif 
      if UO.InJournal("Too many items") then 
         NewBag() 
      endif 
   Wend    
Wend 
UO.CancelMenu()
Detect_Hidden()
end sub 

sub Open(Container) 
   UO.DeleteJournal() 
   UO.UseObject(Container) 
   wait(500) 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(450) 
   If UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      UO.Click('backpack') 
      repeat 
         wait(300) 
      until UO.InJournal('backpack') 
   Endif 
end sub 

sub NewBag() 
   Open(Cont1) 
   Open(Cont2) 
   ToEat()
   UO.FindType(Bag, -1, Cont1)
   UO.Print('Ok')
   if UO.FindCount() < 1 then 
      Detect_Hidden()
   end if
   BagSer=UO.GetSerial('finditem')    
   UO.MoveItem(BagSer, 0, Cont2) 
   wait(1000) 
end sub 

sub ToEat()
   UO.FindType('0x097B', '0x0000', '0x402110CD')
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','backpack')
   else
      return
   end if
   repeat    
      CheckLag()
      uo.UseType('0x097B')
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead()
         wait(100)
      wend
   until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't")
   UO.FindType('0x097B', '0x0000','backpack')
   if UO.FindCount() > 0 then
      UO.MoveItem('finditem','20','0x402110CD')    
   end if
end sub

sub Detect_Hidden()
 UO.CancelMenu()
 repeat
  CheckLag()
  uo.UseSkill('Detect Hidden')  
  repeat
   wait(50)
  until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
 until uo.Dead()
end sub

sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(50)
   until UO.InJournal('backpack')
end sub




спасибо я вроде понял
Author:  =GaD= [ 2005-02-13 19:39:08 ]
Post subject: 
если не трудно распишите куда что вводить.... а то туповаты мы
Author:  BETEPAH [ 2005-02-14 10:02:12 ]
Post subject: 
Code:
VAR Cont1 = '0x4023A5A4' ;ресурсы и пустые мешки 
VAR Cont2 = '0x40255B42' ;сундук де будут лежать полные мешки 
VAR Count = 250 ;какое количество ресусров бёрем 
var Tools = '0x1EBC' ;инструмент, при котором появляется 
var Creat = '0x1086' ;тип созданной вещи(удочка, даггер и т.д.) 
VAR Food = '0x097B' ;тип еды, кторую будем кушать 
var Bag = '0x09B0' ;тип мешочков 
var Source = '0x1BE9' 
var BagSer, i=0, fizl=0, control=5, time, z 

тут все расписано .
Author:  Sfagnum [ 2005-02-15 11:29:10 ]
Post subject: 
ВЕТЕРАН
ты отвечай по полной ;) а то в заблуждение вводишь.

в каждой стартовой процедурке есть переназначение некоторых переменных... их описание наверху.

сделано это для того чтоб не мучаться каждый раз с переназначением при смене вида деятельности.
Author:  =GaD= [ 2005-02-19 08:33:33 ]
Post subject: 
да юудьте любезны...
Author:  Sfagnum [ 2005-02-19 18:11:47 ]
Post subject: 
=GaD= wrote:
да юудьте любезны...
тебе нужны некласы?
так вот ищешь процедурку: sub tinkIron(), там наверху написано что именно её надо для производства некласов запускать, нашёл.... смотрим ней переменные:
Code:
sub tinkIron()
Tools = '0x1EBC'
Creat = '0x1085'
Source = '0x1BEF'
здесь прописано всё необходимое... описание переменных смотри в заголовке... если надо чтобы значение отличалось от крафта к крафту переназначай в нужной процедуре.
Author:  =GaD= [ 2005-02-20 08:09:13 ]
Post subject: 
а если мне токо неклейсы то мне все равно все копировать надо? или можно вырезать куски? если можно покажи как выглядит полный скирипт на неклейсы....
Author:  Striker [ 2005-02-20 15:56:31 ]
Post subject:  Re: никлейсы ДРВ
The Chiater wrote:
народ у кого есть скрипт на тинкер никлейсов и расфасовку их по
мешкам -выложите плиз или дайте ссылку

спасибо!

большая просьба к админам закрыть эту тему(без коментариев)
Author:  JIupus [ 2005-02-20 16:38:35 ]
Post subject:  Re: никлейсы ДРВ
Striker wrote:
большая просьба к админам закрыть эту тему(без коментариев)

тема закроется, если автор топика попросит, тем более у него остались вопросы
Author:  The Cheater [ 2005-02-20 19:12:30 ]
Post subject:  Re: никлейсы ДРВ
JIupus wrote:
Striker wrote:
большая просьба к админам закрыть эту тему(без коментариев)

тема закроется, если автор топика попросит, тем более у него остались вопросы
просьба закрытьэтот топик...
Author:  Sfagnum [ 2005-02-21 18:56:44 ]
Post subject: 
=GaD= wrote:
а если мне токо неклейсы то мне все равно все копировать надо? или можно вырезать куски? если можно покажи как выглядит полный скирипт на неклейсы....
1. да
2. можно
3. всё кроме процедур:
sub carpFishingPole() - крафт удочек
sub tinkGold() - золотые брасы...
Author:  The Cheater [ 2005-02-21 19:39:06 ]
Post subject: 
просьба задвинуть навсегда этот топик или стереть лучше.
А стеретьтопик можновообще ?
Author:  Sfagnum [ 2005-02-22 08:52:28 ]
Post subject: 
The Cheater wrote:
просьба задвинуть навсегда этот топик или стереть лучше.
А стеретьтопик можновообще ?
чем он тебе так мешает?
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/