Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.92 KB | None | 0 0
  1. '07F6' => ['exp', 'a4 V v2', [qw(ID val type flag)]], # 14 # type: 1 base, 2 job; flag: 0 normal, 1 quest # TODO: use. I think this replaces the exp gained message trough guildchat hack
  2.  
  3. sub exp {
  4.    my ($self, $arg) = @_;
  5.    if ($arg->{flag} == 1) {
  6.       if ($arg->{type} == 1) {
  7.          message TF("Quest Base Exp Gained: %s (%.2f%%)\n", formatNumber($arg->{val}),$arg->{val}/$char->{exp_max}*100), "exp";
  8.       } else {
  9.          message TF("Quest Job Exp Gained: %s (%.2f%%)\n", formatNumber($arg->{val}),$arg->{val}/$char->{exp_job_max}*100), "exp";
  10.       }
  11.    } else {
  12.       if ($arg->{type} == 1) {
  13.          message TF("Base Exp Gained: %s (%.2f%%)\n", formatNumber($arg->{val}),$arg->{val}/$char->{exp_max}*100), "exp";
  14.       } else {
  15.          message TF("Job Exp Gained: %s (%.2f%%)\n", formatNumber($arg->{val}),$arg->{val}/$char->{exp_job_max}*100), "exp";
  16.       }
  17.    }
  18. }
  19.  
  20. ##Updating to replace the old one
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement