Setting Status ?

[DanCanDo]

Just a quick question,

I was looking through the function list to see if there was something I could
add to an npc script to set a players account status. For example, raise it
from 0 to 1 ?
What my intentions are here, is having the bot cmd access at 1 and then an
npc will raise the player status to 1 when required level is met, giving the
player access to the bots.

[ghanja]

This assumes you have Perl DBI installed.


/plugins/statusupdate.pl

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();
}

return 1;

sub EVENT_SAY {
	if ($status == 0) {
		UpdateStatus($client->AccountID(),1);
	}
}

You could substitute 1 for whatever status level you want of course (0-255 anyway).

[DanCanDo]

Thanks ghanja for that snippet.
I'm still trying to get it to work though, (chuckle)
I created the plugin (statusupdate.pl) and put it in the plugins folder.(restarted server)
On the npc, I had to add a $text and $level along with the call for status. This is what
I've got so far.

sub EVENT_SAY {
	if (($text=~/hail/i) && ($status == 0) && ($ulevel=>10)) {
		UpdateStatus($client->AccountID(),1);
	}
}

I've tried using plugin::UpdateStatus , and plugin::statusupdate , but so far no go.
I'll keep piddling around with it though.

[ghanja]

I copy pasted mostly from a portion of code I already had written (however it was just a subroutine in a player.pl), added the $statuslevel and gave it a plugin filename. Sorry for not placing the plugin:: before UpdateStatus

Are you certain you have Perl DBI installed?

Also, I would up your logging (its my preferred setting anyway), do this in game:

#logs set gmsay 20 3
#logs reload_all

For testing, perhaps just keep it all confined within the NPC's script (for now). If it gives a warning about UpdateStatus being redefined (which would be good), just ignore it for now.

sub EVENT_SAY {
	if ($text=~/hail/i && $status == 0 && $ulevel=>10) {
		UpdateStatus($client->AccountID(),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();
}

Also providing this link, just in case:

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

[DanCanDo]

Originally Posted by ghanja

Are you certain you have Perl DBI installed?

Yes, I have the DBI installed. Most of the custom quests/plugins work good
so far. I ran those logging cmds you suggested, seemed to show success in
the console, but when looking in logs, the only thing I am seeing related to
any quests is this :

[06-22-2016 :: 17:30:13] [Quests] Useless use of a variable in void context at quests/nexus/Bot_Giver.pl line 5.

Bot_Giver is the NPC I put that script on. Line 5 is part of the example gave
me. But that's the only thing showing up in any logs. I did contain it all on the
NPC, as you suggested. Still nothing happening. The only reaction I get from
NPC is on the "hail", it faces me, as normal.

sub EVENT_SAY {
	if (($text=~/hail/i && $status == 0 && $ulevel=>10)) {
		UpdateStatus($client->AccountID(),1);
	}
} #This is line 5

[joligario]

Originally Posted by DanCanDo

$ulevel=>10

Not sure if this is your issue, but you may want to relook this.

[ghanja]

Originally Posted by joligario

Not sure if this is your issue, but you may want to relook this.

Hadn't even caught that fat comma, damnit. Good catch thank you Joli.

[DanCanDo]

Originally Posted by joligario

Not sure if this is your issue, but you may want to relook this.

Thanks for noticing joligario. ghanja has been so kind to help figure out why
the script is not working.
Through his suggestions, the perl DBI has been reinstalled, the MySQL.pl has
been looked at, but still plugging away troubleshooting.
The rest of my scripts work, just not this new challenge.(chuckle)

[DanCanDo]

Ok, got the DBI connection problem solved. simple little "technical difficulty" (chuckle)
Had to change "localhost" to 127.0.0.1 in the script.

[DanCanDo]

Many thanks to ghanja for all the help in getting this "set status" goal achieved.
It's all working good now, but with a lot of help from ghanja in trouble shooting
the DBI connection problem.(he gave me some debug scripts to run). Then, of
course the NPC script that he provided was the icing on the cake.

[DanCanDo]

Just thought I would share what the end results were for an npc to set the
player status (increase). Just in case anyone else is interested in using it.
This is all with the great help of ghanja
In the plugins folder, the MySQL.pl file was renamed to MySQL(old).pl but you
can use whatever you want. A new one was created with the following:
You will have to EDIT the credentials for your DB.(database name, password)

sub MySQL_Connect {
	use DBI;
	use DBD::mysql;
	$dbh = DBI->connect("DBI:mysql:peq:127.0.0.1:3306;", "root", "password", {RaiseError => 1});
	return $dbh;
}

return 1;

Then the script was put on NPC. You can EDIT the value for whatever your
desired status is needed to be raised to. (this one raises it from 0 to 1)
It also requires a level of 10 before the NPC will raise it for you. You can edit
that to your likings. I've tested this 3 times now and all working good.

sub EVENT_SAY {
	if ($text=~/hail/i && $status == 0 && $ulevel >= 10) {
		my $actid = $client->AccountID();
		UpdateStatus($actid,1);
		quest::say ("Welcome $name Your status has been raised 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();
}