| 紅色字體請自行修改 
 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 "聊天室名稱" 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 = 1,100) goto OK
 if ($a = 1,200) 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 == "1,200") goto A
 #if ($a == "1,300") goto B
 #if ($a == "1,000") goto C
 do warp alberta_in
 # 傳送點一
 goto End
 :A
 do warp ouyang
 # 傳送點二
 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
 }
 }
 
 |