Yoko

Всегда думал что тут можно найти всё и даже больше но случилось так что я уже два дня перебираю форум в поисках макроса на фишинг который работал бы на моём шарде....да макросов на фишинг тут много наверно почти столько же сколько на мининг да вот только ниодин из предложенных не запускается даже(((
может есть у кого фишинг : удочку в руки , 2 клика на неё , начинает ловить в пребрежных точках....
буду очень благодарен))))

какой у тебя необычный шард. Наврядли тебе тут помогут Если ты продолжишь также оформлять просьбу.

хотябы шард и версию инжи скажи. У меня есть на 7** версию хороший скрипт.

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

утопия

YokoInjection 501 (4VI)

sub FISHING() 
uo.Set('finddistance', 1) 
DIM ULOVtype[4] 
ULOVtype[0] = '0x09CC' #fish1 
ULOVtype[1] = '0x09CD' #fish2 
ULOVtype[2] = '0x09CE' #fish3 
ULOVtype[3] = '0x09CF' #fish4 
VAR udochka = '0x0DBF' 
VAR nozh = '0x13F6' 
VAR NumTile = '6043' 
VAR MaxWeigth = 300 
VAR i, x, y, k 
wait(500) 
UO.Equipt('Rhand', udochka) 
start: 
for x=-6 to 6 
for y=-6 to 6 
;ToHide() 
UO.Print("?uaa?ei a oi?ea: " + str(x) + " " + str(y)) 
UO.DeleteJournal() 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
k = 0 
if UO.Weight > MaxWeigth then 
goto finish 
endif 
;ToHide() 
UO.DeleteJournal() 
UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ())) 
UO.UseType(udochka) 
while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50) 
k = k + 1 
wait(200) 
if UO.InJournal("Targeting Cancelled") then 
goto start 
endif 
wend 
#niae?aai oeia 
if UO.InJournal("You pull") then 
wait(2000) 
for i=0 to 3 
UO.FindType(ULOVtype[i], '-1', 'ground') 
UO.MoveItem('finditem') 
wait(100) 
next 
endif 
wend 
next 
next 
finish: 
UO.Print("Iaa?ai iaeneiaeuiue aan oeiaa") 
wait(1000) 
#?a?ai ?uao 
UO.Print("?a?ai ?uao ia oeo noaeee") 
for i=0 to 3 
UO.WaitTargetType(ULOVtype[i]) 
UO.UseType(nozh) 
wait(1000) 
next 
if UO.Weight < MaxWeigth-5 then 
goto start 
endif 
bank() ; тут сделаешь либо терминат либо рекол ну или как тебе надо
endsub 

попробуй.. если не получится попробуй поменять х, у там где стоит 6 и - 6 на 4 и -4... может у тебя дистанция на сервере порезанна

Не тянет к сожалению((
выкидывает сообщения о том что он дескать непонял куда попал где его вещи и тому подобное....и через пару секунд отрубается вместе с клиентом