Yoko

Code: Select all

sub main()
   var mtype='0x0F6C' #Тип портала
   var mcolor=-1 #Цвет портала
   var dist=1 #finddistance
   var ox=uo.getx()-1 #Куда отойти в начале
   var oy=uo.gety()+1 #Куда отойти в начале
   
   var mx=uo.getx()
   var my=uo.gety()
   var tx=0,ty=0
   WalkTo(ox-mx,oy-my)
   mx=uo.getx()
   my=uo.gety()
   uo.set('finddistance',str(dist))
   uo.findtype(mtype,mcolor,-1)
   if uo.findcount() then
      tx=uo.getx('finditem')
      ty=uo.gety('finditem')
      WalkTo(tx-mx,ty-my)
   endif
end sub

Sub WalkTo(x,y)
   var dly=400 #Задержка на перемещения
   dim keys[8]
   keys[0]=33
   keys[1]=39
   keys[2]=34
   keys[3]=40
   keys[4]=35
   keys[5]=37
   keys[6]=36
   keys[7]=38
   var key=GetDirTo(x,y)
   if (key==-1) then
      uo.print('Уже стоим на этой точке.')
      return
   endif
   if (uo.getdir()<>key) then
      while (uo.getdir()<>key)
         uo.press(keys[key])
         wait(dly)
      wend
   endif
   uo.press(keys[key])
   wait(dly)
end sub

Sub GetDirTo(dx,dy)
   If dx<>0 AND dy<>0 Then
      If dx>0 AND dy>0 Then
         return 3
      Endif
      If dx>0 AND dy<0 Then
         return 1
      Endif
      If dx<0 AND dy>0 Then
         return 5
      Endif
      If dx<0 AND dy<0 Then
         return 7
      Endif
   Endif
   If dx<>0 AND dy==0 Then
      If dx>0 Then
         return 2
      Endif
      If dx<0 Then
         return 6
      Endif
   Endif
   If dx==0 AND dy<>0 Then
      If dy>0 Then
         return 4
      Endif
      If dy<0 Then
         return 0
      Endif
   Endif
   return -1
end sub