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

Карпааа
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11125		 Page 1 of 1
Author:  DieHard [ 2007-01-14 12:30:21 ]
Post subject:  Карпааа
Code:
sub carpentry() 
while NOT UO.Dead() 
uo.findtype('0x1BDD',-1,'my') ; ishet logi leghashie pod nogami 
if uo.getquantity('finditem')<110 then ; 
load() 
endif 
  CheckLag()
UO.automenu ("Carpentry", "Weapons & Tools")  
UO.automenu ("Weapons & Tools", "quarter staff")
  UO.UseType('0x0E89') ; jointing plane
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
   wait(300)
  wend
wend 
end sub 
 
sub load() 
uo.unsetcatchbag() 
UO.WaitTargetGround('0x1BDD') ; podnimaet logi s zemli v kolichestve 700 shtuk 
wait(1500) 
UO.Grab('600') 
wait (1000) 
uo.setcatchbag('0x4033027B') ; serial Trash can 
end sub

     
sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub


Вот скрипт он не работает ошибка пишет в 7 строке
Code:
CheckLag()
помогите пожайлусто делайте чтобы работал(
Author:  DieHard [ 2007-01-14 12:34:02 ]
Post subject: 
А забыл сказать чяр берёт 600 логов и вылетает эта 7 строка!
Author:  prof [ 2007-01-14 12:34:39 ]
Post subject: 
Code:
sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub

Вставь это в скрипт
Author:  DieHard [ 2007-01-14 12:45:40 ]
Post subject: 
если я вставлю у меня небудет меню этой что делать!
Author:  DieHard [ 2007-01-14 13:31:37 ]
Post subject: 
Он терь стафы не кидает в треш бочьку!
Code:
sub carpentry() 
while NOT UO.Dead() 
uo.findtype('0x1BDD',-1,'my') ; ishet logi leghashie pod nogami 
if uo.getquantity('finditem')<110 then ; 
load() 
endif 

CheckLag()
UO.automenu ("Carpentry", "Weapons")  
UO.automenu ("Weapons", "quarter staff")
  UO.UseType('0x1034') ; jointing plane
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
   wait(300)
  wend
wend 
end sub 
 
sub load() 
uo.unsetcatchbag() 
UO.WaitTargetGround('0x1BDD') ; podnimaet logi s zemli v kolichestve 700 shtuk 
wait(1500) 
UO.Grab('600') 
wait (1000) 
uo.setcatchbag('0x4033027B') ; serial Trash can 
end sub

sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub
Author:  mez [ 2007-01-14 19:12:55 ]
Post subject: 
попробуй мотри старый чек лаг и поставь новый! который ты в низ приписал!
Author:  DieHard [ 2007-01-14 19:52:45 ]
Post subject: 
Пасибо,я все сделал но скрипт выдёт ошибку после получяса работы!
Code:
sub carpentry() 
while NOT UO.Dead() 
uo.findtype('0x1BDD',-1,'my') ; ishet logi leghashie pod nogami 
if uo.getquantity('finditem')<110 then ; 
load() 
endif 

CheckLag()
UO.automenu ("Carpentry","Weapons & Tools")  
UO.automenu ("Weapons & Tools","club")
  UO.UseType('0x1034') ; jointing plane
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
   wait(300)
  wend
wend 
end sub 
 
sub load() 
uo.unsetcatchbag() 
UO.WaitTargetGround('0x1BDD') ; podnimaet logi s zemli v kolichestve 700 shtuk 
wait(1500) 
UO.Grab('600') 
wait (1000) 
uo.setcatchbag('0x4033027B') ; serial Trash can 
end sub

sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub 

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




Image
Author:  DieHard [ 2007-01-14 20:46:10 ]
Post subject: 
Мож я галочьки в Main непрально поставил??

Image
Author:  mez [ 2007-01-15 07:50:45 ]
Post subject: 
Code:
sub carpentry() 
while NOT UO.Dead() 
uo.findtype('0x1BDD',-1,'my') ; ishet logi leghashie pod nogami 
if uo.getquantity('finditem')<110 then ; 
load() 
endif 

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

UO.automenu ("Carpentry", "Weapons")  
UO.automenu ("Weapons", "quarter staff") 
  UO.UseType('0x1034') ; jointing plane 
  while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail") 
   wait(300) 
  wend 
wend 
end sub 
  
sub load() 
uo.unsetcatchbag() 
UO.WaitTargetGround('0x1BDD') ; podnimaet logi s zemli v kolichestve 700 shtuk 
wait(1500) 
UO.Grab('600') 
wait (1000) 
uo.setcatchbag('0x4033027B') ; serial Trash can 
end sub 

sub sreset() 
   UO.SetEasyUO(80,"1") 
   UO.SetEasyUO(90,"1") 
end sub


пользуйся!
Author:  DieHard [ 2007-01-15 09:55:04 ]
Post subject: 
Спс)
Author:  mez [ 2007-01-15 09:55:45 ]
Post subject: 
DieHard wrote:
Спс)


все нормально работает? а то я в скриптах не очень но изучаю! :D
Author:  DieHard [ 2007-01-15 10:07:36 ]
Post subject: 
Вообщето работать отказывается)
Author:  mez [ 2007-01-15 10:09:59 ]
Post subject: 
а че пишет?
Author:  mez [ 2007-01-15 10:11:50 ]
Post subject: 
Code:
sub Carpentry() 
var Exit=0, LastTimer 
uo.Print('Выбери Сундук: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Инструмент: ') 
uo.Exec('addobject Ins') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0E89','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BDD',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BDD','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.UseObject('Ins') 
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff') 
wait(12000) 
wend 
end sub


вот рабочий скрипт сам им качал! :)
Author:  DieHard [ 2007-01-15 11:22:56 ]
Post subject: 
mez wrote:
Code:
sub Carpentry() 
var Exit=0, LastTimer 
uo.Print('Выбери Сундук: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Инструмент: ') 
uo.Exec('addobject Ins') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0E89','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BDD',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BDD','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.UseObject('Ins') 
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff') 
wait(12000) 
wend 
end sub


вот рабочий скрипт сам им качал! :)


Скрипт отл но не кидает в треш то чего я карфчю!
Author:  mez [ 2007-01-15 11:36:50 ]
Post subject: 
DieHard wrote:
mez wrote:
Code:
sub Carpentry() 
var Exit=0, LastTimer 
uo.Print('Выбери Сундук: ') 
uo.Exec('addobject Chest') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Помойку: ') 
uo.Exec('addobject TrashCan') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Выбери Инструмент: ') 
uo.Exec('addobject Ins') 
while uo.Targeting() 
wait(100) 
wend 
while Exit<>1 
uo.DeleteJournal() 
uo.FindType('0x0E89','0x0000','backpack') 
if uo.GetQuantity('finditem')>0 then 
uo.SetReceivingContainer('TrashCan') 
wait(1000) 
uo.Grab('all','finditem') 
wait(1000) 
uo.UnSetReceivingContainer() 
end if 
uo.FindType('0x1BDD',-1,'backpack')  
if uo.GetQuantity('finditem')<10 then 
uo.FindType('0x1BDD','0x0000','Chest') 
wait(1000) 
uo.Grab('300','finditem') 
wait(1000) 
end if 
LastTimer=uo.Timer() 
uo.DeleteJournal() 
uo.UseObject('Ins') 
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff') 
wait(12000) 
wend 
end sub


вот рабочий скрипт сам им качал! :)


Скрипт отл но не кидает в треш то чего я карфчю!


2 варината или слишком далеко или не туда тыкнул!
Author:  DieHard [ 2007-01-15 20:05:28 ]
Post subject: 
стою в притык в трешбочьке и тыкаю на неё 100 проц!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/