[分享] 『城戰』全套、傳送、護貝機；表情打字皆可通用巨集。

21層

264026402640 2011-3-25 21:30:11

可以問一下嗎?  我的城戰傳機只有密語才會傳  要如何改成公開評就會傳了  謝謝你的回答....

automacro pm0 {
      pm /斐揚旅館/
      call {
            if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                     $x = @arg("$.pos", 1)
                     $y = @arg("$.pos", 2)
                     $y2 = @eval($y + 1)
                     do sl 27 $x $y2
                     pause 1
                     do warp 0
                     do c 離我一格距離，擋住會放不出來
                     do c 現在的傳送點是「斐揚旅館」
                     goto end
            :outOfBlueGemStone
                     pause 1
                     do c 沒藍石了...
            :end
      }
}
automacro warpPortal1 {
      pm /中/
      call {
            if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                     $x = @arg("$.pos", 1)
                     $y = @arg("$.pos", 2)
                     $y2 = @eval($y - 1)
                     do sl 27 $x $y2
                     pause 1
                     do warp 1
                     do c 離我一格距離，擋住會放不出來
                     do c 現在的傳送點是「中7」
                     goto end
            :outOfBlueGemStone
                     pause 1
                     do c 沒藍石了...
            :end
      }
}
automacro warpPortal2 {
      pm /斐/
      call {
            if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                     $x = @arg("$.pos", 1)
                     $y = @arg("$.pos", 2)
                     $x2 = @eval($x + 1)
                     do sl 27 $x2 $y
                     pause 1
                     do warp 2
                     do c 離我一格距離，擋住會放不出來
                     do c 現在的傳送點是「斐9」
                     goto end
            :outOfBlueGemStone
                     pause 1
                     do c 沒藍石了...
            :end
      }
}
automacro warpPortal3 {
      pm /新/
      call {
            if (@invamount(藍色魔力礦石) == 0) goto outOfBlueGemStone
                     $x = @arg("$.pos", 1)
                     $y = @arg("$.pos", 2)
                     $x2 = @eval($x - 1)
                     do sl 27 $x2 $y
                     pause 1
                     do warp 3
                     do c 離我一格距離，擋住會放不出來
                     do c 現在的傳送點是「新7」
                     goto end
            :outOfBlueGemStone
                     pause 1
                     do c 沒藍石了
            :end
      }
}