Yoko

All sides of Injection
https://yoko.uokit.com/

Fishing Script please..

https://yoko.uokit.com/viewtopic.php?t=11680

Page 1 of 1

Fishing Script please..

Posted: 2007-03-26 13:19:05
by Orgazmo
Ljudi mozete please napisatj zges mnie fishing script bez runebook bez nechevo.. toka shtob on stojal na meste i vse vremi lovil ribu.. pozalujsta pomogite.. :( :?

Posted: 2007-03-26 13:54:41
by Question_GimFlex
viewtopic.php?t=646

Posted: 2007-03-26 14:01:49
by Orgazmo
? wrote:https://yoko.uokit.com/viewtopic.php?t=646



Nu ja tozhe tot script probaval nu on nerabotaet.. pishet : Line190:Function not found 0 UO.TARGETiNG :( POMOGITE :((

Posted: 2007-03-26 20:16:25
by SESTRA

Code: Select all

sub main() 
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
for i = mx+2 to mx+6 
for j = my-6 to my+6 
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") 
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("You fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait(100) 
if uo.life < 60 then (ето твои хп если менее 60 то клиент закроетсЯ)
  uo.closeuo() 
endif
wend
next
next
uo.say("left")
wait(5000)
uo.say("stop")
uo.exec("exec main")
end sub

УгощяйсЯ)

Posted: 2007-03-27 07:28:32
by Orgazmo
SESTRA wrote:

Code: Select all

sub main() 
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
for i = mx+2 to mx+6 
for j = my-6 to my+6 
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") 
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("You fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait(100) 
if uo.life < 60 then (ето твои хп если менее 60 то клиент закроетсЯ)
  uo.closeuo() 
endif
wend
next
next
uo.say("left")
wait(5000)
uo.say("stop")
uo.exec("exec main")
end sub

УгощяйсЯ)



Oj sposibo boljshoe tebe... :) ochenj horosho shas budu sidetj k fishingu kazdij denj :D

Posted: 2007-03-27 07:30:39
by Orgazmo
Nde... ja nemogu.. ;( opetj error :( parse error :(( ;( pomogi.. :(

Posted: 2007-03-27 16:20:45
by Question_GimFlex

Code: Select all

sub main() 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
for j = my-6 to my+6 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;тип удочки вписать
uo.deletejournal() 
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(100) 
wend 
next 
next 
wend
end sub

Posted: 2007-03-27 16:43:51
by Orgazmo
? wrote:

Code: Select all

sub main() 
var mx, my, mz, i, j 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
for j = my-6 to my+6 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;тип удочки вписать
uo.deletejournal() 
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("You fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait(100) 
wend 
next 
next 
wend
end sub


tNX.. vot etot script rabotaet.. toka opetj problema on kogda na odnu mestu vilovil ribi on vse boljshe nelovit.. a scp kakbi idet vperet.. :(

Posted: 2007-03-27 16:46:42
by Orgazmo
a ne ja ponel gde problema... kogda on fail zgelal srazu on boljshe nelovit ribu.. :( ja hochu probitj scp gde kogda hotj fail on prodolzaet lovit :(

Posted: 2007-03-27 17:02:14
by Question_GimFlex

Code: Select all

sub fish() 
var mx, my, mz, i, j,inFishing=0
var spining='0x0DC0' ; удочка 
DIM text[6] 
 text[0] = 'You pull out a' 
 text[1] = 'You fish a while' 
 text[2] = 'That is too far away' 
 text[3] = 'Try fishing in water' 
 text[4] = 'There are no fish here' 
 text[5] = 'location' 
 text[6] = 'return' 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
 for j = my -6 to my+6 
   repeat 
    inFishing=0
    UO.DeleteJournal() 
    UO.Waittargettile("1341", str(i), str(j), str(mz)) 
    UO.Usetype(spining) 
    repeat 
     wait(10) 
    Until UO.InJournal(text[0]) OR UO.InJournal(text[1]) OR UO.InJournal(text[2]) OR UO.InJournal(text[3]) OR UO.InJournal(text[4]) OR UO.InJournal(text[5]) OR UO.InJournal(text[6]) 
    if NOT UO.InJournal(text[1]) then 
     inFishing=1 
    endif 
   Until inFishing==1 
 next 
next 
wend
end sub

Posted: 2007-03-27 19:05:52
by Orgazmo
? wrote:

Code: Select all

sub fish() 
var mx, my, mz, i, j,inFishing=0
var spining='0x0DC0' ; удочка 
DIM text[6] 
 text[0] = 'You pull out a' 
 text[1] = 'You fish a while' 
 text[2] = 'That is too far away' 
 text[3] = 'Try fishing in water' 
 text[4] = 'There are no fish here' 
 text[5] = 'location' 
 text[6] = 'return' 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
while not uo.dead()
for i = mx-6 to mx+6 
 for j = my -6 to my+6 
   repeat 
    inFishing=0
    UO.DeleteJournal() 
    UO.Waittargettile("1341", str(i), str(j), str(mz)) 
    UO.Usetype(spining) 
    repeat 
     wait(10) 
    Until UO.InJournal(text[0]) OR UO.InJournal(text[1]) OR UO.InJournal(text[2]) OR UO.InJournal(text[3]) OR UO.InJournal(text[4]) OR UO.InJournal(text[5]) OR UO.InJournal(text[6]) 
    if NOT UO.InJournal(text[1]) then 
     inFishing=1 
    endif 
   Until inFishing==1 
 next 
next 
wend
end sub



A shas ja zapuskaju script i on govorit item not found :( a kogda dva raza na udochku nazemaju togda on toka nachenaet vilovitj ribu.. kogda vilovil opetj govorit item not found :(

Posted: 2007-03-27 21:15:31
by Question_GimFlex
тип удочки проверь у нее два типа

Posted: 2007-03-27 21:23:01
by Orgazmo
? wrote:тип удочки проверь у нее два типа


vse boljshoe tebe sposibo... :D hip hip ura.. !

Posted: 2007-03-27 21:44:12
by Ururu
Пробуй (только в бекпак кроме удочки еще и ножик положи):

Code: Select all

var MaxFailure=2 # Через сколько подряд безрезультатных попыток переходить к другой клетке.
sub FishingAround()
var iX,iY
for var iStep=0 to 1000
   for iX=-6 to 6
     for iY=-6 to 6
       GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
     next
   next
next
end sub
Sub GetAllFish(iX,iY)
var counter=0
repeat
   counter=counter+1
   UO.DeleteJournal()
   UO.WaitTargetTile(0,iX,iY,0)
   UO.UseType('0x0DBF')
   while not UO.InJournal('Вы поймали рыбу!') and not UO.InJournal('У вас не получилось ничего поймать') and not UO.InJournal('Тут нету рыбы.') and not UO.InJournal('Попробуйте порыбачить в другом') and not UO.InJournal('удочку из воды')
     wait(100)
   wend
   if UO.InJournal('Тут нету рыбы.') OR UO.InJournal('удочку из воды') OR UO.InJournal('That is too far away') then
     return
   end if
   if UO.InJournal('Вы поймали рыбу!') then
     counter=0
    GetFish()
   end if
until UO.Injournal('Тут нету рыбы.') OR UO.InJournal('удочку из воды') OR UO.InJournal('That is too far away') OR counter>MaxFailure
end sub
Sub GetFish()
UO.set('finddistance',0)
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
   UO.WaitTargetObject('finditem')
   UO.UseType('0x0F51')
   UO.Ignore('finditem')
   wait(500)
   UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
   UO.Grab(0,'finditem')
   wait(100)
   UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
end sub
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited