Карпааа

DieHard · Post by **DieHard** » 2007-01-14 12:30:21

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()

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

DieHard · Post by **DieHard** » 2007-01-14 12:34:02

А забыл сказать чяр берёт 600 логов и вылетает эта 7 строка!

prof · Post by **prof** » 2007-01-14 12:34:39

Code: Select all

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

Вставь это в скрипт

DieHard · Post by **DieHard** » 2007-01-14 12:45:40

если я вставлю у меня небудет меню этой что делать!

DieHard · Post by **DieHard** » 2007-01-14 13:31:37

Он терь стафы не кидает в треш бочьку!

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

mez · Post by **mez** » 2007-01-14 19:12:55

попробуй мотри старый чек лаг и поставь новый! который ты в низ приписал!

DieHard · Post by **DieHard** » 2007-01-14 19:52:45

Пасибо,я все сделал но скрипт выдёт ошибку после получяса работы!

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

DieHard · Post by **DieHard** » 2007-01-14 20:46:10

Мож я галочьки в Main непрально поставил??

mez · Post by **mez** » 2007-01-15 07:50:45

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

пользуйся!

DieHard · Post by **DieHard** » 2007-01-15 09:55:04

Спс)

mez · Post by **mez** » 2007-01-15 09:55:45

DieHard wrote:Спс)

все нормально работает? а то я в скриптах не очень но изучаю!

DieHard · Post by **DieHard** » 2007-01-15 10:07:36

Вообщето работать отказывается)

mez · Post by **mez** » 2007-01-15 10:09:59

а че пишет?

mez · Post by **mez** » 2007-01-15 10:11:50

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

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

DieHard · Post by **DieHard** » 2007-01-15 11:22:56

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

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

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

mez · Post by **mez** » 2007-01-15 11:36:50

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

DieHard · Post by **DieHard** » 2007-01-15 20:05:28

стою в притык в трешбочьке и тыкаю на неё 100 проц!