ServerType15.pm.svn-base
上传用户:market2
上传日期:2018-11-18
资源大小:18786k
文件大小:2k
源码类别:
外挂编程
开发平台:
Windows_Unix
- # 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;