Code:
sub maning()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
Uo.exec("set norbcheck 1"); aey ?aeiea
uo.exec("set norbcalc 1"); oi?a
uo.print('!!Auaa?e Eiiaoo!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend
uo.print('!!Auaa?e ?oio AIIIE !! ')
uo.exec('addobject runeHome')
while uo.targeting()
wait(100)
wend
uo.print('!!Auaa?e ?oio A IAUA?O !! ')
uo.exec('addobject runeCave')
while uo.targeting()
wait(100)
wend
na4alo:
mx = UO.GetX("last")
my = UO.GetY("last")
mz = UO.GetZ("last")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
while not UO.Hidden()
UO.Warmode("0")
uo.print("I?y?ainy...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Eiiaai a eii?aeiaoao: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
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")
wait (500)
if uo.injournal("heavy") or uo.dead() then
pwav()
Pause()
endif
for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif
Save()
pwavw()
wait(180000) ; a?aiy a naeoiaao i?e i?eaaiee iiea oeaao IE
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 500 then ; Iaeneiaeuiue aan i?e eioi?ii aiiie n ?oaie
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
uo.waittargetobject('runeHome') ; aiiie
wait(500)
uo.Usetype('0x1F4C','0x0000') ;Recall
wait(3000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.waittargetobject('runeCave') ; a oaooo
wait(500)
uo.Usetype('0x1F4C','0x0000') ;Recall
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() ; ia?aeeaaea ?oau a noiaoe
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x4002C5E2' ; AEAE noiaoea aey ?oau
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() ; ?aeiee io IE i?e eo iiyaeaiee (a iaea ?oiea a aaciianiia ianoi e ?aae)
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("self")
my = UO.GetY("self")
UO.DeleteJournal()
uo.waittargetobject('runeHome') ; aiiie
wait(500)
uo.Usetype('0x1F4C','0x0000') ;Recall
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub
sub pwav() ; caoe i?e aueaiuaaiee YEAIAIOAEA
uo.playwav("D:\Alert")
endsub
sub pwavw(); caoe i?e iiyaeaiee IE
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav")
endsub
sub Pause() ; Iaoca ne?eioa anee aueiiaee Yeaia (i?iaie?eou neacaa GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!NE?EIO IA IAOCA!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!NE?EIO I?IAIE?AI!!!!")
endif
end sub
sub ExtrimalRecall()
var rune='0x400C5998'
uo.Usetype('0x0F08','0x07F2') ; Invisibility
wait(100)
uo.waittargetobject(Rune)
uo.Usetype('0x1F4C','0x0000') ;Recall
end sub
Ну вот готовый скрипт,в него бы конечно по хорошему ходилочку добавить,но это кому как,т.к на том шарде где я играю чар чаще не успевает даже вокруг себя обкопать,ПК не дремлют,да и элемы помогают:)
Register
Login
FAQ
Search
для одной строчки
