СПАРИНГ

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
pika
Posts: 118
Joined: 2007-06-11 22:57:49

СПАРИНГ

Post by pika »

помогите пожалуйсто ! чтото у меня не настраивается тоесть настраивается но чтото нето =( мне не лень разобратся просто у меня чтото не то выходит! я поставил координаты моего партнера по спарингу,который стоит со мной в одном домк на одном этаже.(.where)
Но когда я запускаю скрипт мой чар кудато не туда идет а вообще кудато через лес потом еще кудато в общем нетуда идет! И еще скажите пожалуйсто вот как понять - координат куда он отходит лечится будет в этом случае это - until (uo.GetY() < 805
ну а что это за кусок такой?

Code: Select all

sub fight() 


while 1 
   gotoxy(1732,2733,10) # координаты куда подходить к противнику 
   UO.usetype("0x1B76") # тип щита 
   uo.usetype("0x0EC2") # тип оружия 
   UO.Exec("attack 0x000AECD9") #айди 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() < 805)# координаты по 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 0x0022097B")  # айди 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')
Top
Ururu
Posts: 479
Joined: 2007-02-21 20:15:57

Post by Ururu »

Скрипт подразумевает что твой чар подходит к противнику изменяя вои координаты по У (север-юг). Подойди к кукле с южной стороны (вплотную). И запиши сюда свою координату У:

Code: Select all

until (uo.GetY() < 805
Вроде так...


Тоесть если твой противник в координатах 1111 2222, то:

Code: Select all

gotoxy(1111,2221,10) # координаты куда подходить к противнику

Code: Select all

until (uo.GetY() < 2221)# координаты по Y куда отходить чтобы лечить(ся)
Шард [b]Антарес[/b]
[color=blue][b]Ururu[/b][/color]
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

можеж сказать пожалуцйсто - как определить в уо где юг а где север?
надо как лицом неверх стоять тоесть там где Ледяной остров если смотреть - от Минока то это - Восток?
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

у меня не очень работает =( я ставлю координаты где стоит партнер - а мой чар такитак ижет воообще не туда - тоесть такое ощущение что он идет на те координаты которые изначально в этом скрипте стояли!!
и никак это какбудто не поменять =( я меняю а он такит\ак вообще не туда идет.помогите пожалуйсто
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

просто я какие координыта не ставлю он всё в низ кудато идет и постоянно вниз!
Top
arch
Posts: 38
Joined: 2004-05-26 16:39:57
Location: www.myruo.ru
Contact:
Contact arch

Post by arch »

pika wrote:просто я какие координыта не ставлю он всё в низ кудато идет и постоянно вниз!
в строке

Code: Select all

until (uo.GetY() < 805
замени 805, например, на 2730. Good luck!

PS. Это в том случае, если координаты, в которых ты дерешься указаны верно в строке

Code: Select all

gotoxy(1732,2733,10)
Top
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:
Contact SAMURAI

Post by SAMURAI »

Поменяй строку:

Code: Select all

until (uo.GetY() < 805)# координаты по Y куда отходить чтобы лечить(ся)
На эту:

Code: Select all

until (gotoxy(828,1201,0))# координаты по Y куда отходить чтобы лечить(ся)
Нет ничего невозможного...
Кто [url=http://forum.yoko.com.ua/search.php]ИЩЕТ[/url], тот всегда найдёт...
[code]sub UO()
UO.Chto-To("S Chem-To")
end sub[/code]
© I'm
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

gfvf памагиате пожлуста у меня не ежёт этот скрипт =(
я всё перепробывал! но первый чар идёт всё кудато вниз!! хотя я всё настраиваю правельно! ну вот сами смотрите пожалуйсто
второй чар стоит в большом доме по координатам
1934,2730,15 z я ставлю в скрипте чтоб я подходил на 1934 2729 15
и всё правельно настраиваю а он все вниз иджет кудато! =х помогите пожалуйсто - ведь наверняка скрипт хорошенький - помогите пожалуйсто
Top
-=JoKeR=-
Posts: 173
Joined: 2007-05-26 00:00:56
Location: Украина, Ode$$a:[X-TEAM Group]
Contact:
Contact -=JoKeR=-

Post by -=JoKeR=- »

UO.Press(35) # код клавиши End
UO.Press(35) # код клавиши End
until (uo.GetY() < 805)# координаты по Y куда отходить чтобы лечить(ся)

Он полюбому будет идти "вниз кудато" как ты говоришь, тоесть на север.
Просто расположи чаров подругому и поставь координаты отхода так чтобы при двух шагах на север он приходил в эти координаты.
Или поменяй
UO.Press(35) # код клавиши End
UO.Press(35) # код клавиши End

клавишу на ту которая соответствует нужному тебе направлению.
Элементарно, Ватсон :wink:
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

сэнк джокер вот сиотри щас я ковырнул и чтото получилось
но он подошол ко второму чару и начал пачемуто его лечить а не бить
потом - he dont need a cure or healing
дальше мой первый чар токо поднял руку на второго (видно было но не ударил =((() и опять пошол внииииииз =((( ну зачем он вниз идет??? джокер помоги пожалусто и помогите ктонибуди
зачем он вниз идет??
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

о ужас
мой первый чар он подходит ко второму - поднимет руку на него (но не бйет) тут же резко снимает оружие и щит - лечит - потом снова одевае оружие и щит - поднимет руку (но не бьет) - снимет амуницию - лечит --- потом отходит вниз и идет идет кудато =))) и цикл бесконечный ---
подскажите что не так может - лучу чтоб он наверх всегда шёл а не вниз? =)))
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

памагитн пожалкйсто
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

vjvcf можете пожал сказать как тоесть сами действия этого скриптика
вначале - чар должен подходить и бить второго? рааскажите подал
Top
Ururu
Posts: 479
Joined: 2007-02-21 20:15:57

Post by Ururu »

pika wrote:vjvcf можете пожал сказать как тоесть сами действия этого скриптика
вначале - чар должен подходить и бить второго? рааскажите подал
ходить от куклы к кукле и бить их
Шард [b]Антарес[/b]
[color=blue][b]Ururu[/b][/color]
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

это как понять ок куклы и до куклы?? тоесть это чо не на втором чаре качатся чтоли - да нее уруру ты чтото путаеш немождет быть такого
куклу можно кнопкой одной бить -
памагите пожалуйсто скажите -- почему у меня в этом скрипте чар идет вни всегда кудато?
--- вот скрипт должен работать -
ё чар подходит ко 2 и бёт его - потом отходи лечит себя и 2 чара и опять подхоодит?7
Top
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

можете пожалуйсто посмотреть этот скрипт - а то у меня не идёт =(
он както глючит -
он все постоянно не туда идёт -
то наискосок - то - вниз - то ищё кудато
и даже если поёдет туда - то он не ударит второго чара а при ударе он резко снимает щит и иружие и начинает лечит - а второй чар здоров
то он опять оедевает и опять снимает - и потом идет вниз!
хотя я все координаты ставлю правельно
помогите пожалуйсто
сделайте так чтоб он не шол вниз =( а токо наверх к чару ну и отходил лечился
Top
HellFire
Posts: 89
Joined: 2004-10-02 23:47:48

Post by HellFire »

Такая же проблема вчера появилась. Чар подходит,1 раз бьёт и тут же отходит лечить,и так каждый раз. Раньше всё гут работало. Шард ДрВ. :arrow:

Code: Select all

sub fight() 


while 1 
   gotoxy(4622,3836,0) # куда подходить чтоб драться 
   UO.usetype("0x1B76") # щит 
   uo.usetype("0x0F51") # оужие 
   UO.Exec("attack 0x000AECD9") #2-й чар кого бить 
   Repeat 
      wait (500) 
   if uo.injournal("destroyed")then 
   UO.usetype("0x0F51") # оружие 
   uo.deletejournal() 
   endif 
   Until ((UO.GetHP("0x001AD865") <75)or (UO.GetHP("0x000AECD9")  <100)) # 
#проверка хп у первого и вторго чара 
   repeat 
   UO.Exec("warmode 0") # вармод 
   UO.Press(35) # отходим End 
   UO.Press(35) # отходим End 
   until (gotoxy(4622,3837,0)) # куда отходить лечиться  
      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 0x001AD865")  # 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') 
end sub
Top
Post Reply

Return to “Scripting Ore”