RO-fan

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

macro test {
        # получаем наши координаты
        $tmp = $.pos
        log my coordinates: $tmp

        # помещаем коорд. по x и y в cx & cy, соответственно
        $cx = @arg ("$tmp", 1)
        $cy = @arg ("$tmp", 2)
        log x: $cx; y: $cy

        # меняем координаты, как нам вздумается
        # я, например, прибавил к координатам 
        # случайные числа от 1 до 3 включительно
        $newx = @eval ($cx + @rand (1,3))
        $newy = @eval ($cy + @rand (1,3))
        log new x: $newx; new y: $newy

        # открыли портал и прыгнули в него
        do sl 27 $newx $newy
        move $newx $newy
}