紅字,請自己修改(儲存點不同,傳的地方也不同)


 


#傳送
automacro warpPortal0 {
        pubm /回家了/
        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 {
        pubm //
        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 現在的傳送點是「啟海」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了...
                :end
        }
}
automacro warpPortal2 {
        pubm /崑崙/
        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 現在的傳送點是「崑崙」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了...
                :end
        }
}
automacro warpPortal3 {
        pubm //
        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 現在的傳送點是「冰」
                        goto end
                :outOfBlueGemStone
                        pause 1
                        do c 沒藍石了
                :end
        }
}


arrow
arrow
    全站熱搜

    aaa1314 發表在 痞客邦 留言(0) 人氣()