Aschbourne_PRC8/_module/nss/store_storegold.nss

20 lines
517 B
Plaintext
Raw Permalink Normal View History

2024-06-14 10:48:20 -04:00
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"));
}
}