копка по скале у брита.нужна помощь

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

копка по скале у брита.нужна помощь

Post by nikotin »

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

Code: Select all

Sub kopka()
 var kirka='0x0F39'
 var i,j,x,y,z
 var ms1="Try mining"
 var ms2="You put"
 var ms3="There is no ore"
 var ms4="You loosen"
 x=uo.getx('self')
 y=uo.gety('self')
 z=uo.getz('self')
 hiding()
 for i=-1 to 1
  for j=-1 to 1
   repeat
    uo.deletejournal()
    uo.waittargettile(0,x+i,y+j,z)
    uo.usetype(kirka)
    repeat
     wait(100)
    until uo.injournal(ms1) or uo.injournal(ms2) or uo.injournal(ms3) or uo.injournal(ms4)
   until uo.injournal(ms1) or uo.injournal(ms3)
  next
 next
endsub


копка по скале у брита.
"Try mining in rock" и всё тут..
ктонибудь ещё с этим сталкивался и как решить эту проблему ?
третий день не могу найти что с этим делать
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Ошибок в скрипте не видно.
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: копка по скале у брита.нужна помощь

Post by Mirage »

руками то копает?
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Post by nikotin »

может какието спец настройки инжы мешают нормальной работе скрипта? в Main вкладке ничего не трогал после установки кроме Encryption'a (версию клиента ставил)
просто там 1-3 людей сидят на скрипте, не глючит у них вроде.
вот весь скрипт, но сомневаюсь что его будет желание полностью читать

Code: Select all

######
#from GimFlex aka Question with smile again)
######

sub main()
 while not uo.dead()
  gomine()
  gominback()
  gomine()
  gosmelt()
  smeltore()
  gobank()
  unloadiron()
tinkering()
  gosell()
  sellvendor()
  goungold()
  unloadgold()
  gomaxback()
 wend
endsub

Sub gomine()
  go(1459,1510,1)
  go(1458,1507,1)
  go(1457,1506,1)
  go(1455,1505,1)
  go(1452,1506,1)
  go(1450,1509,1)
  go(1450,1512,1)
  go(1450,1513,1)
  go(1448,1515,1)
  go(1451,1517,1)
  go(1452,1519,1)
  go(1451,1521,1)
  go(1448,1522,1)
  go(1445,1523,1)
  go(1445,1525,1)
  go(1447,1527,1)
  go(1448,1528,1)
  go(1450,1530,1)
  go(1452,1529,1)
  go(1454,1529,1)
endsub

Sub gosmelt()
  go(1432,1542,0)
  go(1426,1556,0)
endsub

Sub gobank()
  go(1430,1570,0)
  go(1438,1583,0)
  go(1425,1592,0)
  go(1425,1622,0)
  go(1420,1631,0)
  go(1420,1668,0)
  go(1436,1671,0)
  go(1435,1680,0)
endsub

Sub gomaxback()
  go(1435,1669,0)
  go(1420,1669,0)
  go(1420,1631,0)
  go(1425,1592,0)
  go(1438,1583,0)
  go(1430,1570,0)
  go(1430,1536,0)
  go(1445,1515,0)
  go(1453,1502,0)
  go(1460,1505,0)
endsub

Sub gominback()
  go(1446,1533,0)
  go(1441,1524,0)
  go(1447,1504,0)
  go(1460,1504,0)
endsub

Sub gosell()
 var dver='0x400009D9'
  go(1435,1658,0)
  go(1432,1658,0)
  while uo.getx('self')>=1432
   uo.useobject(dver)
   wait(500)
   uo.press(36)
   wait(200)
   uo.press(36)
   wait(200)
   uo.press(36)
   wait(200)
  wend
  go(1426,1655,0)
endsub

Sub goungold()
 var dver='0x400009D9'
  go(1430,1658,0)
  while uo.getx('self')<=1430
   uo.useobject(dver)
   wait(500)
   uo.press(39)
   wait(200)
   uo.press(39)
   wait(200)
   uo.press(39)
   wait(200)
  wend
  go(1435,1680,0)
endsub

Sub sellvendor()
 var vendor="Taima"
 uo.set('buydelay','4000')
 uo.set('maxsell','200')
 uo.findtype('0x14FB','-1','backpack')
 while uo.findcount()
  uo.sell('lp',vendor)
  wait(4000)
  uo.findtype('0x14FB','-1','backpack')
 wend
endsub

Sub kopka()
 var kirka='0x0F39'
 var i,j,x,y,z
 var ms1="Try mining"
 var ms2="You put"
 var ms3="There is no ore"
 var ms4="You loosen"
 x=uo.getx('self')
 y=uo.gety('self')
 z=uo.getz('self')
 hiding()
 for i=-1 to 1
  for j=-1 to 1
   repeat
    uo.deletejournal()
    uo.waittargettile(0,x+i,y+j,z)
    uo.usetype(kirka)
    repeat
     wait(100)
    until uo.injournal(ms1) or uo.injournal(ms2) or uo.injournal(ms3) or uo.injournal(ms4)
   until uo.injournal(ms1) or uo.injournal(ms3)
  next
 next
endsub

Sub unloadiron()
 uo.findtype('0x1BEF','-1','backpack')
 while uo.findcount()
  uo.say("bank")
  wait(1000)
  uo.findtype('0x1BEF','-1','backpack')
  if uo.findcount() then
   uo.moveitem('finditem','all','lastcontainer')
  endif
  uo.findtype('0x1BEF','-1','backpack')
 wend
endsub

Sub unloadgold()
 uo.findtype('0x0EED','-1','backpack')
 while uo.findcount()
  uo.say("bank")
  wait(1000)
  uo.findtype('0x0EED','-1','backpack')
  if uo.findcount() then
   uo.moveitem('finditem','all','lastcontainer')
  endif
  uo.findtype('0x0EED','-1','backpack')
 wend
endsub

Sub hiding()
 var ms1="You have hidden"
 var ms2="You can't"
 repeat
  uo.deletejournal()
  uo.useskill('Hiding')
  repeat
   wait(100)
  until uo.injournal(ms1) or uo.injournal(ms2)
 until uo.injournal(ms1)
endsub

Sub smeltore()
 uo.findtype('0x19B9','-1','backpack')
 while uo.findcount()
  uo.useobject('finditem')
  wait(500)
  uo.findtype('0x19B9','-1','backpack')
 wend
endsub

sub tinkering()
 var bank
 var ms1="You put"
 var ms2="Tinkering failed"
 uo.cancelmenu()
 uo.automenu('Tinkering','Tools')
 uo.automenu('Tools','lockpick (1 iron ingot)')
 uo.say("bank")
 wait(1000)
 bank=uo.getserial('lastcontainer')
 uo.findtype('0x1EBC','-1',bank)
 if uo.findcount() then
  uo.moveitem('finditem','all','backpack')
 endif
 uo.findtype('0x1BEF','-1',bank)
 while uo.findcount()
  uo.moveitem('finditem','30','backpack')
  wait(1000)
  uo.findtype('0x1BEF','-1','backpack')
  while uo.findcount()
   uo.deletejournal()
   uo.usetype('0x1EBC')
   repeat
    wait(100)
   until uo.injournal(ms1) or uo.injournal(ms2)
   uo.findtype('0x1BEF','-1','backpack')
  wend
  uo.findtype('0x14FB','-1','backpack')
  if uo.findcount() then
   uo.moveitem('finditem','all',bank)
  endif
  uo.findtype('0x1BEF','-1',bank)
 wend
 uo.findtype('0x1EBC','-1','backpack')
 if uo.findcount() then
  uo.moveitem('finditem','all',bank)
 endif
 uo.findtype('0x14FB','-1',bank)
 if uo.findcount() then
  uo.moveitem('finditem','all','backpack')
  wait(700)
 endif
endsub

Sub go(x,y,k)
   VAR i
   VAR dir,ldir,rdir,key,olddir
   VAR dx,dy,Exit=0
   VAR CacheLimit=9,CacheIndex="Text"
   DIM CacheX[10], CacheY[10]     
   CacheX[0]="Test"
   While Exit<>1   
         dx=x-UO.GetX()
         dy=y-UO.GetY()
         If dx==0 AND dy==0 Then
            Exit=1
         Endif     
      If dx<>0 AND dy<>0 Then
         If dx>0 AND dy>0 Then ; GoSE
            dir=3
            ldir=2
            rdir=4
            key=40 ; DownArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==2 Then ; GoNE
                  dir=1
                  ldir=0
                  rdir=1
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=5
                  rdir=6
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
         If dx>0 AND dy<0 Then ; GoNE
            dir=1
            ldir=0
            rdir=2
            key=39 ; RightArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==0 Then ; GoWN
                  dir=7
                  ldir=6
                  rdir=7
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSE
                  dir=3
                  ldir=3
                  rdir=4
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
         If dx<0 AND dy>0 Then ; GoSW
            dir=5
            ldir=4
            rdir=6
            key=37 ; LeftArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==6 Then ; GoWN
                  dir=7
                  ldir=7
                  rdir=0
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSE
                  dir=3
                  ldir=2
                  rdir=3
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
         If dx<0 AND dy<0 Then ; GoWN
            dir=7
            ldir=6
            rdir=0
            key=38 ; UpArrow
            olddir=UO.GetDir()
            If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then
               If olddir==0 Then ; GoNE
                  dir=1
                  ldir=1
                  rdir=2
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=4
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif     
      If dx<>0 AND dy==0 Then
         If dx>0 Then ; GoE
            dir=2
            key=34 ; PgDown
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoSE
                  dir=3
                  ldir=3
                  rdir=4
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoNE
                  dir=1
                  ldir=1
                  rdir=0
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif           
         If dx<0 Then ; GoW
            dir=6
            key=36 ; Home key
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==0 Then ; GoWN
                  dir=7
                  ldir=7
                  rdir=0
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=4
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif
      If dx==0 AND dy<>0 Then
         If dy>0 Then ; GoS
            dir=4
            key=35 ; End
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoSE
                  dir=3
                  ldir=2
                  rdir=3
                  key=40 ; DownArrow
                  While UO.GetDir()<>3
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoSW
                  dir=5
                  ldir=6
                  rdir=5
                  key=37 ; LeftArrow
                  While UO.GetDir()<>5
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif           
         If dy<0 Then ;GoN
            dir=0
            key=33 ; PgUp
            olddir=UO.GetDir()
            If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then
               If olddir==2 Then ; GoNE
                  dir=1
                  ldir=1
                  rdir=2
                  key=39 ; RightArrow
                  While UO.GetDir()<>1
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Else ; GoWN
                  dir=7
                  ldir=7
                  rdir=6
                  key=38 ; UpArrow
                  While UO.GetDir()<>7
                     StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key)
                  Wend
               Endif
            Endif
         Endif
      Endif
   Wend
   if k==1 then
    kopka()
   endif
end sub


Sub StepEdit(x,y,dir,key)
   VAR walkwait=100
   VAR ErrLevel=0
   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir Then
         CheckLag()
      Endif
   Endif
   UO.Press(key)
   wait(walkwait)
   If x==UO.GetX() AND y==UO.GetY() Then
      CheckLag()
      If x==UO.GetX() AND y==UO.GetY() Then
         ErrLevel=1
      Endif
   Endif
   Return ErrLevel
endsub


Sub StepArrow(x,y,dir,ldir,rdir,key)
   VAR walkwait=100
   VAR ErrLevel=0
   If UO.GetDir()<>dir Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then
         CheckLag()
      Endif
   Endif
   If UO.GetX()==x AND UO.GetY()==y Then
      UO.Press(key)
      wait(walkwait)
      If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then
         CheckLag()
         If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then         
            ErrLevel=1
         Endif
      Endif
   Endif
   Return ErrLevel
endsub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      Wait(50)
   until UO.InJournal('backpack')
endsub
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Post by nikotin »

скрипт с этогоже форума
http://forum.yoko.com.ua/viewtopic.php?t=14537&highlight=%F1%EA%E0%EB%E0
там у человека проблема в продаже отмычек, но по коментарию ясно что у него копка не дуркует, а мне кроме самой копки и ничего не нада, расчитывал с перевесом копать пока скил не вырастет до капа...
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Re: копка по скале у брита.нужна помощь

Post by nikotin »

Mirage wrote:руками то копает?

да, от руки копается. скрипт также находит или кирку или лопату
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Post by nikotin »

попробовал запустить kopka() пишет "Try mining in rock"
Top
nikotin
Posts: 19
Joined: 2006-02-13 19:46:11
Contact:
Contact nikotin

Post by nikotin »

перекачал Injection.dll и поставил АСМку. заработало, хотя скачивал и устанавливал изначально с http://yoko.com.ua/rus/injection.htm
спасибо за помощь, еслибы не вы-дальшебы всем на мозг капал :D
Top
Post Reply

Return to “Scripting Ore”