外挂编程

开发平台：

Windows_Unix

ServerType15.pm：源码内容

							# pRO Thor
# Servertype overview: http://www.openkore.com/wiki/index.php/ServerType
package Network::Receive::ServerType15;
use strict;
use Network::Receive ();
use base qw(Network::Receive);
use Time::HiRes qw(time usleep);
use AI;
use Globals qw($char %timeout $net %config @chars $conState $conState_tries $messageSender $syncMapSync);
use Log qw(message warning error debug);
use Translation;
use Network;
use Utils qw(makeCoords);
sub new {
	my ($class) = @_;
	my $self = $class->SUPER::new;
	return $self;
}
sub map_loaded {
	my ($self, $args) = @_;
	$net->setState(Network::IN_GAME);
	undef $conState_tries;
	$char = $chars[$config{char}];
	$syncMapSync = pack('V1',$args->{syncMapSync});
	if ($net->version == 1) {
		$net->setState(4);
		message T("Waiting for map to load...n"), "connection";
		ai_clientSuspend(0, 10);
		main::initMapChangeVars();
	} else {
		$messageSender->sendMapLoaded();
		$messageSender->sendSync(1);
		debug "Sent initial syncn", "connection";
		$messageSender->sendGuildInfoRequest();
		# Replies 01B6 (Guild Info) and 014C (Guild Ally/Enemy List)
		$messageSender->sendGuildRequest(0);
		# Replies 0166 (Guild Member Titles List) and 0154 (Guild Members List)
		$messageSender->sendGuildRequest(1);
		message(T("You are now in the gamen"), "connection");
		Plugins::callHook('in_game');
		$timeout{'ai'}{'time'} = time;
	}
	$char->{pos} = {};
	makeCoords($char->{pos}, $args->{coords});
	$char->{pos_to} = {%{$char->{pos}}};
	message(TF("Your Coordinates: %s, %sn", $char->{pos}{x}, $char->{pos}{y}), undef, 1);
	$messageSender->sendIgnoreAll("all") if ($config{ignoreAll});
}
1;

						