100% уход от желающих облутить и всех других.
Копает вокруг себя тоже отлично, но когда выкапывает всю руду, начинает пытаться копать там где уже копал и так может стоять бесконечно или пока не выскочит ошибка- анхенделед парсе ехептион
Этот скрипт суперский- спасибо тому кто его написал!
Автору спасибооооо!
Прошу скриптеров и всех других умных людей помочь мне с этим скриптом.
Сделайте пожалуйста так, чтобы этот скрипт можно было оставить спокойно на ночь
и после того как он выкопал в 1 месте, летел в другое. ПЛииииииз!
Code: Select all
sub maning()
var mx, my, mz, i, j, jor, ser, noto, ya,k, name, Goggy = '0x001DB7EC', cave = 1
Uo.exec("set norbcheck 1");
uo.exec("set norbcalc 1");
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
uo.exec('addobject Runebook')
while uo.targeting()
wait(100)
wend
na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Say(",warmode 0")
wait(200)
UO.UseSkill("Hiding")
wait(4000)
wend
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
if UO.Dead() then
UO.TextPrint('Êðûñà!!!==='+name+ 'Öâåò=' +str(noto))
Pause()
end if
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Deletejournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
k = 0
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") and k < 10
wait (1000)
k = k + 1
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
name = UO.GetName(ser)
ya = UO.GetSerial('self')
if ser <> ya and noto <> 0 and ser <> Goggy then
UO.TextOpen()
UO.TextPrint('Ñðóëèë :) --- '+name+ ' Öâåò=' +str(noto))
if uo.waiting() then
uo.canceltarget()
endif
Save()
loot()
cave = cave + 1
if cave > 4 then
cave = 1
end if
Mana()
;wait(55000) ; âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ
goto reccal
endif
next
wend
if UO.InJournal("but fail") AND k < 2 then
wait(8000)
UO.DeleteJournal()
endif
if uo.weight > 650 then ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 21") ; äîìîé ( â ðóíáóêå ñëîò 1 )
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
if cave == 1 then
uo.exec("recall Runebook 94") ; â øàõòó ( â ðóíáóêå ñëîò 8 )
end if
if cave == 2 then
uo.exec("recall Runebook 58") ; â øàõòó ( â ðóíáóêå ñëîò 4 )
end if
if cave == 3 then
uo.exec("recall Runebook 73") ; â øàõòó ( â ðóíáóêå ñëîò 6 )
end if
if cave == 4 then
uo.exec("recall Runebook 88") ; â øàõòó ( â ðóíáóêå ñëîò 7 )
end if
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub
sub loot() ; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont= '0x40013397' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû
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.SetReceivingContainer(UnloadCont)
wait(500)
For a=0 to 3
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
Next
UO.UnSetReceivingContainer()
end sub
sub Save() ; Ðåêîëë îò ÏÊ ïðè èõ ïîÿâëåíèè (â ïàêå ðóíêà â áåçîïàñíîå ìåñòî è ðåãè)
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
UO.Usetype('0x0F0E','0x0631')
UO.FindType('0x1F17',-1,'my')
wait(200)
UO.Cast('Recall','0x4043BDD1')
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub
sub Pause() ; Ïàóçà ñêðèïòà åñëè âûêîïàëè Ýëåìà (ïðîäîëæèòü ñêàçàâ GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UNTIL UO.InJournal('GO')
endif
end sub
sub Mana()
while UO.Mana < UO.Int
UO.Useskill('Meditation')
wait(1000)
wend
end sub