я нашол скрипт но он работает токо на половину тоесть он копает во круг себя и кода даходит дело до петевеса он просто вырубаеца или кода он выкопал по кругу все он должен делать 5 шагов но чтото он не чо не делает просто стоит на месте вот сам скрипт
Code:
sub minround()
VAR Kirka = '0x0E86' ; Oei Ee?ee
VAR MaxVes = 700 ; Iaeneiaeuiue aan, iiauiaaiue ?a?ii ieion 10-15 noioiia
VAR TileNum = '1339' ; Oaee iiea iaua?u (iaeaieaa ?ani?ino?aiaiiue oei)
VAR x, y, t, k
VAR MaxTime = 100 ; ecia?yaony a 1/10 nae.
VAR ms1 = "There is nothing here to mine for"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You fail to find any useable ore"
VAR ms5 = "You have no line of sight to that location"
VAR ms6 = "Try mining in rock"
VAR ms7 = "Try mining elsewhere"
Var i, q
repeat
for y=-2 to 2
for x=-2 to 2
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
UO.CancelTarget()
wait(300)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(300)
If UO.InJournal( "Earth elemental" ) Then
UO.WarMode( 1 )
repeat
wait(300)
until UO.InJournal('Body')
UO.WarMode( 0 )
UO.UseObject('lastcorpse')
uo.waittargetobject('lastcorpse')
uo.usetype( 0x13F6 )
wait( 500 )
uo.waittargetobject('lastcorpse')
UO.Exec( 'emptycontainer 500' )
wait(3500)
endif
until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
; Aan i?aauoai!
UO.Print(" Overweight!" )
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
For i=1 to 5
UO.Exec('addstep 3')
wait( 600 )
Next
Until UO.Dead()
endsub
и ещо можно как нибудь дапесать чтоб он накопал метала до перевеса и по руне среколился в дом и положил метал в сундук а потом обратно в шахту и начел копать исправте плис ато я чтото не догоняю в етих скриптах зарание благодарен!!!!!!!!
[Научись использовать теги. Leo]
