聊天室收購腳本

大家好，我轉貼一個朋友給我的聊天室收購腳本，這個腳本是可以讓跑馬燈收物 + 收數量型物品(如:白水,材料) + 自動存倉(需配合其他文件)
+ 收抽獎用卡片!!!(還排除npc不收的喔) + 自動招呼客人 + 記錄下所有交易狀況(log資料夾)+ 隨時可觀看收了多少，超級好用喔!!也祝大家新年快樂!!年年有餘~


automacro asw {
      console /您現在已在遊戲中/
      call {
if ($online = 1) goto out
$online = 1
pause 1
call start
pause 1
stop
ut
do quit
}
}

macro start {
$P1 = 10
#收濃神
$P2 = 10
#收濃鋁

$no = 0
#交易次數
$dealout = 0
#亂小次數

do chat create "準備中..." 2 0 @eval($x - @rand(1000,9999))
call start1
}



macro start1 {
log $dealout亂/$no次(神$P1 鋁$P2)
pause 1
do chat modify "交易$no次 搗蛋失敗$dealout次" 2 0 @eval($x - @rand(1000,9999))
log "交易$no次 搗蛋失敗$dealout次"
pause 1

do chat modify "收濃神($P1箱)" 2 0 @eval($x - @rand(1000,9999))
log "收濃神($P1箱)"
pause 1
do chat modify "收濃鋁($P2箱)" 2 0 @eval($x - @rand(1000,9999))
log "收濃鋁($P2箱)"
pause 1

call start1
}


automacro b {
      console /(.*) ((.*)) 向您要求一個交易/
run-once 1
      call {
$dealco = 0
$no = @eval($no + 1)
do conf logConsole 1
pause 1
          do deal
          pause 15
#15秒內不動作取消交易
log 來亂的人
$dealout = @eval($dealout + 1)
          do deal no
          stop
      }
}



automacro Deal1 {
        console /[deal](.*)加入物品以交易: 濃縮神之金屬箱子 x 1/
        call {  
if ($P1 = 0) goto stop1
    $asd = 1
    $dealco = @eval($dealco + 4400000)
            #do deal add z 5500000
    #pause 1
            #do deal
call Deal15no
stop
:stop1
do deal no
call start1
stop
            }
}
automacro Deal2 {
        console /[deal](.*)加入物品以交易: 濃縮鋁箱子 x 1/
        call {
if ($P2 = 0) goto stop2
    $asd = 1
    $dealco = @eval($dealco + 4800000)
            #do deal add z 6000000
    #pause 1
            #do deal
call Deal15no
stop
:stop2
do deal no
call start1
stop
            }
}



automacro Dealok1 {
        console /[drop] 物品已加入背包: 濃縮神之金屬箱子(.*)x(.*)-(.*)/
        call {
$P1 = @eval($P1 - $.lastMatch2)
release all
do conf logConsole 0
call start1
    }
}

automacro Dealok2 {
        console /[drop] 物品已加入背包: 濃縮鋁箱子(.*)x(.*)-(.*)/
        call {
$P2 = @eval($P2 - $.lastMatch2)
release all
do conf logConsole 0
call start1
    }
}



##以下不用調整 ==============================================
automacro FinDeal {
        console /[deal](.*)完成了本交易/
    run-once 1
        call {
if ($asd = 1) goto asa
pause 2
do deal no
do conf logConsole 0
release all
stop
:asa
    $asd = 0
    do deal add z $dealco
    $dealco = 0
    do deal
    pause 1
    do deal
    pause 15
    log 來亂的人
    $dealout = @eval($dealout + 1)
    do deal no
stop
            }
}

macro Deal15no {
          pause 10

if ($asd = 1) goto asa
pause 2
do deal no
do conf logConsole 0
release all
stop
:asa
    $asd = 0
    do deal add z $dealco
    $dealco = 0
    do deal
    pause 1
    do deal
    pause 15
    log 來亂的人
    $dealout = @eval($dealout + 1)
    do deal no
}

automacro Dealno {
        console /(.*)交易已取消/
    run-once 1
        call {
$asd = 0
do deal no
do conf logConsole 0
release all
call start1
    }
}

automacro Dealok {
        console /(.*)交易完成/
    run-once 1
        call {
do conf logConsole 0
call start1
    }
}

遊客，如果您要查看本帖隱藏內容請回復

謝謝>""""<

感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享感謝分享

謝謝大大囉~
正在想怎ㄇ半

感謝大大分享 感激不盡

:D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D :D

謝謝無私分享好物給大家使用  好多東西想收呢

感謝分享,正好需要這個呀!!!

謝謝大大囉~
正在找尋
怎麼收購

:o

謝謝分享
最近剛好有東西想收

感謝大大的提供~
謝謝分享喔

趕快來試試看

感謝哥  各這東西 簡直割愛壓  謝謝你唷

神啊...感謝您!!最近正好想換卡片