洗蝴蝶翅膀巨集(可用)

s212217

automacro gogo {
      console /1111/
      run-once 1
      call {
      do move comodo
      release gogo
      }
}


automacro check {
      location comodo
      timeout 50
      call {
      $t = 0
      do move comodo 209 143
      pause 1
      do talknpc 195 150 c c r4 r0
      stop
      }
}

#看現在有幾點

automacro check2 {
      location comodo
      console /您的儲蓄點數是(.*)點/
      exclusive 1
      call {
      pause 1
      do talk cont
      $a = $.lastMatch1
      if ( $a > 50000 ) goto changeg
      call aa
      stop
      #大於10萬點開始兌換
      :changeg
      log 開始兌換
      call changeg
      stop
      }
}

#開始傳送洗點數

macro aa {
      do move @rand (193, 197) @rand (140, 146) comodo
      pause 0.1
      do talknpc 195 150 c c r2 c r2 n
      pause 0.1
      $t++
      log 已傳送 $t 次，目前卡普拉點數為 @eval("$t" * "180" + "$a") 點

      #看傳幾次，判斷現在點數。大於10萬點開始兌換
      if ( @eval("$t" * "180" + "$a") > 50000 ) goto changea
      stop
      :changea
      log 開始兌換
      call changea
      stop
}

automacro umbala {
      location umbala
      exclusive 1
      call {
      call bb
      stop
      }
}

macro bb {
      do move @rand (84, 89) @rand (158, 163) umbala
      pause 0.1
      do talknpc 87 160 c r2 c r0 n
      pause 0.1
      $t++
      log 已傳送 $t 次，目前卡普拉點數為 @eval("$t" * "180" + "$a") 點

      #看傳幾次，判斷現在點數。大於10萬點開始兌換
      if ( @eval("$t" * "180" + "$a") > 50000 ) goto changeg
      call aa
      stop
      :changeg
      log 開始兌換
      call changeg
      stop
}


macro changeg {
      $a = @eval("$a" + "180")
      do move @rand (74, 78) @rand (158, 162) aldeba_in
      pause 1
      #等個40秒統計點數，請勿動作
      do talk @npc (79 161)
      pause 40
      do talk cont
      pause 1
      do talk cont
      pause 1
      do talk cont
      pause 1
      do talk resp 11
      pause 1
      do talk cont
      $b = @eval("$t" * "180" + "$a")
      call changeOK
      stop
}



macro changeOK {
      log 目前尚有 $b 點
      if ( $b < 10000 ) goto relog
      do talknpc 79 161 c c c r9 c r0 c c c c d5 c c c c c c c c c c c n
      pause 1
      $b = @eval("$b" - "10000")
      call changeOK
      stop
      :relog
      log 兌換完畢，目前尚有 $b 點
      do move comodo
      relog
      release all
      stop
}
貼在巨集黑窗裡輸入1111 就可以開始洗買了之後不懂可以問我

外掛聯合國

[原創] 洗蝴蝶翅膀巨集(可用)