Archery ....

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Stasik
Posts: 1
Joined: 2004-08-05 16:40:27
Location: Israel

Archery ....

Post by Stasik »

Луди , у кавонибуть ест макрос на ето ???

Скоко я ужэ искал и не находил Хелп :twisted:
Bad Boys Forevar
Top
Kazoo
Posts: 173
Joined: 2004-04-03 18:39:28
Contact:
Contact Kazoo

Post by Kazoo »

на каком шарде играеш?
11
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Ставим два чара напротив друг друга, между ними на пол пак, в который стрелы, бинты, несколько запасных луков. Чару что будет качать арчери в скрипт (Archery) серийник другого чара. В скрипте поправить цифры здоровья, меньше которых на паузу и лечиться (150 и 235), у нас на шарде глючит проверка здоровья другого чара, цифры показывает искаженные, потому там такие.

Code: Select all

#===================================================================#
# ARCHERY.                                                          #
# Прокачка арчери на двух чарах                                     #
#===================================================================#
#   v.1.04b (с) Edred                                               #
#===================================================================#
;
; Скрипт HealOfTarget запускается на чаре-мишени. В переменных этого
; скрипта занесен тип щита, используемого этим чаром и сериал пака
; для складирования бинтов и стрел (Sklad)
;
; Скрипт Archery запускается на чаре, прокачивающем арчери. Переменная
; CharTarget этого скрипта - это сериал чара-мишени. Также используется
; тот же самый пак (Sklad).
;
; Первому чару (мишени) в пак пяток щитов, армор на него, несколько бинтов.
; Второму чару (стрелку) в пак лук, несколько стрел.
; На склад - бинты, стрелы, луки (побольше).

sub HealOfTarget()
   VAR MyShield = '0x1B73'
   VAR bandag = '0x0E21'
   VAR blbandag = '0x0E20'
   VAR Sklad = '0x404E5494'
   VAR Strela = '0x0F3F'
   repeat
      If UO.Life < 90 Then
         If UO.Count( bandag ) < 100 Then
            ; сбросим кровавые и доберем чистых
            UO.Findtype( blbandag )
            If UO.FindCount() > 0 Then
               UO.MoveItem( 'finditem', 0, Sklad )
               wait(1000)
               CheckLag()
            Endif
            UO.Findtype( bandag, -1, Sklad )
            If UO.FindCount() > 0 Then
               UO.Grab( '100', 'finditem' )
               wait(1000)
               CheckLag()
            Endif
            ; заодно сбросим стрелы
            UO.Findtype( Strela )
            If UO.FindCount() > 0 Then
               UO.MoveItem( 'finditem', 0, Sklad )
               wait(1000)
               CheckLag()
            Endif
            ; заодно подберем стрелы с пола
            UO.Findtype( Strela, -1, 1 )
            If UO.FindCount() > 0 Then
               UO.MoveItem( 'finditem', 0, Sklad )
               wait(1000)
               CheckLag()
            Endif
         Endif
         While UO.Life < 140
            UO.Bandageself()
            wait( 2000 )
            CheckLag()
         Wend
         If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) <> MyShield Then
            UO.Equipt( 'Lhand', MyShield )
            repeat
               wait(100)
            until UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == MyShield
         Endif         
      Endif
      wait(2000)
   until UO.Dead()
endsub

sub Archery()
   VAR Bow = '0x13B1'
   VAR CharTarget = '0x004CFBD6'
   VAR Sklad = '0x404E5494'
   VAR Strela = '0x0F3F'
   while UO.SkillVal( 'Archery' ) < 1000
      If UO.Count( Bow ) < 2 Then
         UO.Findtype( Bow, -1, Sklad )
         If UO.FindCount() > 0 Then
            UO.Grab( '1', 'finditem' )
            wait(1000)
            CheckLag()
         Endif
      Endif
      If UO.Count( Strela ) < 100 Then
         UO.Findtype( Strela, -1, Sklad )
         If UO.FindCount() > 0 Then
            UO.Grab( '1000', 'finditem' )
            wait(1000)
            CheckLag()
         Endif
      Endif
      If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> Bow Then
         UO.Equipt( 'Lhand', Bow )
         repeat
            wait(100)
         until UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == Bow
      Endif
      UO.WarMode( 1 )
      UO.Attack( CharTarget )
      repeat
         wait(1000)
         UO.Print( str( UO.GetHP( CharTarget ) ) )
         CheckLag()
      until UO.GetHP( CharTarget ) < 150
      UO.WarMode( 0 )
      repeat
         wait(500)
      until UO.GetHP( CharTarget ) > 235
   wend
endsub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click( 'backpack' )
   repeat
      wait(100)
   until UO.InJournal( 'backpack' )
endsub
Last edited by Edred on 2004-09-13 20:28:18, edited 2 times in total.
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

Кстате ....Эдред ты его проверял довно ?
Щас по ходу на ДРВ отрубили вообще прокачку боевых....на чарах не качается вообще ......проверь плиз
Все просто.
BETEPAH ™
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

BETEPAH wrote:Кстате ....Эдред ты его проверял довно ?
Щас по ходу на ДРВ отрубили вообще прокачку боевых....на чарах не качается вообще ......проверь плиз


Я играю не на ДРВ... :) Я играю на Цитадели. Этот скрипт я вообще в субботу минут за 15 сваял, прямо счас чар стоит и качает на нем арчери. Медленно растет, но растет.
Top
Daioh
Posts: 63
Joined: 2004-06-28 19:06:26
Contact:
Contact Daioh

Post by Daioh »

На ДРВ походу идет проверка на ip. Если один на бьющихся чаров - боевые не растут.
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Ну никто не мешает в качестве второго чара попросить поставить своего какого-нибудь приятеля... скрипту ведь по фиг, на одном компе оба чара или не разных... Но как же у вас народ из клубов гамает? то есть друг на дружке им же качаться никак...
Top
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Post by zarg »

Daioh wrote:На ДРВ походу идет проверка на ip. Если один на бьющихся чаров - боевые не растут.

Я играю с сети. И та у нас внешний IP у всех одникаовый че мне теперь на ДРВ с друзьями получается качаться неьлзя?
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

zarg wrote:
Daioh wrote:На ДРВ походу идет проверка на ip. Если один на бьющихся чаров - боевые не растут.

Я играю с сети. И та у нас внешний IP у всех одникаовый че мне теперь на ДРВ с друзьями получается качаться неьлзя?


По ходу теперь да )))
Но у меня на выделке за 10 баков можно второй айпишник подключить )))......Терь на ДРВ буду зарабатывать на прокачки боевых )))
Все просто.
BETEPAH ™
Top
Daioh
Posts: 63
Joined: 2004-06-28 19:06:26
Contact:
Contact Daioh

Post by Daioh »

BETEPAH wrote:По ходу теперь да )))
Но у меня на выделке за 10 баков можно второй айпишник подключить )))......Терь на ДРВ буду зарабатывать на прокачки боевых )))

Информация - предположение, имеющее некторые под собой основания. Если подтвердите - хорошо. Если нет - ну тогда я не знаю как они проверяют. Возможно, есть проверка на демейдж или удары, но я склоняюсь к первому варианту.
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Re: Archery ....

Post by Red dragon »

Stasik wrote:Луди , у кавонибуть ест макрос на ето ???

Скоко я ужэ искал и не находил Хелп :twisted:

хххх квар катавти эт ха тема а зот ))
Top
flake
Expert!
Posts: 746
Joined: 2004-08-11 23:56:17
Location: The Citadel
Contact:
Contact flake

Post by flake »

Опа, изеры!
А ты откуда сам?
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Post by Red dragon »

flake wrote:Опа, изеры!
А ты откуда сам?

ЫЫЫЫЫ а ты? )
Top
flake
Expert!
Posts: 746
Joined: 2004-08-11 23:56:17
Location: The Citadel
Contact:
Contact flake

Post by flake »

Хех, отвечать вопросом на вопрос наша привычка.
Из Бат-Яма я.
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Post by Red dragon »

flake wrote:Хех, отвечать вопросом на вопрос наша привычка.
Из Бат-Яма я.

А я из лода =)
Top
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:
Contact SAMURAI

Re: Archery ....

Post by SAMURAI »

Stasik wrote:Луди , у кавонибуть ест макрос на ето ???

Скоко я ужэ искал и не находил Хелп :twisted:
http://yoko.netroof.net/forum/viewtopic.php?p=20411#20411
Прошу... :roll: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm
Top
Red dragon
Posts: 25
Joined: 2005-04-04 20:45:29

Re: Archery ....

Post by Red dragon »

SAMURAI wrote:
Stasik wrote:Луди , у кавонибуть ест макрос на ето ???

Скоко я ужэ искал и не находил Хелп :twisted:
http://yoko.netroof.net/forum/viewtopic.php?p=20411#20411
Прошу... :roll: :D



Code: Select all

sub fight() 


while 1 
   gotoxy(3148,773,7) # êîîðäèíàòû êóäà ïîäõîäèòü ê ïðîòèâíèêó 
   UO.usetype("0x1B77") # òèï ùèòà 
   uo.usetype("0x0EC2") # òèï îðóæèÿ 
   UO.Exec("attack 0x001A772D") #àéäè 2-ãî ÷àðà 
   Repeat 
      wait (500) 
   if uo.injournal("destroyed")then 
   UO.usetype("0x0EC2") # òèï îðóæèÿ 
   uo.deletejournal() 
   endif 
   Until ((UO.GetHP("0x0022097B") <75)or (UO.GetHP("0x000AECD9")  <100)) # 
#æèçíè 1-ãî è 2-ãî ÷àðà 
   repeat 
   UO.Exec("warmode 0") # âûêëþ÷àåì âàð ìîä 
   UO.Press(35) # êîä êëàâèøè End 
   UO.Press(35) # êîä êëàâèøè End 
   until (uo.GetY() < 775)# êîîðäèíàòû ïî Y êóäà îòõîäèòü ÷òîáû ëå÷èòü(ñÿ) 
      UO.DeleteJournal() 
   Repeat 
      UO.Usetype("0x0E21") #Bandages 
      UO.Exec("waittargetobject 0x000AECD9") # àéäè 2-ãî ÷àðà 
      wait(3500) 
   Until (UO.InJournal("need you")) 
      UO.DeleteJournal() 
   Repeat 
      UO.Usetype("0x0E21") #Bandages 
      UO.Exec("waittargetobject 0x0025A5FF")  # àéäè 1-ãî ÷àðà 
      wait(3500) 
   Until (UO.InJournal("need healing")) 
wend 
end sub 

sub gotoxy(x,y,prec) 
var ld=0,ldc=0 
var dx,dy 
var mx,my 
var ox,oy,mk,k 
#uo.print(">") 
#uo.track("1",str(x),str(y)) 
start: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if not ldc then 
uo.print(STR(dx)) 
end if 
if dx<3 then 
mk=70 
else 
mk=15 
end if 
ox=mx 
oy=my 
for k=1 to mk 
mx=UO.GetX() 
my=UO.GetY() 
if mx<>ox or my<>oy then 
goto sdidapl 
end if 
wait(10) 
next 
sdidapl: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if ld==dx then 
ldc=ldc+1 
if ldc>100 then 
uo.print("Can not reach location!") 
return 
end if 
else 
ld=dx 
end if 
if mx==x then 
if my==y then 
return 
endif 
if my>y then 
#UO.Print("UR") 
UO.Press(33) 
goto start 
endif 
#UO.Print("DL") 
UO.Press(35) 
goto start 
end if 
if mx<x then 
if my>y then 
#UO.Print("R") 
UO.Press(39) 
goto start 
endif 
if my==y then 
#UO.Print("DR") 
UO.Press(34) 
goto start 
endif 
#UO.Print("D") 
UO.Press(40) 
goto start 
end if 
if my<y then 
#UO.Print("L") 
UO.Press(37) 
goto start 
endif 
if my==y then 
#UO.Print("LU") 
UO.Press(35) 
goto start 
endif 
#UO.Print("U") 
UO.Press(38) 
goto start 
end sub 

sub Healing() 
   UO.SetArm('CWeapon') 
   UO.Exec("bandageself") 
   wait(500) 
    
   UO.Arm('CWeapon')


скрипт не пашет.. отошол первый чар и всё.....
"where you want to use the bangages?"
you cant see the target.

а я всё поменял !
Top
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:
Contact SAMURAI

Post by SAMURAI »

Настрой координаты подхода к чару, ты слишком далеко поидее отходишь :wink:

Мде, за проделанную работу надо было плату снимать :roll: :lol:
з.ы. Халявщик :wink: :D
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm
Top
Post Reply

Return to “Scripting Ore”