Yoko

Posted: **2006-03-16 16:45:40**

Rebjata estj li u kogo nibudj skript na fishing bez vsjakix tam ronbookov! Prosto stoi6 na meste i lovi6 vsjo!Esli u kogo nibudj estj dajte plz!

Posted: **2006-03-16 18:15:34**

Code: Select all

sub fishing_2() 
var mx, my, mz, i, j 
   mx = UO.GetX("self") 
   my = UO.GetY("self") 
   mz = UO.GetZ("self") 
   for i = mx-4 to mx+4 
      for j = my -8 to my+8
         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")
           UO.DeleteJournal() 
            UO.Waittargettile("1341", str(i), str(j), str(mz)) 
            UO.Useobject("fish pole") 
            while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
               wait (500) 
            wend 
         wend 
      next 
   next 
end sub

нудно добавить в "объекты" , "fish pole" от таргета, направленного на палку

или

Code: Select all

UO.Useobject("fish pole")

заменить на

Code: Select all

UO.Useobject("тип_палки")

тип узнаётся : пиши в уо ,info и таргетом ткни на палку

PS если будут вопросы- я застрелюсь

Posted: **2006-03-16 18:18:07**

в строках

Code: Select all

for i = mx-4 to mx+4 
      for j = my -8 to my+8

цифры можно 4 и 8 можно заменить на любые другие
(это регулирока радиуса фишинга)

ес ли поставить от -8 до +8 во внешнем цикле и от -8 до +8 то рыбачить будит по всему экрану

Posted: **2006-03-16 23:06:34**

nixrena on 4eto ne pa6et. Pi6et Auto targeting canceld
You can't see target

(((((((( :cry:

Posted: **2006-03-16 23:10:28**

Dim wrote:nixrena on 4eto ne pa6et. Pi6et Auto targeting canceld
You can't see target

((((((((

Дык надо же как тебе сказали выставить радиус фишинга. Телепаты в отпуске. Никто не знает, на каком расстоянии от чара у вас на шарде можно удить рыбу. Удить по всему экрану - это круто, только я еще никогда не видел ни одного шарда, где бы такое дозволялось.

Posted: **2006-03-17 10:32:23**

для особо умных(Dim)

íóäíî äîáàâèòü â "îáúåêòû" , "fish pole" îò òàðãåòà, íàïðàâëåííîãî íà ïàëêó

èëè

Code:
UO.Useobject("fish pole")

çàìåíèòü íà

Code:
UO.Useobject("òèï_ïàëêè")

òèï óçíà¸òñÿ : ïèøè â óî ,info è òàðãåòîì òêíè íà ïàëêó ъ

Posted: **2006-03-17 10:32:51**

кароче сматри чо я в пером сообщении написал

Posted: **2006-03-17 10:33:27**

у меня на шарде мона фишить почти по всему экрану:)
фишить даже можно ЧЕРЕЗ пирс

Yoko

Fishing

Fishing