В рунбуке 1 руну нажал полетел копать накопал 450 веса и домой после отгруски обратно есть скрипт но обратно не летит сука!
sub minround()
VAR Kirka = '0x0E85' ;Òèï òîãî ÷åì áóäåì êîïàòü
VAR MaxVes = 500 ; ìàêñèìàëüíàé âåñ ìèíóñ 10-15 ñòîóîâ
VAR TileNum = '-1' ; Íîìåð òàéëà
VAR x, y, t, k, i
VAR MaxTime = 100
VAR ms1 = "There is no ore"
VAR ms2 = "You can't use"
VAR ms3 = "You put "
VAR ms4 = "You loosen some rocks"
VAR ms5 = "location"
VAR ms6 = "Try mining"
VAR ms7 = "You can't see that"
VAR ms8 = "There is nothing"
VAR ms9 = "You cannot mine so"
VAR h=3
VAR m,Exit
VAR UnloadCont='0x40006982' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû
DIM Ore[5]
Ore[0]=0x19B9 ; 4 and more ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
uo.print('!!Âûáåðè Ðóíáóê!! ')
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
uo.exec("recall Runebook 2")
wait(7500)
na4alo:
uo.press(114)
wait(4000)
for i=1 to 6
for y=-1 to 1
for x=-1 to 1
k = 0
repeat
UO.DeleteJournal()
t = UO.Timer()
k = k + 1
wait(100)
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
repeat
wait(100)
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 UO.InJournal(ms8)OR UO.InJournal(ms9) OR ((t +MaxTime) < UO.Timer())
If UO.Weight > MaxVes Then
UO.Print(" Overweight!" )
goto recal
return
Endif
until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) )
next
next
uo.press(40)
wait(700)
uo.press(40)
wait(700)
next
goto rec
recal:
uo.exec("recall Runebook 5") ; äîìîé ( â ðóíáóêå ñëîò 1 )
wait(7500)
UO.Say('Bank')
wait(2000)
if uo.waiting() then
uo.canceltarget()
endif
UO.SetReceivingContainer(UnloadCont)
wait(500)
For m=0 to 3
Exit=0
repeat
UO.FindType(Ore[m])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
wait(500)
UO.Useobject("stoun")
wait(500)
UO.Recall(0x40016690, h)
h = h+1
if h>16 then
h = 2
endif
wait(7500)
goto na4alo
rec:
UO.Recall(0x400034B9, h)
h = h+1
if h>16 then
h = 2
endif
wait(7500)
goto na4alo
endsub