Скоко я ужэ искал и не находил Хелп
Archery ....
Moderators: Murderator+, Murderator
Archery ....
Луди , у кавонибуть ест макрос на ето ???
Скоко я ужэ искал и не находил Хелп
Скоко я ужэ искал и не находил Хелп
Bad Boys Forevar
Ставим два чара напротив друг друга, между ними на пол пак, в который стрелы, бинты, несколько запасных луков. Чару что будет качать арчери в скрипт (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.
Я играю не на ДРВ...BETEPAH wrote:Кстате ....Эдред ты его проверял довно ?
Щас по ходу на ДРВ отрубили вообще прокачку боевых....на чарах не качается вообще ......проверь плиз
Я играю на Цитадели. Этот скрипт я вообще в субботу минут за 15 сваял, прямо счас чар стоит и качает на нем арчери. Медленно растет, но растет.По ходу теперь да )))zarg wrote:Я играю с сети. И та у нас внешний IP у всех одникаовый че мне теперь на ДРВ с друзьями получается качаться неьлзя?Daioh wrote:На ДРВ походу идет проверка на ip. Если один на бьющихся чаров - боевые не растут.
Но у меня на выделке за 10 баков можно второй айпишник подключить )))......Терь на ДРВ буду зарабатывать на прокачки боевых )))
Все просто.
BETEPAH ™
BETEPAH ™
Информация - предположение, имеющее некторые под собой основания. Если подтвердите - хорошо. Если нет - ну тогда я не знаю как они проверяют. Возможно, есть проверка на демейдж или удары, но я склоняюсь к первому варианту.BETEPAH wrote:По ходу теперь да )))
Но у меня на выделке за 10 баков можно второй айпишник подключить )))......Терь на ДРВ буду зарабатывать на прокачки боевых )))
-
Red dragon
- Posts: 25
- Joined: 2005-04-04 20:45:29
Re: Archery ....
хххх квар катавти эт ха тема а зот ))Stasik wrote:Луди , у кавонибуть ест макрос на ето ???
Скоко я ужэ искал и не находил Хелп
-
Red dragon
- Posts: 25
- Joined: 2005-04-04 20:45:29
-
Red dragon
- Posts: 25
- Joined: 2005-04-04 20:45:29
Re: Archery ....
http://yoko.netroof.net/forum/viewtopic ... 0411#20411Stasik wrote:Луди , у кавонибуть ест макрос на ето ???
Скоко я ужэ искал и не находил Хелп
Прошу...
Нет ничего невозможного...
Кто [url=http://forum.yoko.com.ua/search.php]ИЩЕТ[/url], тот всегда найдёт...
[code]sub UO()
UO.Chto-To("S Chem-To")
end sub[/code]
© I'm
Кто [url=http://forum.yoko.com.ua/search.php]ИЩЕТ[/url], тот всегда найдёт...
[code]sub UO()
UO.Chto-To("S Chem-To")
end sub[/code]
© I'm
-
Red dragon
- Posts: 25
- Joined: 2005-04-04 20:45:29
Re: Archery ....
SAMURAI wrote:http://yoko.netroof.net/forum/viewtopic ... 0411#20411Stasik wrote:Луди , у кавонибуть ест макрос на ето ???
Скоко я ужэ искал и не находил Хелп
Прошу...
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.
а я всё поменял !
