把下面複製到control資料夾的macros
傳點跟金額要自己改喔!!



automacro a {
console /You are in the game/
call {
    pause 5
    if (@invamount(藍色魔力礦石) == 0) goto qk
        #當藍色魔力礦石=0時qk=   =
    pause 1
    do chat create "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 2 0 1234
        #a-1 b-2 c-3 d-4 = 聊天室名稱
    pause 1
    do sit
    stop
:qk
    do c QK
    do sit
    stop
}
}
automacro b {
    console /(.*) ((.*)) Requests a Deal/
    call {
          do deal
          pause 15
                    #15秒內不動作取消交易
          do deal no
          stop
    }
}
   
automacro c {
    console /(.*) 加入物品以交易: (.*)/
    call {
                    #加入物品取消交易
          do deal no
          stop
  }
}
automacro d {
    console /(.*) added (.*) z to Deal/
    call {
    $a = $.lastMatch2
    $b = $.lastMatch2
    $c = $.lastMatch2
    $d = $.lastMatch2
    if ($a = 2,000) goto bb
    if ($b = 2,500) goto bb
    if ($c = 3,000) goto bb
    if ($d = 4,000) goto bb
          #$a = ".*" = 傳陣金額
   #$b = ".*" = 傳陣金額
   #$c = ".*" = 傳陣金額
   #$d = ".*" = 傳陣金額
    pause 1
          #當金額!=你販賣的金額取消交易
    do deal no
    stop
:bb
    pause 1
    do deal
    pause 1
    do deal
          #輸入金額10秒內未完成交易者取消交易
    pause 10
    do deal no
    stop
    }
}
automacro e {                    
    console /gained (.*) zeny/
    call {
          do chat leave
          $a = $.lastMatch1
          if ($a = 2,000) goto a1
          if ($b = 2,500) goto b2
          if ($c = 3,000) goto c3
          if ($d = 4,000) goto d4
                    #$a = ".*" = 傳陣金額
                :a1
                    call aa1
                                          #執行macro aa1
                    stop
                :b2    
                    call bb2
                    stop
                :c3
                    call cc3
                    stop
                :d4
                    call dd4
                    stop
    }
}
macro aa1 {
    $aa1 = @invamount(藍色魔力礦石)
          #施放傳送之陣"前"的藍色魔力礦石數量
    $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 1
    do warp yuno
          #a = 地圖名稱
    pause 1
    $aa2 = @invamount(藍色魔力礦石)
          #施放傳送之陣"後"的藍色魔力礦石數量
    if ($aa1 == $aa2) goto ax
          #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
    do c [朱諾]請進~一路順風並祝您遊戲愉快
    stop
    :ax
    pause 1
    do c 傳送失敗
    do c 再來一次
    call axx
          #執行macro axx
    stop
    }
}
macro axx {
    call aa1
          #執行macro aa1
}
#以下類推..
macro bb2 {
    $bb1 = @invamount(藍色魔力礦石)
    $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 1
    do warp ra_fild05
          #b = 地圖名稱
    pause 1
    $bb2 = @invamount(藍色魔力礦石)
    if ($bb1 == $bb2) goto bx
    do c [犬妖]請進~一路順風並祝您遊戲愉快
    stop
    :bx
    pause 1
    do c 傳送失敗
    do c 再來一次
    call bxx
    stop
    }
}
macro bxx {
    call bb2
}
macro cc3 {
    $cc1 = @invamount(藍色魔力礦石)
    $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 1
    do warp glast_01
          #c = 地圖名稱
    pause 1
    $cc2 = @invamount(藍色魔力礦石)
    if (cc1 == cc2) goto cx
    do c [古城]請進~一路順風並祝您遊戲愉快
    stop
    :cx
    pause 1
    do c 傳送失敗
    do c 再來一次
    call cxx
    stop
    }
}
macro cxx {
    call cc3
}
macro dd4 {
    $dd1 = @invamount(藍色魔力礦石)
    $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 1
    do warp yuno_fild03
          #d = 地圖名稱
    pause 1
    $cc2 = @invamount(藍色魔力礦石)
    if ($dd1 == $dd2) goto dx
    do c [火洞]請進~一路順風並祝您遊戲愉快
    stop
    :dx
    pause 1
    do c 傳送失敗
    do c 再來一次
    call dxx
    stop
    }
}
macro dxx {
    call dd4
}


automacro f {
    console /You 已開啟傳送之陣在 \((.*), (.*)\)/
    call {
          pause 5
          if (@invamount(藍色魔力礦石) == 0) goto qk
          pause 1
          do chat create "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 2 0 1234
          pause 1
          do sit
    :qk
          do c QK
          do sit
          stop
    }
}
automacro g {
        console /You are sitting/
        call {
                if (@invamount(藍色魔力礦石) < 1) goto qk
                pause 1
           do chat create "朱諾2000犬妖2500古城3000火洞4000 請自點交易" 2 0 1234
                pause 1
                do sit
                stop
        :qk
                do sit
                stop
        }
}

============================================



 



automacro a {
        console /您現在已在遊戲中/
        exclusive 1
        call {
        if (@invamount(藍色魔力礦石) == 0) goto qk
        pause 3
        do look 4
        do deal no
        do chat create "朱1000古4000火1500炎2100 自點交易" 2 0 4528
        #a-1 b-2 c-3 d-4 = 聊天室名稱
        pause 1
        do sit
        release all
        stop
        :qk
        do sit
        stop
        }
}
automacro b {
        console /(.*) ((.*)) 向您要求一個交易/
        run-once 1
        call {
        do deal
        pause 15
        #15秒內不動作取消交易
        do deal no
        }
}
automacro c {
        console /(.*) 加入物品以交易: (.*)/
        call {
        do deal no
        #加入物品取消交易
        }
}
automacro d {
        console /(.*) 加入 (.*) z 以交易/
        run-once 1
        call {
        $a = $.lastMatch2
        if ($a = 1,000) goto bb
        if ($a = 1,500) goto bb
        if ($a = 4,000) goto bb
        if ($a = 2,100) goto bb
        #$a = ".*" = 傳陣金額
        pause 1
        do deal no
        #當金額!=你販賣的金額取消交易
        stop
        :bb
        pause 1
        do deal
        pause 1
        do deal
        pause 10
        do deal no
        #輸入金額10秒內未完成交易者取消交易
        }
}
automacro f {
        console /您 獲得  (.*) zeny./
        run-once 1
        call {
        pause 1
        do chat leave
        $a = $.lastMatch1
        if ($a = 1,000) goto a1
        if ($a = 1,500) goto b2
        if ($a = 4,000) goto c3
        if ($a = 2,100) goto d4
        #$a = ".*" = 傳陣金額
        :a1
        call aa1
        #執行macro aa1
        stop
        :b2
        call bb2
        stop
        :c3
        call cc3
        stop
        :d4
        call dd4
    
        }
}
automacro e {
        console /交易已取消/
        call {
        release all
        }
}
macro aa1 {
        $aa1 = @invamount(藍色魔力礦石)
        #施放傳送之陣"前"的藍色魔力礦石數量
        $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 1
        do warp yuno
        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c [朱諾]請進~一路順風並祝您遊戲愉快
        call start
        stop
        :ax
        pause 1
        call axx
        #執行macro axx
}
macro axx {
        call aa1
        #執行macro aa1
}
macro bb2 {
        $aa1 = @invamount(藍色魔力礦石)
        #施放傳送之陣"前"的藍色魔力礦石數量
        $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 1
        do warp yuno_fild03


        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c [火]請進~一路順風並祝您遊戲愉快
        call start
        stop
        :ax
        pause 1
        call bxx
}
macro bxx {
        call bb2
}
macro cc3 {
        $aa1 = @invamount(藍色魔力礦石)
        #施放傳送之陣"前"的藍色魔力礦石數量
        $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 1
        do warp glast_01


        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c [古]請進~一路順風並祝您遊戲愉快
        call start
        stop
        :ax
        pause 1
        call cxx
}
macro cxx {
        call cc3
}
macro dd4 {
        $aa1 = @invamount(藍色魔力礦石)
        #施放傳送之陣"前"的藍色魔力礦石數量
        $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 1
        do warp ve_fild03


        #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
        #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
        #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c [炎]請進~一路順風並祝您遊戲愉快
        call start
        stop
        :ax
        pause 1
        call dxx
}
macro bxx {
        call dd4
}


macro start {
        if (@invamount(藍色魔力礦石) == 0) goto qk
        pause 3
        do look 4
        do deal no
        do chat create "朱1000古4000火1500炎2100自點交易" 2 0 4528
        #a-1 b-2 c-3 d-4 = 聊天室名稱
        pause 1
        do sit
        release all
        stop
        :qk
        do sit
        stop
}

arrow
arrow
    全站熱搜

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