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

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]

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 10:18:08

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

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

Top

Profile

Reply with quote

some

Post subject:

PostPosted: 2008-03-16 10:23:41

Offline

Joined: 2007-05-23 19:51:18
Posts: 197

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 11:05:39

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Last edited by fritz321 on 2008-03-16 12:10:22, edited 1 time in total.

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 11:11:45

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-16 13:45:43

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

Code:

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 13:48:46

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-16 15:03:28

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

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

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 15:32:53

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-16 15:48:46

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

А так?

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

зы Гамфикс

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 16:01:13

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 16:51:46

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-16 17:01:10

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

Странно..

Top

Profile

Reply with quote

some

Post subject:

PostPosted: 2008-03-16 17:02:45

Offline

Joined: 2007-05-23 19:51:18
Posts: 197

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 17:36:22

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

что такое TWI =)

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-16 17:49:59

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-16 21:13:10

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

korzh

Post subject:

PostPosted: 2008-03-17 00:38:25

Offline

Joined: 2007-04-26 23:35:15
Posts: 220

fritz321 wrote:

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

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

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

Code:

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

Top

Profile

Reply with quote

fritz321

Post subject:

PostPosted: 2008-03-17 04:13:44

Offline

Joined: 2008-03-15 19:28:48
Posts: 36

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

Top

Profile

Reply with quote

Destruction

Post subject:

PostPosted: 2008-03-17 04:51:00

Offline

Junior Expert

Joined: 2004-06-24 22:08:56
Posts: 3220

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

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

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

Top

Profile

Reply with quote

Post new topic Reply to topic

Page 1 of 1

[ 20 posts ]

Home » Board index » Scripts » I need script!

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 0 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