Помогите

XpyCmuK · Post by **XpyCmuK** » 2006-07-29 00:33:10

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.print('!!Āūįåšč Ėīļąņó!! ')
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

uo.print('!!Āūįåšč Šóķįóź!! ')
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.print("Ļš˙÷åģń˙...")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Źīļąåģ ā źīīšäčķąņąõ: "+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('You put the Iron') and not UO.InJournal('You put the Old Copper') and not UO.InJournal('You put the Rusty') and not UO.InJournal('You put the Dull Copper') and not UO.InJournal('You put the Bronze') and not UO.InJournal('You put the Copper')
if UO.Dead() then
pwav()
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()
pwavw()
loot()
cave = cave + 1
if cave > 4 then
cave = 1
end if
Mana()
;wait(30000) ; āšåģ˙ ā ńåźóķäąõ ļšč īęčäąķčč ļīźą óéäåņ ĻŹ
goto reccal
endif
next
wend
if UO.InJournal("but fail") AND k < 2 then
wait(8000)
UO.DeleteJournal()
endif
if uo.weight > 165 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= '0x401FB838' ; ĄÉÄČ ńóķäóźą äė˙ šóäū
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','finditem')
wait(4000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
end sub

sub pwav() ; ēāóź ļšč āūźąļūāąķčč ŻĖÅĢÅĶŅĄĖĄ
uo.playwav("C:\Trumpet1.wav")
endsub

sub pwavw(); ēāóź ļšč ļī˙āėåķčč ĻŹ
uo.playwav("C:\Alarm.wav")
endsub

sub Pause() ; Ļąóēą ńźščļņą åńėč āūźīļąėč Żėåģą (ļšīäīėęčņü ńźąēąā GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!ŃŹŠČĻŅ ĶĄ ĻĄÓĒÅ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!ŃŹŠČĻŅ ĻŠĪÄĪĖĘÅĶ!!!!")
endif
end sub

#############################Ļš˙÷åģ īźķī ÓĪ##################################3
sub HideWindowUO()
UO.asmUOHideEx(); Ļš˙÷åģ īźķī ÓĪ ā ņšåé
end sub
########################################################

sub Mana()
while UO.Mana < UO.Int
UO.Useskill('Meditation')
wait(1000)
wend
end sub

При полном весе чар делает реколл по рунбуке домой выкладывает руду в сундук и опять летит в туже самую шахту из которой только что прилител,подскажите где поправить чтоб он летел не в ту шахту в которой он уже был а в следуйщию!

Ex-Brodyaga · Post by **Ex-Brodyaga** » 2006-07-29 12:17:27

Code: Select all

sub maning()
#BETEP™#
var mx, my, mz, i, j, jor, ser, noto
var numc=1
Uo.exec("set norbcheck 1"); äëÿ ðåêîëà
uo.exec("set norbcalc 1"); òîæå
uo.exec('addobject Shovel')
while uo.targeting()
wait(100)
wend

na4alo:
RecMin(numc)
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.Warmode("0")
			UO.Print("Hiding...")
			UO.UseSkill("Hiding")
			wait(5000)
		wend
		UO.Print(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("Ýòî ñëèøêîì") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") and not UO.InJournal("Òóò íå")
			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") and not UO.InJournal("Ýòî ñëèøêîì") and not UO.InJournal("Òóò íå") and not UO.InJournal("Ðàçäîëáèâ")
				wait (500)
			wend
		if uo.weight > 600 then  ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé
			goto end
		endif
	wend
		UO.DeleteJournal()
	next
next
numc=numc+1
goto na4alo
end:
if uo.waiting() then
	uo.canceltarget()
endif
UO.cast('Recall','0x401FEFF2') #Äîìîé
wait(10000)
loot()
wait(3000)
uo.deletejournal()
if uo.waiting() then
	uo.canceltarget()
endif
goto na4alo
end sub

sub loot()    ; ïåðåêëàäêà ðóäû â ñóíäóê
if uo.waiting() then
uo.canceltarget()
endif
VAR a,Exit
VAR UnloadCont='0x400E6F5C' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû 
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()

while uo.mana<uo.int
	UO.UseSkill("Meditation")
	wait(2000)
wend

end sub

sub pwav() ; çâóê ïðè âûêàïûâàíèè ÝËÅÌÅÍÒÀËÀ
uo.playwav("c:\a.mp3")
endsub

sub pwavw(); çâóê ïðè ïîÿâëåíèè ÏÊ
uo.playwav("c:\a.mp3")
endsub


sub RecMin(numc)
if numc==1 then
	UO.cast('Recall','0x4010C9C8')
end if
if numc==2 then
	UO.cast('Recall','0x4010C9C6')
end if
if numc==3 then
	UO.cast('Recall','0x4010C9CC')
end if
if numc==4 then
	UO.cast('Recall','0x4010C668')
end if
if numc==5 then
	UO.cast('Recall','0x4010C66A')
end if
if numc==6 then
	UO.cast('Recall','0x4010C664')
end if
wait(7000)
end sub

Вставь ручками ID рунок в конце скрипта и будет тебе счастье

XpyCmuK · Post by **XpyCmuK** » 2006-07-29 13:31:38

Спасибо

Destruction · Post by **Destruction** » 2006-07-29 14:22:12

[Осмысленные названия тем]

Ex-Brodyaga · Post by **Ex-Brodyaga** » 2006-07-29 15:53:17

XpyCmuK wrote:Спасибо

Всегда рад

Nmy · Post by **Nmy** » 2006-07-29 17:39:22

после или перед лоот()а поставь

Code: Select all

cave = cave + 1

Ex-Brodyaga · Post by **Ex-Brodyaga** » 2006-07-29 22:22:33

Это ты кому? Если мне, то не надо переход на след руну происходит когда чар докапает точку -4 -4

Nmy · Post by **Nmy** » 2006-07-30 01:12:41

Ex-Brodyaga wrote:Это ты кому? Если мне, то не надо переход на след руну происходит когда чар докапает точку -4 -4

подскажите где поправить чтоб он летел не в ту шахту в которой он уже был а в следуйщию!

себя експертом называеш ?

Ex-Brodyaga · Post by **Ex-Brodyaga** » 2006-07-30 17:09:33

NMY wrote:
Ex-Brodyaga wrote:Это ты кому? Если мне, то не надо переход на след руну происходит когда чар докапает точку -4 -4
подскажите где поправить чтоб он летел не в ту шахту в которой он уже был а в следуйщию!

себя експертом называеш ?

Хотя бы потому что не хамлю... А он как я думаю имел ввиду чтоб реколился в другое место, когда докапает, потому что зачем лететь в другое место если ещё на том же месте 50 клеток нетронуто. Логику видишь, выскочка?