Yoko

Code: Select all

   Dim gox[6]
    gox[0] = 370
    gox[1] = 375
    gox[2] = 378
    gox[3] = 383
    gox[4] = 386
    gox[5] = 380
Dim goy[6]
    goy[0] = 1437
    goy[1] = 1434
    goy[2] = 1430
    goy[3] = 1430
    goy[4] = 1435
    goy[5] = 1441
while 1
for i = 0 to 5
WalkME(gox[i],goy[i],'')

Code: Select all

sub main() 
var mx, my, mz, i, j, f
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
 
   while 1
     
for i = mx-4 to mx+4 
for j = my-4 to my+4 
          UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype('0x0E85') ; êèðêà
       if waitforore()==1 then
       f=10
       endif
wait(100) 

next 
next 

wend
end sub

Code: Select all

sub main()
repeat
walker(1874, 267, 0) ; тайл рядом с сундуком
UO.UseObject(bag)
wait(1000)
putore()    ; скидываем руду
getinstr()  ; добираем инструменты
walker(1874, 267, 0)
walker(1874, 271, 0)
walker(1887, 271, 0)
walker(1897, 271, 0)
walker(1904, 271, 0)
Mine()
walker(1912, 273, 0)
Mine()
walker(1916, 281, 0)
Mine()
walker(1921, 276, 0)
Mine()
walker(1921, 269, 0)
Mine()
walker(1924, 264, 0)
Mine()
walker(1917, 271, 0)
walker(1901, 271, 0)
walker(1887, 271, 0)
walker(1874, 271, 0)
walker(1874, 267, 0)
until UO.Dead()
end sub