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

опять все тот же антимакрос =)
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13380		 Page 1 of 1
Author:  fritz321 [ 2008-03-16 07:42:55 ]
Post subject:  опять все тот же антимакрос =)
вопрос наверно в первую очередь к грину, ибо скрипт его
антимакрос для ФВ
Quote:
sub OneClick()

dim reindex[8]
reindex[0] = 11
reindex[1] = 12
reindex[2] = 13
reindex[3] = 10
reindex[4] = 16
reindex[5] = 14
reindex[6] = 17
reindex[7] = 15
var GumpID = 0
var ButtonID = 0
var ButtonText
var i = 18

if uo.LastGump('text', 4) <> "0" then
i = 19
end if
GumpID = val(Mid(uo.LastGump('command', i), 16, 4))
ButtonID = reindex[GumpID-2225]
ButtonText = uo.LastGump('command', ButtonID)
uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3)))
while not uo.LastGump('replyed')
wait(100)
wend

end sub

sub AntiMacro()

while not uo.Dead()
if not uo.LastGump('replyed') then
if uo.LastGump('text', 0) == 'Antimacros System' then
OneClick()
end if
endif
wait(500)
wend

end sub

вот.... какда вылезает сам гамп антимакроса то скрипт ругается на 21 строчку
Quote:
ButtonID = reindex[GumpID-2225]

и вырубается... помогите плиз...
Author:  fritz321 [ 2008-03-16 10:18:08 ]
Post subject: 
и еще сразу подскажите плиз сразу почему у меня в простеньком скрипте на мининг постоянно через несколько минут после страта ошибка вылезает....
Quote:
#########################################################################
sub maining()
var mx, my, mz, i, j

UO.print('Âûáåðè Êèðêó')
UO.exec('addobject kirka')
while uo.targeting()
wait(100)
wend

UO.print('Âûáåðèòå ðóíêó')
uo.exec('addobject rune')
while uo.targeting()
wait(100)
wend

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx-2 to mx+2
for j = my-2 to my+2
hidding()
UO.Print("Êîïàåì â êîîðäèíàòàõ: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("kirka")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (1000)
if uo.weight>500 then
recal()
endif
if uo.injournal("You see:") then
if uo.waiting() then
uo.canceltarget()
endif
recal()
endif
hidding()
wend
wend
UO.DeleteJournal()
next
next
goto na4alo
end sub
###########################################################################
sub hidding()
while not uo.Hidden()
uo.WarMode("0")
uo.print('Ïðÿ÷åìñÿ')
uo.UseSkill("Hiding")
wait(3500)
wend
end sub
###########################################################################
sub recal()
if uo.waiting() then
uo.canceltarget()
endif
uo.print ("Êàñòóåì ðåêîëë(ñüåáûâàåìñÿ)")
uo.waittargetobject('rune')
uo.cast('Recall')
wait(3500)
uo.exec("terminate all")

end sub
#############################################################################
Author:  some [ 2008-03-16 10:23:41 ]
Post subject: 
Обнови инжект до 505.18 Gump FIx
Author:  fritz321 [ 2008-03-16 11:05:39 ]
Post subject: 
а где это обновление найти мона?
я скачал последнюю версию инж.длл с сайта этого?
у меня версия 505.18 VenD0r
Author:  fritz321 [ 2008-03-16 11:11:45 ]
Post subject: 
и еще поскажите как дописать и куда что бы при появлении ваще хоть кого начиналась функция рекал........
Author:  korzh [ 2008-03-16 13:45:43 ]
Post subject: 
Code:
....
  uo.ignore( 'self' )
  uo.findman( -1 )
  if uo.findcount() then
    recall() ; рекол
  endif
....
Author:  fritz321 [ 2008-03-16 13:48:46 ]
Post subject: 
а в какую часть скрипта это вставить что бы сто пудово работало?
Author:  korzh [ 2008-03-16 15:03:28 ]
Post subject: 
Code:
sub maining()
  var mx, my, mz, i, j
  uo.ignore( 'self' )
  UO.print('Âûáåðè Êèðêó')
  UO.exec('addobject kirka')
  while uo.targeting()
    wait(100)
  wend
  
  UO.print('Âûáåðèòå ðóíêó')
  uo.exec('addobject rune')
  while uo.targeting()
    wait(100)
  wend
  
  na4alo:
  mx = UO.GetX("self")
  my = UO.GetY("self")
  mz = UO.GetZ("self")
  for i = mx-2 to mx+2
    for j = my-2 to my+2
      hidding()
      UO.Print("Êîïàåì â êîîðäèíàòàõ: "+str(mx-i)+" "+str(my-j))
      while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore")
        UO.DeleteJournal()
        if uo.waiting() then
          uo.canceltarget()
        endif
        UO.Waittargettile("1341", str(i), str(j), str(mz))
        UO.Useobject("kirka")
        while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
          wait (1000)
          if uo.weight>500 then
            recal()
          endif
          
          uo.findman( -1 )
          if uo.findcount() then
            recall() ; рекол
          endif
          hidding()
        wend
      wend
      UO.DeleteJournal()
    next
  next
  goto na4alo
end sub

попробуй так..
Author:  fritz321 [ 2008-03-16 15:32:53 ]
Post subject: 
нефига, пришел чувак, убил меня а я даже попытку не сделал рекольнуться......
+ подскажите то где взять патч с гампами
Author:  korzh [ 2008-03-16 15:48:46 ]
Post subject: 
А так?

Code:
sub maining() 
  var mx, my, mz, i, j 
  uo.ignore( 'self' ) 
  UO.print('Âûáåðè Êèðêó') 
  UO.exec('addobject kirka') 
  while uo.targeting() 
    wait(100) 
  wend 
  
  UO.print('Âûáåðèòå ðóíêó') 
  uo.exec('addobject rune') 
  while uo.targeting() 
    wait(100) 
  wend 
  
  na4alo: 
  mx = UO.GetX("self") 
  my = UO.GetY("self") 
  mz = UO.GetZ("self") 
  for i = mx-2 to mx+2 
    for j = my-2 to my+2 
      hidding() 
      UO.Print("Êîïàåì â êîîðäèíàòàõ: "+str(mx-i)+" "+str(my-j)) 
      while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Copper") and not UO.InJournal("Rusty Ore") 
        UO.DeleteJournal() 
        if uo.waiting() then 
          uo.canceltarget() 
        endif
         uo.findman( -1 ) 
         if uo.findcount() then 
            recal()
         endif 
        UO.Waittargettile("1341", str(i), str(j), str(mz)) 
        UO.Useobject("kirka") 
        while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
          wait (1000) 
          if uo.weight>500 then 
            recal() 
          endif 
          hidding() 
        wend 
      wend 
      UO.DeleteJournal() 
    next 
  next 
  goto na4alo 
end sub

зы Гамфикс
Author:  fritz321 [ 2008-03-16 16:01:13 ]
Post subject: 
cпасибо... щя проверять все буду
Author:  fritz321 [ 2008-03-16 16:51:46 ]
Post subject: 
нефига проверка на людей не робит...
нада что бы ваще... на любое существо рекол быд
Author:  korzh [ 2008-03-16 17:01:10 ]
Post subject: 
Странно.. :roll:
Author:  some [ 2008-03-16 17:02:45 ]
Post subject: 
инжект скачай в разделе Injection MOD
по поводу рекола - у меня от всех улетает включи TWI у меня без него не летал
Author:  fritz321 [ 2008-03-16 17:36:22 ]
Post subject: 
что такое TWI =)
Author:  korzh [ 2008-03-16 17:49:59 ]
Post subject: 
Track World Items
Зы неподумал сразу, включи галку)
Author:  fritz321 [ 2008-03-16 21:13:10 ]
Post subject: 
последний вопросик, как написать что в случае простоя... нечего не происходит если... то использовать обьект
Author:  korzh [ 2008-03-17 00:38:25 ]
Post subject: 
fritz321 wrote:
последний вопросик, как написать что в случае простоя... нечего не происходит если... то использовать обьект

Про случай с простоем не понял :)
а на тему "если... то использовать обьект"
Code:
if условие then
  uo.useobject( объект )
endif
Author:  fritz321 [ 2008-03-17 04:13:44 ]
Post subject: 
да это то я знаю... просто какада во время макроса на мининг сразабатывает антимакрос то пока дважды не наждмеш потом на кирку скрипт не продолжжается... вот я и хочу, что бы в слычае простоя, допустим 30 сек тыкался обжект
Author:  Destruction [ 2008-03-17 04:51:00 ]
Post subject: 
И в чём проблема?
Code:
deljournal( "капнуло|не капнуло" )
uo.waittargettile( ... )
uo.useobject( ... )
timer = 0
repeat
    wait( 100 )
    timer = timer + 1
until uo.injournal( "капнуло|не капнуло" ) or timer >= 300
if not uo.injournal( "капнуло|не капнуло" ) then
    ; стало быть цикл слетел по таймауту
endif


В данном случае я привожу стандартную для мининга конструкцию, что у вас там хз, ибо лень читать топик :)

Вообще - есть смысл записывать таймстамп отвеченного антимакроса и в таком цикле проверять - не изменился ли таймстамп, тогда простоя в 30 сек не будет, а будет всё сразу быстренько и аккуратненько..
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/