setting coin on death

[Secrets]

Easy way to do this is mincash and maxcash in the database. The values are in copper, so if you wanted all of that npc_type to drop between 100 and 300 plat, you'd use mincash value as 100 and maxcash as 300.

There's no need for perl, it's easier to do it in SQL.

Also, John, bleh added those recently, they are cut out from KMRA. Really neat commands.

[moydock]

Originally Posted by Secrets

Easy way to do this is mincash and maxcash in the database. The values are in copper, so if you wanted all of that npc_type to drop between 100 and 300 plat, you'd use mincash value as 100 and maxcash as 300.

There's no need for perl, it's easier to do it in SQL.

Also, John, bleh added those recently, they are cut out from KMRA. Really neat commands.

Yeah that would make 1-3 plat drop, I want like 100-300 copper to drop. Do you know how i could get that "quest::SetCash();" working? I think that might do it. I would just make it ondeath and it would put the cash on the npc's corpse, right?

[Secrets]

Originally Posted by moydock

Yeah that would make 1-3 plat drop, I want like 100-300 copper to drop. Do you know how i could get that "quest::SetCash();" working? I think that might do it. I would just make it ondeath and it would put the cash on the npc's corpse, right?

Oh, sorry, I wasn't thinking straight.

You just want copper to drop, right?

Yeah you're gonna need to use a quest I think heh. There was a way without quests, I swear there was.
Let me take a look at the quest commands.

EDIT: $corpse->SetCash(in_copper, in_silver, in_gold, in_platinum)

So it would be...

sub EVENT_DEATH


my $cash = int(rand(300)+100);
{
$corpse->SetCash($cash,0,0,0);
}

And you'd have to have a random amount of cash, so you'd use a random integer between 100 and 300 with the $cash variable.

Should work in theory.

[moydock]

Woot, exactly what i want but no worky unfortunately.

[moydock]

Anyone know how I could get this working? Still would really like to be able to do this.

sub EVENT_DEATH


my $cash = int(rand(300)+100);
{
$corpse->SetCash($cash,0,0,0);
}

[wwazman]

well, dunno about the guide linked to, but IN THE GAME, it goes BACKWARDS of what you have typed.. it goes "Plat, Gold, Silver, Copper"..

The way I've been doing it (with a hotbutton INGAME)..have the character targeted ... #npcloot money 34664 0 0 0 (and hit enter)
(that's 34664 plat, 0 gold, 0 silver and 0 copper)

if you want this to be a permanent change, you can do #npcspawn update (and hit enter) and the next time it spawns, it will spawn with those changes (you can also do, right now, #depopzone and then #repop to get it to respawn)

Sorry if that's not what you are looking for, ... I found these commands ingame using #help

[AndMetal]

I think this might be a misunderstanding of the original source.

To start, the headers for the commands are located in the utils/perlxs directory and the actual source for the commands is in the zone directory. If you search through all of the header files (*.h), SetCash() is defined in PlayerCorpse.h:

SetCash(int16 in_copper, int16 in_silver, int16 in_gold, int16 in_platinum);

So, it looks like the resource should read "Player Corpse" instead of "Corpse". This can be seen in action using this example:

sub EVENT_SAY {
	if($text=~/Hail/i) {
		my $cash = int(rand(300)+100);
		my $copperstart = $npc->GetCopper();
		quest::say("Right now, I have $copperstart copper");
		quest::say("Giving myself $cash copper.");
		$npc->SetCash($cash,0,0,0);
		my $copperend = $npc->GetCopper();
		quest::say("According to GetCopper, I have $copperend copper.");
	}
}

The quest stops executing at $npc->SetCash:

You say, 'Hail, Copper Dropper
Copper Dropper says, 'Right now, I have 0 copper'
Copper Dropper says 'Giving myself 391 copper.'

So now, we probably want to look at mob.h or npc.h. It looks like mob.h definitions concentrate on NPCs that are aggroed, so I'll focus on npc.h. Here are a few excerpts:

AddCash(int16 in_copper, int16 in_silver, int16 in_gold, int16 in_platinum);
GetCopper()		{ return copper; }
SetCopper(uint32 amt)		{ copper = amt; }

So, if I just change SetCash to AddCash, the script excecutes like normal:

You say, 'Hail, Copper Dropper
Copper Dropper says, 'Right now, I have 0 copper'
Copper Dropper says 'Giving mysqlf 246 copper.'
Copper Dropper says 'According to GetCopper, I have 246 copper.'
Auto attack is on.
You crush Copper Dropper for 7726 points of damage.
You have slain Copper Dropper!
You receive 246 copper from the corpse.

So now that the NPC is actually getting the copper, let's see how it will work when we change it to excecute on death:

sub EVENT_DEATH {
	my $cash = int(rand(300)+100);
	my $copperstart = $npc->GetCopper();
	quest::say("Right now, I have $copperstart copper");
	quest::say("Giving myself $cash copper.");
	$npc->AddCash($cash,0,0,0);
	my $copperend = $npc->GetCopper();
	quest::say("According to GetCopper, I have $copperend copper.");
}

Auto attack is on.
You crush Copper Dropper for 2528 points of damage.
You have slain Copper Dropper!
Copper Dropper says 'Right now, I have 0 copper'
Copper Dropper says 'Giving mysqlf 271 copper.'
Copper Dropper says 'According to GetCopper, I have 271 copper.'

However, upon looting, there is no copper on the corpse.

In conclusion, if you change SetCash to AddCash, it will work IF you add it while the NPC is still alive. EVENT_SPAWN is probably the best place for it, so this is the code you should use:

sub EVENT_SPAWN {
	$npc->AddCash(int(rand(300)+100),0,0,0);
}

[moydock]

Damn, you are good! Thanks a bunch man. Damn excited to have this finally solved. And great info on how you solved it too, didn't know all that was in the code.