ПОмогите исправить скрипт

duffi · Post by **duffi** » 2005-08-10 15:53:17

я нашол скрипт но он работает токо на половину тоесть он копает во круг себя и кода даходит дело до петевеса он просто вырубаеца или кода он выкопал по кругу все он должен делать 5 шагов но чтото он не чо не делает просто стоит на месте вот сам скрипт

Code: Select all

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

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

[Научись использовать теги. Leo]

Leo · Post by **Leo** » 2005-08-10 16:05:33

Вот тут скрипт Ветерана. По-моему то, что тебе надо.

ЗЫ. Не забывай использовать теги [cоde] и [/cоde] :wink:

duffi · Post by **duffi** » 2005-08-10 16:16:58

Leo wrote:Вот тут скрипт Ветерана. По-моему то, что тебе надо.

ЗЫ. Не забывай использовать теги [cоde] и [/cоde]

нет ветерана скрипт я не могу настроить и мне выкидывает много ошыбок я их пытался исправлять штук 10 исправил а потом я заипался их испровлять и настроить его под мой шард сложновато Under World!!!!!

flake · Post by **flake** » 2005-08-10 17:18:11

Ну раз заипался скрипты настраивать, копай вручную.
Как говориться, без труда, не выкопаешь и выху из пешеры... не в рифму, но зато про тебя.

duffi · Post by **duffi** » 2005-08-10 17:36:53

flake wrote:Ну раз заипался скрипты настраивать, копай вручную.
Как говориться, без труда, не выкопаешь и выху из пешеры... не в рифму, но зато про тебя.

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

flake · Post by **flake** » 2005-08-10 17:47:33

Почитай учебники Едреда.

duffi · Post by **duffi** » 2005-08-10 18:00:37

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

duffi · Post by **duffi** » 2005-08-12 01:06:31

отредактировал скрипт Ветерана под ся но там выходит 1 проблема что кода он токо начинает копать нажимает на кирку потом высвечивается натпись That is too far away что ето я не наю прошу посмотреть и обьяснить мне

Code: Select all

sub maning() 
#BETEP™# 
var mx, my, mz, i, j, jor, ser, noto 
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 runeHome') 
while uo.targeting() 
wait(100) 
wend 

uo.print('!!Âûáåðè Ðóíó Â ÏÅÙÅÐÓ !! ') 
uo.exec('addobject runeCave') 
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.Warmode("0") 
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("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 (3000) 
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) ; âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 415 then  ; Ìàêñèìàëüíûé âåñ ïðè êîòîðîì äîìîé ñ ðóäîé 
goto end 
endif 
wend 
UO.DeleteJournal() 
next 
next 
goto na4alo 
end: 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeHome') ; äîìîé 
wait(500) 
uo.cast('Recall') 
wait(3000) 
loot() 
wait(3000) 
reccal: 
uo.deletejournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
uo.waittargetobject('runeCave') ; â øàõòó 
wait(500) 
uo.cast('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()    ; ïåðåêëàäêà ðóäû â ñóíäóê 
if uo.waiting() then 
uo.canceltarget() 
endif 
VAR a,Exit 
VAR UnloadCont='0x4000A4A8' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû  
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(1900) 
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.waittargetobject('runeHome') ; äîìîé 
wait(500) 
uo.cast('Recall') 
wait(4000) 
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then 
goto reccal 
endif 
end sub 

sub pwav() ; çâóê ïðè âûêàïûâàíèè ÝËÅÌÅÍÒÀËÀ 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub pwavw(); çâóê ïðè ïîÿâëåíèè ÏÊ 
uo.playwav("E:\UO\inject\SOUND\chanting sound 01.wav") 
endsub 

sub Pause() ; Ïàóçà ñêðèïòà åñëè âûêîïàëè Ýëåìà (ïðîäîëæèòü ñêàçàâ GO ) 
UO.DeleteJournal() 
REPEAT 
WAIT(3000) 
UO.Print("!!!ÑÊÐÈÏÒ ÍÀ ÏÀÓÇÅ!!!!") 
UNTIL UO.InJournal('GO') 
UO.Print("!!!ÑÊÐÈÏÒ ÏÐÎÄÎËÆÅÍ!!!!") 
endif 
end sub

[Опять?. Leo]

Leo · Post by **Leo** » 2005-08-12 11:46:38

Попробуй радиус обкопки помньше поставить. Тут числа поменьше попробуй:

Code: Select all

for i = mx-4 to mx+4 
for j = my -4 to my+4

И научись наконец пользоватся тегами. Удобнее скрипты читать.

duffi · Post by **duffi** » 2005-08-13 07:31:47

и ещо одна проблема в етом скрипте я выстовил но он кода копает и находит место там де уже нет метала он просто остонавливается и все стоит просто на месте для того чтоб он зароботал нуно кликнуть 2 раза на кирку и на другое место . как ето исправить?

Leo · Post by **Leo** » 2005-08-13 12:38:46

duffi wrote:и ещо одна проблема в етом скрипте я выстовил но он кода копает и находит место там де уже нет метала он просто остонавливается и все стоит просто на месте для того чтоб он зароботал нуно кликнуть 2 раза на кирку и на другое место . как ето исправить?

Проверь сообщения в журнале, которые вылезают, когда в тайле нету руды.

duffi · Post by **duffi** » 2005-08-13 16:15:03

оно получяется пишет кде желаете копать а потом пишет что в етой жиле больше нет метала и все и он просто стоит и больше не копает!
и не чего кроме етого он не пишет!

Leo · Post by **Leo** » 2005-08-13 16:41:46

duffi wrote:оно получяется пишет кде желаете копать а потом пишет что в етой жиле больше нет метала и все и он просто стоит и больше не копает!
и не чего кроме етого он не пишет!

Я имею ввиду, что надо сравнить сообщения в скрипте и те которые вылезают у тебя, когда нету руды в тайле.
Скрипт будет переходить к сл. клетке, когда появится сообщение ...no ore....

duffi · Post by **duffi** » 2005-08-13 16:49:22

сообщения не вылазиют не кокие вот просто заканчивается руда и скрипт не выключяется и не чего не пишет а просто стоит и все

Leo · Post by **Leo** » 2005-08-13 16:59:37

duffi wrote:сообщения не вылазиют не кокие вот просто заканчивается руда и скрипт не выключяется и не чего не пишет а просто стоит и все

На твоём шарде никогда не играл, тамошнюю систему мининга не знаю, так что больше помочь тебе ничем не могу.

duffi · Post by **duffi** » 2005-08-14 10:48:09

ну может у тя есть кокойто другой скрипт например на 2 или 3 шахты ????