小服傳送飛機巨集分享

小飛機要真的能用就能省事得多，下來試試看，感謝分享~~

哈哈哈哈哈 好想要唷~看大家用 其實有點羨慕= =

我的會交易收錢 但收完之後還是坐著不會傳送囧

automacro Start {
        console /您的座標/
        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 "古2000犬妖2100火洞2200石波2300^^" 2 0 9527
# 自行修改聊天室內容
                do deal no
# 避免在使用傳陣到創聊天室之間有人點交易
}
automacro Deala {
        console /向您要求一個交易/
        inventory "藍色魔力礦石" > 0
        call {
        do deal
        pause 15
        do deal no
        }
}
automacro Dealb {
        console /加入物品以交易/
        call {
        do deal no
        }
}
automacro Dealc {
        console /加入 (.*) z 以交易/
        call {
        $a = $.lastMatch1
        if ($a = 2,000) goto OK
        if ($a = 2,100) goto OK
        if ($a = 2,200) goto OK
        if ($a = 2,300) goto OK
# 自行修改金額
                do deal no
                stop
        :OK
                pause 1
                do deal
                pause 1
                do deal
                pause 10
                do deal no
        }
}
automacro Warp {
        console /您獲得了 (.*) 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 == "2,000") goto A
        if ($a == "2,100") goto B
        if ($a == "2,200") goto C
                do warp glast_01
# 傳送點一
                goto End
        :A
                do warp ra_fild05
# 傳送點二
                goto End
        :B
                do warp yuno_fild03
# 傳送點三
                goto End
        :C
                do warp veins
# 傳送點四
        :End
                pause 3
        if ($b == @invamount(藍色魔力礦石)) goto Top
# 使用傳陣藍礦未減少回到Top
                do c 感謝您的搭乘，主人一路順風唷^^~
                call Chat
        }
}

再問您一個問題唷
這是可以傳幾個地方@@?
我上面用紅的地方只有3個價錢可以調~~

謝謝大大唷^^
麻煩教我一下><

以下是我的腳本  會開聊天室  會收錢   但是不會傳了   請問大大可以幫我看看哪錯了嗎




automacro a {
        console /您現在已在遊戲中/
        call {
                if (@invamount(藍色魔力礦石) == 1) goto qk
                                #當藍色魔力礦石=0時qk=   =
                pause 1
                do chat create "金波1500 炎波2500 石波2400 優佩2600" 2 0 787878
                                #a-1 b-2 c-3 d-4 = 聊天室名稱
                pause 1
                do sit
                stop
      :qk
                do c 沒有藍石了非常抱歉請勿再交易
                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,101) goto bb
        if ($a = 1,102) goto bb
        if ($a = 1,103) goto bb     
                #$a = ".*" = 傳陣金額
        pause 1
                #當金額!=你販賣的金額取消交易
        do deal no
        stop
:bb
        pause 1
do deal
pause 1
do deal
        pause 10
        do deal no
      

                #輸入金額10秒內未完成交易者取消交易
      
        stop
        }
}

automacro f {                                
      console /您獲得了 (.*) zeny/
        call {  
  $asd = 0  
  pause 1
                do chat leave
                $a = $.lastMatch1
                if ($a = 1,101) goto a1
                if ($a = 1,102) goto b2
                if ($a = 1,103) goto c3
           
                                #$a = ".*" = 傳陣金額
                        :a1
                                call aa1
                                                               #執行macro aa1
                                stop
                        :b2        
                                call bb2
                                stop
                        :c3
                                call cc3
                                stop
                    
        }
}


automacro k {  
console /LXCollect ((.*)) 向您要求一個交易/
        call {
             if ($asd = 0) goto asa
        do deal no     
        stop
:asa
                if ($a = 1,101) goto a1
                if ($a = 1,102) goto b2
                if ($a = 1,103) goto c3
   :a1
                                call aa1 }
                                                                #執行macro aa1
                                stop
                        :b2        
                                call bb2 }
                                stop
                        :c3
                                call cc3 }
                                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 ve_fild07
                #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
                #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
                #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax     
call start   
stop   
        :ax
        pause 1      
        call axx
                #執行macro axx
              
        stop
        }
}
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 glast_01
                #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
                #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
                #當施放傳送之陣前後藍色魔力礦石相等判定傳送失敗跳至:ax   
call start   
stop
        :ax
        pause 1      
        call bxx
                #執行macro axx
            
        stop
        }
}
macro bxx {
        call bb2
                #執行macro aa1
}

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 ve_fild03
                #a = 地圖名稱
        pause 1
        $aa2 = @invamount(藍色魔力礦石)
                #施放傳送之陣"後"的藍色魔力礦石數量
        if ($aa1 == $aa2) goto ax
call start   
stop
        :ax
        pause 1      
        call cxx
                #執行macro axx
              
        stop
        }
}
macro cxx {
call cc3
      #  call cc3
                #執行macro aa1
}
macro start {
$asd = 1
do deal no
pause 1
do chat create "金波1500 炎波2500 石波2400 優佩2600" 請自行交易" 2 0 4528

pause 1
do sit
stop
}

謝謝這位大大 我試試看~~~~~~~~~~~~~~~~~

感謝大大分享  新手適合嗎@@?
鋼回鍋 到賊都還沒轉= =

感謝大大的分享喔 不過能更仔細一點會更好喔 例如:此文章放到哪個資料夾or修改哪裡可以改傳送的地點 感謝@@

有沒有那麼神奇~!!來去是看看是不是唬爛的

good
good
本文章轉自外掛聯合國http://www.wgun.net

good
本文章轉自外掛聯合國http://www.wgun.net

good
本文章轉自外掛聯合國http://www.wgun.net

good
本文章轉自外掛聯合國http://www.wgun.net

good
本文章轉自外掛聯合國http://www.wgun.net

good
本文章轉自外掛聯合國http://www.wgun.net