Yoko

All sides of Injection
It is currently 2024-03-28 21:15:51

All times are UTC+02:00




Post new topic  Reply to topic  [ 17 posts ] 
Author Message
PostPosted: 2006-12-19 09:59:00 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Добрый день.
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. Поиском облазил всё.


Top
   
 Post subject:
PostPosted: 2006-12-19 11:50:47 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2006-12-19 11:50:58 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Прошу перенести тему в соответствующий раздел.
p.s. Честно скажу даже не могу предположить в какой, они почти все с вопросами со скриптами. :P


Top
   
 Post subject:
PostPosted: 2006-12-19 11:52:29 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
NMY wrote:
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :oops: :lol:

Я юзал поиск, видел некие скрипты с перекладкой. это да, но не просто перекладка.
Они были вписаны с какими то другими макросами на качания магери(и тд).
А нужно отдельно.
Если не затруднит, ткните носом, а то в упор не вижу.


Top
   
 Post subject:
PostPosted: 2006-12-19 11:53:11 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
п.с. именно такой скрипт я уже выкладывал... забыл ключевые слова поиска :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

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2006-12-19 11:54:59 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Я лом в сриптах, просто попорбуем разобраться.
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. Он так же проверяет и уберает лишнии обратно в сундук?


Last edited by Anfernee on 2006-12-19 12:18:38, edited 1 time in total.

Top
   
 Post subject:
PostPosted: 2006-12-19 12:18:05 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
А так же, для манок и инвизок и тд.

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. Благодарю, за предыдущий скрипт.


Top
   
 Post subject:
PostPosted: 2006-12-19 17:07:57 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
я кстати в том же топике NMY выкладывал такой же скрипт только короче и как раз под оском
-
кстати почему не перенесли в раздел Need Script?
это тема точно не для главного

_________________
"плагины" для инжекта


Top
   
 Post subject:
PostPosted: 2006-12-19 17:09:21 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Mihail wrote:
я кстати в том же топике NMY выкладывал такой же скрипт только короче и как раз под оском
-
кстати почему не перенесли в раздел Need Script?
это тема точно не для главного

Если не сложно подскажите ссылку или ключивые слова или в каком разделе. Заранее благодарю.


Top
   
 Post subject:
PostPosted: 2006-12-19 19:35:40 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
viewtopic.php?t=8891&highlight=kol=150

_________________
"плагины" для инжекта


Top
   
 Post subject:
PostPosted: 2006-12-20 08:48:47 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
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 строке.
Помогите кто нибдь, заранее благодарен.


Top
   
 Post subject:
PostPosted: 2006-12-20 14:46:52 
Offline
User avatar

Joined: 2006-11-27 21:01:56
Posts: 21
Вставь чеклаг из другого скрипта
ЗЫ: поиск Checklag

_________________
ДРВ - Кульный шард!!!


Top
   
 Post subject:
PostPosted: 2006-12-20 15:08:47 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
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


Не тестил, просто написал, хотя бы направление правельное?


Top
   
 Post subject:
PostPosted: 2006-12-20 15:53:09 
Offline
User avatar

Joined: 2006-11-27 21:01:56
Posts: 21
Мне лень в твоем разбиратся у себя похожий нашел
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

_________________
ДРВ - Кульный шард!!!


Top
   
 Post subject:
PostPosted: 2006-12-20 17:35:45 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
мда.. не стоит сюда такое выкладывать :)

_________________
"плагины" для инжекта


Top
   
 Post subject:
PostPosted: 2006-12-20 18:21:06 
Offline
User avatar

Joined: 2006-11-27 21:01:56
Posts: 21
ето почему ето???

_________________
ДРВ - Кульный шард!!!


Top
   
 Post subject:
PostPosted: 2006-12-20 19:36:30 
Offline
User avatar

Joined: 2006-12-19 09:38:27
Posts: 64
Grim Reaper
Супер, большое спасибо! :!:


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 17 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 19 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited