AFK Credits - Yay!

[ghanja]

If a PC/client is sitting and hasn't moved x,y,z coordinates (some damper to the z coordinate to account for those that would like to go around levitating people), they will earn credits.

Not a fan of this system, but different strokes for different folks and is simplistic enough that perhaps some can learn from it in some small way.

$AFKINCREMENTSNEEDED = 180;


sub EVENT_TIMER {
	if ($timer eq "activitycheck$charid") {
		my $cxcord = int($client->GetX());
		my $cycord = int($client->GetY());
		my $czcord = int($client->GetZ());
		my $oxcord = plugin::REV($client, "oxcord");
		my $oycord = plugin::REV($client, "oycord");
		my $ozcord = plugin::REV($client, "ozcord");
		my $afkcounter = plugin::REV($client, "afkcounter");
		
		if (($client->IsSitting()) 
		&& ($oxcord ~~ [$cxcord-5..$cxcord+5])
		&& ($oycord ~~ [$cycord-5..$cycord+5])
		&& ($ozcord ~~ [$czcord-20..$czcord+20])) {
			++$afkcounter;
			plugin::SEV($client, "afkcounter", $afkcounter);
			if ($afkcounter == $AFKINCREMENTSNEEDED) { 
				$afkcounter = 0;
				plugin::SEV($client, "afkcounter", $afkcounter);
				$client->AddAlternateCurrencyValue(x, x);
				$client->Message (15, "You've earned an AFK Server Loyalty Credit!");
			}
		} else {
			$afkcounter = 0;
			plugin::SEV($client, "afkcounter", $afkcounter);
		}
		plugin::SEV($client, "oxcord", $cxcord);
		plugin::SEV($client, "oycord", $cycord);
		plugin::SEV($client, "ozcord", $czcord);
	}
}

sub EVENT_ENTERZONE {
		quest::settimer ("activitycheck$charid",10); ## activity check increment
}

sub EVENT_ZONE {
	quest::stoptimer ("activitycheck$charid");
}

sub EVENT_DISCONNECT {
	quest::stoptimer ("activitycheck$charid");
}

Put in the player.pl for a specific zone (or that is how its coded).

[provocating]

I am more tuned to give people some type of credit for writing guides, faqs, fixing issues or even reporting exploits.

I could see where some servers would want something like this so it is a good addition.

[Fridgecritter]

How would I modify this if I want to use this in the bazaar for traders? Just change the "IsSitting" part? and make it "IsStanding"? Like this?

$AFKINCREMENTSNEEDED = 180;


sub EVENT_TIMER {
	if ($timer eq "activitycheck$charid") {
		my $cxcord = int($client->GetX());
		my $cycord = int($client->GetY());
		my $czcord = int($client->GetZ());
		my $oxcord = plugin::REV($client, "oxcord");
		my $oycord = plugin::REV($client, "oycord");
		my $ozcord = plugin::REV($client, "ozcord");
		my $afkcounter = plugin::REV($client, "afkcounter");
		
		if (($client->IsStanding()) 
		&& ($oxcord ~~ [$cxcord-5..$cxcord+5])
		&& ($oycord ~~ [$cycord-5..$cycord+5])
		&& ($ozcord ~~ [$czcord-20..$czcord+20])) {
			++$afkcounter;
			plugin::SEV($client, "afkcounter", $afkcounter);
			if ($afkcounter == $AFKINCREMENTSNEEDED) { 
				$afkcounter = 0;
				plugin::SEV($client, "afkcounter", $afkcounter);
				$client->AddAlternateCurrencyValue(x, x);
				$client->Message (15, "You've earned an AFK Server Loyalty Credit!");
			}
		} else {
			$afkcounter = 0;
			plugin::SEV($client, "afkcounter", $afkcounter);
		}
		plugin::SEV($client, "oxcord", $cxcord);
		plugin::SEV($client, "oycord", $cycord);
		plugin::SEV($client, "ozcord", $czcord);
	}
}

sub EVENT_ENTERZONE {
		quest::settimer ("activitycheck$charid",10); ## activity check increment
}

sub EVENT_ZONE {
	quest::stoptimer ("activitycheck$charid");
}

sub EVENT_DISCONNECT {
	quest::stoptimer ("activitycheck$charid");
}

[Kingly_Krab]

There is no IsStanding(), use !$client->IsSitting().

[NatedogEZ]

You can use appearance i guess?

if ($client->GetAppearance() == 0) {
   #we are standing... 0 standing, 1 sitting, 2 ducking, 3 lieing down, 4 looting
}