User Rank Customized Colors and Effects 1.1 With this hack you can choose in the Membergroups which colors a membergroup should have and if they should displayed with shadow, glow or just colored text! dOCda S! mailto:docda_s@yahoo.de Sources/Load.pl if( $userprofile{$user}->[6] > $GodPostNum ) { $memberinfo{$user} = "$membergroups[6]"; $memberstar{$user} = qq~*****~; } elsif( $userprofile{$user}->[6] > $SrPostNum ) { $memberinfo{$user} = "$membergroups[5]"; $memberstar{$user} = qq~****~; } elsif( $userprofile{$user}->[6] > $FullPostNum ) { $memberinfo{$user} = "$membergroups[4]"; $memberstar{$user} = qq~***~; } elsif( $userprofile{$user}->[6] > $JrPostNum ) { $memberinfo{$user} = "$membergroups[3]"; $memberstar{$user} = qq~**~; } else { $memberinfo{$user} = "$membergroups[2]"; $memberstar{$user} = qq~*~; } if( exists $moderators{$user} && $sender ne "im") { $modinfo{$user} = "$membergroups[1]
"; $memberstar{$user} = qq~*****~; } if( $userprofile{$user}->[7] eq 'Administrator' ) { $memberstar{$user} = qq~*****~; $memberinfo{$user} = "$membergroups[0]"; } if( $userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') { $groupinfo{$user} = "$userprofile{$user}->[7]
"; } if( $userprofile{$user}->[7] ne 'Administrator') { $memberinfo{$user} = "$modinfo{$user}$groupinfo{$user}$memberinfo{$user}"; } $stars1 = qq~*~; $stars2 = "$stars1$stars1"; $stars3 = "$stars1$stars1$stars1"; $stars4 = "$stars1$stars1$stars1$stars1"; $stars5 = "$stars1$stars1$stars1$stars1$stars1"; $stars6 = "$stars1$stars1$stars1$stars1$stars1$stars1"; $stars7 = "$stars1$stars1$stars1$stars1$stars1$stars1$stars1"; $stars8 = "$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1"; $stars9 = "$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1"; $stars10 = "$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1$stars1"; if( $userprofile{$user}->[6] > $GodPostNum ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[6]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~*****~; } $memberstar{$user} = $stars; } elsif( $userprofile{$user}->[6] > $SrPostNum ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[5]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~****~; } $memberstar{$user} = $stars; } elsif( $userprofile{$user}->[6] > $FullPostNum ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[4]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~***~; } $memberstar{$user} = $stars; } elsif( $userprofile{$user}->[6] > $JrPostNum ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[3]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~**~; } $memberstar{$user} = $stars; } else { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[2]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~*~; } $memberstar{$user} = $stars; } if( exists $moderators{$user} && $sender ne "im") { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[1]); if ($type == 1) { $modinfo{$user} = qq($status
); } elsif ($type == 2) { $modinfo{$user} = qq($status
); } elsif ($type == 3) { $modinfo{$user} = qq($status
); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~*****~; } $memberstar{$user} = $stars; } if( $userprofile{$user}->[7] eq 'Administrator' ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[0]); if ($type == 1) { $memberinfo{$user} = qq($status
); } elsif ($type == 2) { $memberinfo{$user} = qq($status
); } elsif ($type == 3) { $memberinfo{$user} = qq($status); } else { $memberinfo{$user} = qq($status); } if ($dstars == 1) { $stars = "$stars1"; } elsif ($dstars == 2) { $stars = "$stars2"; } elsif ($dstars == 3) { $stars = "$stars3"; } elsif ($dstars == 4) { $stars = "$stars4"; } elsif ($dstars == 5) { $stars = "$stars5"; } elsif ($dstars == 6) { $stars = "$stars6"; } elsif ($dstars == 7) { $stars = "$stars7"; } elsif ($dstars == 8) { $stars = "$stars8"; } elsif ($dstars == 9) { $stars = "$stars9"; } elsif ($dstars == 10) { $stars = "$stars10"; } else { $stars = qq~*****~; } $memberstar{$user} = $stars; } if( $userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') { $groupinfo{$user} = "$userprofile{$user}->[7]
"; } if( $userprofile{$user}->[7] ne 'Administrator') { $memberinfo{$user} = "$modinfo{$user}$groupinfo{$user}$memberinfo{$user}"; } Sources/Admin.pl print <<"EOT";
$txt{'8'}
$txt{'11'}:
$txt{'12'}:
$txt{'569'}:
$txt{'13'}:
$txt{'14'}:
$txt{'15'}:
$txt{'570'}:
$txt{'16'}:
EOT ($status0, $type0, $tcolor0, $dstars0, $dummy0) = split(/[\|]/, $lines[0]); if ($type0 == 1) { $admintype1 = 'selected'; } elsif ($type0 == 2) { $admintype2 = 'selected'; } elsif ($type0 == 3) { $admintype3 = 'selected'; } else { $admintype3 = 'selected'; } if ($dstars0 == 1) { $stars1 = 'selected'; } elsif ($dstars0 == 2) { $stars2 = 'selected'; } elsif ($dstars0 == 3) { $stars3 = 'selected'; } elsif ($dstars0 == 4) { $stars4 = 'selected'; } elsif ($dstars0 == 5) { $stars5 = 'selected'; } elsif ($dstars0 == 6) { $stars6 = 'selected'; } elsif ($dstars0 == 7) { $stars7 = 'selected'; } elsif ($dstars0 == 8) { $stars8 = 'selected'; } elsif ($dstars0 == 9) { $stars9 = 'selected'; } elsif ($dstars0 == 10) { $stars10 = 'selected'; } else { $stars1 = 'selected'; } ($status1, $type1, $tcolor1, $dstars1, $dummy1) = split(/[\|]/, $lines[1]); if ($type1 == 1) { $modtype1 = 'selected'; } elsif ($type1 == 2) { $modtype2 = 'selected'; } elsif ($type1 == 3) { $modtype3 = 'selected'; } else { $modtype3 = 'selected'; } if ($dstars1 == 1) { $modstars1 = 'selected'; } elsif ($dstars1 == 2) { $modstars2 = 'selected'; } elsif ($dstars1 == 3) { $modstars3 = 'selected'; } elsif ($dstars1 == 4) { $modstars4 = 'selected'; } elsif ($dstars1 == 5) { $modstars5 = 'selected'; } elsif ($dstars1 == 6) { $modstars6 = 'selected'; } elsif ($dstars1 == 7) { $modstars7 = 'selected'; } elsif ($dstars1 == 8) { $modstars8 = 'selected'; } elsif ($dstars1 == 9) { $modstars9 = 'selected'; } elsif ($dstars1 == 10) { $modstars10 = 'selected'; } else { $modstars1 = 'selected'; } ($status2, $type2, $tcolor2, $dstars2, $dummy2) = split(/[\|]/, $lines[2]); if ($type2 == 1) { $ntype1 = 'selected'; } elsif ($type2 == 2) { $ntype2 = 'selected'; } elsif ($type2 == 3) { $ntype3 = 'selected'; } else { $ntype3 = 'selected'; } if ($dstars2 == 1) { $nstars1 = 'selected'; } elsif ($dstars2 == 2) { $nstars2 = 'selected'; } elsif ($dstars2 == 3) { $nstars3 = 'selected'; } elsif ($dstars2 == 4) { $nstars4 = 'selected'; } elsif ($dstars2 == 5) { $nstars5 = 'selected'; } elsif ($dstars2 == 6) { $nstars6 = 'selected'; } elsif ($dstars2 == 7) { $nstars7 = 'selected'; } elsif ($dstars2 == 8) { $nstars8 = 'selected'; } elsif ($dstars2 == 9) { $nstars9 = 'selected'; } elsif ($dstars2 == 10) { $nstars10 = 'selected'; } else { $nstars1 = 'selected'; } ($status3, $type3, $tcolor3, $dstars3, $dummy3) = split(/[\|]/, $lines[3]); if ($type3 == 1) { $jtype1 = 'selected'; } elsif ($type3 == 2) { $jtype2 = 'selected'; } elsif ($type3 == 3) { $jtype3 = 'selected'; } else { $jtype3 = 'selected'; } if ($dstars3 == 1) { $jstars1 = 'selected'; } elsif ($dstars3 == 2) { $jstars2 = 'selected'; } elsif ($dstars3 == 3) { $jstars3 = 'selected'; } elsif ($dstars3 == 4) { $jstars4 = 'selected'; } elsif ($dstars3 == 5) { $jstars5 = 'selected'; } elsif ($dstars3 == 6) { $jstars6 = 'selected'; } elsif ($dstars3 == 7) { $jstars7 = 'selected'; } elsif ($dstars3 == 8) { $jstars8 = 'selected'; } elsif ($dstars3 == 9) { $jstars9 = 'selected'; } elsif ($dstars3 == 10) { $jstars10 = 'selected'; } else { $jstars1 = 'selected'; } ($status4, $type4, $tcolor4, $dstars4, $dummy4) = split(/[\|]/, $lines[4]); if ($type4 == 1) { $ftype1 = 'selected'; } elsif ($type4 == 2) { $ftype2 = 'selected'; } elsif ($type4 == 3) { $ftype3 = 'selected'; } else { $ftype3 = 'selected'; } if ($dstars4 == 1) { $fstars1 = 'selected'; } elsif ($dstars4 == 2) { $fstars2 = 'selected'; } elsif ($dstars4 == 3) { $fstars3 = 'selected'; } elsif ($dstars4 == 4) { $fstars4 = 'selected'; } elsif ($dstars4 == 5) { $fstars5 = 'selected'; } elsif ($dstars4 == 6) { $fstars6 = 'selected'; } elsif ($dstars4 == 7) { $fstars7 = 'selected'; } elsif ($dstars4 == 8) { $fstars8 = 'selected'; } elsif ($dstars4 == 9) { $fstars9 = 'selected'; } elsif ($dstars4 == 10) { $fstars10 = 'selected'; } else { $fstars1 = 'selected'; } ($status5, $type5, $tcolor5, $dstars5, $dummy5) = split(/[\|]/, $lines[5]); if ($type5 == 1) { $stype1 = 'selected'; } elsif ($type5 == 2) { $stype2 = 'selected'; } elsif ($type5 == 3) { $stype3 = 'selected'; } else { $stype3 = 'selected'; } if ($dstars5 == 1) { $sstars1 = 'selected'; } elsif ($dstars5 == 2) { $sstars2 = 'selected'; } elsif ($dstars5 == 3) { $sstars3 = 'selected'; } elsif ($dstars5 == 4) { $sstars4 = 'selected'; } elsif ($dstars5 == 5) { $sstars5 = 'selected'; } elsif ($dstars5 == 6) { $sstars6 = 'selected'; } elsif ($dstars5 == 7) { $sstars7 = 'selected'; } elsif ($dstars5 == 8) { $sstars8 = 'selected'; } elsif ($dstars5 == 9) { $sstars9 = 'selected'; } elsif ($dstars5 == 10) { $sstars10 = 'selected'; } else { $sstars1 = 'selected'; } ($status6, $type6, $tcolor6, $dstars6, $dummy6) = split(/[\|]/, $lines[6]); if ($type6 == 1) { $gtype1 = 'selected'; } elsif ($type6 == 2) { $gtype2 = 'selected'; } elsif ($type6 == 3) { $gtype3 = 'selected'; } else { $gtype3 = 'selected'; } if ($dstars6 == 1) { $gstars1 = 'selected'; } elsif ($dstars6 == 2) { $gstars2 = 'selected'; } elsif ($dstars6 == 3) { $gstars3 = 'selected'; } elsif ($dstars6 == 4) { $gstars4 = 'selected'; } elsif ($dstars6 == 5) { $gstars5 = 'selected'; } elsif ($dstars6 == 6) { $gstars6 = 'selected'; } elsif ($dstars6 == 7) { $gstars7 = 'selected'; } elsif ($dstars6 == 8) { $gstars8 = 'selected'; } elsif ($dstars6 == 9) { $gstars9 = 'selected'; } elsif ($dstars6 == 10) { $gstars10 = 'selected'; } else { $gstars1 = 'selected'; } print <<"EOT";
$txt{'8'}
$txt{'11'}:    
$txt{'12'}:    
$txt{'569'}:    
$txt{'13'}:    
$txt{'14'}:    
$txt{'15'}:    
$txt{'570'}:    
$txt{'16'}:


Custom Rank Colors 1.1 by dOCda S!
EOT print FILE "$FORM{'admin'}\n"; print FILE "$FORM{'moderator'}\n"; print FILE "$FORM{'newbie'}\n"; print FILE "$FORM{'junior'}\n"; print FILE "$FORM{'full'}\n"; print FILE "$FORM{'senior'}\n"; print FILE "$FORM{'god'}\n"; print FILE "$FORM{'admin'}|$FORM{'admintype'}|$FORM{'acolor'}|$FORM{'stars'}|\n"; print FILE "$FORM{'moderator'}|$FORM{'modtype'}|$FORM{'mcolor'}|$FORM{'mstars'}|\n"; print FILE "$FORM{'newbie'}|$FORM{'ntype'}|$FORM{'ncolor'}|$FORM{'nstars'}|\n"; print FILE "$FORM{'junior'}|$FORM{'jtype'}|$FORM{'jcolor'}|$FORM{'jstars'}|\n"; print FILE "$FORM{'full'}|$FORM{'ftype'}|$FORM{'fcolor'}|$FORM{'fstars'}|\n"; print FILE "$FORM{'senior'}|$FORM{'stype'}|$FORM{'scolor'}|$FORM{'sstars'}|\n"; print FILE "$FORM{'god'}|$FORM{'gtype'}|$FORM{'gcolor'}|$FORM{'gstars'}|\n"; Sources/Profile.pl if($curl ne $lines[1] && $curl ne $lines[2] && $curl ne $lines[3] && $curl ne $lines[4] && $curl ne $lines[5] && $curl ne $lines[6]) { if($curl ne $lines[0]) { $position= qq~$position ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $curl); if($curl ne $lines[1] && $curl ne $lines[2] && $curl ne $lines[3] && $curl ne $lines[4] && $curl ne $lines[5] && $curl ne $lines[6]) { if($curl ne $lines[0]) { $position= qq~$position fopen(FILE, "$vardir/membergroups.txt"); @membergroups = ; fclose(FILE); if($memsettings[6] > $GodPostNum) { $memberinfo = "$membergroups[6]"; } elsif($memsettings[6] > $SrPostNum) { $memberinfo = "$membergroups[5]"; } elsif($memsettings[6] > $FullPostNum) { $memberinfo = "$membergroups[4]"; } elsif($memsettings[6] > $JrPostNum) { $memberinfo = "$membergroups[3]"; } else { $memberinfo = "$membergroups[2]"; } if($memsettings[7] ne "") { $memberinfo = "$memsettings[7]"; } if($memsettings[7] eq "Administrator") { $memberinfo = "$membergroups[0]"; } fopen(FILE, "$vardir/membergroups.txt"); @membergroups = ; fclose(FILE); ($status0, $type0, $tcolor0, $dstars0, $dummy0) = split(/[\|]/, $membergroups[0]); ($status1, $type1, $tcolor1, $dstars1, $dummy1) = split(/[\|]/, $membergroups[1]); ($status2, $type2, $tcolor2, $dstars2, $dummy2) = split(/[\|]/, $membergroups[2]); ($status3, $type3, $tcolor3, $dstars3, $dummy3) = split(/[\|]/, $membergroups[3]); ($status4, $type4, $tcolor4, $dstars4, $dummy4) = split(/[\|]/, $membergroups[4]); ($status5, $type5, $tcolor5, $dstars5, $dummy5) = split(/[\|]/, $membergroups[5]); ($status6, $type6, $tcolor6, $dstars6, $dummy6) = split(/[\|]/, $membergroups[6]); if($memsettings[6] > $GodPostNum) { $memberinfo = "$status6"; } elsif($memsettings[6] > $SrPostNum) { $memberinfo = "$status5"; } elsif($memsettings[6] > $FullPostNum) { $memberinfo = "$status4"; } elsif($memsettings[6] > $JrPostNum) { $memberinfo = "$status3"; } else { $memberinfo = "$status2"; } if($memsettings[7] ne "") { $memberinfo = "$memsettings[7]"; } if($memsettings[7] eq "Administrator") { $memberinfo = "$status0"; }