помогите с рыбалкой на дрв !!!

sem · Post by **sem** » 2006-05-30 18:37:47

Пользуюсь скриптом давно всё работало отлично,но не давно перестал работать

после выгрузки карт в первый сундук и открытии второго сундука встаёт

,огромная прозьба подсказать в чём дело инжу переустанавливал все скрипты работают этот на половину

недавно что то у нас с рыбалкой меняли может что изминить в настройках надо :?:

Code: Select all


var book1='0x400e049d' # Все руны на рыбалку 
var book2='0x40083637' # Все руны на рыбалку 
var book4='0x40234ec9' # Все руны на рыбалку 
var book3='0x400e0513' # рунбук, в котором первая руна домой. 
var net='0x0dca' # тип сети 
var fishrar='0x0dd6' # тип рар/приз рыбки 
var seifformap1='0x402c76f0' # 1 сэйф (пустые мешки и карты) 
var seifformap2='0x40186e34' # 2-ой (реколы и полные мешки) 
var recall='0x1f4c' # тип рекола 
var meshok='0x0e76' # тип пустых мешков 
var mapa='0x14eb' # тип мапы нерасшифрованной 
var ydochka='0x0dbf' # тип удочки 
var time 
var tEat='0x097B' # тип еды(фишстэйки) 
var MneKartMalo=1 # 1 - Собираем сети и рыбки 0 - не собираем 
var meshokfish ='0x404b4939' # мешок для рар/приз рыбы (его нужно покласть во второй сундук) 
var meshoknet ='0x40204c32' #мешок для сетей (покласть во 2 сундук) 

sub main() 
var i 
########## 
wait(1000) 
UO.Exec('terminate Reconnector') 
wait(1000) 
UO.Exec('exec Reconnector') 
wait(1000) 
while not uo.dead() 
for i=1 to 9 
repeat 
port(i,book1) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
ToEat() 
CheckLag() 
wait(500) 
kolmap() 
for i=1 to 9 
repeat 
port(i,book2) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
kolmap() 
for i=1 to 9 
repeat 
port(i,book4) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
kolmap() 
CheckLag() 
wait(500) 
ToEat() 
wend 
endsub 

Sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
NoTarget() 
UO.UseObject(book) 
FastLootCheck() 
CheckLag() 
UO.LClick(135, n*15+55) 
time=UO.Timer() 
Repeat 
wait(500) 
Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

Sub FastLootCheck() 
UO.DeleteJournal() 
wait(600) 
if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
CheckLag() 
endif 
end sub 

Sub NoTarget() 
if UO.Waiting() then 
UO.CancelTarget() 
endif 
end sub 

Sub fish(rune) 
hiding() 
var i,j, isfishing 
var mx = UO.GetX('self') 
var my = UO.GetY('self') 
var mz = UO.GetZ('self') 
UO.DeleteJournal() 
repeat 
for i = mx-6 to mx+6 
for j = my-6 to my+6 
isfishing = 1 
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(251)) 
UO.Usetype(ydochka) 
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
wait(100) 
wend 
proverka() 
if not UO.Hidden('self') then 
hiding() 
end if 
proverka() 
UO.findtype(mapa,'-1','ground') 
UO.moveitem('finditem','-1','backpack') 
if MneKartMalo==1 then 
UO.findtype(net,'-1','ground') 
UO.moveitem('finditem','-1','backpack') 
UO.findtype(fishrar,'-1','ground') 
UO.moveitem('finditem','-1','backpack') 
endif 
if UO.InJournal("out a fish") then 
isfishing = 0 
end if 
Info_Map() 
uo.print("runa nomer - "+Str(rune)) 
wend 
UO.DeleteJournal() 
next 
next 
until 1 
end sub 


Sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

Sub hiding() 
UO.Warmode("0") 
while not UO.Hidden() 
UO.DeleteJournal() 
UO.UseSkill("Hiding") 
while NOT UO.InJournal("You") 
wait(100) 
wend 
wend 
end sub 

Sub unload() 
hiding() 
UO.FindType(mapa, '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',seifformap1) 
CheckLag() 
Wait(700) 
UO.FindType(mapa,'-1','backpack') 
wend 
endsub 


Sub unloadfish() 
uo.useobject('seifformap2') 
hiding() 
UO.FindType(fishrar, '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',meshokfish) 
CheckLag() 
Wait(700) 
UO.FindType(fishrar,'-1','backpack') 
wend 
endsub 

Sub unloadnet() 
uo.useobject('seifformap2') 
hiding() 
UO.FindType(net, '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',meshoknet) 
CheckLag() 
Wait(700) 
UO.FindType(net,'-1','backpack') 
wend 
endsub 

Sub proverka() 
if (uo.injournal("attacking") and uo.injournal("you")) then 
uo.say("guards") 
endif 
if uo.life<uo.str then 
uo.say("guards") 
endif 
endsub 



Sub kolmap() 
var k 
var meshochek 
var maps 
uo.useobject(seifformap1) 
uo.findtype(mapa,'-1',seifformap1) 
wait(1000) 
maps=uo.findcount() 
CheckLag() 
uo.print("vsego kart - "+Str(maps)) 
if maps>=200 then 
uo.findtype(meshok,'-1',seifformap1) 
meshochek=uo.getserial('finditem') 
uo.moveitem('finditem','1','backpack') 
k=0 
while k<>200 
UO.FindType(mapa,'0x0000',seifformap1) 
UO.MoveItem('finditem','1',meshochek) 
CheckLag() 
wait(1000) 
k=k+1 
wend 
uo.findtype(meshok,'-1','backpack') 
CheckLag() 
uo.moveitem('finditem','1',seifformap2) 
endif 
endsub 

Sub ToEat() 
UO.UseObject(seifformap2) 
CheckLag() 
wait(500) 
UO.FindType(tEat,'0x0000',seifformap2) 
CheckLag() 
wait(500) 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20','backpack') 
end if 
repeat 
CheckLag() 
uo.UseType(tEat) 
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() 
UO.FindType(tEat, '0x0000','backpack') 
if UO.FindCount() > 0 then 
UO.MoveItem('finditem','20',seifformap2) 
end if 
end sub 

Sub Info_Map() 
uo.print("vsego kart v rukzake - "+Str(uo.count('0x14EB','0x0000'))) 
end sub 


Sub Recharge() 
Open(seifformap2) 
UO.FindType(Recall,"0x0000",seifformap2) 
UO.Grab("11","finditem") 
UO.Recall(book1,"1") 
wait(4500) 
CheckLag() 
UO.Recall(book2,"1") 
wait(4500) 
CheckLag() 
UO.Recall(book3,"1") 
wait(4500) 
CheckLag() 
UO.Recall(book4,"1") 
wait(4500) 
CheckLag() 
UO.SetReceivingContainer(seifformap2) 
UO.FindType(Recall,"0x0000",'backpack') 
UO.Grab("all","finditem") 
UO.UnSetReceivingContainer() 
end sub 


Sub Open(Container) 
UO.DeleteJournal() 
UO.UseObject(Container) 
Repeat 
wait(500) 
Until UO.InJournal("Contains") 
end sub 

Sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
UO.Exec('terminate main') 
wait(1000) 
UO.Exec('exec main') 
wait(1000) 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

Sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D

Nmy · Post by **Nmy** » 2006-05-30 19:56:22

небуду даже смотреть пока скрипт небудет в виде code ... /code

sem · Post by **sem** » 2006-05-30 20:11:05

извиняюсь,я не знал как это зделать :oops:

Nmy · Post by **Nmy** » 2006-05-30 20:31:24

проверь все var-ы эсли он работал, значит ты чтото поменял...

sem · Post by **sem** » 2006-05-30 20:55:36

вот что он пишет , извиняюсь но с английским совсем туго :oops:

Receiving container set : 0x 40186e34
inem found : 0
invalid object: all
receiving container unset:
0x00000000
contains: 44 items
item found: 0
no item found

Это он пишет после выкладки рыбки,ситей и зарядки рунбуки ( в этот раз у меня не было в сундуке реколов ) когда они есть, скрипт тоже встаёт
[/b]

Nmy · Post by **Nmy** » 2006-05-30 21:45:06

ой... это для меня слишком сложно, пусть помогут експерты...
либо у тебя инжект переустановлен старый, либо он чтото ненаходит "no item found" но это невозможно при while >0 итп итд ...

sem · Post by **sem** » 2006-05-30 21:53:57

ЛЮДИ помогите :!:

иначе бомжом стану работы лишусь

ЭКСПЕРТЫ дайте дельный совет :idea:

Заранее блогодарен :!:

Nmy · Post by **Nmy** » 2006-05-30 22:17:39

Скачать самую последнюю версию Injection.dll

может поможет :roll:

omi4 · Post by **omi4** » 2006-05-30 22:26:13

смотреть то что отмечено ;>>>
попробовать понять....

Code: Select all

sub main() 
var i 
########## 
wait(1000) 
UO.Exec('terminate Reconnector') 
wait(1000) 
UO.Exec('exec Reconnector') 
wait(1000) 
while not uo.dead() 
for i=1 to 9 
;>>> repeat 
port(i,book1) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
ToEat() 
CheckLag() 
wait(500) 
kolmap() 
for i=1 to 9 
;>>> repeat 
port(i,book2) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
kolmap() 
for i=1 to 9 
;>>> repeat 
port(i,book4) 
fish(i) 
next 
port(1,book3) 
unload() 
CheckLag() 
unloadfish() 
CheckLag() 
unloadnet() 
CheckLag() 
wait(500) 
Recharge() 
CheckLag() 
wait(500) 
kolmap() 
CheckLag() 
wait(500) 
ToEat() 
wend 
endsub

Nmy · Post by **Nmy** » 2006-05-30 22:36:40

ну если скрипт ранше норм работал, то причем тут он ?

omi4 · Post by **omi4** » 2006-05-30 22:50:15

NMY wrote:ну если скрипт ранше норм работал, то причем тут он ?

Такой большой, а в сказки веришь…

Когда парсер находит второй repeat подряд, он тихо ох…вает от такого расклада.
И рассказывать сказки о том, что он это раньше переваривал… не нужно.

sem · Post by **sem** » 2006-05-31 01:14:45

ВСЕМ большое спс за внимание и советы

просёк тему сам

Если я не ошибаюсь дело всё в рыбных палочках :shock:

я просто недавно перешёл на порасят

а их как извесно на долго хватает и за ненадобностью убрал из сундука рыбные палочки, вот именно в этом месте скрипт давал збой ,ну не понимает он что не нужна мне жрачка

я и вчера пробовал ложить их в сундук но фишка видать в том что я просто кушать не хотел, а сёдня проголодался а свиньёй не подкрепился и всё пошло как по маслу - пожрал рыбёхи и дальше полетел рыбачить :idea:

незнаю насколько верен мой домысел но скрипт заработал :!:

чему я очень рад. в предыдущей версии скрипта можно было убрать кормёшку а здесь нет, может кто подскажепт как зделать так что если не голодный чтоб дальше летел :?:

ну впринципе я и этому доволен главное что ЗАРАБОТАЛО :!:

DerMeister =) · Post by **DerMeister =)** » 2006-05-31 02:12:48

omi4 wrote:
NMY wrote:ну если скрипт ранше норм работал, то причем тут он ?

Такой большой, а в сказки веришь…

Когда парсер находит второй repeat подряд, он тихо ох…вает от такого расклада.
И рассказывать сказки о том, что он это раньше переваривал… не нужно.

Это ты откуда такое взял? Всю жизнь хоть 10 репитов подряд работали...

Тока я не понял где он их закрывает...
Вот это помоему бредд:

sem wrote:

Code: Select all

...
for i=1 to 9 
repeat 
port(i,book1) 
fish(i) 
next
...

Yoko

помогите с рыбалкой на дрв !!!

помогите с рыбалкой на дрв !!!

Re: помогите с рыбалкой на дрв !!!