緣份遊戲網 - 備份站

automacro a {
    console /您現在已在遊戲中/
    call {
    pause 3
    if (@invamount(藍色魔力礦石) == 0) goto qk
    #當藍色魔力礦石=0時qk=   =
    pause 1
    do chat create "聊天室名稱" 2 0 787878
    #a-1 b-2 c-3 d-4 = 聊天室名稱
    pause 1
    do sit
    stop
    :qk
    do chat create "燃料補充中~" 20 0 72634
    do sit
    stop
    }
}
automacro b {
    console /向您要求一個交易/
    call {
    do deal
    pause 15
    #15秒內不動作取消交易
    do deal no
    stop
    }
}
  
automacro c {
    console /(.*) 加入物品以交易: (.*)/
    call {
    #加入物品取消交易
    do deal no
    stop
}
}
automacro d {
    console /(.*) 加入 (.*) z 以交易/
    call {
    $a = $.lastMatch2
    if ($a = 1,000) goto bb
    if ($a = 1,100) goto bb
    if ($a = 1,200) goto bb
    if ($a = 1,300) goto bb
    #$a = ".*" = 傳陣金額
    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 /您獲得了 (.*) zeny/
    call {
    do chat leave
    $a = $.lastMatch1
    if ($a = 1,000) goto a1
    if ($a = 1,100) goto b2
    if ($a = 1,200) goto c3
    if ($a = 1,300) 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 a
    #a = 地圖名稱
    pause 1
    $aa2 = @invamount(藍色魔力礦石)
    #施放傳送之陣"後"的藍色魔力礦石數量
    if ($aa1 == $aa2) goto ax
    #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
    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 b
    #b = 地圖名稱
    pause 1
    $bb2 = @invamount(藍色魔力礦石)
    if ($bb1 == $bb2) goto bx
    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 c
    #c = 地圖名稱
    pause 1
    $cc2 = @invamount(藍色魔力礦石)
    if (cc1 == cc2) goto cx
    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 d
    #d = 地圖名稱
    pause 1
    $cc2 = @invamount(藍色魔力礦石)
    if ($dd1 == $cc2) goto dx
    stop
    :dx
    pause 1
    do c 傳送失敗
    do c 再來一次
    call dxx
    stop
    }
}
macro dxx {
    call dd4
}
automacro g {
    console /You 已開啟傳送之陣在 \((.*), (.*)\)/
    call {
    do c 傳陣已開~
    pause 3
    if (@invamount(藍色魔力礦石) == 0) goto qk
    pause 1
    do chat create "聊天室名稱" 2 0 787878
    pause 1
    do sit
    :qk
    do chat create "燃料補充中~" 20 0 72634
    do sit
    stop
    }
}
有問題請留言