New Credit System Using Quest Globals

[paaco]

Thanks, for the help Andmetal, here is the working version in case someone could use it. All mobs that are not green will give xp now up to lvl 50. If you use this on a server that goes over 50 you're gonna have to do some testing and add in more levels.

sub EVENT_KILLED_MERIT {

		my $ulevel = quest::getlevel(3);
		
	if ((($ulevel <= 8) && ($mlevel + 3 >= $ulevel) )
		|| (($ulevel == 9) && ($mlevel + 4 >= $ulevel))
		|| (($ulevel >= 10 && $ulevel <= 12) && ($mlevel + 5 >= $ulevel))
		|| (($ulevel >= 13 && $ulevel <= 16) && ($mlevel + 6 >= $ulevel))
		|| (($ulevel >= 17 && $ulevel <= 20) && ($mlevel + 7 >= $ulevel))
		|| (($ulevel >= 21 && $ulevel <= 24) && ($mlevel + 8 >= $ulevel))
		|| (($ulevel >= 25 && $ulevel <= 27) && ($mlevel + 9 >= $ulevel))
		|| (($ulevel >= 28 && $ulevel <= 30) && ($mlevel + 10 >= $ulevel))
		|| (($ulevel >= 31 && $ulevel <= 32) && ($mlevel + 11 >= $ulevel))
		|| (($ulevel >= 33 && $ulevel <= 36) && ($mlevel + 12 >= $ulevel))
		|| (($ulevel >= 37 && $ulevel <= 40) && ($mlevel + 13 >= $ulevel))
		|| (($ulevel == 41) && ($mlevel + 14 >= $ulevel))
		|| (($ulevel >= 42 && $ulevel <= 44) && ($mlevel + 15 >= $ulevel))
		|| (($ulevel >= 45 && $ulevel <= 48) && ($mlevel + 16 >= $ulevel))
		|| (($ulevel >= 49) && ($mlevel + 17 >= $ulevel))
	) {
	

		#Checking if the anti-AE global is defined to stop credits from being earned if it is
		if (!defined($qglobals{anti_ae})) {

			#Optional code to randomly spawn a named NPC when the target dies.
			my $x = $npc->GetX();
			my $y = $npc->GetY();
			my $z = $npc->GetZ();
			my $named = quest::ChooseRandom(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50);

			if ($named == 50) {
				quest::unique_spawn(quest::ChooseRandom(2700667,2700670,2700673,2700676,2700683,2700685),0,0,$x,$y,$z);
				$named = undef;
			}

			#Checking if the exp_credit global is defined for this character
			if (defined($qglobals{exp_credits})) {
			#Making sure the character is not already level 50+
				if ($ulevel <= 49) {
					#Adding 1 point/credit to the exp_credits global
					quest::setglobal("exp_credits", $qglobals{exp_credits}+1, 5, "F");

					#Checking the character's level range        
					if ($ulevel >= 1 && $ulevel <= 5) {
						#Variable to define how many exp_credits are needed to level in this level range.
						my $exp_req = 3;
						if ($qglobals{exp_credits} >= $exp_req) {
							quest::level($ulevel+1);
							#subtract the actual exp_credits global points. Note that this has to be 1 more than the exp_req global is set to.
							quest::setglobal("exp_credits", $qglobals{exp_credits}-4, 5, "F");
						}
						my $exp_needed = ($exp_req - $qglobals{exp_credits});
						$client->Message(5, "You currently need $exp_needed experience credits for your next level.");
					}
					#same thing as above, but for the next higher level range
					if ($ulevel >= 6 && $ulevel <= 15) {
						my $exp_req = 5;
							if ($qglobals{exp_credits} >= $exp_req) {
								quest::level($ulevel+1);
								quest::setglobal("exp_credits", $qglobals{exp_credits}-6, 5, "F");
							}
						my $exp_needed = ($exp_req - $qglobals{exp_credits});
						$client->Message(5, "You currently need $exp_needed experience credits for your next level.");
					}
					if ($ulevel >= 16 && $ulevel <= 30) {
						my $exp_req = 12;
							if ($qglobals{exp_credits} >= $exp_req) {
								quest::level($ulevel+1);
								quest::setglobal("exp_credits", $qglobals{exp_credits}-13, 5, "F");
							}
						my $exp_needed = ($exp_req - $qglobals{exp_credits});
						$client->Message(5, "You currently need $exp_needed experience credits for your next level.");
					}
					if ($ulevel >= 31 && $ulevel <= 50) {
						my $exp_req = 22;
							if ($qglobals{exp_credits} >= $exp_req) {
								quest::level($ulevel+1);
								quest::setglobal("exp_credits", $qglobals{exp_credits}-23, 5, "F");
							}
						my $exp_needed = ($exp_req - $qglobals{exp_credits});
						$client->Message(5, "You currently need $exp_needed experience credits for your next level.");
					}
				}
				#If the character is level 70+, delete the exp_credit global for them since it is no longer needed.
				if ($ulevel >= 50) {
					quest::delglobal("exp_credits"); 
				}      
			}

			#Checking if the new_credits global is defined for this character
			if (defined($qglobals{new_credits})) {
				#Adding 1 point/credit to the new_credits global
				quest::setglobal("new_credits", $qglobals{new_credits}+2, 5, "F");
				#Setting the anti_ae global after all credits are applied.
				quest::setglobal("anti_ae", 1, 5, "S5");
				my $total_credits = ($qglobals{new_credits} + 1);
				$client->Message(5, "You currently have $total_credits Credits.");
			}
	      
		}
	   
	}
}