Yoko
http://forum.yoko.com.ua/

Парочка вопросов.
http://forum.yoko.com.ua/viewtopic.php?f=17&t=10612		 Page 1 of 1
Author:  Anfernee [ 2006-12-19 09:59:00 ]
Post subject:  Парочка вопросов.
Добрый день.
Quote:
http://forum.yoko.com.ua/viewtopic.php?t=10276

К сожалению не открывается.

Quote:
403
ошибка


Доступ запрещен

http://ln.com.ua/~openxs/articles/smart ... ns-ru.html


Тоеть попробую в свободной форме.
Ребят у меня пару вопросов, больше крик о помощи.
Начну с первого.

Я играю на Оскоме, мне нужен макрос что бы добовлял реги в пак (их колличество должно быть 150 (каждого)), с сундука(сундук дома), а так же выгружал реги(не нужное колличество) что бы общее колличесво было равно 150, так на бинты и манки рефрешки инвизки.

Это пока всё, в дальнейшем есть есчё куча вопросов.

Заранее благодарю.

p.s. Поиском облазил всё.
Author:  Nmy [ 2006-12-19 11:50:47 ]
Post subject: 
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:
Author:  Anfernee [ 2006-12-19 11:50:58 ]
Post subject: 
Прошу перенести тему в соответствующий раздел.
p.s. Честно скажу даже не могу предположить в какой, они почти все с вопросами со скриптами. :P
Author:  Anfernee [ 2006-12-19 11:52:29 ]
Post subject: 
NMY wrote:
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:

Я юзал поиск, видел некие скрипты с перекладкой. это да, но не просто перекладка.
Они были вписаны с какими то другими макросами на качания магери(и тд).
А нужно отдельно.
Если не затруднит, ткните носом, а то в упор не вижу.
Author:  Nmy [ 2006-12-19 11:53:11 ]
Post subject: 
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:

нашол у себя
Code:
sub REGS()
VAR amount = 75
VAR r, q, RegBag = 0x400E8802
Dim reg[8]
reg[1] = 0x0F84
reg[2] = 0x0F85
reg[3] = 0x0F86
reg[4] = 0x0F7A
reg[5] = 0x0F7B
reg[6] = 0x0F8C
reg[7] = 0x0F8D
reg[8] = 0x0F88
uo.ignorereset()
 
 For r = 1 to 8
 if uo.count( reg[r] )<>amount then
  q = amount - uo.count( reg[r] ) 
  
   if q <> 0 then
     if q > 0 then
     
      uo.useobject( RegBag )
      CheckLag()  
      uo.findtype( reg[r] , -1 , RegBag )
      
       If uo.findcount() == 0 then
        uo.msg('You dont have any!')
        return
       endif
       
      uo.moveitem('finditem', STR(q) ,'backpack',44,134,0)
      wait(500)
      CheckLag()
      
        else    
      
      q = q*-1      
     uo.findtype( reg[r] , -1 ,'my')
     uo.moveitem('finditem', STR(q) , RegBag )
     wait(100)
     CheckLag()
     
     endif
   endif
    
 endif
 next
uo.msg('.counts')
uo.print('!! -= Done =- !!')
end sub
Author:  Anfernee [ 2006-12-19 11:54:59 ]
Post subject: 
Я лом в сриптах, просто попорбуем разобраться.
NMY wrote:
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:

нашол у себя
Code:
sub REGS()
VAR amount = 75
VAR r, q, RegBag = 0x400E8802
Dim reg[8]
reg[1] = 0x0F84
reg[2] = 0x0F85
reg[3] = 0x0F86
reg[4] = 0x0F7A
reg[5] = 0x0F7B
reg[6] = 0x0F8C
reg[7] = 0x0F8D
reg[8] = 0x0F88
uo.ignorereset()
 end sub

VAR r, q, RegBag = 0x400E8802-это ID сундука?
VAR amount = 75-колличество регов?
reg[1] = 0x0F84- сами реги, по отдельности?

P.S. Он так же проверяет и уберает лишнии обратно в сундук?
Author:  Anfernee [ 2006-12-19 12:18:05 ]
Post subject: 
А так же, для манок и инвизок и тд.

Quote:
sub himiya()
VAR amount = 20
VAR r, q, RegBag = 0x400E8802 # как я понял ID сундука
Dim him[2]
him[1] = "манка"
him[2] = "Инвизка"
uo.ignorereset()

For r = 1 to 8
if uo.count( him[r] )<>amount then
q = amount - uo.count( him[r] )

if q <> 0 then
if q > 0 then

uo.useobject( RegBag )
CheckLag()
uo.findtype( him[r] , -1 , RegBag )

If uo.findcount() == 0 then
uo.msg('You dont have any!')
return
endif

uo.moveitem('finditem', STR(q) ,'backpack',44,134,0)
wait(500)
CheckLag()

else

q = q*-1
uo.findtype( him[r] , -1 ,'my')
uo.moveitem('finditem', STR(q) , RegBag )
wait(100)
CheckLag()

endif
endif

endif
next
uo.msg('.counts')
uo.print('!! -= Done =- !!')
end sub


Как бы дополнить, что бы проверялась манка и инвизка на цвет, а атк же убералась вниз, друг от друга в 2 сантиметка. Складывались кучками.
Это возможно?

P.S. Благодарю, за предыдущий скрипт.
Author:  Mihail [ 2006-12-19 17:07:57 ]
Post subject: 
я кстати в том же топике NMY выкладывал такой же скрипт только короче и как раз под оском
-
кстати почему не перенесли в раздел Need Script?
это тема точно не для главного
Author:  Anfernee [ 2006-12-19 17:09:21 ]
Post subject: 
Mihail wrote:
я кстати в том же топике NMY выкладывал такой же скрипт только короче и как раз под оском
-
кстати почему не перенесли в раздел Need Script?
это тема точно не для главного

Если не сложно подскажите ссылку или ключивые слова или в каком разделе. Заранее благодарю.
Author:  Mihail [ 2006-12-19 19:35:40 ]
Post subject: 
viewtopic.php?t=8891&highlight=kol=150
Author:  Anfernee [ 2006-12-20 08:48:47 ]
Post subject: 
Mihail wrote:
http://forum.yoko.com.ua/viewtopic.php?t=8891&highlight=kol=150


Mihail wrote:
Code:
sub Regs() 
VAR i=0 , t, k 
var kol=150 #количество 
uo.addobject('sunduk') 
while uo.targeting() 
wait(100) 
wend 
DIM Regs[8] 
Regs[0]='0x0F7A'      ; Black Pearl 
Regs[1]='0x0F7B'      ; Bood Moss 
Regs[2]='0x0F86'      ; Mandrake Root 
Regs[3]='0x0F84'      ; garlic 
Regs[4]='0x0F85'      ; Ginseng 
Regs[5]='0x0F88'      ; Night Shade 
Regs[6]='0x0F8C'      ; Sulphorous Ash 
Regs[7]='0x0F8D'      ; Spiders Silk 
for i = 0 to 7 
t=uo.random(5)*10+510 
uo.useobject('sunduk') 
checklag() 
UO.FindType(Regs[i],'-1','sunduk') 
k= kol - uo.count(Regs[i]) 
if not k<=0 then 
UO.MoveItem('finditem',k) 
checklag() 
wait(t) 
else 
if k<0 then 
k=k*(-1) 
end if 
k=k+kol 
uo.print('>= '+str(kol)+' ('+str(k)+')') 
end if 
next 
uo.print('##move regs complite') 
end sub



Ребят, прописал ID своего сундука, всё отлично, но реги не берёт.
Выподает ошибка checklag на 21 строке.
Помогите кто нибдь, заранее благодарен.
Author:  Grim Reaper [ 2006-12-20 14:46:52 ]
Post subject: 
Вставь чеклаг из другого скрипта
ЗЫ: поиск Checklag
Author:  Anfernee [ 2006-12-20 15:08:47 ]
Post subject: 
Grim Reaper wrote:
Вставь чеклаг из другого скрипта
ЗЫ: поиск Checklag

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


Quote:
sub AdvancedMagery()
var bag = "0x40021A29" ; сумка откуда всё набирать
uo.useobject(bag)
wait(100)
checklag()
var nlen = 8 ; количество необходимых реагентов
DIM Regs[val(str(nlen))]
; реагенты
Regs[0]='0x0F7A' ; Black Pearl
Regs[1]='0x0F7B' ; Bood Moss
Regs[2]='0x0F86' ; Mandrake Root
Regs[3]='0x0F84' ; garlic
Regs[4]='0x0F85' ; Ginseng
Regs[5]='0x0F88' ; Night Shade
Regs[6]='0x0F8C' ; Sulphorous Ash
Regs[7]='0x0F8D' ; Spiders Silk

; Функция - добирает реагент r из сумки b до количества 30 шт.
Sub GrabReag(r,b)
uo.findtype(r,"-1","backpack")
var q = uo.getQuantity("finditem")
if q < 30 then
uo.findtype(r,"-1",b)
uo.moveitem("finditem",str(30-q),"backpack")
endif
endsub


Не тестил, просто написал, хотя бы направление правельное?
Author:  Grim Reaper [ 2006-12-20 15:53:09 ]
Post subject: 
Мне лень в твоем разбиратся у себя похожий нашел
Code:
sub grab_regs() 
; CopyRight(R) #DiscoN# 

var count='30'  ; сколько брать 
uo.print('Otkuda?') 
UO.Exec('addobject TmpBag1') 
While UO.Targeting() 
Wait(100) 
wend 
uo.print('Kuda?') 
UO.Exec('addobject Tmpbag2') 
While UO.Targeting() 
Wait(100) 
wend 

   UO.FindType('0x0F88','0x0000','TmpBag1') ; NS 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F88','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 


   UO.FindType('0x0F86','0x0000','TmpBag1') ; MR 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F86','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 

   UO.FindType('0x0F8D','0x0000','TmpBag1') ; SS 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8D','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(600) 

   UO.FindType('0x0F8C','0x0000','TmpBag1') ; SA 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F8C','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 

   UO.FindType('0x0F84','0x0000','TmpBag1') ; GA 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F84','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 

   UO.FindType('0x0F85','0x0000','TmpBag1') ; GI 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F85','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 

   UO.FindType('0x0F7B','0x0000','TmpBag1') ; BM 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7B','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 

   UO.FindType('0x0F7A','0x0000','TmpBag1') ; BP 
   wait(100) 
   UO.Grab(count,'finditem') 
   wait(600) 
   UO.FindType('0x0F7A','0x0000','backpack') 
   UO.MoveItem( 'finditem', '0x0000', 'Tmpbag2' ) 
   wait(300) 
    
uo.print('!!!!!!!!!!!!!!!!!!!!!!!') 
uo.print('!!!!!GRAB COMPLETE!!!!!') 
uo.print('!!!!!!!!!!!!!!!!!!!!!!!') 

end sub
Author:  Mihail [ 2006-12-20 17:35:45 ]
Post subject: 
мда.. не стоит сюда такое выкладывать :)
Author:  Grim Reaper [ 2006-12-20 18:21:06 ]
Post subject: 
ето почему ето???
Author:  Anfernee [ 2006-12-20 19:36:30 ]
Post subject: 
Grim Reaper
Супер, большое спасибо! :!:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/