Openkore.com

That's all, now I'm curious, is this possible? Honestly I have ZERO knowledge about Perl and Openkore's Plugin. But if this thing is possible, maybe I'll try to do so and share my progress here. Thanks!

package checkWebsiteForGM;

use strict;
use warnings;
use LWP::Simple;
use Misc qw(relog);
use Log qw(warning);

Plugins::register('checkWebsiteForGM','the name is pretty self explanatory', \&onUnload);

my $hooks = Plugins::addHooks(
	['charSelectScreen', \&charScreenCheck],
	['AI_pre',\&aiPreCheck]
);

my $timeout = time();
my $wait_seconds = 30;
my $url = "HERE GOES THE PAGE WHERE THE STATUS IS"; 
my $pattern = "HERE GOES THE PATTERN IN THE SOURCE CODE OF THE PAGE WE'RE LOOKING FOR";

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

sub charScreenCheck {
	my (undef, $args) = @_;
	$args->{return} = 1 if (check()); # Leave it to timeout on select screen
}

sub aiPreCheck {
	return if (time() - $timeout < $wait_seconds); # Check every <$wait_seconds> seconds
	relog() if (check());
}

sub check {
	my $response = LWP::Simple::get($url);

	if ($response =~ /$pattern/) {
		warning "Yikes... the GM is online. Run!\n";
		return 1;
	}

	return 0;
}

1;

otaku wrote:

That's all, now I'm curious, is this possible? Honestly I have ZERO knowledge about Perl and Openkore's Plugin. But if this thing is possible, maybe I'll try to do so and share my progress here. Thanks!

Yes, it is. It's not even that hard. If it doesn't require login to access that page, LWP::Simple::get() and a little regex is enough. As for the plugin workflow you could have a subroutine to check the website and use it before actually logging in the map server and then periodically when you're logged in the map server.

A sketch (I didn't actually test it):

Code: Select all

package checkWebsiteForGM;

use strict;
use warnings;
use LWP::Simple;
use Misc qw(relog);
use Log qw(warning);

Plugins::register('checkWebsiteForGM','the name is pretty self explanatory', \&onUnload);

my $hooks = Plugins::addHooks(
	['charSelectScreen', \&charScreenCheck],
	['AI_pre',\&aiPreCheck]
);

my $timeout = time();
my $wait_seconds = 30;
my $url = "HERE GOES THE PAGE WHERE THE STATUS IS"; 
my $pattern = "HERE GOES THE PATTERN IN THE SOURCE CODE OF THE PAGE WE'RE LOOKING FOR";

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

sub charScreenCheck {
	my (undef, $args) = @_;
	$args->{return} = 1 if (check()); # Leave it to timeout on select screen
}

sub aiPreCheck {
	return if (time() - $timeout < $wait_seconds); # Check every <$wait_seconds> seconds
	relog() if (check());
}

sub check {
	my $response = LWP::Simple::get($url);

	if ($response =~ /$pattern/) {
		warning "Yikes... the GM is online. Run!\n";
		return 1;
	}

	return 0;
}

1;

It gets tricky if you don't know Perl though...

macro gm {
$gmStats = gmCheck ()
if ($gmStats == 1) goto Online
goto Offline
:Online
log Online
goto End

:Offline
log Offline

:End
release all
}

sub gmCheck {
use strict;
use warnings;
use LWP::Simple;
my $url = 'http://www.google.com';
my $pattern = 'Hello';
my $response = get($url);

   if ($response =~ /$pattern/) {
      return 1;
   }

   return 0;
}