Waypoint NPC

########################################################################
###################  WAYPOINT UTILITY SCRIPT  ##########################
########## CREATED BY: AKKADIUS FROM BLOOD OF THE AKKADIAN #############
########## EZ SERVER VERSION2 ##########################################
########## NPC RACE - 127, SPECIAL FLAGS - ABH #########################
########## MODIFIED BY HUNTER - TO BE USED WITH global_player.pl #######
########################################################################

sub EVENT_SPAWN
{
    quest::settimer("effect", 1);
    quest::settimer("effect2", 1);
}

sub EVENT_TIMER
{
    if($timer eq "effect")
    {
        $npc->SpellEffect(178);
        $npc->SpellEffect(203);
        $npc->SendAppearanceEffect(77, 78);
        quest::stoptimer("effect");
        quest::settimer("effect", 12);
    }
    if($timer eq "effect2")
    {
        $npc->SendAppearanceEffect(77, 78);
        quest::stoptimer("effect2");
        quest::settimer("effect2", 4);
    }
}

sub EVENT_SAY
{
    if ($text=~/hail/i)
    {
        quest::say("Give me money!");
    }
}

sub EVENT_ITEM
{
    if ($platinum > 0)
    {
        QCreditAccountGive2("BankCredit", $platinum);
    }
}


# TAKE THE MONEY SUB
sub QCreditAccountGive2
{
    my $CreditName = $_[0];
    my $AddTo = $_[1];
    my $client = plugin::val('$client');
    my $npc = plugin::val('$npc');
    my $name = plugin::val('$name');
    my $zonesn = plugin::val('$zonesn');
    my $ulevel = plugin::val('$ulevel');
    my $class = plugin::val('$class');
    my $accountid = $client->AccountID();
    my $accountname = $client->AccountName();
    my $space = "_";
    my $qglobals = plugin::var('qglobals');
    my $CreditAmnt = $qglobals->{"$CreditName$space$accountid"};
    my $CreditAmnt2 = commify2($CreditAmnt + $AddTo);
    my $ClientID = $client->GetID();
    $CreditAmnt += $AddTo;
    $client->SetGlobal("$CreditName$space$accountid", "$CreditAmnt", 7, 'F');
    $client->Message(315,"[Account Balance] [$name] you now have $CreditAmnt2 Platinum credit left on [$accountname].");
    $timestamp = localtime(time);
    my $npc_name = $npc->GetCleanName();
    my $accountname1 = $client->AccountName();
    # plugin::CreditStatusAccountGive("$CreditName", $AddTo);
    CreditStatusAccountGive2("$CreditName", $AddTo);
}


# SHOW POPUP WITH NEW BALANCE
sub CreditStatusAccountGive2
{
    my $CreditName = $_[0];
    my $AddTo = $_[1];
    my $client = plugin::val('$client');
    my $name = plugin::val('$name');
    my $zonesn = plugin::val('$zonesn');
    my $qglobals = plugin::var('qglobals');
    my $space = "_";
    my $accountid = $client->AccountID();
    my $accountname = $client->AccountName();
    my $CreditAmnt = $qglobals->{"$CreditName$space$accountid"};
    # my $CreditAmnt2 = commify2($CreditAmnt);
    my $AddToo = commify2($AddTo);
    my $CreditAmnt2 = commify2($CreditAmnt + $AddTo);
    my $ClientCheck = PlayerClientCheck();
    my $timestamp = localtime(time);
    quest::popup("Account Balance","
            <c \"#FFFF66\">Time : </c> $timestamp </c> <br>
            <c \"#FFFF66\">Client : </c> $ClientCheck </c> <br>
            <c \"#FFFF66\">Account : </c> $accountname <br>
            <c \"#FFFF66\">Character : </c>$name <br>
            <c \"#FFFF66\">Zone Name : </c>$zonesn <br>
            <c \"#FFFF66\">Add Balance : </c> <c \"#33FF99\"> $AddToo </c> <br>
            <c \"#FFFF66\">New Balance : </c> <c \"#33FF99\"> $CreditAmnt2 </c> <br>
            <br>
            <c \"#FE2E2E\">WARNING:  </c> Like other <c \"#FFFF66\">Qglobals</c> , sometimes the zone will bug out
            and not see the current values. If your balance or instance has disappeared, try going to a public zone
            or different zone to see if it gets refresh.
            We apologize for the inconvenience as it will reappear in time.
            ");
    $client->Message(315," ");
    $client->Message(315,"You now have $CreditAmnt2 platinum left.");
    $qglobals{"$CreditName$space$accountid"} = undef;
} # End Check_Balance


# Check Expansion Name
sub PlayerClientCheck
{
    my $client = plugin::val('$client');
    my $clientver = $client->GetClientVersion();
    my $ShowClient = "";
    if      ($clientver == 2)   { $ShowClient = "Titanium"; }
    elsif   ($clientver == 3)   { $ShowClient = "Secrets of Faydwer"; }
    elsif   ($clientver == 4)   { $ShowClient = "Seeds of Destruction"; }
    elsif   ($clientver == 5)   { $ShowClient = "Underfoot"; }
    else                        { $ShowClient = "Other"; }
    return "$ShowClient";
}


# Change 1000000 to 1,000,000
sub commify2
{
   local $_  = shift;
   s{(?<!\d|\.)(\d{4,})}
    {my $n = $1;
     $n=~s/(?<=.)(?=(?:.{3})+$)/,/g;
     $n;
    }eg;
   return $_;
}