RO相關資料資訊♂外掛腳本討論&請勿發表其他廣告(請保持畫面清爽)感謝

本帖最後由 天國 combatmx 於 2009-12-31 22:55 編輯

花了超久時間，看了好多文章，終於免強打出小服賣傳陣的巨集，希望大家能多使用，多賣傳點，讓免服傳點變便宜!!!

###飛機###
automacro a {
        console /Your Coordinates: x, y/
                              #x, y是你人物在地圖開聊天室的座標(請務必走到該座標，再開啟外掛)
        call {
                if (@invamount(藍色魔力礦石) == 1) goto qk
                                #當藍色魔力礦石=0時qk=   =    ←(理論上是要打0..但是我打0都失敗，所以只好打1=.=)
                pause 1
                do chat create "朱1000中央2000西歐3000商港4000" 2 0 787878
                                #朱1000中央2000西歐3000商港4000 = 聊天室名稱
                pause 1
                do sit
                stop
        :qk
                do c 沒有藍石了非常抱歉請勿再交易
                do sit
                stop
        }

}

automacro b {
        console /(.*) ((.*)) Requests a Deal/
        call {
                do deal
                pause 15
                                #15秒內不動作取消交易
                do deal no
                stop
        }
}
        
automacro c {
        console /(.*) added Item to Deal: (.*)/
        call {
                                #加入物品取消交易
                do deal no
                stop
     }
}

automacro d {
        console /(.*) added (.*) z to Deal/
        call {
        $a = $.lastMatch2
        if ($a = 1,000) goto bb
        if ($a = 2,000) goto bb
        if ($a = 3,000) goto bb
        if ($a = 4,000) 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 /You gained (.*) zeny/
        call {
                do chat leave
                $a = $.lastMatch1
                if ($a = 1,000) goto a1
                if ($a = 2,000) goto b2
                if ($a = 3,000) goto c3
                if ($a = 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
                #yuno = 地圖名稱
        pause 1
              $aa2 = @invamount(藍色魔力礦石)
                #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
                #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax
        do c 您的[朱諾]
        pause 1
        do sit
        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 prontera
                #prontera = 地圖名稱
        pause 2
        $bb2 = @invamount(藍色魔力礦石)
        if ($bb1 == $bb2) goto bx
        do c 您的[中央]
        pause 1
        do sit
        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 gef_fild14
                #gef_fild14  = 地圖名稱
        pause 2
        $cc2 = @invamount(藍色魔力礦石)
        if (cc1 == cc2) goto cx
        do c 您的[西歐]
        pause 1
        do sit
        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 alberta
                #alberta = 地圖名稱
        pause 2
        $cc2 = @invamount(藍色魔力礦石)
        if ($dd1 == $cc2) goto dx
        do c 您的[商港]
        pause 1
        do sit
        stop
        :dx
        pause 1
        do c 傳送失敗
        do c 再來一次
        call dxx
        stop
        }

}

macro dxx {
        call dd4
}

automacro g {
        console /You are sitting/

        call {
                do c 看不到請移動喔
                if (@invamount(藍色魔力礦石) == 0) goto qk
                pause 1
                do chat create "朱1000中央2000西歐3000商港4000" 2 0 787878
                pause 1
                do sit       
                stop
        :qk
                do c SORRY沒有藍石了請勿再點交易稍後補充
                do sit
                stop
        }
}


，以上巨集是給非中文版的人用的
如果你是中文版外掛的話，請修改下面的東西(英文改中文)
1.console /Your Coordinates: x, y/  修改成     console /您的座標: x, y/
2.console /(.*) ((.*)) Requests a Deal/  修改成    console /(.*) ((.*)) 向您要求一個交易/
3.console /(.*) added Item to Deal: (.*)/     修改成      console /(.*) 加入物品以交易: (.*)/
4.console /(.*) added (.*) z to Deal/   修改成       console /(.*) 加入 (.*) z 以交易/
5.console /You gained (.*) zeny/     修改成     console /您獲得了 (.*) zeny/
6.console /You are sitting/     修改成      console /您正坐著/