Помогите со скриптом на мининг

[-=DenS=-]

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

Code: Select all

sub main()

var run1 = '0x40019AE5'
var run2 = '0x4000AAD9'
var run3 = '0x40016923'
var run4 = '0x4000A370'
var run5 = '0x400090C3'
var run6 = '0x4000C605'
var run7 = '0x4000EDFF'

while not uo.dead()
digrune(run1,4,4)
digrune(run2,4,4)
digrune(run3,4,4)
digrune(run4,4,4)
digrune(run5,4,4)
digrune(run6,4,4)
digrune(run7,4,4)
wend
end sub

sub digrune(rune,dx,dy)
var r,x,y,x1,y1,x2,y2
var bord,nx,ny,stpx=1,stpy=1
x=uo.getx()
y=uo.gety()
while uo.getx()==x and uo.gety()==y
uo.cast("Recall",rune)
wait(10000)
wend
x=uo.getx()
y=uo.gety()
x1=x-dx
y1=y-dy
x2=x+dx
y2=y+dy
gotoxy(x1+2*stpx,y1+2*stpy,0)
gotoxy(x1,y1,2)
for y=y1 to y2 step stpy
for x=x1 to x2 step stpx
bord=0
nx=x
ny=y
if uo.weight>uo.str*4 then
 unloadr(rune)
end if
 r=dig(x,y)
 if r==0 then
  gotoxy(x1/2+x2/2,y1/2+y2/2,2)
 end if
next
next
 unloadr("")
end sub

sub dig(x,y)
var i
hide()
uo.track("1",str(x),str(y))
gotoxy(x,y,2)
uo.deletejournal()
while not uo.injournal("put the") and not uo.injournal("no ore here") and not uo.injournal("far away") and not uo.injournal("line of sight") and not uo.injournal("mining in rock")
if uo.waiting() then
uo.canceltarget()
end if
uo.deletejournal()
uo.waittargettile("1440",str(x),str(y),"0")
uo.usetype("NPF")
wait(1000)
for i=0 to 50
wait(100)
if uo.injournal("put the") or uo.injournal("fail to") or uo.injournal("no ore here") or uo.injournal("line of sight") or uo.injournal("mining in rock") then
 i=50
end if
next
wend
if uo.injournal("no ore here") then
i=1
else
i=0
end if
uo.findtype("0x19B9","0","backpack")
if uo.findcount() then
#uo.exec("moveitem finditem 1 ground "+str(x)+" "+str(y)+" 0")
end if
return i
end sub

sub unloadc(container)
uo.canceltarget()
uo.ignorereset()
uo.findtype("-1","-1","backpack")
while uo.findcount()
uo.print(str(uo.findcount())+" left")
if (uo.getgraphic("finditem")<>"0x1F16" and uo.getgraphic("finditem")<>"0x1F15" and uo.getgraphic("finditem")<>"0x0E76" and uo.getgraphic("finditem")<>"0x0EFA" and uo.getgraphic("finditem")<>"0x0EFA") or uo.getquantity("finditem")>1 then
uo.moveitem("finditem","-1",container)
wait(1500)
end if
uo.ignore("finditem")
uo.findtype("-1","-1","backpack")
wend
end sub

sub unloadr(rune)
var i=0
while uo.getx()<>2011 or uo.gety()<>3101
uo.cast("Recall","0x40015465")
wait(10000)
wend
unloadc("0x40003DC5")
if rune<>"" then
while uo.getx()==2011 and uo.gety()==3101
uo.cast("Recall",rune)
while uo.getx()==2011 and uo.gety()==3101 and i<50
wait(1000)
wend
wend
end if
end sub

sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
uo.print(">")
uo.track("1",str(x),str(y))
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if

ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:

mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if

if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>20 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if

if mx==x then 
if my==y then
return
endif
if my>y then 
#UO.Print("UR")
UO.Press(33)
goto start
endif
#UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then 
#UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then 
#UO.Print("DR")
UO.Press(34)
goto start
endif
#UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
#UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then 
#UO.Print("LU")
UO.Press(36)
goto start
endif
#UO.Print("U")
UO.Press(38)
goto start
end sub


sub hide()
   while NOT UO.Hidden()
      UO.DeleteJournal()
      UO.UseSkill('Hiding')
      repeat
         wait(100)
      until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide')
   wend
   wait(100)
end sub

sub pk()
UO.DeleteJournal()
while True
   if UO.InJournal(":") and not UO.InJournal("FeAR:") and not UO.InJournal("Elemental:") and not UO.InJournal("Orn:") and not UO.InJournal("Zostrich:") and not UO.InJournal("Horse:") and not UO.InJournal("Llama:") and not UO.InJournal("Ostard:") and not UO.InJournal("Mustang:") then
      UO.Exec("terminate main")      
      UO.Warmode("0")
      wait(100)
      UO.WaitTargetObject('0x400007F5')
      UO.cast('Recall')
      wait(60000)
      UO.Exec("exec main")
      Return
   endif
   wait(500)
wend
end sub

[BlackKnight]

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

[Sfagnum]

эту процедурку:

Code: Select all

sub unloadc(container) 
uo.canceltarget() 
uo.ignorereset() 
uo.findtype("-1","-1","backpack") 
while uo.findcount() 
uo.print(str(uo.findcount())+" left") 
if (uo.getgraphic("finditem")<>"0x1F16" and uo.getgraphic("finditem")<>"0x1F15" and uo.getgraphic("finditem")<>"0x0E76" and uo.getgraphic("finditem")<>"0x0EFA" and uo.getgraphic("finditem")<>"0x0EFA") or uo.getquantity("finditem")>1 then 
uo.moveitem("finditem","-1",container) 
wait(1500) 
end if 
uo.ignore("finditem") 
uo.findtype("-1","-1","backpack") 
wend 
end sub

попробуй заменить на эту:

Code: Select all

sub unloadc(idCont)
var i
DIM Item[13]
Item[1]=0x19B9 ; >3 ore 
Item[2]=0x19B7 ; 1 ore 
Item[3]=0x19BA ; 2 ore 
Item[4]=0x19B8 ; 3 ore 
Item[5]=0x0F11 ; saphires 
Item[6]=0x0F16 ; amethysts 
Item[7]=0x0F18 ; tourmalines 
Item[8]=0x0F15 ; citrines 
Item[9]=0x0F10 ; emeralds 
Item[10]=0x0F0F ; star sapphires 
Item[11]=0x0F26 ; diamonds 
Item[12]=0x0EED ; gold
   uo.ignorereset() 
   for i = 1 to 12
      UO.FindType(Item[i], '-1', 'backpack')
      while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',idCont) 
         Wait(1500)                    
         UO.FindType(Item[i],'-1','backpack')
      wend 
   next
end sub 

[-=DenS=-]

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

[Sfagnum]

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

кака така стрелка????

[-=DenS=-]

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

[Sfagnum]

хех ни хрена не понял, но ходилками не занимаюсь.

[-=DenS=-]

Окей все равно спасибо, очень мне помог!

[-=DenS=-]

Sfagnum у меня еще один вопрос, вот в моем скрипте внизу, когда он должен улетать от ПК, что нужно вписать, чтобы он улетал при виде на концах экрана любого цвета игрока, внезависимости ПК, простой криминал (серый) или просто синий человек, эсли знаешь подредактируй плз.
sub pk()
UO.DeleteJournal()
while True
if UO.InJournal(":") and not UO.InJournal("FeAR:") and not UO.InJournal("Elemental:") and not UO.InJournal("Orn:") and not UO.InJournal("Zostrich:") and not UO.InJournal("Horse:") and not UO.InJournal("Llama:") and not UO.InJournal("Ostard:") and not UO.InJournal("Mustang:") then
UO.Exec("terminate main")
UO.Warmode("0")
wait(100)
UO.WaitTargetObject('0x400007F5')
UO.cast('Recall')
wait(60000)
UO.Exec("exec main")
Return
endif
wait(500)
wend
end sub[/code][/quote]