Yoko

UO.UseType('0x0F43') 

var hacket = ' ' # Type of Axe

uo.UseType(hacket)

sub main() 
var i 
var Axe

UO.Print("Выбери Тапор")
UO.exec('addobject Axe')
while UO.targeting() 
      wait(100) 
wend 


Dim Lumb[201] 

Lumb[1] = "3289 948 1656 0" 
Lumb[2] = "3287 948 1653 0" 
Lumb[3] = "3277 944 1653 0" 
Lumb[4] = "3278 944 1650 0" 
Lumb[5] = "3284 948 1647 0" 
Lumb[6] = "3300 944 1647 0" 
Lumb[7] = "3281 948 1644 0" 
Lumb[8] = "3296 944 1644 0" 
Lumb[9] = "3280 948 1638 0" 
Lumb[10] = "3291 944 1638 0" 
Lumb[11] = "3296 948 1632 0" 
Lumb[12] = "3281 944 1629 0" 
Lumb[13] = "3299 944 1626 0" 
Lumb[14] = "3302 944 1623 0" 
Lumb[15] = "3278 944 1614 0" 
Lumb[16] = "3299 948 1614 0" 
Lumb[17] = "3302 948 1611 0" 
Lumb[18] = "3284 944 1605 0" 
Lumb[19] = "3297 948 1602 0" 
Lumb[20] = "3297 944 1602 0" 
Lumb[21] = "3287 948 1596 0" 
Lumb[22] = "3293 948 1593 0" 
Lumb[23] = "3294 944 1593 0" 
Lumb[24] = "3302 948 1590 0" 
Lumb[25] = "3294 944 1590 0" 
Lumb[26] = "3289 948 1584 0" 
Lumb[27] = "3294 944 1584 0" 
Lumb[28] = "3294 948 1578 0" 
Lumb[29] = "3297 944 1578 0" 
Lumb[30] = "3287 944 1575 0" 
Lumb[31] = "3280 940 1575 4" 
Lumb[32] = "3287 940 1572 0" 
Lumb[33] = "3289 936 1572 0" 
Lumb[34] = "3297 936 1569 0" 
Lumb[35] = "3277 928 1563 0" 
Lumb[36] = "3297 928 1560 0" 
Lumb[37] = "3291 924 1557 0" 
Lumb[38] = "3296 924 1554 0" 
Lumb[39] = "3299 920 1554 0" 
Lumb[40] = "3289 920 1551 0" 
Lumb[41] = "3289 916 1551 0" 
Lumb[42] = "3289 912 1554 0" 
Lumb[43] = "3287 908 1548 0" 
Lumb[44] = "3293 904 1545 0" 
Lumb[45] = "3293 904 1542 0" 
Lumb[46] = "3293 900 1542 0" 
Lumb[47] = "3281 896 1530 0" 
Lumb[48] = "3289 896 1527 0" 
Lumb[49] = "3300 892 1524 0" 
Lumb[50] = "3293 892 1521 0" 
Lumb[51] = "3278 888 1521 0" 
Lumb[52] = "3291 888 1518 0" 
Lumb[53] = "3283 884 1518 0" 
Lumb[54] = "3296 888 1515 0" 
Lumb[55] = "3299 884 1512 0" 
Lumb[56] = "3289 880 1509 0" 
Lumb[57] = "3287 880 1506 0" 
Lumb[58] = "3291 876 1506 0" 
Lumb[59] = "3287 876 1503 0" 
Lumb[60] = "3281 872 1500 0" 
Lumb[61] = "3289 868 1500 0" 
Lumb[62] = "3294 864 1494 0" 
Lumb[63] = "3302 864 1491 0" 
Lumb[64] = "3291 860 1491 0" 
Lumb[65] = "3291 856 1482 0" 
Lumb[66] = "3278 856 1479 0" 
Lumb[67] = "3296 856 1473 0" 
Lumb[68] = "3284 856 1470 0" 
Lumb[69] = "3296 856 1467 0" 
Lumb[70] = "3284 856 1458 0" 
Lumb[71] = "3277 856 1455 0" 
Lumb[72] = "3289 856 1452 0" 
Lumb[73] = "3296 856 1446 0" 
Lumb[74] = "3294 856 1440 0" 
Lumb[75] = "3289 856 1437 0" 
Lumb[76] = "3284 856 1434 0" 
Lumb[77] = "3280 856 1428 0" 
Lumb[78] = "3293 852 1428 0" 
Lumb[79] = "3302 852 1425 0" 
Lumb[80] = "3291 856 1422 0" 
Lumb[81] = "3287 856 1419 0" 
Lumb[82] = "3291 856 1416 0" 
Lumb[83] = "3289 856 1413 0" 
Lumb[84] = "3284 856 1410 0" 
Lumb[85] = "3286 856 1407 0" 
Lumb[86] = "3294 852 1407 0" 
Lumb[87] = "3296 852 1404 0" 
Lumb[88] = "3288 856 1404 0" 
Lumb[89] = "3283 856 1401 0" 
Lumb[90] = "3280 856 1398 0" 
Lumb[91] = "3296 852 1398 0" 
Lumb[92] = "3296 856 1395 0" 
Lumb[93] = "3277 852 1392 0" 
Lumb[94] = "3283 852 1386 0" 
Lumb[95] = "3289 848 1380 0" 
Lumb[96] = "3288 844 1380 0" 
Lumb[97] = "3277 844 1377 0" 
Lumb[98] = "3293 840 1380 0" 
Lumb[99] = "3296 840 1377 0" 
Lumb[100] = "3289 840 1374 0" 
Lumb[101] = "3291 840 1368 0" 
Lumb[102] = "3291 840 1362 0" 
Lumb[103] = "3280 840 1359 0" 
Lumb[104] = "3277 832 1356 0" 
Lumb[105] = "3297 832 1353 0" 
Lumb[106] = "3294 832 1350 0" 
Lumb[107] = "3294 832 1344 0" 
Lumb[108] = "3283 832 1341 0" 
Lumb[109] = "3293 828 1341 0" 
Lumb[110] = "3287 828 1335 0" 
Lumb[111] = "3287 828 1332 0" 
Lumb[112] = "3287 824 1332 0" 
Lumb[113] = "3287 828 1326 0" 
Lumb[114] = "3286 828 1323 0" 
Lumb[115] = "3277 820 1323 0" 
Lumb[116] = "3300 816 1326 0" 
Lumb[117] = "3291 816 1332 0" 
Lumb[118] = "3300 816 1335 0" 
Lumb[119] = "3289 816 1338 0" 
Lumb[120] = "3291 816 1341 0" 
Lumb[121] = "3283 816 1347 0" 
Lumb[122] = "3296 816 1359 0" 
Lumb[123] = "3296 820 1365 0" 
Lumb[124] = "3280 816 1374 0" 
Lumb[125] = "3277 816 1377 0" 
Lumb[126] = "3302 816 1380 0" 
Lumb[127] = "3278 816 1383 0" 
Lumb[128] = "3283 816 1386 0" 
Lumb[129] = "3277 820 1392 0" 
Lumb[130] = "3296 820 1398 0" 
Lumb[131] = "3296 812 1401 0" 
Lumb[132] = "3284 812 1404 0" 
Lumb[133] = "3278 812 1407 0" 
Lumb[134] = "3277 816 1407 0" 
Lumb[135] = "3293 820 1410 0" 
Lumb[136] = "3277 820 1413 0" 
Lumb[137] = "3286 820 1416 0" 
Lumb[138] = "3294 816 1416 0" 
Lumb[139] = "3293 808 1416 0" 
Lumb[140] = "3294 808 1413 0" 
Lumb[141] = "3280 804 1413 0" 
Lumb[142] = "3296 804 1404 0" 
Lumb[143] = "3296 804 1398 0" 
Lumb[144] = "3302 804 1395 0" 
Lumb[145] = "3299 804 1392 0" 
Lumb[146] = "3290 804 1383 0" 
Lumb[147] = "3287 804 1380 0" 
Lumb[148] = "3230 801 1373 0" 
Lumb[149] = "3293 804 1368 0" 
Lumb[150] = "3297 804 1365 0" 
Lumb[151] = "3284 804 1359 0" 
Lumb[152] = "3289 804 1356 0" 
Lumb[153] = "3284 800 1353 0" 
Lumb[154] = "3290 796 1359 0" 
Lumb[155] = "3296 796 1362 0" 
Lumb[156] = "3281 796 1365 0" 
Lumb[157] = "3294 796 1371 0" 
Lumb[158] = "3291 796 1386 0" 
Lumb[159] = "3293 800 1386 0" 
Lumb[160] = "3293 800 1383 0" 
Lumb[161] = "3300 796 1389 0" 
Lumb[162] = "3300 792 1398 0" 
Lumb[163] = "3291 792 1401 0" 
Lumb[164] = "3291 792 1401 0" 
Lumb[165] = "3280 792 1407 0" 
Lumb[166] = "3300 792 1410 0" 
Lumb[167] = "3302 792 1419 0" 
Lumb[168] = "3281 792 1431 0" 
Lumb[169] = "3290 788 1431 0" 
Lumb[170] = "3280 788 1434 0" 
Lumb[171] = "3281 784 1428 0" 
Lumb[172] = "3300 784 1425 0" 
Lumb[173] = "3294 784 1419 0" 
Lumb[174] = "3290 784 1416 0" 
Lumb[175] = "3294 784 1407 0" 
Lumb[176] = "3287 784 1404 0" 
Lumb[177] = "3286 784 1401 0" 
Lumb[178] = "3283 784 1395 0" 
Lumb[179] = "3293 784 1389 0" 
Lumb[180] = "3296 784 1386 0" 
Lumb[181] = "3230 784 1384 0" 
Lumb[182] = "3287 784 1371 0" 
Lumb[183] = "3293 784 1362 0" 
Lumb[184] = "3287 784 1359 0" 
Lumb[185] = "3283 784 1356 0" 
Lumb[186] = "3288 784 1353 0" 
Lumb[187] = "3299 784 1344 5" 
Lumb[188] = "3283 780 1344 0" 
Lumb[189] = "3280 780 1347 0" 
Lumb[190] = "3283 780 1350 0" 
Lumb[191] = "3280 780 1356 0" 
Lumb[192] = "3302 780 1359 0" 
Lumb[193] = "3293 784 1362 0" 
Lumb[194] = "3280 780 1365 0" 
Lumb[195] = "3277 780 1371 0" 
Lumb[196] = "3291 780 1380 0" 
Lumb[197] = "3287 780 1386 0" 
Lumb[198] = "3280 780 1389 0" 
Lumb[199] = "3287 780 1392 0" 
Lumb[200] = "3280 780 1395 0" 
Lumb[201] = "3283 776 1401 0" 


While true 
recall() 
for i = 1 to 201 
if UO.Weight > 600 then 
mark() 
GoToGrab() 
grab() 
return() 
endif 
GoToMine( Lumb[i] ) 
UO.Print("Lumb Tree "+str(i)) 
Mine( Lumb[i] ) 
Next 
GoToGrab() 
grab() 
wend 
end sub 

sub mark() 
while true 
UO.DeleteJournal() 
UO.WaittargetObject('0x40007DAF') 
UO.Cast('Mark') 
wait(10000) 
if not UO.InJournal("fizzles") then 
Return 
endif 
wend 
end sub 

sub return() 
while true 
UO.DeleteJournal() 
UO.WaittargetObject('0x40007DAF') 
UO.Cast('Recall') 
wait(10000) 
if not UO.InJournal("fizzles") then 
Return 
endif 
wend 
end sub 

sub recall() 
while true 
UO.DeleteJournal() 
UO.WaittargetObject('0x40007E57') 
UO.Cast('Recall') 
wait(10000) 
if not UO.InJournal("fizzles") then 
Return 
endif 
wend 
end sub 
end sub 

sub GoToMine( Current_Tree ) 
var Tree, TreeX, TreeY 
var oldX, oldY 
var Dx, Dy 
var Distance 

TreeX = Current_Tree[5]+Current_Tree[6]+Current_Tree[7]+Current_Tree[8] 
TreeY = Current_Tree[10]+Current_Tree[11]+Current_Tree[12]+Current_Tree[13] 
uo.print("TreeX="+TreeX + ", TreeY=" + TreeY ) 
Repeat 
oldX = UO.GetX() 
oldY = UO.GetY() 

Dx = val(TreeX) - oldX 
Dy = val(TreeY) - oldY 

Distance = Dx*Dx+Dy*Dy 
uo.print("Dx="+str(Dx)+", Dy="+str(Dy)+", ----Dist= "+str(Distance) ) 
if Distance < 10 then 
Return 
endif 
move(Dx,Dy,Distance) 
Until (Distance < 10) 
end sub 

sub move(Dx,Dy,Distance) 
var q 
hide() 
CheckLag() 
if Dx<0 and Dy==0 then 
q=1 
endif 
if Dx<0 and Dy<0 then 
q=2 
endif 
if Dx==0 and Dy<0 then 
q=3 
endif 
if Dx>0 and Dy<0 then 
q=4 
endif 
if Dx>0 and Dy==0 then 
q=5 
endif 
if Dx>0 and Dy>0 then 
q=6 
endif 
if Dx==0 and Dy>0 then 
q=7 
endif 
if Dx<0 and Dy>0 then 
q=8 
endif 
hide() 
CheckLag() 
moveside(q) 
end sub 


sub moveside(q) 
var k,l 
var m,n 
var j 
k=UO.GetX() 
l=UO.GetY() 
For j=0 to 2 
if q==1 then 
UO.Press(36) 
endif 
if q==2 then 
UO.Press(3 
endif 
if q==3 then 
UO.Press(33) 
endif 
if q==4 then 
UO.Press(39) 
endif 
if q==5 then 
UO.Press(34) 
endif 
if q==6 then 
UO.Press(40) 
endif 
if q==7 then 
UO.Press(35) 
endif 
if q==8 then 
UO.Press(37) 
endif 
Next 
CheckLag() 
m=UO.GetX() 
n=UO.GetY() 
wait(300) 
if k==m and l==n then 
q=q+1 
if q==9 then 
q=1 
endif 
moveside(q) 
endif 
end sub 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(100) 
until UO.InJournal('backpack') 
UO.DeleteJournal() 
end sub 

sub mine(lumb) 
UO.Warmode('flip') 
hide() 
UO.Print("lumb="+lumb) 
UO.DeleteJournal() 
var maxtime = 13000 
var time 
var coords 
coords="waittargettile "+ lumb 
time = 0 
CheckLag() 
UO.Exec(coords) 
UO.UseObject("Axe") 
Repeat 
time=time+200 
wait(200) 
Until (Uo.InJournal("fail") or UO.InJournal ("blow") or UO.InJournal ("pack") or UO.InJournal ("away") or UO.InJournal ("reach") or Uo.InJournal("stop") or Uo.InJournal("chop") or time>maxtime) 
check(lumb) 
end sub 

sub check(lumb) 
if UO.InJournal("World") then 
wait(15000) 
endif 
if UO.InJournal ("pack") then 
UO.DeleteJournal() 
UO.Print("Repeat Tile") 
mine(lumb) 
endif 
if UO.InJournal ("fail") then 
UO.DeleteJournal() 
UO.Print("Repeat Tile") 
mine(lumb) 
endif 
if UO.InJournal ("stop") then 
While not (UO.Injournal("go")) 
wait (10000) 
wend 
endif 
end sub 

sub GoToGrab() 
while true 
UO.DeleteJournal() 
UO.WaittargetObject('0x40002DF6') 
UO.Cast('Recall') 
wait(10000) 
if not UO.InJournal("fizzles") then 
Return 
endif 
wend 
end sub 

sub grab() 
UO.Print("Grabbing") 
while true 
UO.Exec("setreceivingcontainer 0x4000352D") 
Repeat 
UO.Exec("findtype 0x1bdd") 
UO.Exec("waittargettype 0x1bdd") 
UO.Exec("grab all") 
wait(1000) 
Until (UO.Findcount('finditem') == 0) 
end sub 

sub hide() 
while NOT UO.Hidden() 
UO.DeleteJournal() 
UO.UseSkill('Stealth') 
repeat 
wait(100) 
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') 
wend 
wait(100) 
end sub 

Healp

############################################ 
### Lumberjacking / Рубка деревьев       ### 
############################################ 
### Шард Dragon World / www.drw.ru       ### 
############################################ 
### Реавтор этого скрипта: BETEPAH       ### 
############################################ 
################## 
### Переменные ### 
################## 
################################################################################################### 
var f=file("C:\Games\UO\trees3.dat") ## - Путь к файлу в котором будут хранится координаты деревьев. 
### 
var TryHiding=1 ## 1 - Перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет . 
### 
var LogsQty=500 ## - Количество логов, добыв которое надо реколиться домой. 
### 
var GetFromFile=1 ## 1 - Координаты деревьев будут считыватся из файла, 0 - собиратся из клиента 
### (сначала соберите а потом считывайте из файла). 
### 
var EatingFood=1 ## 1 - Будем есть, 0 - нет.  
### 
var SSpeak=1 ## 1 - Будем качать и спирит спик, 0 - не будем. 
### 
var TypeFood='0x097B' ## - Тип еды которую будем кушать.(сейчас фиштейки) 
### 
var Chest='0x404B1677' ## - ID сундука куда будут выгружаться логи. 
### 
var Trytodrop=1 ## Будем пытатся подходить к сундуку или нет. 
### 
var ContX=1802 ##Координаты X у сундука 
### 
var ContY=1558 ##Координаты Y у сундука 
### 
var oldX,oldY,time ## - Для рекола. 
### 
########### 
### Код ### 
########### 
sub Lumberjacking() 
var i=0,j=0,k=0,r=0,q=0,ii,jj 
var TopX=324,TopY=65 
dim TreeX[5000], TreeY[5000],TreeT[5000] 
dim TreeTile[29] 
var flag=0,treeCount=0,clicks=0,flag2=0 
######################## 
### Графика деревьев ### 
######################## 
TreeTile[0]=3277 
TreeTile[1]=3280 
TreeTile[2]=3283 
TreeTile[3]=3286 
TreeTile[4]=3289 
TreeTile[5]=3291 
TreeTile[6]=3294 
TreeTile[7]=3296 
TreeTile[8]=3299 
TreeTile[9]=3302 
TreeTile[10]=3393 
TreeTile[11]=3394 
TreeTile[12]=3395 
TreeTile[13]=3396 
TreeTile[14]=3415 
TreeTile[15]=3416 
TreeTile[16]=3417 
TreeTile[17]=3418 
TreeTile[18]=3419 
TreeTile[19]=3438 
TreeTile[20]=3439 
TreeTile[21]=3440 
TreeTile[22]=3441 
TreeTile[23]=3442 
TreeTile[24]=3460 
TreeTile[25]=3461 
TreeTile[26]=3462 
TreeTile[27]=3290 
TreeTile[28]=3288 

uo.Exec("filterspeech on") 
uo.Exec("filterspeech add 'Where do you want to use the pickaxe?'") 

uo.Print('Выбери Топор: ') 
uo.Exec('addobject Axe') 
while uo.Targeting() 
wait(100) 
wend 

##################################### 
### Загружаем координаты из файла ### 
##################################### 
if GetFromFile==1 then 
uo.Print('Загружаем координаты из файла...') 
f.open() 
treeCount=safe call f.ReadNumber() 
for i=1 to treeCount 
TreeT[i]=safe call f.ReadNumber() 
TreeX[i]=safe call f.ReadNumber() 
TreeY[i]=safe call f.ReadNumber() 
next 
f.close() 
else 
###################################### 
### Собираем координаты из клиента ### 
###################################### 
uo.Print('Выбери Кирку: ') 
uo.Exec('addobject Pickaxe') 
while uo.Targeting() 
wait(100) 
wend 
uo.Print('Собираем координаты деревьев в округе...') 
repeat 
clicks=0 
flag=0 
uo.DeleteJournal() 
####################### 
### Кликаем на тайл ### 
####################### 
uo.UseObject('Pickaxe') 
waitForTarget() 
uo.DeleteJournal() 
WaitForTryRock() 
############################### 
### Проверяем дерево ли это ### 
############################### 
flag=0 
for k=0 to 28 
if uo.LastTile(0)==TreeTile[k]+1 then 
flag=2 
end if 
next 
if flag==0 then 
for k=0 to 28 
if uo.LastTile(0)==TreeTile[k] then 
flag=1 
end if 
next 
end if 
if uo.Lasttile(1)==uo.getX() and uo.Lasttile(2)==uo.gety() then 
flag=3 
end if 
######################### 
### Кликнули на ствол ### 
######################### 
if flag==1 then 
flag2=0 
if treeCount>0 then 
for ii=1 to treeCount 
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then 
flag2=1 
end if 
next 
end if 
if flag2==0 then 
treeCount=treeCount+1 
TreeX[treeCount]=uo.LastTile(1) 
TreeY[treeCount]=uo.LastTile(2) 
TreeT[treeCount]=uo.LastTile(0) 
uo.Print('Найдено дерево '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))+' '+str(treeCount)) 
end if 
end if 
########################## 
### Кликнули по листве ### 
########################## 
if flag==2 then 
flag2=0 
if treeCount>0 then 
for ii=1 to treeCount 
if TreeX[ii]==uo.LastTile(1) and TreeY[ii]==uo.LastTile(2) then 
flag2=1 
end if 
next 
end if 
if flag2==0 then 
treeCount=treeCount+1 
TreeX[treeCount]=uo.LastTile(1) 
TreeY[treeCount]=uo.LastTile(2) 
TreeT[treeCount]=uo.LastTile(0)-1 
uo.print('Найдено дерево '+str(treeCount)+' : x='+str(uo.Lasttile(1))+' y='+str(uo.LastTile(2))) 
end if 
end if 
until (Flag==3) or (treeCount==500) 
uo.Exec("filterspeech off") 
uo.Print('Анализ закончен, координаты деревьев записаны в файл C:\trees3.dat') 
SaveToFile(treeCount,TreeX,TreeY,TreeT) 
end if 
uo.Print('Деревьев найдено: '+str(treeCount)) 
wait(2000) 
###################################### 
### Ходим по собранным координатам ### 
###################################### 
while 1==1 
if treeCount>0 then 
for i=1 to treeCount 
end if 
if Trytodrop==1 and uo.Count('ZLK')>=LogsQty then 
GotoXY(uo.getx(Chest),uo.gety(Chest)) 
DropLogs() 
end if 
uo.Print('Идем к дереву '+str(i)+': x='+str(TreeX[i])+' y='+str(TreeY[i])) 
InfoLogs() 
flag=GotoXY(TreeX[i],TreeY[i]) 
if flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
GetTree(str(TreeT[i]),str(TreeX[i]),str(TreeY[i]),str(uo.GetZ())) 
end if 
next 
end if 
wend 
end sub 

Sub GetTree(Type,X,Y,Z) 
var i 
uo.Print('Начинаем рубку дерева...') 
for i=0 to 30 
if uo.Warmode()==1 then 
return 0 
end if 
wait(200) 
uo.DeleteJournal() 
uo.WaitTargetTile(Type,X,Y,Z) 
uo.UseObject('Axe') 
if WaitForChange()==1 then 
return 1 
end if 
next 
return 0 
end sub 

Sub ToHide() 
if SSpeak==1 then 
UO.Useskill('Spirit Speak')    
wait(3000) 
endif 
while not uo.Hidden() 
uo.Print('Пытаемся уйти в хайд...') 
uo.DeleteJournal() 
uo.UseSkill('Stealth') 
wait(3000) 
wend 
wait(100) 
end sub 


Sub WaitForHide() 
var Text1=uo.GetName()+": You have hidden yourself well" 
var Text2=uo.GetName()+": You can't seem to hide here." 
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text1 then 
return 1 
end if 
if uo.Journal(0)==Text2 then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

Sub WaitForChange() 
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.' 
var Text2='There are no logs here to chop.' 
var Text3="You can't reach this." 
var Text4="That is too far away." 
var Text5="You can't do much in your current state." 
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then 
return 1 
end if 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

Sub WaitForTryRock() 
var Text1="That is too far away." 
var Text2="Try mining in rock." 
var Text3="There is no ore here to mine." 
var Text4="You have no line of sight to that location" 
var Text5="You can't see the target" 
for var i=0 to 50 
if uo.Journal(0)==Text1 or uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text5 then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

Sub WaitForTarget() 
for var i=0 to 50 
if uo.Targeting()==1 then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

Sub WaitForChangeXY(myX,myY,lastX,lastY) 
for var i=1 to 50 
if lastX<>myX or lastY<>myY then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

sub GotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

Sub SaveToFile(treeCount,TreeX,TreeY,TreeT) 
var f=file("C:\Games\UO\trees3.dat") 
var s=0,i=0 
f.open() 
f.create() 
s=safe call f.writeln(treeCount) 
for i=1 to treeCount 
s=safe call f.writeln(str(TreeT[i])+' '+str(TreeX[i])+' '+str(TreeY[i])) 
next 
f.close() 
end sub 

sub DropLogs() 
uo.say("Выкладываю логи !!! Не беспокоить !!!") 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var a,Exit 
dim Logs[1] 
Logs[0]=0x1BDD 
uo.Print('Выкладываем Логи.') 
uo.SetReceivingContainer(Chest) 
wait(500) 
for a=0 to 0 
Exit=0 
repeat 
uo.FindType(Logs[a]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
GotoXY(ContX,ContY) 
else 
Exit=1 
end if 
until Exit==1 
next 
if EatingFood==1 then 
EatingFood() 
end if 
uo.UnSetReceivingContainer(Chest) 
uo.Print('Логи Выложены.') 
end sub 


Sub InfoLogs() 
uo.Print('У вас всего '+str(uo.Count('0x1BDD'))+' логов в сумке') 
uo.Print('Из них '+str(uo.Count('0x1BDD','0x0000'))+' простых и ' +str(uo.Count('0x1BDD')-uo.Count('0x1BDD','0x0000'))+' цветных') 
end sub 

Sub Open(Container) 
uo.DeleteJournal() 
uo.UseObject(Container) 
repeat 
wait(500) 
until uo.InJournal('Contains') 
end sub 


Sub EatingFood() 
ToEat() 
DropFood() 
end sub 

Sub ToEat() 
uo.SetReceivingContainer('backpack') 
Open(Chest) 
uo.FindType(TypeFood,'-1',Chest) 
uo.Grab('50','finditem') 
wait(500) 
repeat 
Checklag() 
uo.UseType(TypeFood) 
wait(1000) 
until uo.InJournal('You are simply too full to eat any more!') 
uo.UnsetReceivingContainer() 
end sub 

Sub DropFood() 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
var f,Exit 
dim Food[1] 
Food[0]=TypeFood 
uo.SetReceivingContainer(Chest) 
wait(500) 
for f=0 to 0 
Exit=0 
repeat 
uo.FindType(Food[f]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
Exit=1 
end if 
until Exit==1 
next 
uo.UnSetReceivingContainer(Chest) 
end sub 

Sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub