Macro Cek PVP

#!cekpvp
#xvanct@yahoo.com

automacro cekPront {
priority 0
console /prontera (.*) \/ 128 /
run-once 1
call {
$prontera = $.lastMatch1
pause 2
do talk resp 6
call cek
}
}

automacro cekIzlude {
priority 1
console /izlude (.*) \/ 128 /
run-once 1
call {
$izlude = $.lastMatch1
pause 2
do talk resp 6
call cek
}
}

automacro cekPayon {
priority 2
console /payon (.*) \/ 128 /
run-once 1
call {
$payon = $.lastMatch1
pause 2
do talk resp 6
call cek
}
}

automacro cekAlberta {
priority 3
console /alberta (.*) \/ 128 /
run-once 1
call {
$alberta = $.lastMatch1
pause 2
do talk resp 6
call cek
}
}

automacro cekMorocc {
priority 4
console /morocc (.*) \/ 128 /
run-once 1
call {
$morocc = $.lastMatch1
pause 2
do talk resp 6
do pm $nama ======$.hour:$.minute:$.second======
do pm $nama prontera $prontera / 128 ]
do pm $nama izlude   $izlude / 128 ]
do pm $nama payon    $payon / 128 ]
do pm $nama alberta  $alberta / 128 ]
do pm $nama morocc   $morocc / 128 ]
do pm $nama ==================
release all
}
}

macro cek {
do talknpc 86 85 n
}


automacro cekPVP {
location pvp_y_room 70 90 90 70
console /\From: (.*)\) : cekpvp/
call {
$nama = $.lastMatch1
call cek
release all
}
}

Macro Auto Trans n Kafra

perhatikan yang di Bold !!

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

automacro transexy {
location alberta
weight > 25%
timeout 30
call {
do ai manual
do deal @player(Reason)
pause 5
do deal add @inventory (Yggdrasil Seed)
pause 1
do ai auto
release all
}
}

automacro restok {
location alberta
weight < 25%
run-once 1
call {
do talknpc 28 229 c r1 n
pause 3
do ai manual
pause 1
do storage get @storage(Yggdrasil Seed) 250
pause 1
do storage close
pause 1
do ai auto
release mail3
}
}

Plugin Wait4Party

di config.txt master tambahkan: follow_wait 1

catatan: jika sudah menggunakan macro, jangan gunakan ini

package waitParty;


use Plugins;
use Globals;
use Log qw(message error warning debug);


our $findParty;
our $temp;


Plugins::register('waitParty', 'Wait and come back for party', \&unload, \&unload);


my $hooks = Plugins::addHooks(   ['actor_player_add', \&waitForOthers, undef],
            ['actor_player_remove', \&waitForOthers, undef],
            ['party_share', \&waitForOthers, undef],
            ['party_move', \&waitForOthers, undef],
            ['AI_pre', \&waitForOthers, undef],
            ['actor_action_sit', \&waitForOthers, undef],
            ['actor_action_stand', \&waitForOthers, undef]);


sub unload {
   Plugins::delHooks($hooks);
}


sub waitForOthers {
   return unless $config{'follow_wait'};
   return unless defined @partyUsersID;


   #return if bot isn't at lockmap
   return if (($config{'follow_wait_inLockOnly'} > 0) && ($field{name} ne $config{lockMap}));


   my $actor;
   foreach (@partyUsersID) {
      next if $_ eq $accountID;
      next if $_ eq "";
      $actor = $playersList->getByID($_);


      if(!$actor && $char->{'party'}{'users'}{$_}{'online'}) {
         my %party;
         $party{x} = $char->{party}{users}{$_}{pos}{x};
         $party{y} = $char->{party}{users}{$_}{pos}{y};
         ($party{map}) = $char->{party}{users}{$_}{map} =~ /([\s\S]*)\.gat/;


         if ($party{map} ne $field{name} || $party{x} == 0 || $party{y} == 0) {
            delete $party{x};
            delete $party{y};
         }


         return unless ($party{map} ne $field{name} || exists $party{x});


         if ((exists $ai_v{party} && AI::distance(\%party, $ai_v{party}) > 15)
            || $party{map} != $ai_v{party}{map}
            || (AI::timeOut($ai_v{party}{time}, 15) && AI::distance(\%party, $char->{pos_to}) > $config{followDistanceMax})) {


            $ai_v{party}{x} = $party{x};
            $ai_v{party}{y} = $party{y};
            $ai_v{party}{map} = $party{map};
            $ai_v{party}{time} = time;


            warning "Party is far way.
", "waitParty";


            if ($ai_v{party}{map} ne $field{name}) {
               message "Searching party: $ai_v{party}{map}
", , "follow";
            } elsif (AI::distance(\%party, $char->{pos_to}) > $config{followDistanceMax} ) {
               message "Searching party: $ai_v{party}{map} ($ai_v{party}{x},$ai_v{party}{y})
", "follow";
            } else {
               return;
            }
            AI::clear("move", "route", "mapRoute");
            AI::ai_route($ai_v{party}{map}, $ai_v{party}{x}, $ai_v{party}{y}, distFromGoal => $config{followDistanceMin});
            my $followIndex = AI::findAction("follow");
            if (defined $followIndex) {
               $ai_seq_args[$followIndex]{ai_follow_lost_end}{timeout} = $timeout{ai_follow_lost_end}{timeout};
            }
         }
         $findParty = 1;
         return;
      } elsif ($findParty && ($actor = $playersList->getByID($_))) {
         warning "Party Found.
", "waitParty";
         $findParty = 0;
      } elsif ($findParty) {
         warning "Party is offline.
", "waitParty";
         $findParty = 0;
         return;
      }
   }
}
1;

macro elven arrow

kondisi:

sesuaikan tulisan elven quiver nya, jgn sampe salah
macro ini menggunakan merchant class, klo lsg pake archer class, yg do cart nya hilangkan
jangan full paste, cek lagi kekuatan char anda, tiap char beda²
pastikan pass kafra udah di set dg benar di config.txt]

automacro quiver {
 inventory "HuntingQuiver" < 170
 location mora
 exclusive 1
 run-once 1
 call {
  do ai manual
  pause 0.5
  do move 100 110
  pause 0.5
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do cart add ElvenQuiver
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do cart add ElvenQuiver
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do cart add ElvenQuiver 80
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 30000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do cart add ElvenQuiver
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 20000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 12000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  pause 1
  do talknpc 100 118 b
  pause 2
  do buy 5 6000
  pause 1
  do talknpc 106 117 c r0 r0 r0 r0 r0
  release quiver


 }
}
automacro storage {
 inventory "ElvenQuiver" > 170
 location mora
 exclusive 1
 run-once 1
 call {
  do ai manual
  pause 0.5
  do move 52 133
  pause 1
  do talknpc 48 128 c r0
  pause 2
  do storage add HuntingQuiver
  pause 0.5
  do cart get HuntingQuiver
  pause 0.5
  do storage add HuntingQuiver
  pause 0.5
  do cart get HuntingQuiver
  pause 0.5
  do storage add HuntingQuiver
  pause 1
  release storage


 }
}

Macro Jamur Monk

kondisi:

Buat char Aco dan quest Monk sampai mau cari jamur aja, abis itu stop
tulisan merah bisa di sesuaikan dg simpos anda
kadang suka stuk pas mau hit jamur nya, ini bisa sekali2 bot nya di relog

automacro payon {
 location payon
 run-once 1
 call warp
 timeout 100
}


macro warp {
 pause 0.2
 do sit
 pause 1
 do ai manual
 pause 0.1
 do move 95 59
 pause 0.5
 do sl 27 94 60
 pause 3
 do warp 2
 pause 2
 do move 94 60
 pause 8
 do ai auto
 release payon
}


automacro monk {
 location prt_monk
 run-once 1
 call jamur
 timeout 100
}


macro jamur {
 pause 0.2
 do ai manual
 pause 1
 do move 192 172
 pause 6
 do move 332 59
 pause 2
 do move 341 68
 pause 2
 do move 339 51
 pause 1
 do move 332 59
 pause 2
 do talk 0
 pause 2
 do talk resp 0
 pause 8
 do stand
 do ai auto
 release monk
}

Macro Rebirth Yuno

Kondisi:

- char tsb ada di posisi yuno_in02
- char tsb ada zeny 1.285.000
- Char tsb sudah di naikin full skill nya/tidak ada sisa skill
- Char tsb berat nya 0
- Char tsb tidak menggunakan peco2 job knight/crusader,cart job mercen class,falcon char hunter

automacro yunoin {
 exclusive 1
 run-once 1
 location yuno_in02
 call {
  do ai manual
  pause 0.5
  do sit
  pause 0.5
  do move 90 166
  pause 1
  do talknpc 88 164 c r0
  pause 2
  do move 93 202
  pause 3
  do talk 0
  pause 3
  do move yuno_in05
  pause 0.5
  do sit
  pause 0.5
  do ai auto
  release yunoin
 }
}
automacro yunoin5 {
 exclusive 1
 timeout 25
 location yuno_in05
 call {
  do ai manual
  pause 0.5
  do sit
  pause 0.5
  do move 45 54
  pause 1
  do talk 0
  pause 4
  do sit
  pause 0.5
  do ai auto
  release yunoin5
 }
}
automacro val {
 exclusive 1
 run-once 1
 location valkyrie
 call {
  do ai manual
  pause 0.5
  do sit
  pause 0.5
  do move 50 75
  pause 3
  do talk 0
  pause 10
  do ai manual
  release val
 }
}

Plugin HideConsole

1. di config.txt tambahkan: HideConsole 1

2. jika mau melihat bot: matikan bot dari task manager, nyalakan lagi

# =======================
# hideConsole v1.0
# =======================
# by hakore (hakore@users.sourceforge.net)
# see documentation at: http://forums.openkore.com/viewtopic.php?p=103437


package hideConsole;
use Globals qw(%config $interface);
use Log qw(message error);


Plugins::register('hideConsole', 'hide your console', \&onUnload);
my $hooks = Plugins::addHooks(
['initialized', \&autoHideConsole, undef],
['Command_post', \&cmdhideConsole, undef]
);


sub onUnload {
Plugins::delHooks($hooks);
}


sub autoHideConsole {
if ($config{hideConsole} > 0) {
hideConsole();
}
}


sub cmdhideConsole {
my (undef, $args) = @_;
my ($cmd) = split(' ', $args->{input}, 2);
if ($cmd eq "hideconsole") {
message("Console hidden
");


hideConsole();
$args->{return} = 1;
}
}


sub hideConsole {
eval 'use Win32::Console;Win32::Console->new(STD_OUTPUT_HANDLE)->Free();';
}


return 1;