Скрипт от [20.09.04] © Yaponchick™

Yaponchick · Post by **Yaponchick** » 2004-09-20 07:52:50

Ну так начинаем...
Примечание:

Прочтите сначала ЭТО: http://yoko.netroof.net/forum/viewtopic.php?p=6134#6134

Скрипты большинство переделанные...
без рекола, без лога веса, кароче, для танков...
хмм...кооманда ,exec logger, поможет вам ПЕРЕНЕСТИ БОЛЬШОЕ КОЛ-ВО ЛОГОВ!(2 раза на логи, и идете, во время ходьбы постоянно пишите ,exec logger)
ламберджэкинг.сц:

Code: Select all

sub Lumber() 
var i=0,j=0,k=0,r=0,q=0,ii,jj 
var TopX=324,TopY=65 
dim TreeX[1000], TreeY[1000],TreeT[1000] 
var flag=0,treeCount=0,clicks=0,flag2=0 
var f=file("C:\trees.dat") 
var TryHiding=0 ## 1 - перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет 
var Xer=0
var GetFromFile=1

uo.exec("filterspeech on") 
uo.exec("filterspeech add 'Where do you want to use the pickaxe?'") 

uo.print('Выбери топор: ') 
uo.exec('addtype axe') 
wait(5000) 

uo.print('Загружаем координаты из файла...') 
f.open() 
TreeCount=safe call f.readNumber() 
for i=1 to TreeCount
TreeT[i]=safe call f.ReadNumber() 
TreeX[i]=safe call f.ReadNumber() 
TreeY[i]=safe call f.ReadNumber() 
XER=safe call f.ReadNumber() 
next 
f.close() 
uo.print('Деревьев найдено: '+str(treeCount)) 
wait(2000) 
while 1==1 
if treeCount>0 then 
for i=1 to treeCount 
uo.print('Идем к дереву '+str(i)+': x='+str(treex[i])+' y='+str(treey[i])) 
flag=gotoxy(treex[i],treey[i]) 
if flag==1 then 
if TryHiding==1 then 
ToHide() 
end if 
GetTree(str(treeT[i]),str(treeX[i]),str(TreeY[i]),str(uo.getz())) 
end if 
next 
end if 
wend 
end sub 

sub GetTree(type,x,y,z) 
var i 
uo.print('Начинаем рубку дерева...') 
for i=0 to 15 
if uo.warmode()==1 then 
uo.warmode(0)
end if 
wait(200) 
uo.deletejournal() 
uo.waittargettile(type,x,y,z) 
uo.useobject('axe') 
if WaitForChange()==1 then 
return 1 
end if 
next 
return 0 
end sub 

sub ToHide() 
var i 
uo.print('Пытаемся уйти в хайд...') 
for i=1 to 15 
uo.deletejournal() 
uo.useskill('Hiding') 
if WaitForHide()==1 then 
return 1 
end if 
next 
return 0 
end sub 

sub WaitForHide() 
var Text1=uo.getname()+": You have hidden yourself well" 
var Text2=uo.getname()+": You can't seem to hide here." 
var mess 
for var i=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text1 then 
return 1 
end if 
if uo.Journal(0)==Text2 then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

sub WaitForChange() 
var Text1=uo.getname()+': You hack at the tree for a while, but fail to produce any useable wood.' 
var Text2='There is nothing here to chop.' 
var Text3="You are too far away"
var Text4="There's not enough wood here to chop."
var Text5="That is too far away"
var Text6="There's not enough wood here to chop"
var Text7="It appears immune to your blow"
var Text8="That is too far away."
var Text9="You can't reach this."
var Text10="You can't get there."
var mess 
for var i=0 to 200 
mess=uo.journal(0) 
if uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 OR uo.Journal(0)==Text4 OR uo.Journal(0)==Text5 OR uo.Journal(0)==Text6 OR uo.Journal(0)==Text7 OR uo.Journal(0)==Text8 OR uo.Journal(0)==Text9 OR uo.Journal(0)==Text10 then 
return 1 
end if 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if mess[0]=='Y' AND mess[1]=='o' AND mess[2]=='u' AND mess[4]=='p' AND mess[5]=='u' AND mess[6]=='t' then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

sub WaitForTarget() 
for var i=0 to 50 
if uo.Targeting()==1 then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

sub WaitForChangeXY(myX,myY,lastX,lastY) 
for var i=1 to 50 
if lastX<>myX OR lastY<>myY then 
return 1 
end if 
wait(200) 
next 
return 0 
end sub 

sub gotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
MyX=uo.getX(); 
MyY=uo.getY(); 
if LastX==MyX AND LastY==MyY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.press(38)
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.press(39) 
next 
end if 
halt=15 
end if 
if abs(x-myX)<=1 AND abs(y-myY)<=2 then 
return 1 
end if 
if x<=MyX then 
if y<=MyY then 
for z=0 to 3 
uo.press(38)
next 
else 
for z=0 to 3 
uo.press(37) 
next 
end if 
else 
if y<=MyY then 
for z=0 to 3 
uo.press(39) 
next 
else 
for z=0 to 3 
uo.press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub abs(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

sub main() 
Lumber() 
end sub

sub logger()
uo.exec("moveitem lastobject 0 ground "+str(uo.getx())+" "+str(uo.gety())+" "+str(uo.getZ())+" ")
end sub

Создаём файлик C:\trees.dat, и в него вставляем...
текст полученный командой ,infotile, после того как вы щелкнули на дерево...1-ая строка должна быть равна кол-во деревьев...
у вас должно получиться такое...

Code: Select all

62
3283 2644 681 0
3277 2644 678 0
3299 2644 675 0
3293 2644 672 0
3293 2640 675 0
3296 2640 672 0
3296 2644 666 0
3287 2636 672 0
3299 2648 672 0
3290 2648 669 0
3277 2648 666 0
3299 2648 663 0
3288 2648 660 0
3296 2644 666 0
3150 2645 669 0
3293 2644 672 0
3291 2652 669 0
3289 2652 672 0
3281 2652 678 0
3299 2660 666 0
3299 2652 660 0
3289 2648 660 0
3277 2648 654 0
3283 2644 657 0
3299 2640 660 0
3299 2652 660 0
3293 2656 654 0
3299 2660 651 0
3277 2660 648 0
3302 2660 654 0
3299 2660 666 0
3277 2660 669 0
3299 2660 672 0
3299 2668 672 0
3288 2668 663 0
3299 2672 660 0
3283 2672 657 0
3280 2668 654 0
3284 2676 657 0
3283 2676 657 0
3277 2672 651 0
3280 2676 651 0
3299 2680 654 0
3299 2680 651 0
3296 2680 672 0
3290 2680 675 0
3280 2680 678 0
3299 2680 681 0
3277 2676 687 0
3289 2676 681 0
3291 2676 678 0
3283 2672 681 0
3302 2672 678 0
3280 2668 678 0
3296 2672 675 0
3299 2668 672 0
3293 2676 672 0
3293 2684 669 0
3280 2692 672 0
3289 2688 675 0
3291 2684 675 0
3291 2680 663 0

Yaponchick · Post by **Yaponchick** » 2004-09-20 08:03:58

Дык, карпентри, делал для друга на шард RUO, www.ruo.ru

Code: Select all

sub main()
uo.exec("concolor '0x0044'")
uo.exec("addtype 'tool'")
wait(5000)
uo.exec("addtype 'logs'")
wait(5000)
uo.exec("addtype 'paper'")
wait(5000)
uo.exec("addtype 'deed'")
wait(5000)
uo.print("Macros started. Thanks for Yaponchick™")
while not uo.dead()
uo.exec("waitmenu 'Carpentry' 'Misc' 'Misc' 'Paper'")
uo.exec("usetype 'tool'")
wait(10000)
if uo.count("paper")>0 then
changePaperToDeed()
endif
wend
end sub

sub changePaperToDeed()
while uo.count("paper")>0
uo.exec("waitmenu 'Carpentry' 'Misc' 'Misc' 'deed'")
uo.usetype("tool")
wait(10000)
if uo.count("deed")>0 then
DropDeeds()
endif
wend
end sub

sub DropDeeds()
while uo.count("deed")>0
uo.FindType("deed",-1,"my")
uo.exec("drophere finditem")
wait(1000)
wend
end sub

1. Указваете на ваш столярный аппарат...
2. Указываете на логи...
3. Указываете на бумагу...
4. Указываете на диды, и наслаждаетесь!

Yaponchick · Post by **Yaponchick** » 2004-09-20 08:08:45

Дык, мэджери:

Code: Select all

sub main
uo.print("Выбери сундук:")
uo.exec('addobject sunduk')
wait(10000)

uo.print("где NightShade")
uo.exec('addtype ns')  
wait(10000)

mageryi:
while uo.mana>9
uo.exec("cast 'Poison' self")
wend

while uo.mana<uo.int
uo.exec("useskill 'Meditation'")
wait(500)
wend

if uo.count("ns")<100 then
getRegs()
endif

goto mageri
end sub

sub getRegs()
uo.findtype("ns",-1,"sunduk")
uo.grab("100","finditem");
end sub

Yaponchick · Post by **Yaponchick** » 2004-09-20 08:12:40

Мининг, использует систему Ламбера...

Прочтите сначала ЭТО: http://yoko.netroof.net/forum/viewtopic.php?p=6134#6134

Code: Select all

sub Mining()
var i=0,j=0,k=0,r=0,q=0,ii,jj, a=0
var TopX=324,TopY=65                                  
dim OreX[1000], OreY[1000],OreT[1000],OreXER[1000]
var flag=0,oreCount=0,clicks=0,flag2=0
var f=file("C:\ores.dat")

var TryHiding=0        ## 1 - перед тем как рубить дерево, будет пытаться уйти в хайд, 0 - не будет

uo.print('Выбери кирку: ')
uo.exec('addtype pickaxe')
wait(5000)

      uo.print('Загружаем координаты из файла...')
      f.open()
      OreCount=safe call f.readNumber()
      uo.print('Загрузили кол-во айтемов')
      for i=1 to OreCount    
      OreT[i]=safe call f.ReadNumber()
      OreX[i]=safe call f.ReadNumber()       
      OreY[i]=safe call f.ReadNumber()       
      OreXER[i]=safe call f.ReadNumber()
    next      
      uo.print('Загрузили всё...')
      f.close()

wait(2000)

while 1==1
      if OreCount>0 then 
              for i=1 to OreCount
                      uo.print('Идем к точке '+str(i)+': x='+str(Orex[i])+' y='+str(Orey[i]))                      
                      flag=gotoxy(Orex[i],Orey[i])
                      if flag==1 then 
                              if TryHiding==1 then
                                      ToHide()
                              end if                  
                              GetOre(str(OreT[i]),str(OreX[i]),str(OreY[i]),str(uo.getz()))
                      end if                  
              next
      end if
wend  
end sub

sub GetOre(type,x,y,z)
var i
      uo.print('Начинаем выкапывание руды...')
      for i=0 to 30
              if uo.warmode()==1 then
                      uo.warmode("0")
              end if
              wait(200)
              uo.deletejournal()
              uo.waittargettile(type,x,y,z)
              uo.usetype('pickaxe')
              if WaitForChange()==1 then
                      return 1
              end if  
      next
      return 0
end sub

sub ToHide()
var i
      uo.print('Пытаемся уйти в хайд...')
      for i=1 to 15           
              uo.deletejournal()
              uo.useskill('Hiding')
              if WaitForHide()==1 then
                      return 1
              end if
      next
      return 0                
end sub

sub WaitForHide()
var Text1=uo.getname()+": You have hidden yourself well"
var Text2=uo.getname()+": You can't seem to hide here."
var mess
      for var i=0 to 200
              mess=uo.journal(0)
              if uo.Journal(0)==Text1 then
                      return 1
              end if  
              if uo.Journal(0)==Text2 then
                      return 0
              end if  
              wait(50)
      next
      return 0
end sub

sub WaitForChange()
var Text1=uo.getname()+': You loosen some rocks but fail to find any useable ore.'
var Text2='There is no ore here to mine.'
var Text3="You can't reach this."
var Text4="You can't reach that."
var Text5="Try mining in rock."
var Text6="You have no line of sight to that location"
var Text7="You can't think of a way to use that item."
var Text8="There is nothing here to mine for."
var Text9="You can't use the %s where it is."
var mess
      for var i=0 to 200
              mess=uo.journal(0)
              if uo.Journal(0)==Text2 OR uo.Journal(0)==Text3 OR uo.Journal(0)==Text4 OR uo.Journal(0)==Text5 OR uo.Journal(0)==Text6 OR uo.Journal(0)==Text7 OR uo.Journal(0)==Text8 OR uo.Journal(0)==Text9 then
                      return 1
              end if  
              if uo.Journal(0)==Text1 then
                      return 0
              end if                  
              if mess[0]=='Y' AND mess[1]=='o' AND mess[2]=='u' AND mess[4]=='p' AND mess[5]=='u' AND mess[6]=='t' then
                      return 0
              end if
              wait(50)
      next
      return 0
end sub

sub WaitForTarget()
      for var i=0 to 50
              if uo.Targeting()==1 then
                      return 1
              end if
              wait(200)
      next
      return 0
end sub

sub WaitForChangeXY(myX,myY,lastX,lastY)
      for var i=1 to 50
              if lastX<>myX OR lastY<>myY then
                      return 1
              end if
              wait(200)
      next
      return 0
end sub

sub gotoXY(x,y)
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
      for i=1 to 60
              MyX=uo.getX();
              MyY=uo.getY();
              if LastX==MyX AND LastY==MyY then
                      halt=halt+1
              else
                      halt=0
              end if
              if halt>=10 then
                      if uo.GetDir()==1 then
                              for z=0 to 8
                                      uo.press(40)
                              next
                      end if
                      if uo.GetDir()==3 then
                              for z=0 to 8
                                      uo.press(37)
                              next
                      end if          
                      if uo.GetDir()==5 then
                              for z=0 to 8
                                      uo.press(38)
                              next
                      end if                                  
                      if uo.GetDir()==7 then
                              for z=0 to 8
                                      uo.press(39)
                              next
                      end if  
                      halt=15
              end if
              if abs(x-myX)<=1 AND abs(y-myY)<=2 then
                      return 1
              end if          
              if x<=MyX then
                      if y<=MyY then
                              for z=0 to 3
                                      uo.press(38)
                              next
                      else    
                              for z=0 to 3
                                      uo.press(37)
                              next
                      end if
              else
                      if y<=MyY then
                              for z=0 to 3
                                      uo.press(39)
                              next
                      else
                              for z=0 to 3
                                      uo.press(40)
                              next
                      end if                  
              end if
              lastX=myX
              lastY=myY
              wait(200)
      next
      return 0
end sub

sub abs(num)
      if num>=0 then
              return num
      else 
              return num*(-1)
      end if
end sub       

sub main()
Mining()
end sub

sub CheckLag()
      UO.DeleteJournal()
      UO.Click('backpack')

              repeat
              wait(500)
      until UO.InJournal('backpack')
end sub

Yaponchick · Post by **Yaponchick** » 2004-09-20 08:13:31

На сегодня с вас хватит...;-Р

kuviCk · Post by **kuviCk** » 2004-09-20 11:36:13

Yaponchick wrote:Дык, мэджери:

Code: Select all

sub main
uo.print("Выбери сундук:")
uo.exec('addobject sunduk')
wait(10000)

uo.print("где NightShade")
uo.exec('addtype ns')  
wait(10000)

mageryi:
while uo.mana>9
uo.exec("cast 'Poison' self")
wend

while uo.mana<uo.int
uo.exec("useskill 'Meditation'")
wait(500)
wend

if uo.count("ns")<100 then
getRegs()
endif

goto mageri
end sub

sub getRegs()
uo.findtype("ns",-1,"sunduk")
uo.grab("100","finditem");
end sub

Это все кнечно хорошо но с Ошибками !!!

Yaponchick · Post by **Yaponchick** » 2004-09-20 12:12:27

Sorry, просто некоторые скрипты я не тестил, брал с компа...помню то что у меня когда-то был скрипт на магери, он брал реги с пола порциями по 100 шт.
ламбер и мининг ТОЧНО пашет ;-Р

AvantriX · Post by **AvantriX** » 2004-09-20 13:34:05

А не затруднит коммент к минингу настрочить?

Yaponchick · Post by **Yaponchick** » 2004-09-20 16:44:36

Командой ,infotile, щёлкаешь на те клетки в шахте(тайлы) в которых хочешь копать, 50-60 тайлов ~30-40 минут...
потом из Text Window копируешь всё и удаляешь пробелы....точнее пустые строки...
сохраняешь в файле C:\ores.dat и в 1-ой строчке пишешь "кол-во строк файла-1"!

MorbidAngel · Post by **MorbidAngel** » 2004-09-21 00:17:30

Yaponchick wrote:Sorry, просто некоторые скрипты я не тестил, брал с компа...помню то что у меня когда-то был скрипт на магери, он брал реги с пола порциями по 100 шт.
ламбер и мининг ТОЧНО пашет ;-Р

sub main()
Mag:
if UO.Count("0x0f88")<30 then
UO.Waittargetground('0x0f88')
UO.Grab("100")
end if
wait(4000)
While UO.mana>9
UO.cast('Poison')
wait(2500)
uo.exec("waittargettype '0x1bdd'")
wait(100)
wend

while UO.MANA<10
UO.useskill("Meditation")
wait(2100)
wend
Goto Mag
end sub

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

Kiro · Post by **Kiro** » 2004-09-21 16:24:45

только наверно uo.exec("waittargettype '0x1bdd'") надо поставить до UO.cast('Poison') , а то это фигня получается, да и задержки не надо

evr0 · Post by **evr0** » 2004-09-30 05:10:20

где то ошибка в скрипте на лумбер, а может не ошибка, а под другой шард сделано, не знаю даже. Дело вот в чём: все делает отлично, НО не рубит пока топор не заюзаешь, такое ощущение что где то вейттаргет пропущен или просто вейт маленький. Скрипт пересматриваю который раз, не могу найти. Просто такую систему скрипта для лумбера первый раз вижу, поэтому могу тупить в чем то

Где в скрипте часть про топор (взаимодействие с ним)? И ответь мне в аську, надо поговорить по поводу дополнения к скрипту. (lesh1y - это я в аське).

Sfagnum · Post by **Sfagnum** » 2004-09-30 08:10:51

evr0 wrote:где то ошибка в скрипте на лумбер, а может не ошибка, а под другой шард сделано, не знаю даже. Дело вот в чём: все делает отлично, НО не рубит пока топор не заюзаешь, такое ощущение что где то вейттаргет пропущен или просто вейт маленький. Скрипт пересматриваю который раз, не могу найти. Просто такую систему скрипта для лумбера первый раз вижу, поэтому могу тупить в чем то Где в скрипте часть про топор (взаимодействие с ним)? И ответь мне в аську, надо поговорить по поводу дополнения к скрипту. (lesh1y - это я в аське).

весь форум этим примером покрыт...

Code: Select all

uo.waittargettile(type,x,y,z) 
uo.useobject('axe')

в ф-ии sub GetTree(type,x,y,z) отвечает за прицел и использование топора, ожидание в ф-ии sub WaitForChange(), но вот у меня встречаются такие деревья, на которые топор ни как не действует, т.е. никакого отзыва... да и рубить не хочет, хотя тайл правильный:(
но чем данные скрипт хорош это тем что через время = 15*200*50, рубила перейдёт к следующему дереву...

evr0 · Post by **evr0** » 2004-09-30 08:40:01

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