城戰好用輔助機Part3 修羅---點穴機(點穴/++ 2巨集)

複製巨集的時候請把紅色部分的解釋刪除~
藍色的部分則是可以改的表情



automacro mac {

         console /\[(距離|dist)=(.*)\] (.*) \((\d+)\): \*(流冷汗)\*$/
         表情可以改 但是要跟下面巨集同步
         exclusive 1

         call {

         if ($.lastMatch2 < 9) goto help

         stop

         

         :help

         $i = $.lastMatch4

         $g = @eval (exists $::players{$::playersID[$i]}->{guild} ? $::players{$::playersID[$i]}->{guild}{name} : 'null')



        if ($.lastMatch5 == "流冷汗") goto fist


        :fist

                do sp 34 $i 10

                pause 1

                do sp 29 $i 10

                pause 1

               
        :stop

         stop

               
         }

}

automacro emoguild {

        console /\[(距離|dist)=(.*)\] (.*) \((\d+)\): \*(感謝|奸笑)\*$/
        表情可以改 但是要跟下面巨集同步

        call {

        if ($.lastMatch2 < 9) goto emoguild

        stop

        :emoguild

        $n = $.lastMatch4


        do eval foreach my $_player (@{$::playersList->getItems()}) { next if $_player->{name} eq ""; next if $_player->{actorType} ne "Player"; if ($_player->{'binID'} eq "$n") {$::Macro::Data::varStack{name} = $_player->{'name'}; $::Macro::Data::varStack{job} = $_player->job; $::Macro::Data::varStack{lvl} = $_player->{'lv'}; $::Macro::Data::varStack{sex} = $::sex_lut{$_player->{'sex'}}; $::Macro::Data::varStack{pos} = "$_player->{pos_to}{x}" . " $_player->{pos_to}{y}"; $::Macro::Data::varStack{dist} = sprintf("%.1f", distance($::char->{pos_to}, $_player->{pos_to})); $::Macro::Data::varStack{guild} = $_player->{guild} ? $_player->{guild}{name} : ''; $::Macro::Data::varStack{id} = $_player->{'binID'}; $::Macro::Data::varStack{status} = join (", ", keys %{$_player->{statuses}});}}

         if ("$.lastMatch3" == "禁止使用的角色ID") goto stop
         if ("$.lastMatch3" == "允許使用的角色ID") goto ok

         if ("$g" == "禁止使用的公會名稱") goto stop
         if ("$g" == "允許使用的公會名稱") goto ok


         stop

         
         :ok


        if ($.lastMatch5 == "奸笑") goto live
        if ($.lastMatch5 == "感謝") goto half
        奸笑放穴活 感謝放穴半
        :live

        do sp 2348 $.lastMatch4 10

        stop

        :half

        do sp 2347 $.lastMatch4 10

        stop
   }

}