打城傳陣問題 誰可以幫回答

我使用這個傳陣只有密評他才會傳  請問各位大大如何把他改成公開評就可以傳了  謝謝你們的回答


automacro pm0 {
        pm /斐揚旅館/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                        $x = @arg("$.pos", 1)
                        $y = @arg("$.pos", 2)
                        $y2 = @eval($y + 1)
                        do sl 27 $x $y2
                        pause 1
                        do warp 0
                        do c 離我一格距離，擋住會放不出來
                        do c 現在的傳送點是「斐揚旅館」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了...
                :end
        }
}
automacro warpPortal1 {
        pm /中/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                        $x = @arg("$.pos", 1)
                        $y = @arg("$.pos", 2)
                        $y2 = @eval($y - 1)                        
                        do sl 27 $x $y2
                        pause 1
                        do warp 1
                        do c 離我一格距離，擋住會放不出來
                        do c 現在的傳送點是「中7」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了...
                :end
        }
}
automacro warpPortal2 {
        pm /斐/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                        $x = @arg("$.pos", 1)
                        $y = @arg("$.pos", 2)
                        $x2 = @eval($x + 1)                        
                        do sl 27 $x2 $y
                        pause 1
                        do warp 2
                        do c 離我一格距離，擋住會放不出來
                        do c 現在的傳送點是「斐9」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了...
                :end
        }
}
automacro warpPortal3 {
        pm /新/
        call {
                if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                        $x = @arg("$.pos", 1)
                        $y = @arg("$.pos", 2)
                        $x2 = @eval($x - 1)                        
                        do sl 27 $x2 $y
                        pause 1
                        do warp 3
                        do c 離我一格距離，擋住會放不出來
                        do c 現在的傳送點是「新7」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了
                :end
        }
}