[решено] Как проверить LOS в макросах

[Aib0]

Два пути - читать док по перлу и думать или в сервис)

[Святой Инквизитор]

Нет уж я не настолько тупой чтобы писать в сервис...

[vit]

Кто сказал, что в сервис обращаются только тупые? Ну не хочешь, значит читай доку.

P.S: В макросах есть специальная одноименная переменная, думаю тут должен быть такой же вид, как и у неё.
P.P.S: Завязывай уже везде кричать "я не тупой", "не надо считать меня тупым", а то уже который раз от тебя это слышно, наводит на некоторые мысли...

[Святой Инквизитор]

Я не ору без причины... а только тогда когда меня таковым считают (колкость не уместна.)
Разберусь завтра сегодня влом...

[piroJOKE]

Два пути - читать док по перлу и думать или в сервис)

Я бы выбрал третий, куда более быстрый путь, чем упомянутая выше пара.
Поискал бы в разделе "макросы", у нас или на головном сайте ОпенКоры примеры
обращения к eval ...

[Cooot]

Почему бы просто не попробовать:

Код: Выделить всё

@eval (Misc::checkLineSnipable($.pos, $.lastMonsterPos))

[Aib0]

Я бы выбрал третий, куда более быстрый путь, чем упомянутая выше пара.

Этот путь уже испробован аффтаром и не сработал)

[Святой Инквизитор]

Почему бы просто не попробовать:

Код: Выделить всё

@eval (Misc::checkLineSnipable($.pos, $.lastMonsterPos))

Не работает уже проверял... на форуме Коры не нашёл ничего о использовании ЛОС в макросах.... Пока пытаюсь что нибудь придумать и пробую варианты...

[EternalHarvest]

Вам вообще вот эта строчка ни о чём не говорит?

sub checkLineSnipable {
return 0 if (!$field);
my $from = shift;
my $to = shift;

my ($X0, $Y0, $X1, $Y1) = ($from->{x}, $from->{y}, $to->{x}, $to->{y});

[Святой Инквизитор]

Угу я её встречал но я в ней ничерта не понял... по образцу знаков препинания и словам что там встретил сотворил это - @eval(Misc::checkLineSnipable($myx, $myy, $mobx, $moby)) - но оно не заработало...

[piroJOKE]

Здрасьте, там всего два аргумета, "фром" и "ту", и форматом они оба хеши.
А в каком формате этот $.pos - хек его знает, мне не ведомо.

[EternalHarvest]

Надо что-то вроде (не проверял):

@eval(Misc::checkLineSnipable({x => $myx, y => $myy}, {x => $mobx, y => $moby})

[kLabMouse]

Misc::checkLineSnipable((x => $form_x, y => $from_y), (x => $to_x, y => $to_y))

[EternalHarvest]

Misc::checkLineSnipable((x => $form_x, y => $from_y), (x => $to_x, y => $to_y))

А в единый list context так всё не развернётся? /hmm

[Святой Инквизитор]

Код: Выделить всё

@eval(Misc::checkLineSnipable((x => $myx, y => $myy), (x => $mobx, y => $moby)))

^unworkable^

Ещё предложения?

Добавлено спустя 27 минут 58 секунд:
Народ я тут подумал откуда в коре можно вытащить эвалом $myPos, $pos? из этой строчки checkLineSnipable($myPos, $pos) тогда можно будет оценить что они собой представляют...