開聊天室收材料!!

小弟想說可以自己做火煙組，才想說可不可以利用op來收材料!!
我爬了一下文，但是巨集卻都一直無法成功....  我先把我找到的貼給大家看，如果有人知道哪邊該修改的或有自用收購的 就幫個忙個  會很感謝你的!!。
automacro asw {
    console /您現在已在遊戲中/
    call {
if ($online = 1) goto out
$online = 1
pause 1

call start
pause 1
stop
:out
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
    }
}