i'm trying to set up so that when a player hits max level on your server, and they are the first to do so, it does a server wide announcement of it.
heres what i've got so far. i have it placed in quests/templates/player.pl, but I can't get it to work for some reason. can some one take a look at it, and tell me whats wrong pls?
Code:
sub EVENT_LEVEL_UP {
my $maxlvl = 50
if(!defined($qglobals{warmaxlvl}) && $ulevel == $maxlvl && $class eq 'Warrior') {
quest::setglobal("warmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel warrior!");
}
if(!defined($qglobals{clrmaxlvl}) && $ulevel == $maxlvl && $class eq 'Cleric') {
quest::setglobal("clrmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel cleric!");
}
if(!defined($qglobals{palmaxlvl}) && $ulevel == $maxlvl && $class eq 'Paladin') {
quest::setglobal("palmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel paladin!");
}
if(!defined($qglobals{rngmaxlvl}) && $ulevel == $maxlvl && $class eq 'Ranger') {
quest::setglobal("rngmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel ranger!");
}
if(!defined($qglobals{skmaxlvl}) && $ulevel == $maxlvl && $class eq 'ShadowKnight') {
quest::setglobal("skmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel shadow knight!");
}
if(!defined($qglobals{drumaxlvl}) && $ulevel == $maxlvl && $class eq 'Druid') {
quest::setglobal("drumaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel druid!");
}
if(!defined($qglobals{mkmaxlvl}) && $ulevel == $maxlvl && $class eq 'Monk') {
quest::setglobal("mkmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel monk!");
}
if(!defined($qglobals{brdmaxlvl}) && $ulevel == $maxlvl && $class eq 'Bard') {
quest::setglobal("brdmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel bard!");
}
if(!defined($qglobals{rogmaxlvl}) && $ulevel == $maxlvl && $class eq 'Rogue') {
quest::setglobal("rogmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel rogue!");
}
if(!defined($qglobals{shmmaxlvl}) && $ulevel == $maxlvl && $class eq 'Shaman') {
quest::setglobal("shmmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel shaman!");
}
if(!defined($qglobals{necmaxlvl}) && $ulevel == $maxlvl && $class 'Necromancer') {
quest::setglobal("necmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel necromancer!");
}
if(!defined($qglobals{wizmaxlvl}) && $ulevel == $maxlvl && $class eq 'Wizard') {
quest::setglobal("wizmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel wizard!");
}
if(!defined($qglobals{magmaxlvl}) && $ulevel == $maxlvl && $class eq 'Magician') {
quest::setglobal("magmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel magician!");
}
if(!defined($qglobals{encmaxlvl}) && $ulevel == $maxlvl && $class eq 'Enchanter') {
quest::setglobal("encmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel enchanter!");
}
if(!defined($qglobals{bstmaxlvl}) && $ulevel == $maxlvl && $class eq 'Beastlord') {
quest::setglobal("bstmaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel beastlord!");
}
if(!defined($qglobals{bermaxlvl}) && $ulevel == $maxlvl && $class eq 'Berserker') {
quest::setglobal("bermaxlvl",1,2,"F");
quest::shout2("$name has made the server first level $ulevel berserker!");
}
}