Yoko

All sides of Injection
It is currently 2025-10-16 21:29:42

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 2
  [ 23 posts ]  Go to page 1 2 Next
  Print view Previous topic | Next topic 
Author Message
skyman
PostPosted: 2009-07-27 07:31:34 
Offline

Joined: 2009-07-26 18:02:21
Posts: 7
Code:
sub att()
#***********
#(C) Cooper
#***********
VAR monst= #Tип монстра

UO.Set('finddistance','3')
while UO.GetHP('self') < 500
UO.FindType(monst, '-1', 'ground')
if UO.FindCount() > 0 then
UO.DeleteJournal()
UO.Attack('finditem')
repeat
wait(500)
until UO.InJournal('Body of')
else
wait(100)
endif
wend
end sub


Пробовал вписывать больше 1 Типа монстров неполучается. Как зделать на этом скрипте чтоб он делал атак на 10 монстров к примеру
Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 07:45:50 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
просто забинди на кнопку этот скрипт, как убьешь монстра нажимай еще раз, либо напиши по русски что тебе надо
Top
   
Reply with quote  
666||TORCHKI
 Post subject:
PostPosted: 2009-07-27 07:50:49 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 257
Code:
sub att()
    #***********
    #(C) Cooper
    #***********
    var i
    Dim a[2]
    a[0] = '0x0191'
    a[1] = '0x00DA'
    UO.Set('finddistance','20')
    while UO.GetHP('self') < 500
        For i= 0 to 1
            repeat
                UO.FindType(a[i], '-1', 'ground')
                if UO.FindCount() > 0 then
                    UO.DeleteJournal()
                    UO.Attack('finditem')
                    wait(700)
                until UO.InJournal('Body of')
            else
                wait(100)
            end if
        next   
        wend
    end sub
   


Испоганил скрипт Купера =(
Top
   
Reply with quote  
666||TORCHKI
 Post subject:
PostPosted: 2009-07-27 08:02:16 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 257
skyman wrote:
666||TORCHKI wrote:

Испоганил скрипт Купера =(


Я его тут на форуме взял!

Я про себя :D
Top
   
Reply with quote  
skyman
 Post subject:
PostPosted: 2009-07-27 08:18:24 
Offline

Joined: 2009-07-26 18:02:21
Posts: 7
Code:
sub att()
    #***********
    #(C) Cooper
    #***********
    var i
    Dim a[8]
    a[0] = '0x0191'
    a[1] = '0x00DA'
    a[2] = '0x00C9'
    a[3] = '0x000D'
    a[4] = '0x0055'
    a[5] = '0x000F'
    a[6] = '0x0002'
    a[7] = '0x001C'
    a[8] = '0x0056'
UO.Set('finddistance','20')
    while UO.GetHP('self') < 500
        For i= 0 to 1
            repeat
                UO.FindType(a[i], '-1', 'ground')
                if UO.FindCount() > 0 then
                    UO.DeleteJournal()
                    UO.Attack('finditem')
                    wait(700)
                until UO.InJournal('Body of')
            else
                wait(100)
            end if
        next   
        wend
    end sub


на 1 наподает иду дальше 0 эмоций

Поясни эту строчку while UO.GetHP('self') < 500
Top
   
Reply with quote  
666||TORCHKI
 Post subject:
PostPosted: 2009-07-27 08:25:26 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 257
У тебя тут должно быть
Code:
  Dim a[9]

а тут
Code:
For i= 0 to 8
Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 08:44:40 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
Code:
sub att() 
    #*********** 
    #(C) Cooper 
    #*********** 
    var i 
    Dim a[8] 
    a[0] = '0x0191' 
    a[1] = '0x00DA' 
    a[2] = '0x00C9' 
    a[3] = '0x000D' 
    a[4] = '0x0055' 
    a[5] = '0x000F' 
    a[6] = '0x0002' 
    a[7] = '0x001C' 
    a[8] = '0x0056' 
UO.Set('finddistance','20') 
    while UO.GetHP('self') < 500 
        For i= 0 to 8 
            repeat 
                UO.FindType(a[i], '-1', 'ground') 
                if UO.FindCount() > 0 then 
                    UO.DeleteJournal() 
                    UO.Attack('finditem') 
                    wait(700) 
                until UO.InJournal('Body of') 
            else 
                wait(100) 
            end if 
        next    
        wend 
    end sub
Top
   
Reply with quote  
skyman
 Post subject:
PostPosted: 2009-07-27 08:57:12 
Offline

Joined: 2009-07-26 18:02:21
Posts: 7
Code:
sub att()
    #***********
    #(C) Cooper
    #***********
    var i
    Dim a[24]
    a[0] = '0x0002'
    a[1] = '0x0003'
    a[2] = '0x0190'
    a[3] = '0x0011'
    a[4] = '0x0018'
    a[5] = '0x004C'
    a[6] = '0x0027'
    a[7] = '0x0056'
    a[8] = '0x001E'
    a[9] = '0x00D6'
    a[10] = '0x0016'
    a[11] = '0x03CA'
    a[12] = '0x0030'
    a[13] = '0x000D'
    a[14] = '0x0001'
    a[15] = '0x0021'
    a[16] = '0x0010'
    a[17] = '0x000E'
    a[18] = '0x000F'
    a[19] = '0x0035'
    a[20] = '0x0047'
    a[21] = '0x0191'
    a[22] = '0x00CA'
    a[23] = '0x0036'
UO.Set('finddistance','20')
    while UO.GetHP('self') < 500
        For i= 0 to 23
            repeat
                UO.FindType(a[i], '-1', 'ground')
                if UO.FindCount() > 0 then
                    UO.DeleteJournal()
                    UO.Attack('finditem')
                    wait(700)
                until UO.InJournal('Body of')
            else
                wait(100)
            end if
        next   
        wend
    end sub

[/quote]

ID=0x0001392C Type=0x0191 ESOE Name=Galadriel
Quantity: 0 Colour: 0x045E Layer: 0 Has: 0
X=5395 Y=1945 Z=0 C=0xFFFFFFFF F=0x40

ID=0x00013FAF Type=0x0191 FERE Name=Mirwing
Quantity: 0 Colour: 0x045E Layer: 0 Has: 0
X=5400 Y=1945 Z=0 C=0xFFFFFFFF F=0x00

Вот, одинаковых неатачит
Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 09:17:01 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
Code:
sub att() 
    #*********** 
    #GimFlex
    #*********** 
    var i 
    Dim a[24] 
    a[0] = '0x0002' 
    a[1] = '0x0003' 
    a[2] = '0x0190' 
    a[3] = '0x0011' 
    a[4] = '0x0018' 
    a[5] = '0x004C' 
    a[6] = '0x0027' 
    a[7] = '0x0056' 
    a[8] = '0x001E' 
    a[9] = '0x00D6' 
    a[10] = '0x0016' 
    a[11] = '0x03CA' 
    a[12] = '0x0030' 
    a[13] = '0x000D' 
    a[14] = '0x0001' 
    a[15] = '0x0021' 
    a[16] = '0x0010' 
    a[17] = '0x000E' 
    a[18] = '0x000F' 
    a[19] = '0x0035' 
    a[20] = '0x0047' 
    a[21] = '0x0191' 
    a[22] = '0x00CA' 
    a[23] = '0x0036' 
    UO.Set('finddistance','20') 
    while UO.GetHP('self') < 500 
        For i= 0 to 23  
             UO.FindType(a[i], '-1', 'ground') 
             while UO.FindCount() > 0 then 
                UO.DeleteJournal() 
                UO.Attack('finditem')
                repeat 
                    wait(700) 
                until UO.InJournal('Body of')
                UO.FindType(a[i], '-1', 'ground')  
             wend 
             wait(100)
        next    
    wend 
end sub
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2009-07-27 09:36:25 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Что творится то :shock: , прям полет фантазии :)
Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 09:42:10 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
:twisted:
Top
   
Reply with quote  
Mirage
 Post subject:
PostPosted: 2009-07-27 10:18:22 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Question_GimFlex wrote:
:twisted:


ты бы прежде чем выкладывать В ОТДЕЛЬНЫХ постах скрипт сперва прочитал уроки хотябы про циклы тогда бы у тебя не пересекались if с repeat тами, не было бы мощных циклов while UO.GetHP('self') < 500 и атаковал бы мобов как надо

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.
Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 10:21:38 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
Mirage wrote:
Question_GimFlex wrote:
:twisted:


ты бы прежде чем выкладывать В ОТДЕЛЬНЫХ постах скрипт сперва прочитал уроки хотябы про циклы тогда бы у тебя не пересекались if с repeat тами, не было бы мощных циклов while UO.GetHP('self') < 500 и атаковал бы мобов как надо


ниче не путаешь зай? :twisted:

viewtopic.php?p=81397#81397

глазенки открой :wink: :arrow:
Top
   
Reply with quote  
skyman
 Post subject:
PostPosted: 2009-07-27 12:48:48 
Offline

Joined: 2009-07-26 18:02:21
Posts: 7
Mirage wrote:
Question_GimFlex wrote:
:twisted:


ты бы прежде чем выкладывать В ОТДЕЛЬНЫХ постах скрипт сперва прочитал уроки хотябы про циклы тогда бы у тебя не пересекались if с repeat тами, не было бы мощных циклов while UO.GetHP('self') < 500 и атаковал бы мобов как надо


можеш помочь с скриптом?
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2009-07-27 12:59:20 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Question_GimFlex wrote:
Code:
sub att() 
    #*********** 
    #GimFlex
    #***********    
end sub


Не забываем про копирайты и беглый просмотр скрипта:
Code:
while UO.FindCount() > 0 then

Зачем тут then?

Вот мой вариант:
Code:
sub att()
   #***********
   #©Kynep
   #***********
   var i
   Dim a[24]
   a[0] = '0x0002'
   a[1] = '0x0003'
   a[2] = '0x0190'
   a[3] = '0x0011'
   a[4] = '0x0018'
   a[5] = '0x004C'
   a[6] = '0x0027'
   a[7] = '0x0056'
   a[8] = '0x001E'
   a[9] = '0x00D6'
   a[10] = '0x0016'
   a[11] = '0x03CA'
   a[12] = '0x0030'
   a[13] = '0x000D'
   a[14] = '0x0001'
   a[15] = '0x0021'
   a[16] = '0x0010'
   a[17] = '0x000E'
   a[18] = '0x000F'
   a[19] = '0x0035'
   a[20] = '0x0047'
   a[21] = '0x0191'
   a[22] = '0x00CA'
   a[23] = '0x0036'
   VAR ser
   UO.Set('finddistance','5') # Дистанция поиска, вокруг чара.
   UO.WarMode(1)
   while NOT UO.Dead()
      For i = 0 to 23
         UO.FindType(a[i], '-1', 'ground')
         If UO.FindCount() > 0 then
            repeat
               UO.DeleteJournal()
               ser = UO.GetSerial('finditem')
               UO.Attack(ser)
               repeat
                  wait(700)
               until UO.InJournal('Body of')
               UO.FindType(a[i], '-1', 'ground')
            until NOT UO.FindCount()
         else
            wait(100)
         end if
      next
   wend
end sub

Проверь Track World Items в закладке Main, там нужна галочка.


Last edited by Kynep on 2009-07-27 13:34:54, edited 2 times in total.

Top
   
Reply with quote  
666||TORCHKI
 Post subject:
PostPosted: 2009-07-27 13:18:25 
Offline
User avatar

Joined: 2006-11-14 16:19:03
Posts: 257
А откуда тут уже
Code:
#*********** 
    #GimFlex 
    #***********
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2009-07-27 13:28:18 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
666||TORCHKI wrote:
А откуда тут уже
Code:
#*********** 
    #GimFlex 
    #***********

Хз.

Вот еще вариант, атачит все что видит:
Code:
sub att() 
   #*********** 
   #©Kynep 
   #*********** 
   var i 
   VAR ser 
   UO.Set('finddistance','3') # Радиус поиска вокруг чара. 
   UO.WarMode(1) 
   UO.Ignore('self') 
    
   while NOT UO.Dead() 
      UO.FindType('-1', '-1', 'ground') 
      If UO.FindCount() > 0 then 
         UO.DeleteJournal() 
         ser = UO.GetSerial('finditem') 
         If UO.IsNPC(ser) <> 0 then 
            UO.Attack(ser) 
            repeat 
               wait(700) 
            until UO.InJournal('Body of') 
         else 
            UO.Ignore(ser) 
            wait(100) 
         end if 
      else 
         wait(500) 
      end if 
   wend 
end sub


Last edited by Kynep on 2009-07-27 19:43:06, edited 4 times in total.

Top
   
Reply with quote  
Question_GimFlex
 Post subject:
PostPosted: 2009-07-27 13:38:46 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
да я уже прикалываться начал :) просто, порой, пользователи сами не понимают чего хотят и усложняют себе жизнь :wink:
Top
   
Reply with quote  
Mirage
 Post subject:
PostPosted: 2009-07-27 14:33:03 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Question_GimFlex wrote:
Mirage wrote:
Question_GimFlex wrote:
:twisted:


:wink: :arrow:


Сори предпоследний пост ты скопировал с оишибкой которую допустил 666||TORCHKI по этому к тебе и обращался :D

2 Kynep
зачем каждый серийник выдергивать? Разве нельзя сделать:

Code:
      UO.FindType('-1', '-1', 'ground')
      If UO.FindCount() > 0 then
         repeat
           If UO.GetHP('finditem') > 0 then 
           UO.DeleteJournal()
    ; а не тут        If hp > 0 then
бла бла бла

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.
Top
   
Reply with quote  
Kynep
 Post subject:
PostPosted: 2009-07-27 19:12:13 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
Mirage wrote:
2 Kynep
зачем каждый серийник выдергивать? Разве нельзя сделать:

Нет, так стабильнее, обьект 'finditem' может в любой момент измениться, а полученный серийник не меняется. Последний скрипт полностью рабочий, если с начала тупит, убейте кого-нить руками, дальше попрет само.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 2
  [ 23 posts ]  Go to page 1 2 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

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:  
Powered by phpBB® Forum Software © phpBB Limited