Account Status

[Castious]

I did a ton of searching but couldn't find what I was after, so quick question please.

How would you script an Accounts status to increase or decrease, like say if a player met certain conditions their accounts status would increase from 1 to 2?

[ghanja]

sub UpdateStatus { ## Usage: UpdateStatus($charid, xx) where xx is new status level
	my $dbh = plugin::MySQL_Connect();
	$dbh->do("UPDATE `account` SET `status` = '$_[1]' WHERE `id` = '$_[0]' ");
	$dbh->disconnect();
	$client->UpdateAdmin();
}

[Castious]

Interesting. Thanks ghanja, so how would that work for a client on like say:

sub ENTERZONE {
}

I'd like to be able to allow clients access to the #flymode command but only in a specific zone and when they zone out have it set their status back to 1 so they can no longer access that #command. Just one example of things I have in mind for this, but I'm having a dumb moment.

Also, $client->SetAccountFlag(flag, value)
I was trying this, but it hasn't been working right for me. I'm missing something I guess with this one.

[ghanja]

You don't have to do that via status. I either didn't know about SetAccountFlag, it didn't work for me or was added after I made the code I exampled above.

sub EVENT_ENTERZONE {
	my @flyzones = ("commons","freportw","oasis");
	if ($zonesn ~~ @flyzones) {
		$client->SetFlyMode(1);
	}
}

sub EVENT_ZONE {
	$client->SetFlyMode(0);
}

[Castious]

That's perfect, but I also have other more devious plans for the status up's and down's. >

[ghanja]

Trying copy/paste usually fails for me, in an attempt to be quick about things. My apologies.

Usage: UpdateStatus($client->AccountName(), "50");   Where the number in quotes is the new desired account status (level).

sub UpdateStatus { ## Usage: UpdateStats(accountname, xx) where xx is new status level
	my $dbh = plugin::MySQL_Connect();
	$dbh->do("UPDATE `account` SET `status` = '$_[1]' WHERE `name` = '$_[0]' ");
	$dbh->disconnect();
	$client->UpdateAdmin();
}

As mentioned in PM, you'll need the DBI Perl and make sure your
plugins/MySQL_Connect.pl

has the proper credentials. If you dont have MySQL_Connect.pl then look for LoadMysql.pl (I believe it is) and ensure the credentials are correct there.

It took that PM to me to look at this thread to see what was up, sorry about that.

[Castious]

Still struggling to get this to work. Can't change the status level to allow #commands to be used by players via a progressive quest line. Please help?

[GRUMPY]

I put this right on the npc script. It will put a marqee in the client window informing them of status update (plugin::MM)

sub EVENT_SAY {
	if ($text=~/hail/i && $status == 0) {
		my $actid = $client->AccountID();
		UpdateStatus($actid,1);
		plugin::MM("Greetings $name Your status has been set to 1.");
	}
}
	
sub UpdateStatus {
	my $idargument = $_[0];
	my $statuslevel = $_[1];
	my $dbh = plugin::MySQL_Connect();
	my $query = "UPDATE account SET status = ".$statuslevel." WHERE id = ".$idargument.";";
	$dbh->do($query);
	$dbh->disconnect();
	$client->UpdateAdmin();
}

[ghanja]

Originally Posted by Castious

Still struggling to get this to work. Can't change the status level to allow #commands to be used by players via a progressive quest line. Please help?

You must ensure you have the Perl DBI installed.

Ensure a filename by name of "MySQL.pl" exists in /plugins/ directory (not! /quests/plugins -- that isnt used)

It should look like:

## plugins/MySQL.pl -- be sure to change "peq" to whatever the name of your DB is you use, and change the first "root" to whatever
## MySQL you may be using with access (usually root fwiw) and the second "root" with whatever the password of said MySQL user is
sub MySQL_Connect {
	use DBI;
	use DBD::mysql;
	$dbh = DBI->connect("DBI:mysql:peq:localhost:3306;", "root", "root", {RaiseError => 1, AutoCommit =>1});
	return $dbh;
}

return 1;

Then place this on an any NPC (preferably one without a script already or just rename the existing script of a NPC to npc_name.pl.bak and replace with the below -- whichever method you choose):

# any NPC you want
sub EVENT_SAY
{
	my $dbh = plugin::MySQL_Connect();
	$npc->Shout ("By golly, I think he's got it!") if ($dbh->ping);
}

http://wiki.eqemulator.org/p?Install..._other_Modules