Yoko

Code: Select all

_____infogump_______
serial   0x000e6b11
gumpid   0x01c92eb5
X   0
Y   0
11299   packet size
0   reply packet size
Buttons: ________
 page 0
    1 [ 1025] image=0x0004 at 50:415
    2 [ 1026] image=0x00F1 at 465:420
    3 [ 1027] image=0x0004 at 270:415
    4 [ 1027] image=0x1459 at 105:113
    5 [ 1027] image=0x1459 at 205:113
    6 [ 1027] image=0x1459 at 305:113
    7 [ 1027] image=0x1459 at 405:113
    8 [ 1027] image=0x1459 at 505:113
    9 [ 1027] image=0x1459 at 605:113
   10 [ 1027] image=0x1459 at 105:373
   11 [ 1027] image=0x1459 at 205:373
   12 [ 1027] image=0x1459 at 305:373
   13 [ 1027] image=0x1459 at 405:373
 page 2
   14 [ 7127] image=0x00D3 at 65:170
 page 3
   15 [ 2602] image=0x00D3 at 65:170
Checks&Radios: __
Entryes: ________
    1 [  513] 470:400*100:30 [10]
All commands: ____
    1] page 0
    2] nodispose
    3] nodispose
    4] noclose
    5] page 0
    6] resizepic 0 60 2600 650 400
    7] gumppic 20 110 5100 hue=0
    8] gumppic 28 110 5101 hue=0
    9] gumppic 118 110 5101 hue=0
   10] gumppic 208 110 5101 hue=0
   11] gumppic 298 110 5101 hue=0
   12] gumppic 370 110 5101 hue=0
   13] gumppic 460 110 5101 hue=0
   14] gumppic 530 110 5101 hue=0
   15] gumppic 620 110 5102 hue=0
   16] gumppic 20 118 5103 hue=0
   17] gumppic 28 118 5104 hue=0
   18] gumppic 118 118 5104 hue=0
   19] gumppic 208 118 5104 hue=0
   20] gumppic 298 118 5104 hue=0
   21] gumppic 370 118 5104 hue=0
   22] gumppic 460 118 5104 hue=0
   23] gumppic 530 118 5104 hue=0
   24] gumppic 620 118 5105 hue=0
   25] gumppic 20 126 5058 hue=0
   26] gumppic 118 126 5058 hue=0
   27] gumppic 232 126 5058 hue=0
   28] gumppic 350 126 5058 hue=0
   29] gumppic 430 126 5058 hue=0
   30] gumppic 500 126 5058 hue=0
   31] gumppic 20 126 5106 hue=0
   32] gumppic 28 126 5107 hue=0
   33] gumppic 118 126 5107 hue=0
   34] gumppic 208 126 5107 hue=0
   35] gumppic 298 126 5107 hue=0
   36] gumppic 370 126 5107 hue=0
   37] gumppic 460 126 5107 hue=0
   38] gumppic 530 126 5107 hue=0
   39] gumppic 620 126 5108 hue=0
   40] gumppic 28 298 5104 hue=0
   41] gumppic 118 298 5104 hue=0
   42] gumppic 208 298 5104 hue=0
   43] gumppic 298 298 5104 hue=0
   44] gumppic 368 298 5104 hue=0
   45] gumppic 458 298 5104 hue=0
   46] gumppic 530 298 5104 hue=0
   47] gumppic 20 298 5103 hue=0
   48] gumppic 620 298 5105 hue=0
   49] gumppic 20 246 5058 hue=0
   50] gumppic 118 246 5058 hue=0
   51] gumppic 232 246 5058 hue=0
   52] gumppic 350 246 5058 hue=0
   53] gumppic 430 246 5058 hue=0
   54] gumppic 500 246 5058 hue=0
   55] gumppic 20 386 5106 hue=0
   56] gumppic 28 386 5107 hue=0
   57] gumppic 118 386 5107 hue=0
   58] gumppic 208 386 5107 hue=0
   59] gumppic 298 386 5107 hue=0
   60] gumppic 370 386 5107 hue=0
   61] gumppic 460 386 5107 hue=0
   62] gumppic 530 386 5107 hue=0
   63] gumppic 620 386 5108 hue=0
   64] gumppic 20 370 5100 hue=0
   65] gumppic 28 370 5101 hue=0
   66] gumppic 118 370 5101 hue=0
   67] gumppic 208 370 5101 hue=0
   68] gumppic 298 370 5101 hue=0
   69] gumppic 370 370 5101 hue=0
   70] gumppic 460 370 5101 hue=0
   71] gumppic 530 370 5101 hue=0
   72] gumppic 620 370 5102 hue=0
   73] text 70 400 900 0
   74] text 70 420 900 1
   75] text 530 400 900 2
   76] gumppic 465 397 2443 hue=0
   77] textentry 470 400 100 30 0 513 3
   78] button 50 415 3 4 1 0 1025
   79] button 465 420 242 241 1 0 1026
   80] text 110 80 900 4
   81] text 25 111 0 5
   82] text 125 111 0 6
   83] text 225 111 0 7
   84] text 325 111 0 8
   85] text 425 111 0 9
   86] text 525 111 0 10
   87] text 25 371 0 11
   88] text 125 371 0 12
   89] text 225 371 0 13
   90] text 325 371 0 14
   91] text 290 410 900 15
   92] button 270 415 3 4 1 0 1027
   93] button 105 113 5209 5209 0 2
   94] button 205 113 5209 5209 0 3
   95] button 305 113 5209 5209 0 4
   96] button 405 113 5209 5209 0 5
   97] button 505 113 5209 5209 0 6
   98] button 605 113 5209 5209 0 7
   99] button 105 373 5209 5209 0 8
  100] button 205 373 5209 5209 0 11
  101] button 305 373 5209 5209 0 10
  102] button 405 373 5209 5209 0 9
  103] page 2
  104] button 65 170 210 211 1 0 7127
  105] text 25 140 900 16
  106] tilepic 25 170 7127
  107] text 195 140 0 17
  108] tilepic 195 170 7608
  109] text 365 140 0 18
  110] tilepic 365 170 7858
  111] text 525 140 0 19
  112] tilepic 545 170 3711
  113] text 25 195 0 20
  114] text 25 205 0 21
  115] tilepic 25 245 9594
  116] page 3
  117] button 65 170 210 211 1 0 2602
  118] text 25 130 900 22
  119] tilepic 25 160 2602
  120] text 110 130 0 23
  121] tilepic 100 150 2860
  122] text 190 130 0 24
  123] tilepic 190 150 2862
  124] text 355 130 0 25
  125] text 355 140 0 26
  126] tilepic 365 160 2874
  127] text 450 130 0 27
  128] text 450 140 0 28
  129] tilepic 440 160 2879
  130] text 535 130 0 29
  131] text 535 140 0 30
  132] tilepic 505 160 2941
  133] text 290 130 0 31
  134] tilepic 240 160 2940
  135] text 25 195 0 32
  136] tilepic 0 225 2866
  137] text 110 195 0 33
  138] text 110 205 0 34
  139] tilepic 80 220 2895
  140] text 190 245 0 35
  141] text 190 255 0 36
  142] tilepic 195 275 2612
  143] text 280 245 0 37
  144] text 280 255 0 38
  145] tilepic 280 275 2616
  146] text 375 245 0 39
  147] text 375 255 0 40
  148] tilepic 355 275 2717
  149] text 450 245 0 41
  150] text 450 255 0 42
  151] tilepic 450 275 2641
  152] text 535 245 0 43
  153] text 535 255 0 44
  154] tilepic 535 275 2643
  155] text 25 285 0 45
  156] text 25 295 0 46
  157] tilepic 25 310 2903
  158] text 110 290 0 47
  159] tilepic 110 310 2907
  160] page 4
  161] text 25 140 0 48
  162] text 25 150 0 49
  163] tilepic 25 170 2474
  164] text 120 140 0 50
  165] tilepic 110 170 3703
  166] text 175 140 0 51
  167] text 175 150 0 52
  168] tilepic 195 170 3651
  169] text 280 140 0 53
  170] text 280 150 0 54
  171] tilepic 280 170 2473
  172] text 375 140 0 55
  173] tilepic 365 170 3647
  174] text 450 140 0 56
  175] text 450 150 0 57
  176] tilepic 445 170 3644
  177] text 545 140 0 58
  178] text 545 150 0 59
  179] tilepic 535 170 3712
  180] text 25 215 0 60
  181] text 25 225 0 61
  182] tilepic 25 245 3703
  183] text 110 215 0 62
  184] text 130 225 0 63
  185] tilepic 110 245 757
  186] page 5
  187] text 25 140 0 64
  188] tilepic 0 170 3761
  189] text 95 140 0 65
  190] tilepic 100 170 3762
  191] text 205 140 0 66
  192] tilepic 185 170 3763
  193] text 280 140 0 67
  194] tilepic 280 170 3740
  195] text 375 140 0 68
  196] tilepic 365 170 3741
  197] text 450 140 0 69
  198] text 450 150 0 70
  199] tilepic 445 170 3742
  200] text 535 140 0 71
  201] tilepic 530 170 3943
  202] page 6
  203] text 25 140 0 72
  204] tilepic 25 170 2330
  205] text 90 140 0 73
  206] text 90 150 0 74
  207] tilepic 80 170 7774
  208] text 195 140 0 75
  209] tilepic 195 170 4163
  210] text 280 140 0 76
  211] tilepic 280 170 5624
  212] text 375 140 0 77
  213] tilepic 355 170 3520
  214] text 450 140 0 78
  215] text 450 150 0 79
  216] tilepic 445 170 3568
  217] text 545 140 0 80
  218] text 545 150 0 81
  219] tilepic 505 170 5112
  220] text 25 215 0 82
  221] text 25 225 0 83
  222] tilepic 25 245 3713
  223] text 205 215 0 84
  224] tilepic 205 245 3782
  225] text 280 215 0 85
  226] tilepic 280 245 3940
  227] text 355 215 0 86
  228] text 355 225 0 87
  229] tilepic 365 245 7034
  230] text 460 215 0 88
  231] tilepic 450 245 5043
  232] text 535 215 0 89
  233] tilepic 505 245 3721
  234] text 25 290 0 90
  235] text 25 300 0 91
  236] tilepic 20 320 4011
  237] text 115 290 0 92
  238] tilepic 105 320 4011
  239] text 195 290 0 93
  240] text 195 300 0 94
  241] tilepic 165 320 10150
  242] text 280 290 0 95
  243] tilepic 280 320 10158
  244] text 355 290 0 96
  245] text 355 300 0 97
  246] tilepic 365 320 5108
  247] text 440 290 0 98
  248] text 440 300 0 99
  249] tilepic 450 320 9916
  250] text 535 290 0 100
  251] text 535 300 0 101
  252] tilepic 505 320 11557
  253] page 7
  254] text 45 150 0 102
  255] text 45 170 0 103
  256] text 45 190 0 104
  257] text 45 210 0 105
  258] text 45 230 0 106
  259] text 45 250 0 107
  260] text 45 270 0 108
  261] text 45 290 0 109
  262] text 45 310 0 110
  263] text 45 330 0 111
  264] text 45 350 0 112
  265] text 350 150 0 113
  266] text 350 170 0 114
  267] text 350 190 0 115
  268] text 350 210 0 116
  269] text 350 230 0 117
  270] text 350 250 0 118
  271] text 350 270 0 119
  272] text 350 290 0 120
  273] text 350 310 0 121
  274] text 350 330 0 122
  275] text 350 350 0 123
  276] page 8
  277] text 45 150 0 124
  278] text 45 170 0 125
  279] text 45 190 0 126
  280] text 45 210 0 127
  281] text 45 230 0 128
  282] text 45 250 0 129
  283] text 45 270 0 130
  284] text 350 150 0 131
  285] text 350 170 0 132
  286] text 350 190 0 133
  287] text 350 210 0 134
  288] text 350 230 0 135
  289] text 350 250 0 136
  290] text 350 270 0 137
  291] text 45 290 0 138
  292] text 45 310 0 139
  293] text 45 330 0 140
  294] text 350 290 0 141
  295] text 350 310 0 142
  296] text 350 330 0 143
  297] page 9
  298] text 45 175 0 144
  299] text 350 175 0 145
  300] text 45 210 0 146
  301] text 350 210 0 147
  302] text 45 245 0 148
  303] text 350 245 0 149
  304] text 45 280 0 150
  305] text 350 280 0 151
  306] page 10
  307] text 25 140 0 152
  308] tilepic 25 170 2102
  309] text 195 140 0 153
  310] tilepic 175 170 2101
  311] text 355 140 0 154
  312] tilepic 365 170 2105
  313] text 535 140 0 155
  314] tilepic 525 170 2106
  315] text 25 245 0 156
  316] tilepic 25 265 2103
  317] text 195 245 0 157
  318] tilepic 175 265 2104
  319] page 11
  320] text 45 150 0 158
  321] text 45 170 0 159
  322] text 45 190 0 160
  323] text 45 210 0 161
  324] text 45 230 0 162
  325] text 45 250 0 163
  326] text 45 270 0 164
  327] text 45 290 0 165
  328] text 45 310 0 166
  329] text 45 330 0 167
Text: ____________
    0] Aaeaou iineaaiee
    1] ecaioiaeaiiue i?aaiao
    2] Eiee?anoai?
    3] 10
    4] I?AAIAOU ECAIOIAE?AIUA IEIOIEEII
    5] Iaoa?eaeu
    6] Iaaaeu
    7] Noiaoee
    8] Enneonoai
    9] ?aciia
   10] Iino?ieee
   11] Aiia
   12] Aiia ?.2
   13] Ia?aau
   14] Ei?aaee
   15] ?aiiioe?iaaou aauu
   16] Ainea
   17] E?uoea ai?ee
   18] ?aa?a ai?ee
   19] Ioe?uoue eaa
   20] No?aea
   21] aey aaeeenou
   22] Oaao?aoea
   23] Eaaea
   24] E?anei
   25] Iaeaiueee
   26]   noie
   27] Aieuoie
   28]  noie
   29] Oeniaue
   30]  noie
   31] Noie
   32] O?ii
   33] Aiaaoue
   34]  nooe
   35] Aoaiaue
   36]  eiiia
   37] Aeoiaaue
   38]   eiiia
   39] Eie?iay
   40]  iieea
   41] Aeoiaaue
   42]   oeao
   43] Aoaiaue
   44]  oeao
   45] Oeniaue
   46]  nooe
   47] Nooe
   48] Iaeaiueee
   49]  ei?iaie
   50] Ai?ea
   51] Aa?aayiiue
   52]   noiaoe
   53] Iaeaiueee
   54]    yuee
   55] ?uee
   56] Aieuoie
   57]  yuee
   58] E?aieee
   59]  ei?iaie
   60] Ai?ea
   61] ni euaii
   62] Aeoeie?aneee
   63] oeao
   64] A?oa
   65] Iaeay a?oa
   66] E?oiy
   67] Aa?aaai
   68] Aoaai
   69] Oe?aoaiue
   70]   aoaai
   71] Iieuaa?o
   72] Oeae
   73]   Ainea
   74] iauyaeaiee
   75] Neaeea
   76] Ienea
   77] Oai?ea
   78] ?a?iue
   79]  iinio
   80] Ei?yaue
   81]  iinio
   82] Ianoooee
   83]   iinio (i)
   84] Iaiaeai
   85] Oaeae
   86] Aa?aayiiue
   87]     ueo
   88] Aoaeiea
   89] Iinio
   90] E?aneeuiy
   91] aey iaaaee
   92] E?aneeuiy
   93] Oeiiaaiay
   94] aoaeia
   95] Ioi?aee
   96] Ianoooee
   97] iinio (a)
   98] ?aoaa?oiie
   99] iinio
  100] Aeeee
  101] iinio
  102] O?aie?iai?iue iaiaeai
  103] Ai?ianeie iaiaeai
  104] I?yeea
  105] Oeaoeee noaiie
  106] Aieuoay e?iaaou
  107] Eaiaiiay iaioaa?aiia
  108] Iaioaa?aiia
  109] Iaeeoiaaiay ia?u
  110] Eana
  111] Eaiei
  112] A?oaue eaiei
  113] Eieiaao
  114] Iaeuieoa
  115] Iaeeoiaaiue eaiei
  116] Iaeiaaeuiy
  117] Iaeaiueay ieaaeeuiy
  118] Aieuoay ieaaeeuiy
  119] E?iaaou
  120] Naeoie aaeeenou
  121] Naeoie eaoaioeuou
  122] A?oaay ia?u
  123] Iaioaa?aiia-oaeaii?o
  124] Aiiee ec ioooeaoo?aiiai eaiiy
  125] Eaiaiiue aiiee
  126] Aa?aayiiue aiiee
  127] Ioooeaoo?aiiue aiiee
  128] Aa?aayiiue aiiee n nieiiie
  129] Aiiee ec ee?ie?a
  130] Aii ec ee?ie?a
  131] Aaooyoa?iue aii ec aa?aaa
  132] Aaooyoa?iue aii ec eaiiy
  133] Aaoiy
  134] Caiie
  135] E?aiinou
  136] Aeeea
  137] Iaeaiueay aaoiy
  138] Iaeaiueay i?aii?iay aaoiy
  139] Iaeaiueay eaiaiiay aaoiy
  140] Aieuoie i?aii?iue aii
  141] Noi?i?ea
  142] Aeeea ec ian?aieea
  143] Aaooyoa?iay aeeea
  144] Iaeay eiaea
  145] Iaeue a?aeea?
  146] Eiaea
  147] A?aeea?
  148] Aieuoay eiaea
  149] Aieuoie a?aeea?
  150] Oe?iea
  151] Aaea?a
  152] Ia?aaa
  153] Oaie
  154] Eaeeoea
  155] Eaeeoea
  156] Ia?aaa
  157] Noieaee
  158] ?ai?i
  159] Aieuoie aii
  160] Aieuoay aeeea
  161] Aai?ao
  162] Oaeiue aai?ao
  163] Noi?i?aaay aaoiy
  164] Iaeaiueia ?ai?i
  165] Oa?ia
  166] Auoea
  167] Oaooa

Code: Select all

Sub Carp()

IF UO.Weight > MaxVes Then
UO.FindType(log,'-1','backpack')
while UO.FindCount('finditem') > 0
UO.FindType(log,'-1','backpack')
UO.DeleteJournal() 
;UO.CancelMenu()
;UO.WaitMenu("Iaoa?eaeu", "Materials", "Materials", "board");
UO.UseType(carptools)
wait(1500)
UO.LClick(112,120);materiala
wait(800)
UO.LClick(74,177);doska
uo.waittargettype(log)
wait(8000)
UO.LClick(495,430);otmena
wend
EndIF
Endsub

Code: Select all

var rb = '0x77936C0C'
var GlSunduk = '0x7868587F'; Сундук откуда все берем и все проверяем
var carptools = '0x1030'
var nognizi = '0x0F9E'
var bandage = '0x0E21'
var scroll = '0x1F4C'
var topor = '0x0F43' 
var gh = '0x0F0C'
var havka = '0x097B'
var agiliti = ''
var log = '0x1BDD'
var ms1 = "уже все вырублено"
var ms2 = "Lumber complit"
var ms3 = "Reconnector complit"
var dagger = '0x0F51';velikolepniy kinjal
var MaxVes = 215; max ves s kotorim hodit 4ar, ina4e delaem doski
var mr = '0x0F86'
var nsh = '0x0F88'
var board = '0x1BD7'
var korobka = '0x78685A14' ;korobka dlya dosok
var korobka_topor = '0x786858B2';korobka s toporami i rubankami
var XOJIODuJIbHuK = '0x78735CC2'
var maxtime = 400
var t, i , rp
var x,y,xp,yp

Sub Lumberjack() ;dlya zapuska scripta zapustit' etu proceduru
var i = 0
UO.UseObject(korobka_topor)
wait(1000)
UO.UseObject(GlSunduk)
wait(1000)
UO.UseObject(XOJIODuJIbHuK)
wait(1000)
uo.useobject('backpack')
wait(1000)
Uo.FindType(topor, '-1', 'backpack')
while uo.findcount('finditem') > 0
Uo.FindType(topor, '-1', 'backpack')
UO.MoveItem('finditem','0', korobka_topor)
wait(1200)
wend
Uo.FindType(carptools, '-1', 'backpack')
while uo.findcount('finditem') > 0
Uo.FindType(carptools, '-1', 'backpack')
UO.MoveItem('finditem','0', korobka_topor)
wait(1200)
wend

Uo.FindType(scroll, '-1', 'backpack')
while uo.findcount('finditem') > 0
Uo.FindType(scroll, '-1', 'backpack')
UO.MoveItem('finditem','-1', rb)
wait(1200)
wend


;Uo.FindType(bandage ,'-1',GlSunduk)
;UO.Grab('20','finditem')
;wait(500)
;UO.Print("Berem 20-t bintov")
UO.Print("Berem 3 toporov")
i = 0
repeat
Uo.FindType(topor ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1100)
i =(i + 1)
until i == 4
wait(1100)
Uo.FindType(scroll ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1100)
Uo.FindType(scroll ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1100)
UO.Print("Berem 2 scrolls")
Uo.FindType(carptools ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1100)
Uo.FindType(carptools ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1100)
UO.Print("Berem 2 carptools")

Uo.FindType(havka ,'-1',XOJIODuJIbHuK)
wait(1100)
uo.usetype(havka ,'-1','XOJIODuJIbHuK')


while true

vihod()
recall(212,112);Rub1
rub1()
GoHome()
vihod()
recall(212,129);Rub2
rub2()
GoHome()
vihod()
recall(212,143);Rub3
rub3()
GoHome()
vihod()
recall(213,158);Rub4
rub4()
GoHome()

wend
EndSub



sub recall(xp,yp)
x = uo.getx()
y = uo.gety()
repeat
UO.UseObject(rb)
wait(1500)
uo.lclick(xp,yp)
wait(12000)
until uo.getx() <> x and uo.gety() <> y

endsub

sub w()
var z,d,f,t
Uo.FindType(board, '-1', 'backpack')
z = uo.getserial('finditem')
Uo.FindType(board, '-1', 'ground')
if uo.findcount() >0 then  
d = uo.getx('finditem')
f = uo.gety('finditem')
t = uo.getz('finditem')
UO.MoveItem(z,'all',uo.getserial('finditem'),d,f,40)
wait(500)
uo.print(str(uo.getx(z)))
endif
endsub

Sub GoHome()
var z,d,f,t

var board1
recall(212,97);paseka
UO.UseObject(korobka_topor)
wait(1000)
UO.UseObject(GlSunduk)
wait(300)
carp(1)
UO.FindType(log,'-1','backpack')
while UO.FindCount('finditem') > 0
UO.FindType(log,'-1','backpack')
uo.moveitem('finditem',-1,korobka)
wait(1000)
wend
Uo.FindType(nsh, '-1', 'backpack')
UO.MoveItem('finditem','0',glsunduk)
wait(1000)
Uo.FindType(havka, '-1', 'backpack')
UO.MoveItem('finditem','0',glsunduk)
wait(1000)
Uo.FindType(mr, '-1', 'backpack')
UO.MoveItem('finditem','0',glsunduk)
wait(1000)





Uo.FindType(board, '-1', 'backpack')
UO.MoveItem('finditem','0', korobka)
wait(1000)





z = uo.getserial('finditem')
Uo.FindType(board, '-1', 'ground')
if uo.findcount() >0 then  
d = uo.getx('finditem')
f = uo.gety('finditem')
t = uo.getz('finditem')
UO.MoveItem(z,'all',uo.getserial('finditem'),d,f,40)
wait(1000)
uo.print(str(uo.getx(z)))
endif
Uo.FindType(topor, '-1', 'backpack')
while uo.findcount('finditem') > 0
Uo.FindType(topor, '-1', 'backpack')
UO.MoveItem('finditem','0', korobka_topor)
wait(1000)
wend
Uo.FindType(carptools, '-1', 'backpack')
while uo.findcount('finditem') > 0
Uo.FindType(carptools, '-1', 'backpack')
UO.MoveItem('finditem','0', korobka_topor)
wait(1000)
wend
i = 0
repeat
Uo.FindType(topor ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1000)
i = (i + 1)
until i == 4
i = 0
repeat
Uo.FindType(carptools ,'-1',korobka_topor)
UO.Grab('1','finditem')
wait(1000)
i = (i + 1)
Uo.FindType(carptools ,'-1',korobka_topor)
until i == 2 or uo.findcount() == 0

endsub

Sub Vihod()
var t = uo.timer()
uo.waittargetobject('0x758AD64C')
uo.findtype(nognizi,-1,korobka_topor)
uo.useobject(uo.getserial('finditem'))
repeat
wait(1000)
until uo.injournal("могли") or uo.timer() >= t + 150
uo.usetype(havka)
uo.lclick(320,285)
EndSub

Sub rub1()
var xx,yy, tile
UO.Print("Faza nomber One!")
UO.DeleteJournal()
Rubka(3299, 1688, 2871)
Rubka(3280, 1688, 2868)
Rubka(3280, 1688, 2865)
Rubka(3283, 1688, 2862)
Rubka(3290, 1688, 2856)
Rubka(3302, 1692, 2856)
Rubka(3299, 1692, 2859)
Rubka(3286, 1692, 2862)
Rubka(3288, 1692, 2865)
Rubka(3280, 1692, 2868)
Rubka(3280, 1692, 2871)
Rubka(3299, 1696, 2871)
Rubka(3277, 1696, 2865)
Rubka(3283, 1696, 2862)
Rubka(3302, 1696, 2859)
Rubka(3277, 1696, 2856)
Rubka(3277, 1700, 2856)
Rubka(3296, 1700, 2862)
Rubka(3283, 1700, 2868)
Rubka(3286, 1704, 2865)
Rubka(3286, 1704, 2862)
Rubka(3277, 1704, 2859)
Rubka(3302, 1704, 2853)
Rubka(3290, 1708, 2850)
Rubka(3299, 1708, 2847)
endsub


Sub rub2()
var xx,yy, tile
UO.Print("Faza nomber Two!")
UO.DeleteJournal()
Rubka(3299, 1712, 2862)
Rubka(3283, 1712, 2859)
Rubka(3296, 1712, 2856)
Rubka(3280, 1712, 2853)
Rubka(3288, 1712, 2850)
Rubka(3280, 1716, 2853)
Rubka(3283, 1716, 2859)
Rubka(3286, 1716, 2862)
Rubka(3293, 1724, 2859)
Rubka(3277, 1724, 2856)
Rubka(3280, 1728, 2859)
Rubka(3293, 1728, 2856)
Rubka(3296, 1732, 2856)
Rubka(3277, 1732, 2853)
Rubka(3277, 1732, 2850)
Rubka(3277, 1728, 2850)
Rubka(3283, 1732, 2847)
Rubka(3290, 1732, 2844)
Rubka(3299, 1736, 2847)
Rubka(3296, 1740, 2850)
Rubka(3280, 1740, 2847)
Rubka(3277, 1740, 2844)
Rubka(3293, 1740, 2841)
Rubka(3293, 1740, 2838)
Rubka(3290, 1740, 2835)
Rubka(3299, 1740, 2832)
EndSub

sub rub3()
var xx,yy, tile
UO.Print("Faza nomber Thre!")
UO.DeleteJournal()
Rubka(3230, 1749, 2846)
Rubka(3293, 1748, 2844)
Rubka(3290, 1748, 2838)
Rubka(3280, 1748, 2832)
Rubka(3283, 1752, 2835)
Rubka(3299, 1752, 2838)
Rubka(3277, 1752, 2841)
Rubka(3277, 1752, 2844)
Rubka(3293, 1760, 2841)
Rubka(3296, 1760, 2838)
Rubka(3288, 1756, 2838)
Rubka(3288, 1756, 2835)
Rubka(3296, 1760, 2835)
Rubka(3283, 1760, 2832)
Rubka(3277, 1764, 2835)
Rubka(3293, 1764, 2832)
Rubka(3283, 1764, 2829)
Rubka(3290, 1768, 2829)
Rubka(3280, 1768, 2826)
Rubka(3296, 1772, 2823)
Rubka(3296, 1768, 2820)
Rubka(3277, 1764, 2820)
Rubka(3277, 1760, 2820)
Rubka(3302, 1760, 2817)
Rubka(3293, 1764, 2817)
Rubka(3293, 1768, 2817)
Rubka(3293, 1772, 2817)
Rubka(3296, 1776, 2817)
Rubka(3296, 1780, 2817)
Rubka(3290, 1784, 2817)
Rubka(3288, 1788, 2817)
endsub

sub rub4()
var xx,yy, tile
UO.Print("Faza nomber Thre!")
UO.DeleteJournal()
Rubka(3286, 1644, 2853)
Rubka(3283, 1644, 2856)
Rubka(3293, 1644, 2859)
Rubka(3299, 1644, 2862)
Rubka(3288, 1644, 2865)
Rubka(3286, 1644, 2871)
Rubka(3302, 1644, 2874)
Rubka(3283, 1644, 2877)
Rubka(3288, 1648, 2880)
Rubka(3302, 1648, 2874)
Rubka(3296, 1648, 2871)
Rubka(3280, 1648, 2868)
Rubka(3302, 1648, 2865)
Rubka(3290, 1652, 2868)
Rubka(3288, 1652, 2871)
Rubka(3293, 1652, 2877)
Rubka(3286, 1652, 2880)
Rubka(3296, 1656, 2880)
Rubka(3299, 1656, 2877)
Rubka(3280, 1660, 2880)
Rubka(3302, 1660, 2877)
Rubka(3277, 1664, 2880)
Rubka(3302, 1664, 2877)
Rubka(3288, 1664, 2874)
Rubka(3302, 1668, 2874)
Rubka(3280, 1672, 2877)
Rubka(3302, 1672, 2874)
Rubka(3299, 1672, 2871)
Rubka(3283, 1672, 2868)
Rubka(3283, 1672, 2865)
Rubka(3302, 1672, 2862)
Rubka(3299, 1672, 2859)
Rubka(3280, 1672, 2856)
Rubka(3277, 1672, 2853)
Rubka(3293, 1672, 2850)
endsub

Sub Rubka(tile, xx, yy)

UO.DeleteJournal()
CheckLag()
if uo.gethp() == uo.getmaxhp() then
Walker(xx,yy)
wait(777)
t = uo.timer()
UO.WaitTargetTile(Str(tile), Str(xx), Str(yy), '0')
UO.UseType(topor)
repeat
wait(1000)
until UO.InJournal(ms2) OR UO.InJournal(ms1) OR (t + maxtime) < UO.Timer() OR UO.InJournal(ms3) or uo.gethp() < uo.getmaxhp()
havka()
carp(0)
UO.DeleteJournal()
else
endif
EndSub




Sub Carp(x)
dim ColorLog[7]
ColorLog[1]= '0x0000'
ColorLog[2]= '0x01BF';good
ColorLog[3]= '0x0096'
ColorLog[4]= '0x0164'
ColorLog[5]= '0x01C3'
ColorLog[6]= '0x0030'
ColorLog[7]= '0x0028'


var colorchoice, k
if x == 0 then
IF UO.Weight > MaxVes Then

for k=1 to 7
UO.FindType(log,ColorLog[k],'backpack')
if uo.getquantity(uo.getserial('finditem')) > 0 then
uo.waittargetobject(uo.getserial('finditem'))
UO.DeleteJournal() 
UO.UseType(carptools)
wait(1500)
UO.LClick(112,120);materials
wait(1000)
UO.LClick(73,178);doski
wait(15000)
UO.LClick(492,431);otmena
endif
next
EndIF
else

for k=1 to 7
UO.FindType(log,ColorLog[k],'backpack')
if uo.getquantity(uo.getserial('finditem')) > 0 then
uo.waittargetobject(uo.getserial('finditem'))
UO.DeleteJournal() 
UO.UseType(carptools)
wait(1500)
UO.LClick(112,120);materials
wait(1000)
UO.LClick(73,178);doski
wait(15000)
UO.LClick(492,431);otmena
endif
next
endif
Endsub

Sub shaft()
UO.FindType(log,'-1','backpack')
while UO.FindCount() > 0
UO.DeleteJournal() 
UO.CancelMenu()
UO.WaitTargetType(log)
UO.UseType(dagger)
UO.WaitMenu("Arrows", "Make shaft", "Arrows", "Make shaft");

wait(2000)
wend
endsub










Sub hill()
Var shit = '0x1B76'
Var kirka = '0x0F51 '
         Uo.Equipt('Rhand', kirka)
         Uo.Equipt('Lhand', shit)
         

   repeat
      If UO.GetHP() < UO.GetMaxHp()-40 Then
         uo.waittargetobject('self')
         Uo.UseType('0x0E21')
         Repeat
         ;Uo.Press(120)
         wait(3500)
         Uo.Equipt('Rhand', kirka)
         Uo.Equipt('Lhand', shit)
         wait(4000)
         Until UO.GetHP() >= UO.GetMaxHp() - 10
         
      EndIf
      wait(1000)
   Until Uo.Dead()
EndSub
         
      
;var Prec=1 # Как близко следует подойти к цели (Precision) 
;var MaxTraceDistance=5 # Максимальная длина обхода. Желательно ставить с расчета возможных препятсвий. Если ставить очень большие числа, кодилка может пойти в обход пол мира чтобы дойти к соседнему дереву. 
;var Speed=2 # Длина шага. Сколько шагов делать за раз. Выше 3 ставить смысла нет. Тоесть тупое умножение шагов. Для ламбера идеально 3, для майнинга - 1. 
;var StepTimeOut=400 # Если уперлись в неопознанный обьект, сколько мсек ждать сдвига с места. Если по простому - таймаут шага. Если поставить сильно маленькие, ходилка начнет трассировать пустые места. 
;UO.SetGlobal("Logging","1")  # - показывать отладочные сообщения. 
;UO.SetGlobal("BlindWalk","0") # - не использовать АСМ, а использовать ходьбу наощупь. 
;В функции IsPass, содержиться список проходимых тайлов.
;Walker(X,Y) - идем к цели с координатами X,Y. Ничего не возвращает. 
;Tracer(StartDir,Direction) - трассировка 1 шага. Возвращает направление по которому получилось сдвинуться с места. StartDir - направление последнего движения, Direction (-1 или +1) направление обхода. -1 - по часовой стрелке, +1 против часовой стрелки. Направления скрипт использует личного формата: 
;1 - влево вниз 
;2 - вниз 
;3 - вправо вниз 
;4 - вправо 
;5 - вправо вверх 
;6 - вверх 
;7 - влево вверх 
;8 - влево 
;Tracer(StartDir,Direction) - идеально подходит для рыбалки вдоль берега так как она будет обходить берег бесконечно (1 запуск функции = 1 шаг обхода).
##################################################### 
# WW  W  WW   AA    LL     Kk KK  EE  EE  RRR       # 
# WW  W  WW  AA A   LL     Kk K   EEE     R  R      # 
# WW  W  WW  AA A   LL     KKK    EEEEE   R R       # 
# WW WW  WW  AAAA   LL     KKK    EEE     RRR       # 
#  WWW WWW  AA   A   LLLL  KK Kk  EE  EE  R  RR     # 
##################################################### 
              
var Prec=1 
var MaxTraceDistance=9 
var Speed=1 
var StepTimeOut=1000

Sub Walker(GoX,GoY) 
  UO.SetGlobal("Logging","0") 
  UO.SetGlobal("BlindWalk","0") 
  var LastDir 
  UO.SetGlobal("GlobalGoX",str(GoX)) 
  UO.SetGlobal("GlobalGoY",str(GoY)) 
  while not IsEnd(GoX,GoY) 
    LogInfo('Just walking') 
    LastDir=GoUntilHit(GoX,GoY) 
    if not IsEnd(GoX,GoY) then 
      LogInfo('Tracing') 
      FullAroundTrace(LastDir,GoX,GoY) 
    end if 
  wend 
end sub 

Sub FullAroundTrace(StartDir,GoX,GoY) 
  var LineX=UO.GetX() 
  var LineY=UO.GetY() 
  var CurDir=StartDir 
  var Direction=CountDirection(GoX,GoY,CurDir) 
  var StartX,StartY 
  var MovesDone=0 
  repeat 
    StartX=UO.GetX() 
    StartY=UO.GetY() 
    CurDir=Tracer(CurDir,Direction) 
    if (CurDir==GetDir(GoX,GoY)) then 
      return 
    endif 
    if MovesDone>0 and PrevMoveCross(GetDirToDir(UO.GetDir()),LineX,LineY,GoX,GoY,StartX,StartY) then 
      return 
    end if 
    MovesDone=MovesDone+1 
    CurDir=AddToDir(CurDir,-Direction) 
  until MovesDone>MaxTraceDistance 
end sub 

Sub CountDirection(GoX,GoY,StartDir) 
  var GoDir=GetDir(GoX,GoY) 
  var MyX=UO.GetX() 
  var MyY=UO.GetY() 
  if GoDir<StartDir then 
    return -1 
  end if 
  if GoDir>StartDir then 
    return 1 
  end if 
  if Abs(MyX-GoX)>Abs(MyY-GoY) then 
    if (GoDir==3 and GoY>MyY) OR (GoDir==7 and GoY<MyY) then 
      return -1 
    else 
      return 1 
    end if 
  else 
    if (GoDir==1 and GoX<MyX) or (GoDir==5 and GoX>MyX) then 
      return -1 
    else 
      return 1 
    end if 
  end if 
end sub 

Sub PrevMoveCross(Dir,x1,y1,x2,y2,StartX,StartY) 
  var x3,y3,x4,y4 
  x3=StartX 
  y3=StartY 
  x4=StartX+(XFromDir(Dir)-StartX)*Speed 
  y4=StartY+(YFromDir(Dir)-StartY)*Speed 
  return LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4) 
end sub 

Sub LinesCrossing(x1,y1,x2,y2,x3,y3,x4,y4) 
  if x1==x3 and y1==y3 then 
    return false 
  end if 
  var z1=(x3-x1)*(y2-y1)-(y3-y1)*(x2-x1) 
  var z2=(x4-x1)*(y2-y1)-(y4-y1)*(x2-x1) 
  if z1*z2>0 then 
    return false 
  else 
    LogInfo('Vector info:') 
    LogInfo('x1= '+str(x1)) 
    LogInfo('y1= '+str(y1)) 
    LogInfo('x2= '+str(x2)) 
    LogInfo('y2= '+str(y2)) 
    LogInfo('x3= '+str(x3)) 
    LogInfo('y3= '+str(y3)) 
    LogInfo('x4= '+str(x4)) 
    LogInfo('y4= '+str(y4)) 
    return true 
  end if 
end sub 

Sub IsDiap(X,X0,X1) 
  if X<=X0+Prec and X>=X1-Prec OR X>=X0-Prec and X<=X1+Prec then 
    return true 
  end if 
  return false 
end sub 

Sub GoUntilHit(GoX,GoY) 
  var LastDir 
  LastDir=GetDir(GoX,GoY) 
  var CouldMove 
  repeat 
    LastDir=GetDir(GoX,GoY) 
    if LastDir<>0 and not IsEnd(GoX,GoY) then 
      CouldMove=TryDir(LastDir) 
    end if 
  until LastDir==0 or IsEnd(GoX,GoY) or not CouldMove 
  return LastDir 
end sub 

Sub IsEnd(GoX,GoY) 
  if Abs(UO.GetX()-GoX)<=Prec and Abs(UO.GetY()-GoY)<=Prec then 
    LogInfo('END FOUND') 
    return true 
  else 
    return false 
  end if 
end sub 

Sub GetDir(GoX,GoY) 
  var MyX=UO.GetX() 
  var MyY=UO.GetY() 
  var DiffX=Abs(UO.GetX()-GoX) 
  var DiffY=Abs(UO.GetY()-GoY) 
  var GoDir=0 
  if (DiffX/(DiffY+0.1))>=2 then 
    if (MyX>GoX) then 
      GoDir=7 
    else 
      GoDir=3 
    end if 
  else 

  if (DiffY/(DiffX+0.1))>=2 then 
    if (MyY>GoY) then 
      GoDir=5 
    else 
      GoDir=1 
    end if 
  else 
  
  if (MyX>GoX) and (MyY>GoY) then 
    GoDir=6 
  else 
  if (MyX>GoX) and (MyY<GoY) then 
    GoDir=8 
  else 
  if (MyX<GoX) and (MyY>GoY) then 
    GoDir=4 
  else 
  if (MyX<GoX) and (MyY<GoY) then 
    GoDir=2 
  end if 
  end if 
  end if 
  end if 
  end if 
  end if 
  return GoDir 
end sub 

Sub Tracer(StartDir,Direction) 
  var CurDir=StartDir 
  var Result 
  repeat 
    Result=TryDir(CurDir) 
    if not Result then 
      CurDir=AddToDir(CurDir,Direction) 
    end if 
  until Result 
  return Result 
end sub 

Sub AddToDir(Dir,Cnt) 
  var NewDir=Dir 
  NewDir=NewDir+Cnt 
  while NewDir>8 
    NewDir=NewDir-8 
  wend 
  while NewDir<1 
    NewDir=NewDir+8 
  wend 
  return NewDir 
end sub 

Sub TryDir(Dir) 
  var BegX=UO.GetX() # Ia?aeuiia O 
  var BegY=UO.GetY() # Ia?aeuiia Y 
  var Counter=0 
  var GoX=BegX 
  var GoY=BegY 
  GoX=XFromDir(Dir) 
  GoY=YFromDir(Dir) 
  if not IsPass(UO.asmMapGetTile(GoX,GoY,0)) then 
    LogInfo(str(UO.asmMapGetTile(GoX,GoY,0))+' is not passable') 
  return false 
  end if 
  return TurnAndGoDir(Dir) 
end sub 

Sub XFromDir(Dir) 
  if Dir==2 OR Dir==3 Or Dir==4 then 
    return (UO.GetX()+1) 
  end if 
  if Dir==6 OR Dir==7 Or Dir==8 then 
    return (UO.GetX()-1) 
  end if 
  return (UO.GetX()) 
end sub 

Sub YFromDir(Dir) 
  if Dir==8 OR Dir==1 Or Dir==2 then 
    return (UO.GetY()+1) 
  end if 
  if Dir==4 OR Dir==5 Or Dir==6 then 
    return (UO.GetY()-1) 
  end if 
  return (UO.GetY()) 
end sub 

Sub TurnAndGoDir(Dir) 
  var StartDir=GetDirToDir(UO.GetDir()) 
  var StartX=UO.GetX() 
  var StartY=UO.GetY() 
  var EndDir 
  var Counter=0 
  GoDir(Dir) 
  repeat 
    EndDir=GetDirToDir(UO.GetDir()) 
    wait(100) 
    Counter=Counter+1 
  until StartDir<>EndDir or StartY<>UO.GetY() or StartX<>UO.GetX() or Counter>=8 
  if Counter>=8 then 
  return 0 
  end if 
  if StartY<>UO.GetY() or StartX<>UO.GetX() then 
  return Dir 
  else 
  GoDir(Dir) 
    repeat 
      wait(100) 
      Counter=Counter+1 
    until StartY<>UO.GetY() or StartX<>UO.GetX() or Counter>=StepTimeOut/100 
    if Counter>=StepTimeOut/100 then 
      LogInfo('Step timeout reached') 
      return 0 
    else 
      return Dir 
    end if 
  end if 
end sub 

sub Test2() 
Tracer(7,1) 
end sub 

Sub GetDirToDir(GotDir) 
var ChangedDir=-GotDir 
ChangedDir=AddToDir(ChangedDir,5) 
return ChangedDir 
end sub 

Sub DirToInj(Dir) 
var OutDir 
if Dir==1 then 
OutDir=1 
end if 
if Dir==2 then 
OutDir=2 
end if 
if Dir==3 then 
OutDir=3 
end if 
if Dir==4 then 
OutDir=6 
end if 
if Dir==5 then 
OutDir=9 
end if 
if Dir==6 then 
OutDir=8 
end if 
if Dir==7 then 
OutDir=7 
end if 
if Dir==8 then 
OutDir=4 
end if 
return OutDir 
end sub 

Sub GoDir(Dir) 
dim Dirs[9] 
Dirs[1]=35 
Dirs[2]=40 
Dirs[3]=34 
Dirs[4]=39 
Dirs[5]=33 
Dirs[6]=38 
Dirs[7]=36 
Dirs[8]=37 

var DistanceX=Abs(UO.GetX()-val(UO.GetGlobal("GlobalGoX"))) 
var DistanceY=Abs(UO.GetY()-val(UO.GetGlobal("GlobalGoY"))) 
var GoDistance 
if (DistanceX-Prec)<Speed then 
GoDistance=DistanceX-Prec 
else 
if (DistanceY-Prec)<Speed then 
GoDistance=DistanceY-Prec 
else 
GoDistance=Speed 
endif 
endif 

UO.Press(Dirs[Dir],GoDistance) 
end sub 

Sub IsPass(ID) 
  if UO.GetGlobal("BlindWalk") then 
    return true 
  endif 
  dim Types[60] 
  Types[0]=4 
  Types[1]=3 
  Types[2]=5 
  Types[3]=6 
  Types[4]=203 
  Types[5]=197 
  Types[6]=212 
  Types[7]=242 
  Types[8]=241 
  Types[9]=196 
  Types[10]=198 
  Types[11]=199 
  Types[12]=1713 
  Types[13]=1724 
  Types[14]=243 
  Types[15]=240 
  Types[16]=219 
  Types[17]=209 
  Types[18]=214 
  Types[19]=57 
  Types[20]=24 
  Types[21]=52 
  Types[22]=22 
  Types[23]=56 
  Types[24]=23 
  Types[25]=25 
  Types[26]=58 
  Types[27]=53 
  Types[28]=61 
  Types[29]=59 
  Types[30]=580 
  Types[31]=585 
  Types[32]=581 
  Types[33]=582 
  Types[34]=583 
  Types[35]=584 
  Types[36]=596 
  Types[37]=152 
  Types[38]=81 
  Types[39]=93 
  Types[40]=95 
  Types[41]=83 
  Types[42]=142 
  Types[43]=503 
  Types[44]=141 
  Types[45]=143 
  Types[46]=500 
  Types[47]=1088 
  Types[48]=1089 
  Types[49]=1086 
  Types[50]=155 
  Types[51]=501 
  Types[52]=98 
  Types[53]=90 
  Types[54]=502 
  Types[55]=1087 
  Types[56]=598 
  Types[57]=582 
  Types[58]=200 
  Types[59]=216 
  
  for var i=0 to 59 
    if Types[i]==ID then 
      return true 
    end if 
  next 
  return false 
end sub 

Sub LogInfo(Line) 
  if not UO.GetGlobal("Logging")=="0" then 
    UO.TextOpen() 
    UO.TextPrint(str(UO.GetX())+":"+str(UO.GetY())+" - "+str(Line)); 
  end if 
end sub 

Sub Abs(X) 
  if X>0 then 
    return X 
  else 
    return (-X) 
  end if 
end sub 


sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
;UO.Exec('terminate all') 
;UO.Exec('exec fishing') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
;UO.Say(ms3)
carp()
UO.Exec('terminate lumberjack')
gohome()
wait(2000)
rp = 1
UO.Exec('exec lumberjack')
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 

end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub

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

sub havka()

   If UO.InJournal("Вам не мешало") or UO.InJournal("быка")or UO.InJournal("голод") then
   repeat
   uo.findtype(havka,-1,'backpack')
   UO.UseType(havka)   
   wait(400)
   until uo.injournal("сытым") or uo.injournal("елись") or uo.findcount() == 0
   else
   endIf
uo.deletejournal()
wait(50)
endsub

sub scroll()
uo.exec('set finddistance 1')
var scrol = '0x0E34'
var i,x,y,z
while true
if uo.weight >=1990 then
   uo.findtype(scrol,-1,'ground')
   if uo.findcount() > 0 then
   i = uo.getserial('finditem')
   x = uo.getx(i)
   y = uo.gety(i)
   z = uo.getz(i)
   uo.findtype(scrol,-1,'backpack')
   uo.moveitem(uo.getserial('finditem'),-1,i,x,y,z)
   wait(5000)
   else
   uo.findtype(scrol,-1,'backpack')
   uo.drophere('finditem')   
   endif
else
wait(5000)
endif
wend
endsub