Fishing Script please..

Orgazmo · Post by **Orgazmo** » 2007-03-26 13:19:05

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..

Question_GimFlex · Post by **Question_GimFlex** » 2007-03-26 13:54:41

viewtopic.php?t=646

Orgazmo · Post by **Orgazmo** » 2007-03-26 14:01:49

? 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

(

SESTRA · Post by **SESTRA** » 2007-03-26 20:16:25

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

УгощяйсЯ)

Orgazmo · Post by **Orgazmo** » 2007-03-27 07:28:32

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

Orgazmo · Post by **Orgazmo** » 2007-03-27 07:30:39

Nde... ja nemogu.. ;( opetj error

parse error

( ;( pomogi..

Question_GimFlex · Post by **Question_GimFlex** » 2007-03-27 16:20:45

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

Orgazmo · Post by **Orgazmo** » 2007-03-27 16:43:51

? 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..

Orgazmo · Post by **Orgazmo** » 2007-03-27 16:46:42

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

Question_GimFlex · Post by **Question_GimFlex** » 2007-03-27 17:02:14

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

Orgazmo · Post by **Orgazmo** » 2007-03-27 19:05:52

? 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

Question_GimFlex · Post by **Question_GimFlex** » 2007-03-27 21:15:31

тип удочки проверь у нее два типа

Orgazmo · Post by **Orgazmo** » 2007-03-27 21:23:01

? wrote:тип удочки проверь у нее два типа

vse boljshoe tebe sposibo...

hip hip ura.. !

Ururu · Post by **Ururu** » 2007-03-27 21:44:12

Пробуй (только в бекпак кроме удочки еще и ножик положи):

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