Yoko

ИСПРАВТЕ ПОЖАОЛУЙСТА ИЛИ ЧТО МНЕ ИЗМЕНИТЬ ? ЧТОБ РЕКОЛИЛСЯ ДОМОЙ КОГДА ВИДИТ ПК!

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 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.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 (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) ; âðåìÿ â ñåêóíäàõ ïðè îæèäàíèè ïîêà óéäåò ÏÊ 
loot() 
wait(3000) 
goto reccal 
endif 
next    
wend 
if uo.weight > 500 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 
uo.exec("recall Runebook 94") ; â øàõòó ( â ðóíáóêå ñëîò 8 ) 
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='0x40345379' ; ÀÉÄÈ ñóíäóêà äëÿ ðóäû  
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.FindType('0x1F14',-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:\WINDOWS\Media\start") 
endsub 

sub pwavw(); çâóê ïðè ïîÿâëåíèè ÏÊ 
uo.playwav("C:\WINDOWS\Media\tada") 
endsub 

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

КСТАТИ СКРИПТ НА ДРВ

Руна может быть флипнутая, тип проверь.

_________________

а как понять слово -=ФЛИПНУТАЯ=-

Когда сам нажимаешь он реколиться а когда видит пк нет! (
ПОМАГИТЕ ПОЖАЛУЙСТА

Попробуй положить руну на землю, она изменит своё направление (вид) и тип.

_________________

а там че надо делать ?

sub Save() ; Реколл от ПК при их появлении (в паке рунка в безопасное место и реги)
var mx, my
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
mx = UO.GetX("44")
my = UO.GetY("126")
UO.DeleteJournal()
UO.FindType('0x1F15',-1,'my')
wait(200)
UO.Cast('Recall','finditem')
wait(4000)
if not UO.GetX("44") <> mx and not UO.GetY("126") <> my then
goto reccal
endif
end sub


ВОТ ТУТ Я НЕ ПОНЕЛА ЧЕ ДЕЛАТЬ ???

mx = UO.GetX("44")
my = UO.GetY("126") вот так я сделала место self !

Скорее всего руна лежит "не на своём месте".Попробуй взять и руну и перетащить в бэк пак,только не как обычно а на изображение бэк пака

2 Sanata
Пиши, пожалуйста, в одном топике

_________________

непонял?

_________________
"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)

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

_________________

а сори я почему то подумал что ты мне это пишешь вот и не понял

_________________
"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)

Бывает

_________________

нУ почему мне не кто не поможет ???

зачем?

_________________
"Человек играет только тогда, когда он в полном значении слова человек, и он бывает вполне человеком лишь тогда, когда играет." (c)

Я не знаю че делать !!!

он капает но не убегает от ПК ! кагда видит ВОТ ! ВЕСЬ СКРИПТ !


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 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.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 (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) ; ????? ? ???????? ??? ???????? ???? ????? ??
loot()
wait(3000)
goto reccal
endif
next
wend
if uo.weight > 625 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
uo.exec("recall Runebook 94") ; ? ????? ( ? ??????? ???? 8 )
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='0x40345379' ; ???? ??????? ??? ????
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.FindType('0x1F14',-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:\WINDOWS\Media\start")
endsub

sub pwavw(); ???? ??? ????????? ??
uo.playwav("C:\Kashap-$$$")
endsub

sub Pause() ; ????? ??????? ???? ???????? ????? (?????????? ?????? GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!?????? ?? ?????!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!?????? ?????????!!!!")
endif
end sub

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 

Бред! Потому и не работает!Прочитай подробно про uo.journalserial()!
И потом! зачем тебе в данном сабе for next ? ведь твое контролироване журнала происходит только после процесса копки что сильно снижает скорость срабатывания ! Вынеси контролирование элема и пека в отделный саб!
Вот тебе мой саб контролирования(мониторинга) с возможностью игнорирования кого либо (например тебя - ведь ты сам можешь быть ПК )

#######################################################
sub Control()
VAR Enemy,msg,Masta="Don SpiL",Name_Of_Killer
uo.setglobal("stop","no")
While 1==1
   IF Uo.InJournal(" ",1) and str(Uo.IsNPC(Uo.JournalSerial(0)))=="1" then #
      msg=UO.Journal(0)
      Enemy=Uo.JournalSerial(0)
      Name_Of_Killer=Uo.GetName(Enemy)
   IF Uo.GetNotoriety(Enemy)==6 or Uo.GetNotoriety(Enemy)==5 or Uo.GetNotoriety(Enemy)==4 or Uo.InJournal("elemental") or uo.injournal("is attacking you") then
      IF Enemy<>Masta then
#Тут то что хочешь при срабатывании условия получть
      end IF
   end IF
            If msg==(Masta+":"+" "+"stop makr") then
      uo.exec("terminate all")
            end if
            Uo.deletejournal()
        wait(200)
      end IF
   wait(200)
   wend
end sub
#######################################################

Данный саб полностью контролирует журнал на предмет ПК или элема!Игнорируя при этом твое имя(если ты сам ПК).Можно остановить скрипт сказав stop makr (или выполнить любые другие действия).
В общем кому надо - разбереться )

саната, постав скрипт оригинальный, чтобы он сматовался надо в бек пеке- реги для реколла руну куда лететь от пк и руна должна стоять правилно, купи в магазине руну и посмотри как она должна стоять, если что- кинь на землю иё она перевернётся... по вопросам можно мне в асье мсг оставить...