СПАРИНГ

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')
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 куда отходить чтобы лечить(ся)
Шард Антарес
Ururu
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

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

Post by pika »

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

Post by pika »

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

Post by arch »

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


в строке

Code: Select all

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

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

Code: Select all

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

Post by SAMURAI »

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

Code: Select all

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

На эту:

Code: Select all

until (gotoxy(828,1201,0))# координаты по Y куда отходить чтобы лечить(ся)
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

Code: Select all

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

© I'm
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

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

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:
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

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

Post by pika »

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

Post by pika »

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

Post by pika »

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

Post by Ururu »

pika wrote:vjvcf можете пожал сказать как тоесть сами действия этого скриптика
вначале - чар должен подходить и бить второго? рааскажите подал

ходить от куклы к кукле и бить их
Шард Антарес
Ururu
pika
Posts: 118
Joined: 2007-06-11 22:57:49

Post by pika »

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

Post by pika »

можете пожалуйсто посмотреть этот скрипт - а то у меня не идёт =(
он както глючит -
он все постоянно не туда идёт -
то наискосок - то - вниз - то ищё кудато
и даже если поёдет туда - то он не ударит второго чара а при ударе он резко снимает щит и иружие и начинает лечит - а второй чар здоров
то он опять оедевает и опять снимает - и потом идет вниз!
хотя я все координаты ставлю правельно
помогите пожалуйсто
сделайте так чтоб он не шол вниз =( а токо наверх к чару ну и отходил лечился
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
Post Reply