傳陣有問題

如題
小弟想要增加一個古城的點
但是目前四個點中只存了兩個(另外兩個點還沒有記憶地圖)
設定完後.不管多少錢他都傳同樣的地方(傳古城:就是第一個放的地圖位置)
請問我有哪裡弄錯了嗎
macros如下

automacro Start {
         console /Your Coordinates/
         exclusive 1
         call {
         pause 3
         do conf ignoreAll 1
         call Chat
         }
}
macro Chat {
         do sit
         do look 4
         if (@invamount(藍色魔力礦石) > 0) goto OK
                 do chat create "沒石頭了" 2 0 9527
                 stop
         :OK
                 do chat create "彩虹塔頂10w古城記憶迷宮12w" 2 0 9527
# 自行修改聊天室內容
                do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
         console /Requests a Deal/
         inventory "藍色魔力礦石" > 0
         call {
         do deal
         pause 15
         do deal no
         }
}
automacro Dealb {
         console /added Item to Deal/
         call {
         do deal no
         }
}
automacro Dealc {
         console /added (.*) z to Deal/
         call {
         $a = $.lastMatch1
         if ($a = 120,000) goto OK
         if ($a = 100,000) goto OK
         if ($a = 1,000) goto OK
         if ($a = 1,300) goto OK
# 自行修改金額
                do deal no
                 stop
         :OK
                 pause 1
                 do deal
                 pause 1
                 do deal
                 pause 10
                 do deal no
         }
}
automacro Warp {
         console /You gained (.*) zeny/
         exclusive 1
         call {
         $b = @invamount(藍色魔力礦石)
         do chat leave
         :Top
         $x = @arg("$.pos", 1)
         $y = @arg("$.pos", 2)
         $x0 = @eval($x - @rand(1,3))
         $y0 = @eval($y - @rand(1,3))
                 do sl 27 $x0 $y0
                 pause 2
         #if ($a == "100,000") goto A
         #if ($a == "1,300") goto B
         #if ($a == "1,000") goto C
                 do warp glast_01
# 傳送點一
                goto End
         :A
                 do warp ecl_fild01
# 傳送點二
                goto End
         :B
                 do warp mosk_fild02
# 傳送點三
                goto End
         :C
                 do warp lhz_fild01
# 傳送點四
        :End
                 pause 3
         if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
                 do c 傳陣已開，若看不到或進不去，請先"重登"，謝謝^^
                 call Chat
         }
}