опять все тот же антимакрос =)

fritz321 · Post by **fritz321** » 2008-03-16 07:42:55

вопрос наверно в первую очередь к грину, ибо скрипт его
антимакрос для ФВ

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 строчку

ButtonID = reindex[GumpID-2225]

и вырубается... помогите плиз...

fritz321 · Post by **fritz321** » 2008-03-16 10:18:08

и еще сразу подскажите плиз сразу почему у меня в простеньком скрипте на мининг постоянно через несколько минут после страта ошибка вылезает....

#########################################################################
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
#############################################################################

some · Post by **some** » 2008-03-16 10:23:41

Обнови инжект до 505.18 Gump FIx

fritz321 · Post by **fritz321** » 2008-03-16 11:05:39

а где это обновление найти мона?
я скачал последнюю версию инж.длл с сайта этого?
у меня версия 505.18 VenD0r

fritz321 · Post by **fritz321** » 2008-03-16 11:11:45

и еще поскажите как дописать и куда что бы при появлении ваще хоть кого начиналась функция рекал........

korzh · Post by **korzh** » 2008-03-16 13:45:43

Code: Select all

....
  uo.ignore( 'self' )
  uo.findman( -1 )
  if uo.findcount() then
    recall() ; рекол
  endif
....

fritz321 · Post by **fritz321** » 2008-03-16 13:48:46

а в какую часть скрипта это вставить что бы сто пудово работало?

korzh · Post by **korzh** » 2008-03-16 15:03:28

Code: Select all

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

попробуй так..

fritz321 · Post by **fritz321** » 2008-03-16 15:32:53

нефига, пришел чувак, убил меня а я даже попытку не сделал рекольнуться......
+ подскажите то где взять патч с гампами

korzh · Post by **korzh** » 2008-03-16 15:48:46

А так?

Code: Select all

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

зы Гамфикс

fritz321 · Post by **fritz321** » 2008-03-16 16:01:13

cпасибо... щя проверять все буду

fritz321 · Post by **fritz321** » 2008-03-16 16:51:46

нефига проверка на людей не робит...
нада что бы ваще... на любое существо рекол быд

korzh · Post by **korzh** » 2008-03-16 17:01:10

Странно..

some · Post by **some** » 2008-03-16 17:02:45

инжект скачай в разделе Injection MOD
по поводу рекола - у меня от всех улетает включи TWI у меня без него не летал

fritz321 · Post by **fritz321** » 2008-03-16 17:36:22

что такое TWI =)

korzh · Post by **korzh** » 2008-03-16 17:49:59

Track World Items
Зы неподумал сразу, включи галку)

fritz321 · Post by **fritz321** » 2008-03-16 21:13:10

последний вопросик, как написать что в случае простоя... нечего не происходит если... то использовать обьект

korzh · Post by **korzh** » 2008-03-17 00:38:25

fritz321 wrote:последний вопросик, как написать что в случае простоя... нечего не происходит если... то использовать обьект

Про случай с простоем не понял

а на тему "если... то использовать обьект"

Code: Select all

if условие then
  uo.useobject( объект )
endif

fritz321 · Post by **fritz321** » 2008-03-17 04:13:44

да это то я знаю... просто какада во время макроса на мининг сразабатывает антимакрос то пока дважды не наждмеш потом на кирку скрипт не продолжжается... вот я и хочу, что бы в слычае простоя, допустим 30 сек тыкался обжект

Destruction · Post by **Destruction** » 2008-03-17 04:51:00

И в чём проблема?

Code: Select all

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 сек не будет, а будет всё сразу быстренько и аккуратненько..