城戰輔助機~傳送篇(巨集Macro) 保證可用

rascalof

本帖最後由 rascalof 於 2011-8-11 14:04 編輯

分享"平日"及"週日"城戰傳送機巨集腳本
請注意OP資料夾內需有PLUGIN才能執行巨集
請完整複製(包含####這行)貼到記事本
另存新檔: 名稱marcos.txt 編碼UTF-8 即可

1. 平日

###########

automacro pubmguild {
      console /\[(距離|dist)=(.*)\] (.*) $(\d+)$: (新|斐|吉)/
      exclusive 1
      call {
      $i = $.lastMatch4
      if ($.lastMatch2 > 9) goto stop
      $g = @eval (exists $::players{$::playersID[$i]}->{guild} ? $::players{$::playersID[$i]}->{guild}{name} : 'null')


      if ("$.lastMatch3" == "黑名單人物") goto stop

      if ("$g" == "妖精尾巴") goto ok
      if ("$g" == "藍色天馬") goto ok
      stop

      :ok
               if ($.lastMatch5 == "新") goto mac01
               if ($.lastMatch5 == "斐") goto mac03
               if ($.lastMatch5 == "吉") goto mac04
               stop
      :mac01
               $x = @arg("$.pos", 1)
               $y = @arg("$.pos", 2)
               $y2 = @eval($y - 2)
               do sl 27 $x $y2
               pause 2
               do warp alde_gld
               do c ↓新
               stop

      :mac03
            $x = @arg("$.pos", 1)
            $y = @arg("$.pos", 2)
            $x2 = @eval($x + -2)
            do sl 27 $x2 $y
            pause 2
            do warp pay_gld
            do c ←斐9
            stop

      :mac04
            $x = @arg("$.pos", 1)
            $y = @arg("$.pos", 2)
            $x2 = @eval($x + 2)
            do sl 27 $x2 $y
            pause 2
            do warp gef_fild13
            do c 吉4→
            stop

      :stop
      stop
      }
}

2. 周日

###########

automacro pubmguild {
      console /\[(距離|dist)=(.*)\] (.*) $(\d+)$: (修|拉|朱)/
      exclusive 1
      call {
      $i = $.lastMatch4
      if ($.lastMatch2 > 9) goto stop
      $g = @eval (exists $::players{$::playersID[$i]}->{guild} ? $::players{$::playersID[$i]}->{guild}{name} : 'null')


      if ("$.lastMatch3" == "黑名單人物") goto stop

      if ("$g" == "妖精尾巴") goto ok
      if ("$g" == "藍色天馬") goto ok
      stop

      :ok
               if ($.lastMatch5 == "修") goto mac01
               if ($.lastMatch5 == "拉") goto mac02
               if ($.lastMatch5 == "朱") goto mac03
               stop
      :mac01
               $x = @arg("$.pos", 1)
               $y = @arg("$.pos", 2)
               $y2 = @eval($y - 2)
               do sl 27 $x $y2
               pause 1.2
               do warp alberta
               do c ↓進屋子右轉有修理工
               stop

      :mac02
            $x = @arg("$.pos", 1)
            $y = @arg("$.pos", 2)
            $x2 = @eval($x + -2)
            do sl 27 $x2 $y
            pause 1.2
            do warp aru_gld
            do c ←拉
            stop

      :mac03
            $x = @arg("$.pos", 1)
            $y = @arg("$.pos", 2)
            $x2 = @eval($x + 2)
            do sl 27 $x2 $y
            pause 1.2
            do warp sch_gld
            do c 朱→
            stop

      :stop
      stop
      }
}

=======================

需要修改的部分

1. 工會使用權限
if ("$g" == "工會名稱") goto ok

2. 設定偵測的關鍵字
console /\[(距離|dist)=(.*)\] (.*) $(\d+)$: (修|拉|朱)/

3. 偵測到關鍵字就執行
if ($.lastMatch5 == "修") goto mac01

4. 傳送之陣記憶的地圖名稱
do warp sch_gld <- 不管存什麼位置遊戲內打/where的就是了
"sch_gld"是平日的中央城看是傳師記哪三個自己改囉

不玩了大放送如果還有不懂可以問我

外掛聯合國

[原創] 城戰輔助機~傳送篇(巨集Macro) 保證可用

相關POST