Colors in Users Online
2.0 SP1.1
This mod is very cool. ;)
It is an addon for the add more membergrops mod that displays the setted style of text for different membergroups.
e.g.
In Admin Center's colors/effects center for member name, I set global moderators color to be green. In the User's online, all Global moderators will now be green :)
Version 2:
Code fixed up.
Glow and shadow now work.
Shoeb Omar
http://www.muslimteens.net
Sources/BoardIndex.pl
$users .= qq~ $userprofile{$name}->[1], \n~;
&LoadUserDisplay($name, 1);
$linkforuser = $link{$name};
$linkforuser =~ s~size="2"~size="1"~;
$users .= qq~$linkforuser, \n~;
Sources/Load.pl
if ($MemTypeAdmin == 1) { $link{$user} = qq~~; }
elsif ($MemTypeAdmin == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemTypeAdmin == 1) { $link{$user} = qq~$break~; }
elsif ($MemTypeAdmin == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
if ($MemTypeGMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeGMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemTypeGMod == 1) { $link{$user} = qq~$break~; }
elsif ($MemTypeGMod == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
if ($MemTypeNewbie == 1) { $link{$user} = qq~~; }
elsif ($MemTypeNewbie == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemTypeNewbie == 1) { $link{$user} = qq~$break~; }
elsif ($MemTypeNewbie == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
if ($MemType[$msstatcount] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$msstatcount] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemType[$msstatcount] == 1) { $link{$user} = qq~$break~; }
elsif ($MemType[$msstatcount] == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
if ($MemType[$count] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$count] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemType[$count] == 1) { $link{$user} = qq~$break~; }
elsif ($MemType[$count] == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
if ($MemTypeMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]
~; }
if ($MemTypeMod == 1) { $link{$user} = qq~$break~; }
elsif ($MemTypeMod == 2) { $link{$user} = qq~$break~; }
else { $link{$user} = qq~$userprofile{$user}->[1]$break~; }
sub LoadUserDisplay {
my $user= $_[0];
sub LoadUserDisplay {
my ($user, $br)= @_;
if ($br != 1){$break = "
";} else {$break = "";}