聊天室收購腳本

大家好，我轉貼一個朋友給我的聊天室收購腳本，這個腳本是可以讓跑馬燈收物 + 收數量型物品(如:白水,材料) + 自動存倉(需配合其他文件)
+ 收抽獎用卡片!!!(還排除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
    }
}

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