Yoko

Posted: **2007-03-19 18:34:57**

hey.... im from brazil and i only know english :O well...

i need a fishing script.... i know there are couple fishing scripts but they never work here... im using this one:

Code: Select all

sub fishing_2() 
var x, y, z, i, j 
   x = UO.GetX("self") 
   y = UO.GetY("self") 
   z = UO.GetZ("self") 
   for i = x-140 to x+140
      for j = y-150 to y+150
         UO.DeleteJournal() 
         while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
            UO.DeleteJournal()
            UO.Print("Now Fishing In: "+str(x-i)+" "+str(y-j))
            UO.Waittargettile("1341", str(x-i), str(y-j), str(z)) 
            UO.Usetype("0x0DBF") 
            while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
            wait (500) 
            wend 
         wend 
      next 
   next 
end sub

dont care about the UO.injournal i change into my language...

but the problem is... it never hits the fucking water!!! never and i dont know why.... it trys and shows you cant fish there,you cant fish there,you cant fish there,you cant fish there,you cant fish there,you cant fish there, and go on....

i think i have to change the type of location... like real X,Y but i dont know how to do it...

so if anyone know..plz help me

thx

Posted: **2007-03-19 20:14:59**

Code: Select all

   for i = x-140 to x+140
      for j = y-150 to y+150

the problem is that this script is trying to fish like 140 tiles from you... you must change it to:

Code: Select all

   for i = x-4 to x+4
      for j = y-4 to y+4

Posted: **2007-03-19 20:22:39**

i tried theese numbers too... but it keep saying "you cant fish there"

is there a way to use real X,Y? i mean... not tiles like co-ordinated
Ex: x=1344 y6758

in injection we have the command ramdom?

thx

Posted: **2007-03-19 20:26:14**

Code: Select all

UO.Waittargettile("1341", str(i), str(j), str(z))

Posted: **2007-03-19 20:32:25**

as i said!

same thing... "you cant fish there"

is there another way to set co-ordinate ??????

plz write something ¬¬

and ths for ur help!

Posted: **2007-03-19 21:10:51**

if i write something in code I mean you need to replace something in your code ...

Posted: **2007-03-19 21:15:55**

try this:

Code: Select all

sub fishing_2()
var x, y, z, i, j
   x = UO.GetX("self")
   y = UO.GetY("self")
   z = UO.GetZ("self")
   for i = x-4 to x+4
      for j = y-4 to y+4
         UO.DeleteJournal()
         while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!") and not UO.InJournal("fish there")
            UO.DeleteJournal()
            UO.Print("Now Fishing In: "+str(i)+" "+str(j))
            UO.Waittargettile("1341", str(i), str(j), str(z))
            UO.Usetype("0x0DBF")
            while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
            wait (500)
            wend
         wend
      next
   next
end sub

keep in mind that if you need some help you must give maximum information, like in this case you have message in journal and it stops fishing

Posted: **2007-03-20 05:35:33**

hey... i have found out the problem!!!

look:

Code: Select all

UO.Waittargettile("1341", str(i), str(j), str(z))

the problem is here in this line....
i dont know why but the injection is only reading the TILE INFORMATION (1341) and not the i,j,z.... and i have no idea WHY!

and i change FOR by RANDOM command. i think is the same.

now is like that:

Code: Select all

sub main() 
var x, y, z
inicio:
x=UO.Random(50)
y=UO.Random(80)
z=0
UO.DeleteJournal() 
while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
UO.DeleteJournal()
UO.Print("Now Fishing In: "+str(x)+" "+str(y))
UO.Waittargettile("1341", str(x), str(y), str(z)) 
UO.Usetype("0x0DBF") 
while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
wait(500) 
wend 
wend 
goto inicio
end sub

MY SERVER IS POL EMULATOR !!!!

i need t change the way to CLICK.... is there a way?

Posted: **2007-03-20 12:03:35**

how do you fish ? d-click and then target the water ?

Posted: **2007-03-20 13:26:29**

but it is strange...why its not workint here....????

Posted: **2007-03-20 17:30:17**

okey lets go back to my script ... does it hit water atleast once ?

Posted: **2007-03-20 18:36:15**

no, never.... it only show you cant fish there!

i changed this line:

Code: Select all

UO.Waittargettile("1341", str(i), str(j), str(z))

to

Code: Select all

UO.Waittargettile("lasttile", str(i), str(j), str(z))

so i click on water and what happen? now the script hit the same place everytime, even with i j z locations.... same tile everytime....

so i think that the problem is in this line...

remember im playing with POL emulator.....

thx NMY for help me

Posted: **2007-03-20 18:58:31**

write down ,infotile and hit the water

Code: Select all

sub fishing_2()
var x, y, z, i, j
   x = UO.GetX()
   y = UO.GetY()
   z = UO.GetZ()
   for i = x-4 to x+4
      for j = y-4 to y+4
         UO.DeleteJournal()
         while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!") and not UO.InJournal("fish there")
            UO.DeleteJournal()
            UO.Print("Now Fishing In: "+str(i)+" "+str(j))
            UO.Waittargettile("1341", str(i), str(j), str(z))
            UO.Usetype("0x0DBF")
            while not UO.InJournal("Nao parece ter peixe aqui") and not UO.InJournal("Voce nao consegue ver este local!") and not UO.InJournal("Isso esta muito longe") and not UO.InJournal("Voce nao pode pescar ai!")
            wait (500)
            wend
         wend
      next
   next
end sub

Posted: **2007-03-21 07:02:26**

i knew this command ,infotile

it shows 6039

works BUT not properly, cause even hiting the graund he try to fish lol... and shows a little bugged tile where im fishing!!!!

well... i think we cant solve it... but its ok i will cry alone!!

thx

Yoko

FISHING

FISHING