Page 1 of 1
странная штука получается....
Posted: 2009-11-29 09:35:17
by @YJKM@
Всегда думал что тут можно найти всё и даже больше но случилось так что я уже два дня перебираю форум в поисках макроса на фишинг который работал бы на моём шарде....да макросов на фишинг тут много наверно почти столько же сколько на мининг да вот только ниодин из предложенных не запускается даже(((
может есть у кого фишинг : удочку в руки , 2 клика на неё , начинает ловить в пребрежных точках....
буду очень благодарен))))
Posted: 2009-11-29 10:13:21
by Mirage
какой у тебя необычный шард. Наврядли тебе тут помогут Если ты продолжишь также оформлять просьбу.
хотябы шард и версию инжи скажи. У меня есть на 7** версию хороший скрипт.
Posted: 2009-11-29 10:32:04
by @YJKM@
Mirage wrote:какой у тебя необычный шард. Наврядли тебе тут помогут Если ты продолжишь также оформлять просьбу.
хотябы шард и версию инжи скажи. У меня есть на 7** версию хороший скрипт.
утопия
YokoInjection 501 (4VI)
Posted: 2009-11-29 12:06:29
by kiskin
Code: Select all
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... может у тебя дистанция на сервере порезанна
Posted: 2009-11-29 12:35:38
by @YJKM@
Не тянет к сожалению((
выкидывает сообщения о том что он дескать непонял куда попал где его вещи и тому подобное....и через пару секунд отрубается вместе с клиентом