EQEmulator Forums - Credit Management

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)

- Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)

- - Credit Management (https://www.eqemulator.org/forums/showthread.php?t=34356)

Credit Management

I was looking for a platinum sink, and figured that the translocator was much too free. So like the good capitalist I am, I decided to make people PAY to use him!

I want to charge 100pp per port, but I want the NPC to be able to take money in advance and hold it for the player, and keep a running total. I've seen this on other servers, but I cannot for the life of my figure out how to implement it.

I'm guessing I assign a global variable with the characters name and the amount they deposited - and then check that, subtract as necessary ....

But does anyone have an example of a credit system/ using global variables I could look at as an example? Even something simple?

Use quest globals.

Code:

sub EVENT_ITEM {

  my $cash = $platinum * 1000 + $gold * 100 + $silver * 10 + $copper;



  if ($cash > 0) {

    if (defined($qglobals{credit})) {

      quest::setglobal("credit",$qglobals{credit}+$cash,0,"F");

    }

    else {

      quest::setglobal("credit",$cash,0,"F");

    }

  }

  else {

    plugin::return_items(\%itemcount);

  }

}

Didn't test or check this for errors, but it is something you can start with.