Yoko

All sides of Injection
https://yoko.uokit.com/

Карпааа

https://yoko.uokit.com/viewtopic.php?t=11125

Page 1 of 1

Карпааа

Posted: 2007-01-14 12:30:21
by DieHard

Code: Select all

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: Select all

CheckLag()
помогите пожайлусто делайте чтобы работал(

Posted: 2007-01-14 12:34:02
by DieHard
А забыл сказать чяр берёт 600 логов и вылетает эта 7 строка!

Posted: 2007-01-14 12:34:39
by prof

Code: Select all

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub
Вставь это в скрипт

Posted: 2007-01-14 12:45:40
by DieHard
если я вставлю у меня небудет меню этой что делать!

Posted: 2007-01-14 13:31:37
by DieHard
Он терь стафы не кидает в треш бочьку!

Code: Select all

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

Posted: 2007-01-14 19:12:55
by mez
попробуй мотри старый чек лаг и поставь новый! который ты в низ приписал!

Posted: 2007-01-14 19:52:45
by DieHard
Пасибо,я все сделал но скрипт выдёт ошибку после получяса работы!

Code: Select all

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

Posted: 2007-01-14 20:46:10
by DieHard
Мож я галочьки в Main непрально поставил??

Image

Posted: 2007-01-15 07:50:45
by mez

Code: Select all

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
пользуйся!

Posted: 2007-01-15 09:55:04
by DieHard
Спс)

Posted: 2007-01-15 09:55:45
by mez
DieHard wrote:Спс)
все нормально работает? а то я в скриптах не очень но изучаю! :D

Posted: 2007-01-15 10:07:36
by DieHard
Вообщето работать отказывается)

Posted: 2007-01-15 10:09:59
by mez
а че пишет?

Posted: 2007-01-15 10:11:50
by mez

Code: Select all

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
вот рабочий скрипт сам им качал! :)

Posted: 2007-01-15 11:22:56
by DieHard
mez wrote:

Code: Select all

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
вот рабочий скрипт сам им качал! :)
Скрипт отл но не кидает в треш то чего я карфчю!

Posted: 2007-01-15 11:36:50
by mez
DieHard wrote:
mez wrote:

Code: Select all

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 варината или слишком далеко или не туда тыкнул!

Posted: 2007-01-15 20:05:28
by DieHard
стою в притык в трешбочьке и тыкаю на неё 100 проц!
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited