Yoko

Code: Select all

sub main()
var i 
Dim Lumb[450]

Lumb[1] = "3289 1792 1557 0"
Lumb[2] = "3294 1792 1554 0"
Lumb[3] = "3289 1792 1551 0"
Lumb[4] = "3283 1796 1551 0"
Lumb[5] = "3289 1800 1548 0"
Lumb[6] = "3283 1800 1545 0"
Lumb[7] = "3280 1796 1545 0"
Lumb[8] = "3286 1796 1542 0"
Lumb[9] = "3294 1796 1539 0"
Lumb[10] = "3286 1792 1542 0"
Lumb[11] = "3302 1792 1539 0"
Lumb[12] = "3302 1792 1536 0"
Lumb[13] = "3294 1796 1533 0"
Lumb[14] = "3299 1800 1533 0"
Lumb[15] = "3283 1804 1539 0"
Lumb[16] = "3289 1804 1536 0"
Lumb[17] = "3280 1804 1533 0"
Lumb[18] = "3283 1804 1530 0"
Lumb[19] = "3302 1808 1530 0"
Lumb[20] = "3299 1804 1527 0"
Lumb[21] = "3286 1808 1527 0"
Lumb[22] = "3289 1804 1524 0"
Lumb[23] = "3294 1808 1524 0"
Lumb[24] = "3289 1804 1521 0"
Lumb[25] = "3299 1808 1518 0"
Lumb[26] = "3280 1812 1524 0"
Lumb[27] = "3299 1812 1521 0"
Lumb[28] = "3280 1812 1518 0"
Lumb[29] = "3289 1812 1515 0"
Lumb[30] = "3291 1808 1515 0"
Lumb[31] = "3289 1808 1512 0"
Lumb[32] = "3286 1804 1515 0"
Lumb[33] = "3299 1800 1515 0"
Lumb[34] = "3289 1796 1515 0"
Lumb[35] = "3294 1796 1518 0"
Lumb[36] = "3299 1796 1521 0"
Lumb[37] = "3296 1796 1524 0"
Lumb[38] = "3280 1792 1524 0"
Lumb[39] = "3286 1792 1521 0"
Lumb[40] = "3289 1792 1518 0"
Lumb[41] = "3291 1788 1521 0"
Lumb[42] = "3299 1788 1518 0"
Lumb[43] = "3280 1788 1515 0"
Lumb[44] = "3294 1784 1521 0"
Lumb[45] = "3291 1784 1518 0"
Lumb[46] = "3277 1784 1515 0"
Lumb[47] = "3291 1780 1521 0"
Lumb[48] = "3277 1780 1518 0"
Lumb[49] = "3302 1780 1515 0"
Lumb[50] = "3280 1780 1512 0"
Lumb[51] = "3299 1788 1509 0"
Lumb[52] = "3302 1788 1506 0"
Lumb[53] = "3289 1784 1506 0"
Lumb[54] = "3283 1788 1503 0"
Lumb[55] = "3291 1784 1503 0"
Lumb[56] = "3291 1788 1500 0"
Lumb[57] = "3289 1784 1500 0"
Lumb[58] = "3286 1788 1497 0"
Lumb[59] = "3280 1784 1497 0"
Lumb[60] = "3299 1784 1494 0"
Lumb[61] = "3296 1784 1491 0"
Lumb[62] = "3296 1788 1491 0"
Lumb[63] = "3286 1788 1488 0"
Lumb[64] = "3299 1792 1488 0"
Lumb[65] = "3299 1792 1485 0"
Lumb[66] = "3280 1788 1485 0"
Lumb[67] = "3280 1796 1485 0"
Lumb[68] = "3294 1796 1488 0"
Lumb[69] = "3302 1796 1491 0"
Lumb[70] = "3302 1800 1491 0"
Lumb[71] = "3289 1800 1485 0"
Lumb[72] = "3296 1792 1479 0"
Lumb[73] = "3286 1792 1476 0"
Lumb[74] = "3299 1792 1473 0"
Lumb[75] = "3280 1792 1470 0"
Lumb[76] = "3289 1796 1467 0"
Lumb[77] = "3289 1800 1473 0"
Lumb[78] = "3291 1800 1470 0"
Lumb[79] = "3291 1800 1467 0"
Lumb[80] = "3283 1804 1470 0"
Lumb[81] = "3280 1804 1467 0"
Lumb[82] = "3291 1804 1464 0"
Lumb[83] = "3302 1800 1464 0"
Lumb[84] = "3291 1804 1461 0"
Lumb[85] = "3289 1800 1461 0"
Lumb[86] = "3291 1800 1458 0"
Lumb[87] = "3286 1804 1458 0"
Lumb[88] = "3283 1804 1455 0"
Lumb[89] = "3291 1800 1458 0"
Lumb[90] = "3296 1800 1452 0"
Lumb[91] = "3302 1796 1452 0"
Lumb[92] = "3286 1796 1449 0"
Lumb[93] = "3296 1800 1449 0"
Lumb[94] = "3299 1800 1446 0"
Lumb[95] = "3280 1796 1446 0"
Lumb[96] = "3291 1796 1443 0"
Lumb[97] = "3302 1796 1440 0"
Lumb[98] = "3289 1792 1440 0"
Lumb[99] = "3283 1792 1443 0"
Lumb[100] = "3299 1792 1446 0"
Lumb[101] = "3286 1788 1446 0"
Lumb[102] = "3280 1788 1443 0"
Lumb[103] = "3299 1784 1446 0"
Lumb[104] = "3289 1792 1440 0"
Lumb[105] = "3296 1788 1437 0"
Lumb[106] = "3294 1788 1434 0"
Lumb[107] = "3299 1792 1434 0"
Lumb[108] = "3294 1792 1431 0"
Lumb[109] = "3302 1796 1434 0"
Lumb[110] = "3283 1796 1431 0"
Lumb[111] = "3283 1800 1431 0"
Lumb[112] = "3299 1800 1428 0"
Lumb[113] = "3291 1804 1428 0"
Lumb[114] = "3296 1804 1425 0"
Lumb[115] = "3277 1808 1422 0"
Lumb[116] = "3302 1812 1419 0"
Lumb[117] = "3291 1816 1419 0"
Lumb[118] = "3277 1816 1425 0"
Lumb[119] = "3280 1820 1425 0"
Lumb[120] = "3286 1820 1431 0"
Lumb[121] = "3283 1820 1434 0"
Lumb[122] = "3289 1828 1431 0"
Lumb[123] = "3291 1832 1431 0"
Lumb[124] = "3280 1832 1434 0"
Lumb[125] = "3294 1836 1437 0"
Lumb[126] = "3296 1836 1434 0"
Lumb[127] = "3280 1836 1431 0"
Lumb[128] = "3277 1840 1437 0"
Lumb[129] = "3283 1840 1434 0"
Lumb[130] = "3299 1840 1431 0"
Lumb[131] = "3302 1840 1428 0"
Lumb[132] = "3289 1836 1428 0"
Lumb[133] = "3296 1836 1422 0"
Lumb[134] = "3280 1848 1425 0"
Lumb[135] = "3280 1844 1422 0"
Lumb[136] = "3294 1844 1416 0"
Lumb[137] = "3296 1840 1416 0"
Lumb[138] = "3299 1840 1413 0"
Lumb[139] = "3289 1844 1413 0"
Lumb[140] = "3280 1840 1410 0"
Lumb[141] = "3286 1844 1410 0"
Lumb[142] = "3283 1844 1407 0"
Lumb[143] = "3299 1844 1404 0"
Lumb[144] = "3294 1840 1404 0"
Lumb[145] = "3286 1844 1401 0"
Lumb[146] = "3299 1844 1398 0"
Lumb[147] = "3294 1844 1395 0"
Lumb[148] = "3294 1840 1395 0"
Lumb[149] = "3277 1836 1401 0"
Lumb[150] = "3296 1836 1398 0"
Lumb[151] = "3286 1836 1395 0"
Lumb[152] = "3286 1836 1392 0"
Lumb[153] = "3299 1832 1392 0"
Lumb[154] = "3280 1832 1389 0"
Lumb[155] = "3302 1836 1389 0"
Lumb[156] = "3299 1836 1386 0"
Lumb[157] = "3277 1832 1386 0"
Lumb[158] = "3286 1836 1383 0"
Lumb[159] = "3277 1832 1383 0"
Lumb[160] = "3277 1832 1380 0"
Lumb[161] = "3286 1832 1377 0"
Lumb[162] = "3289 1828 1377 0"
Lumb[163] = "3296 1828 1380 0"
Lumb[164] = "3299 1828 1383 0"
Lumb[165] = "3289 1824 1380 0"
Lumb[166] = "3280 1824 1386 0"
Lumb[167] = "3289 1824 1389 0"
Lumb[168] = "3286 1820 1389 0"
Lumb[169] = "3280 1820 1386 0"
Lumb[170] = "3291 1816 1389 0"
Lumb[171] = "3289 1816 1383 0"
Lumb[172] = "3294 1820 1380 0"
Lumb[173] = "3296 1812 1389 0"
Lumb[174] = "3277 1812 1395 0"
Lumb[175] = "3286 1808 1395 0"
Lumb[176] = "3291 1808 1398 0"
Lumb[177] = "3291 1808 1401 0"
Lumb[178] = "3299 1808 1404 0"
Lumb[179] = "3286 1812 1404 0"
Lumb[180] = "3280 1812 1407 0"
Lumb[181] = "3280 1808 1407 0"
Lumb[182] = "3296 1808 1410 0"
Lumb[183] = "3296 1804 1413 0"
Lumb[184] = "3296 1804 1410 0"
Lumb[185] = "3302 1804 1407 0"
Lumb[186] = "3299 1804 1401 0"
Lumb[187] = "3302 1800 1398 0"
Lumb[188] = "3299 1796 1401 0"
Lumb[189] = "3283 1796 1407 0"
Lumb[190] = "3277 1792 1407 0"
Lumb[191] = "3286 1788 1407 0"
Lumb[192] = "3280 1788 1410 0"
Lumb[193] = "3291 1788 1413 0"
Lumb[194] = "3296 1792 1413 0"
Lumb[195] = "3286 1780 1410 0"
Lumb[196] = "3289 1780 1413 0"
Lumb[197] = "3299 1784 1407 0"
Lumb[198] = "3280 1784 1404 0"
Lumb[199] = "3289 1780 1404 0"
Lumb[200] = "3280 1784 1401 0"
Lumb[201] = "3302 1788 1395 0"
Lumb[202] = "3283 1784 1392 0"
Lumb[203] = "3296 1788 1392 0"
Lumb[204] = "3296 1788 1389 0"
Lumb[205] = "3277 1792 1389 0"
Lumb[206] = "3283 1792 1386 0"
Lumb[207] = "3289 1780 1386 0"
Lumb[208] = "3302 1784 1380 0"
Lumb[209] = "3302 1780 1380 0"
Lumb[210] = "3299 1780 1377 0"
Lumb[211] = "3283 1780 1374 0"
Lumb[212] = "3294 1788 1374 0"
Lumb[213] = "3286 1784 1371 0"
Lumb[214] = "3277 1788 1371 0"
Lumb[215] = "3302 1788 1368 0"
Lumb[216] = "3302 1784 1368 0"
Lumb[217] = "3299 1792 1368 0"
Lumb[218] = "3280 1792 1371 0"
Lumb[219] = "3289 1796 1368 0"
Lumb[220] = "3294 1800 1368 0"
Lumb[221] = "3286 1800 1371 0"
Lumb[222] = "3302 1804 1368 0"
Lumb[223] = "3302 1808 1359 0"
Lumb[224] = "3296 1808 1362 0"
Lumb[225] = "3277 1812 1356 0"
Lumb[226] = "3286 1808 1353 0"
Lumb[227] = "3280 1816 1350 0"
Lumb[228] = "3299 1820 1350 0"
Lumb[229] = "3302 1820 1347 0"
Lumb[230] = "3286 1824 1344 0"
Lumb[231] = "3286 1824 1341 0"
Lumb[232] = "3286 1820 1341 0"
Lumb[233] = "3277 1824 1338 0"
Lumb[234] = "3299 1820 1338 0"
Lumb[235] = "3277 1820 1335 0"
Lumb[236] = "3289 1824 1335 0"
Lumb[237] = "3277 1824 1332 0"
Lumb[238] = "3299 1828 1332 0"
Lumb[239] = "3291 1832 1329 0"
Lumb[240] = "3296 1832 1335 0"
Lumb[241] = "3294 1836 1338 0"
Lumb[242] = "3294 1836 1335 0"
Lumb[243] = "3280 1836 1332 0"
Lumb[244] = "3296 1836 1329 0"
Lumb[245] = "3286 1836 1326 0"
Lumb[246] = "3277 1836 1323 0"
Lumb[247] = "3289 1836 1320 0"
Lumb[248] = "3302 1840 1320 0"
Lumb[249] = "3294 1840 1323 0"
Lumb[250] = "3277 1840 1326 0"
Lumb[251] = "3302 1844 1323 0"
Lumb[252] = "3294 1844 1320 0"
Lumb[253] = "3289 1844 1317 0"
Lumb[254] = "3280 1844 1314 0"
Lumb[255] = "3280 1848 1314 0"
Lumb[256] = "3299 1848 1317 0"
Lumb[257] = "3296 1852 1317 0"
Lumb[258] = "3289 1856 1314 0"
Lumb[259] = "3283 1856 1323 0"
Lumb[260] = "3280 1860 1323 0"
Lumb[261] = "3299 1860 1320 0"
Lumb[262] = "3289 1860 1317 0"
Lumb[263] = "3289 1860 1314 0"
Lumb[264] = "3294 1860 1311 0"
Lumb[265] = "3302 1864 1314 0"
Lumb[266] = "3280 1864 1311 0"
Lumb[267] = "3286 1864 1308 0"
Lumb[268] = "3302 1860 1305 0"
Lumb[269] = "3291 1860 1302 0"
Lumb[270] = "3294 1864 1299 0"
Lumb[271] = "3283 1868 1302 0"
Lumb[272] = "3286 1868 1305 0"
Lumb[273] = "3302 1872 1305 0"
Lumb[274] = "3294 1876 1305 0"
Lumb[275] = "3291 1880 1311 0"
Lumb[276] = "3291 1880 1308 0"
Lumb[277] = "3291 1884 1308 0"
Lumb[278] = "3289 1884 1311 0"
Lumb[279] = "3294 1884 1314 0"
Lumb[280] = "3296 1884 1317 0"
Lumb[281] = "3302 1888 1311 0"
Lumb[282] = "3296 1892 1314 0"
Lumb[283] = "3296 1888 1326 0"
Lumb[284] = "3283 1888 1323 0"
Lumb[285] = "3302 1892 1326 0"
Lumb[286] = "3280 1892 1323 0"
Lumb[287] = "3277 1896 1323 0"
Lumb[288] = "3294 1892 1329 0"
Lumb[289] = "3291 1896 1329 0"
Lumb[290] = "3294 1900 1329 0"
Lumb[291] = "3294 1900 1326 0"
Lumb[292] = "3302 1904 1326 0"
Lumb[293] = "3294 1904 1320 0"
Lumb[294] = "3291 1908 1320 0"
Lumb[295] = "3283 1904 1317 0"
Lumb[296] = "3291 1908 1317 0"
Lumb[297] = "3280 1908 1314 0"
Lumb[298] = "3286 1908 1311 0"
Lumb[299] = "3299 1908 1305 0"
Lumb[300] = "3277 1904 1305 0"
Lumb[301] = "3291 1904 1302 0"
Lumb[302] = "3294 1904 1299 0"
Lumb[303] = "3299 1908 1299 0"
Lumb[304] = "3289 1908 1296 0"
Lumb[305] = "3277 1912 1296 0"
Lumb[306] = "3299 1916 1296 0"
Lumb[307] = "3302 1920 1293 0"
Lumb[308] = "3280 1924 1293 0"
Lumb[309] = "3302 1924 1302 0"
Lumb[310] = "3299 1928 1302 0"
Lumb[311] = "3283 1924 1305 0"
Lumb[312] = "3277 1924 1308 0"
Lumb[313] = "3280 1932 1308 0"
Lumb[314] = "3302 1932 1314 0"
Lumb[315] = "3277 1932 1302 0"
Lumb[316] = "3283 1936 1299 0"
Lumb[317] = "3289 1940 1299 0"
Lumb[318] = "3289 1940 1302 0"
Lumb[319] = "3283 1940 1305 0"
Lumb[320] = "3277 1944 1308 0"
Lumb[321] = "3296 1948 1305 0"
Lumb[322] = "3283 1952 1299 0"
Lumb[323] = "3296 1948 1296 0"
Lumb[324] = "3289 1948 1293 0"
Lumb[325] = "3296 1952 1290 0"
Lumb[326] = "3299 1952 1287 0"
Lumb[327] = "3291 1948 1287 0"
Lumb[328] = "3277 1948 1284 0"
Lumb[329] = "3299 1952 1281 0"
Lumb[330] = "3280 1956 1278 0"
Lumb[331] = "3280 1960 1278 0"
Lumb[332] = "3280 1960 1272 0"
Lumb[333] = "3280 1956 1272 0"
Lumb[334] = "3289 1956 1269 0"
Lumb[335] = "3299 1952 1266 0"
Lumb[336] = "3302 1948 1266 0"
Lumb[337] = "3280 1948 1263 0"
Lumb[338] = "3280 1944 1266 0"
Lumb[339] = "3277 1944 1263 0"
Lumb[340] = "3294 1940 1266 0"
Lumb[341] = "3291 1940 1263 0"
Lumb[342] = "3280 1936 1269 0"
Lumb[343] = "3280 1932 1266 0"
Lumb[344] = "3280 1932 1269 0"
Lumb[345] = "3296 1932 1272 0"
Lumb[346] = "3289 1936 1275 0"
Lumb[347] = "3283 1932 1275 0"
Lumb[348] = "3296 1936 1278 0"
Lumb[349] = "3291 1928 1275 0"
Lumb[350] = "3291 1924 1278 0"
Lumb[351] = "3291 1924 1275 0"
Lumb[352] = "3294 1920 1275 0"
Lumb[353] = "3289 1920 1272 0"
Lumb[354] = "3296 1920 1269 0"
Lumb[355] = "3302 1920 1266 0"
Lumb[356] = "3302 1924 1266 0"
Lumb[357] = "3277 1924 1263 0"
Lumb[358] = "3302 1924 1260 0"
Lumb[359] = "3291 1924 1257 0"
Lumb[360] = "3294 1920 1254 0"
Lumb[361] = "3283 1916 1260 0"
Lumb[362] = "3291 1916 1263 0"
Lumb[363] = "3296 1916 1269 0"
Lumb[364] = "3280 1916 1272 0"
Lumb[365] = "3286 1916 1275 0"
Lumb[366] = "3294 1920 1275 0"
Lumb[367] = "3283 1920 1278 0"
Lumb[368] = "3283 1920 1281 0"
Lumb[369] = "3299 1916 1281 0"
Lumb[370] = "3280 1920 1284 0"
Lumb[371] = "3296 1916 1287 0"
Lumb[372] = "3280 1912 1284 0"
Lumb[373] = "3277 1912 1281 0"
Lumb[374] = "3291 1912 1278 0"
Lumb[375] = "3280 1908 1281 0"
Lumb[376] = "3283 1908 1278 0"
Lumb[377] = "3289 1904 1281 0"
Lumb[378] = "3283 1904 1278 0"
Lumb[379] = "3289 1900 1278 0"
Lumb[380] = "3299 1900 1281 0"
Lumb[381] = "3294 1900 1284 0"
Lumb[382] = "3296 1904 1284 0"
Lumb[383] = "3289 1900 1287 0"
Lumb[384] = "3283 1904 1290 0"
Lumb[385] = "3289 1904 1293 0"
Lumb[386] = "3286 1900 1293 0"
Lumb[387] = "3299 1900 1296 0"
Lumb[388] = "3289 1900 1299 0"
Lumb[389] = "3294 1904 1299 0"
Lumb[390] = "3291 1904 1302 0"
Lumb[391] = "3286 1900 1302 0"
Lumb[392] = "3299 1896 1305 0"
Lumb[393] = "3277 1896 1302 0"
Lumb[394] = "3294 1892 1305 0"
Lumb[395] = "3286 1896 1296 0"
Lumb[396] = "3302 1892 1296 0"
Lumb[397] = "3277 1892 1290 0"
Lumb[398] = "3299 1888 1293 0"
Lumb[399] = "3283 1888 1290 0"
Lumb[400] = "3283 1884 1293 0"
Lumb[401] = "3291 1880 1296 0"
Lumb[402] = "3299 1876 1299 0"
Lumb[403] = "3294 1872 1299 0"
Lumb[404] = "3302 1868 1293 0"
Lumb[405] = "3283 1868 1290 0"
Lumb[406] = "3280 1864 1290 0"
Lumb[407] = "3291 1864 1284 0"
Lumb[408] = "3280 1864 1290 0"
Lumb[409] = "3289 1860 1281 0"
Lumb[410] = "3302 1856 1284 0"
Lumb[411] = "3294 1856 1281 0"
Lumb[412] = "3277 1852 1284 0"
Lumb[413] = "3283 1852 1281 0"
Lumb[414] = "3299 1848 1284 0"
Lumb[415] = "3302 1852 1290 0"
Lumb[416] = "3286 1856 1290 0"
Lumb[417] = "3289 1856 1293 0"
Lumb[418] = "3283 1852 1293 0"
Lumb[419] = "3283 1856 1296 0"
Lumb[420] = "3286 1856 1299 0"
Lumb[421] = "3296 1856 1302 0"
Lumb[422] = "3302 1852 1302 0"
Lumb[423] = "3294 1852 1308 0"
Lumb[424] = "3302 1856 1308 0"
Lumb[425] = "3289 1856 1314 0"
Lumb[426] = "3296 1852 1317 0"
Lumb[427] = "3280 1848 1314 0"
Lumb[428] = "3299 1848 1317 0"
Lumb[429] = "3289 1844 1317 0"
Lumb[430] = "3280 1844 1314 0"
Lumb[431] = "3289 1840 1314 0"
Lumb[432] = "3302 1840 1311 0"
Lumb[433] = "3277 1844 1308 0"
Lumb[434] = "3277 1840 1308 0"
Lumb[435] = "3277 1832 1311 0"
Lumb[436] = "3277 1832 1308 0"
Lumb[437] = "3299 1828 1311 0"
Lumb[438] = "3299 1828 1308 0"
Lumb[439] = "3286 1828 1317 0"
Lumb[440] = "3296 1828 1320 0"
Lumb[441] = "3302 1824 1320 0"
Lumb[442] = "3302 1824 1323 0"
Lumb[443] = "3289 1820 1323 0"
Lumb[444] = "3280 1820 1320 0"
Lumb[445] = "3294 1820 1317 0"
Lumb[446] = "3302 1820 1314 0"
Lumb[447] = "3296 1820 1311 0"
Lumb[448] = "3302 1816 1314 0"
Lumb[449] = "3302 1812 1311 0"
Lumb[450] = "3302 1812 1320 0"

While true
recall()
    for i = 1 to 450
        if UO.Weight > UO.str*4 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()

var rune_mark = "0x40019E25"

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

sub return()

var rune_mark = "0x40019E25"

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

sub recall()

var rune_nachalo = "0x40003A6A"

while true
   UO.DeleteJournal()
   UO.WaittargetObject(rune_nachalo)
   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(38)
   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.UseType('0x0F43')
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()

var rune_yawik = "0x4001B49B"

while true
    UO.DeleteJournal()
   UO.WaittargetObject(rune_yawik)
   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 0x400035E4")
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