Хелп

vavanu4 · Post by **vavanu4** » 2009-01-21 15:30:20

Помогите плиз зделать скрипт на ДРВ чтобы Чар делал заместь Некласав Дагеры кувал.... Руду чтобы я вписывал сам с какой кувать....

VAR Cont1 = '0x400A4EFA' ;ресурсы и пустые мешки
VAR Cont2 = '0x4013ED31' ;сундук де будут лежать полные мешки
VAR Count = 300 ;какое количество ресусров бёрем
var Tools = '0x1EBC' ;инструмент, при котором появляется
var Creat = '0x1085' ;тип созданной вещи(удочка, даггер и т.д.)
VAR Food = '0x097B' ;тип еды, кторую будем кушать
var Bag = '0x0E76' ;тип мешочков
var Source = '0x1BEF'
var BagSer, i=0, fizl=0, control=5, time, z

sub tinkIron()
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 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 CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
wait(50)
until UO.InJournal('backpack')
end sub

ADEPT_ABP · Post by **ADEPT_ABP** » 2009-01-21 15:40:20

Оформи пост нормально, а то читать не возможно. Всего и делов, что выделить текст скрипта и нажать кнопочку Code. Неужели сложно?

By adeptikon

vavanu4 · Post by **vavanu4** » 2009-01-21 17:28:27

Code: Select all


VAR Cont1 = '0x400A4EFA' ;ресурсы и пустые мешки 
VAR Cont2 = '0x4013ED31' ;сундук де будут лежать полные мешки 
VAR Count = 300 ;какое количество ресусров бёрем 
var Tools = '0x1EBC' ;инструмент, при котором появляется 
var Creat = '0x1085' ;тип созданной вещи(удочка, даггер и т.д.) 
VAR Food = '0x097B' ;тип еды, кторую будем кушать 
var Bag = '0x0E76' ;тип мешочков 
var Source = '0x1BEF' 
var BagSer, i=0, fizl=0, control=5, time, z 


sub tinkIron() 
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 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 CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

ADEPT_ABP · Post by **ADEPT_ABP** » 2009-01-21 18:28:45

Впиши тип молотка здесь:

Code: Select all

var Tools = '0x1EBC' ;инструмент

тип даггера здесь:

Code: Select all

var Creat = '0x1085' ;тип созданной вещи(удочка, даггер и т.д.)

Тип инготов(ingots):

Code: Select all

var Source = '0x1BEF'

Ниже добавь строку про цвет инготов:

Code: Select all

var Color = '0x0000'

Измени названия меню в соответствии с тем что ты хочешь:

Code: Select all

UO.AutoMenu('Tinkering','Jewelry')
UO.AutoMenu('Jewelry','necklace')

Измени строки для поиска/перемещения ресурса(инготов):

Code: Select all

   UO.FindType(Source,Color, 'backpack')
...
      UO.FindType(Source,'0x0000', Cont1)

Если есть вопросы по меню крафта, читай 6 урок, и хелп

Удачи в самостоятельном разборе скрипта. :wink:

vavanu4 · Post by **vavanu4** » 2009-01-21 21:53:48

Блин я ваще 0 по скриптам вставь пожайлуста нетрави душу )[/code]

ADEPT_ABP · Post by **ADEPT_ABP** » 2009-01-21 23:04:45

Ты не поверишь, но я тоже в скриптах был полный ноль.

А почитал хелп и уроки. Вроде даже чего-то понимаю.

Просто не уверен, что типы и названия меню будут совпадать. Я могу написать то, что есть на шарде DRW.RU так как, нигде больше не играл.
Посмотри тут Bs dagger all
viewtopic.php?t=7364&postdays=0&postorder=asc&start=15
Блин, башка болит. Завтра гляну.
И вообще, давай учись скрипты понимать. Информация есть. И не трави душу. :mrgreen:

vavanu4 · Post by **vavanu4** » 2009-01-22 19:12:06

тебе впадлу зделать полнастю скрипт ?

ADEPT_ABP · Post by **ADEPT_ABP** » 2009-01-22 19:49:21

Нет, но это не так быстро. Это во-первых, а во-вторых - одно дело подсказать как сделать, и совсем другое сделать. Что бы сделать нужно время и желание. Времени у меня вагон, а желание... ты своим "впадлу" просто обрубил на корню. Да и то что ты просишь - есть на форуме. Не стоит привыкать к халяве. Это такое обманчивое слово.

P.S. Со всем уважением. Не смотря ни на что.

Kynep · Post by **Kynep** » 2009-01-22 21:13:17

vavanu4 wrote:тебе впадлу зделать полнастю скрипт ?

семачки забыл, Вован.

vavanu4 · Post by **vavanu4** » 2009-01-22 22:29:59

Раз нато пошло тыбы сылочку далбы ....

Successful · Post by **Successful** » 2009-01-22 23:03:43

Kynep wrote:
vavanu4 wrote:тебе впадлу зделать полнастю скрипт ?

семачки забыл, Вован.

семки Ж)

vavanu4 · Post by **vavanu4** » 2009-01-22 23:36:43

Code: Select all

VAR sunduk='0x4023FEA2'; Откуда брать инги, пустые мешки
VAR sundukk='0x4023FEA6'; куда всё будем кидать
VAR meshok='0x0E76';тип мешков
VAR iron='0x1BEF'
VAR smeshok
VAR molotok ='0x13E4'
VAR Exit=0, LastTimer
VAR a=0

sub main()

repeat
while not UO.Hidden()
   UO.UseSkill("Hiding")
   wait(3000)
wend
UO.UnSetCatchBag()
wait(300)
   UO.FindType( iron, -1, sunduk )
   UO.Grab( Str( 630 ), 'finditem' )  ; если будет айро в конце падать в мешок, увеличить цифру
wait(3000)
   UO.UseType('0x097B') #fishsteaks
wait(500)
   UO.SetCatchBag(sundukk)
   UO.FindType( meshok, -1, sunduk )
   UO.Grab( Str( 1 ), 'finditem' )
wait(2000)
   smeshok=UO.GetSerial('finditem')
a=0
   UO.SetCatchBag(smeshok)
wait(1000)
BS()
end sub

sub BS()
repeat
wait(250)
UO.DeleteJournal()
LastTimer=UO.Timer()
      UO.AutoMenu('Blacksmithing','Weapons')
      UO.AutoMenu('Weapons','Fencing')
      UO.AutoMenu('Fencing','Dagger')
      UO.WaitTargetType(iron)
      UO.UseType(molotok)
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(250)
wend

wait (250)

if UO.InJournal('You put') then
   a = a + 1
   wait(200)
endif
If a==100 then             ;когда добирать айрон
   Dobor()
EndIf
UO.DeleteJournal()
until a==200               ;скока даггеров у вас будет в мешке
moveIM()
end sub

sub moveIM()
UO.Unsetcatchbag()

   UO.FindType( iron, -1, -1 )
   UO.MoveItem( 'finditem', 0, sunduk )
wait(3000)
   until FALSE
end sub

sub Dobor()


UO.UseType('0x097B') #fishsteaks
wait(500)

   UO.UnSetCatchBag()
wait(300)
   UO.FindType( iron, -1, sunduk )
   UO.Grab( Str( 630 ), 'finditem' )   
wait(3000)
   UO.SetCatchBag(smeshok)
wait(1000)
end sub

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

Нечего некуёт

hijackthis · Post by **hijackthis** » 2009-03-01 23:20:16

надо говорить никуя не кует