Yoko

Code: Select all

#####
sub Fishtest() 
VAR f=1
DIM X[12]
DIM Y[12]
X[1]="320"
Y[1]="305"
X[2]="365"
Y[2]="242"
X[3]="407"
Y[3]="200"
X[4]="359"
Y[4]="171"
X[5]="313"
Y[5]="219"
X[6]="268"
Y[6]="260"
X[7]="398"
Y[7]="381"
X[8]="458"
Y[8]="333"
X[9]="507"
Y[9]="283"
X[10]="445"
Y[10]="437"
X[11]="498"
Y[11]="375"
X[12]="557"
Y[12]="329"

start:

for f = 1 to 12
   wait(500)
   repeat
      UO.DeleteJournal()
      UO.Exec("setcatchbag box")
      wait(200)
      UO.Exec("useobject pole")
      wait(1000)
      UO.LClick(X[f],Y[f]) 
      wait(4600) 
      UO.ShowJournal()
      wait(500)
   until UO.InJournal("0xAD84")
   UO.Print("Vse vilovleno")
next   

movef()
goto start
endsub

sub movef()
   UO.Say("Forward")
   wait(500)
   UO.Say("Forward")
   wait(10000)
   UO.Say("Stop")
endsub

####

Code: Select all

 fishst:
  y=-6  
  repeat
    x=-6
    repeat
     fw=0
     fishl1:
      uo.DeleteJournal()
      uo.exec('waittargettile tile '+Str(uo.GetX()+x)+' '+Str(uo.GetY()+y)+' 251'); 251-высота уровня моря.
      uo.useObject(pole)
      j=0
      repeat
        wait(200)
        j=j+1
      until uo.InJournal("You pull") or uo.InJournal("You fish a while") or uo.InJournal("There are no fish") or uo.InJournal("That is too far") or j>100
      if uo.InJournal("There are no fish") or uo.InJournal("That is too far") then
        uo.print("fishln1")
        goto fishln1
      end if
      if uo.InJournal("You fish a while") then
        fw=fw+1
        uo.print("Попытка "+str(fw))
        if fw>9 then
          goto fishlnl
        end if  
      end if
      if uo.InJournal("You pull") then
        fw=0
       ; goto fishln1
      end if
      goto fishl1
  fishln1:
      x=x+1
    until x>6