Yoko
http://forum.yoko.com.ua/

Fishing Script please..
http://forum.yoko.com.ua/viewtopic.php?f=3&t=11680		 Page 1 of 1
Author:  Orgazmo [ 2007-03-26 13:19:05 ]
Post subject:  Fishing Script please..
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.. :( :?
Author:  Question_GimFlex [ 2007-03-26 13:54:41 ]
Post subject: 
viewtopic.php?t=646
Author:  Orgazmo [ 2007-03-26 14:01:49 ]
Post subject: 
? wrote:
http://forum.yoko.com.ua/viewtopic.php?t=646



Nu ja tozhe tot script probaval nu on nerabotaet.. pishet : Line190:Function not found 0 UO.TARGETiNG :( POMOGITE :((
Author:  SESTRA [ 2007-03-26 20:16:25 ]
Post subject: 
Code:
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

УгощяйсЯ)
Author:  Orgazmo [ 2007-03-27 07:28:32 ]
Post subject: 
SESTRA wrote:
Code:
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
Author:  Orgazmo [ 2007-03-27 07:30:39 ]
Post subject: 
Nde... ja nemogu.. ;( opetj error :( parse error :(( ;( pomogi.. :(
Author:  Question_GimFlex [ 2007-03-27 16:20:45 ]
Post subject: 
Code:
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
Author:  Orgazmo [ 2007-03-27 16:43:51 ]
Post subject: 
? wrote:
Code:
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.. :(
Author:  Orgazmo [ 2007-03-27 16:46:42 ]
Post subject: 
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 :(
Author:  Question_GimFlex [ 2007-03-27 17:02:14 ]
Post subject: 
Code:
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
Author:  Orgazmo [ 2007-03-27 19:05:52 ]
Post subject: 
? wrote:
Code:
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 :(
Author:  Question_GimFlex [ 2007-03-27 21:15:31 ]
Post subject: 
тип удочки проверь у нее два типа
Author:  Orgazmo [ 2007-03-27 21:23:01 ]
Post subject: 
? wrote:
тип удочки проверь у нее два типа


vse boljshoe tebe sposibo... :D hip hip ura.. !
Author:  Ururu [ 2007-03-27 21:44:12 ]
Post subject: 
Пробуй (только в бекпак кроме удочки еще и ножик положи):
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/