Aschbourne_PRC8/_module/store_storegold.nss
GetOffMyYarn 8622e5ce08 Area Changes and other fixes
added areas and ccoh,
fixed some areas to work with crafting
fixed some on death issues
added server entry/ooc
2024-08-30 10:38:04 -04:00

20 lines
517 B
Plaintext

void main()
{
object oPC=GetPCSpeaker();
string svarname=GetName(oPC)+GetPCPublicCDKey(oPC);
int nPattern=GetListenPatternNumber();
if(nPattern==1)
{
string nHeard=GetMatchedSubstring(0);
int nGoldDaDepositare=StringToInt(nHeard);
int GoldPG=GetGold(oPC);
if(nGoldDaDepositare<=GoldPG)
{
SetCampaignInt("Bank_ORO",svarname,GetCampaignInt("Bank_ORO",svarname,oPC)+nGoldDaDepositare,oPC);
TakeGoldFromCreature(nGoldDaDepositare,oPC,TRUE);
}
else
AssignCommand(OBJECT_SELF,SpeakString("U do not have enough gold"));
}
}