User Rank Customized Colors and Effects - 1.1c Patch 1.1c 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! 1.1b: [Neo-Gilgamesh] Made the mod Global Mod. compatible. Gave Admin's, Global Mods., and Mods. their original stars. 1.1c: [Neo-Gilgamesh] Corrected some code. Patch works again. NOTE: Only install this mod if you have the Global Mod. mod. Uninstall the previous mod before installing. 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] eq 'Global Moderator' ) { $memberstar{$user} = qq~*****~; $memberinfo{$user} = "$membergroups[7]"; } if( ($userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') || ($userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Global Moderator') ) { $groupinfo{$user} = "$userprofile{$user}->[7]
"; } if( $userprofile{$user}->[7] ne 'Administrator' && $userprofile{$user}->[7] ne 'Global Moderator') { $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"; $stars11 = qq~*~; $stars12 = "$stars11$stars11"; $stars13 = "$stars11$stars11$stars11"; $stars14 = "$stars11$stars11$stars11$stars11"; $stars15 = "$stars11$stars11$stars11$stars11$stars11"; $stars16 = "$stars11$stars11$stars11$stars11$stars11$stars11"; $stars17 = "$stars11$stars11$stars11$stars11$stars11$stars11$stars11"; $stars18 = "$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11"; $stars19 = "$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11"; $stars20 = "$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11$stars11"; $stars21 = qq~*~; $stars22 = "$stars21$stars21"; $stars23 = "$stars21$stars21$stars21"; $stars24 = "$stars21$stars21$stars21$stars21"; $stars25 = "$stars21$stars21$stars21$stars21$stars21"; $stars26 = "$stars21$stars21$stars21$stars21$stars21$stars21"; $stars27 = "$stars21$stars21$stars21$stars21$stars21$stars21$stars21"; $stars28 = "$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21"; $stars29 = "$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21"; $stars30 = "$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21$stars21"; $stars31 = qq~*~; $stars32 = "$stars31$stars31"; $stars33 = "$stars31$stars31$stars31"; $stars34 = "$stars31$stars31$stars31$stars31"; $stars35 = "$stars31$stars31$stars31$stars31$stars31"; $stars36 = "$stars31$stars31$stars31$stars31$stars31$stars31"; $stars37 = "$stars31$stars31$stars31$stars31$stars31$stars31$stars31"; $stars38 = "$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31"; $stars39 = "$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31"; $stars40 = "$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31$stars31"; 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 = "$stars21"; } elsif ($dstars == 2) { $stars = "$stars22"; } elsif ($dstars == 3) { $stars = "$stars23"; } elsif ($dstars == 4) { $stars = "$stars24"; } elsif ($dstars == 5) { $stars = "$stars25"; } elsif ($dstars == 6) { $stars = "$stars26"; } elsif ($dstars == 7) { $stars = "$stars27"; } elsif ($dstars == 8) { $stars = "$stars28"; } elsif ($dstars == 9) { $stars = "$stars29"; } elsif ($dstars == 10) { $stars = "$stars30"; } else { $stars = qq~*****~; } $memberstar{$user} = $stars; } if( $userprofile{$user}->[7] eq 'Global Moderator' ) { ($status, $type, $tcolor, $dstars, $dummy) = split(/[\|]/, $membergroups[7]); 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 = "$stars31"; } elsif ($dstars == 2) { $stars = "$stars32"; } elsif ($dstars == 3) { $stars = "$stars33"; } elsif ($dstars == 4) { $stars = "$stars34"; } elsif ($dstars == 5) { $stars = "$stars35"; } elsif ($dstars == 6) { $stars = "$stars36"; } elsif ($dstars == 7) { $stars = "$stars37"; } elsif ($dstars == 8) { $stars = "$stars38"; } elsif ($dstars == 9) { $stars = "$stars39"; } elsif ($dstars == 10) { $stars = "$stars40"; } 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 = "$stars11"; } elsif ($dstars == 2) { $stars = "$stars12"; } elsif ($dstars == 3) { $stars = "$stars13"; } elsif ($dstars == 4) { $stars = "$stars14"; } elsif ($dstars == 5) { $stars = "$stars15"; } elsif ($dstars == 6) { $stars = "$stars16"; } elsif ($dstars == 7) { $stars = "$stars17"; } elsif ($dstars == 8) { $stars = "$stars18"; } elsif ($dstars == 9) { $stars = "$stars19"; } elsif ($dstars == 10) { $stars = "$stars20"; } else { $stars = qq~*****~; } $memberstar{$user} = $stars; } if( ($userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') || ($userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Global Moderator') ) { $groupinfo{$user} = "$userprofile{$user}->[7]
"; } if( $userprofile{$user}->[7] ne 'Administrator' && $userprofile{$user}->[7] ne 'Global Moderator') { $memberinfo{$user} = "$modinfo{$user}$groupinfo{$user}$memberinfo{$user}"; } Sources/Admin.pl print <<"EOT";
$txt{'8'}
$txt{'11'}:
Global Moderator:
$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'; } ($status7, $type7, $tcolor7, $dstars7, $dummy7) = split(/[\|]/, $lines[7]); if ($type7 == 1) { $gmodtype1 = 'selected'; } elsif ($type7 == 2) { $gmodtype2 = 'selected'; } elsif ($type7 == 3) { $gmodtype3 = 'selected'; } else { $gmodtype3 = 'selected'; } if ($dstars7 == 1) { $gmodstars1 = 'selected'; } elsif ($dstars7 == 2) { $gmodstars2 = 'selected'; } elsif ($dstars7 == 3) { $gmodstars3 = 'selected'; } elsif ($dstars7 == 4) { $gmodstars4 = 'selected'; } elsif ($dstars7 == 5) { $gmodstars5 = 'selected'; } elsif ($dstars7 == 6) { $gmodstars6 = 'selected'; } elsif ($dstars7 == 7) { $gmodstars7 = 'selected'; } elsif ($dstars7 == 8) { $gmodstars8 = 'selected'; } elsif ($dstars7 == 9) { $gmodstars9 = 'selected'; } elsif ($dstars7 == 10) { $gmodstars10 = 'selected'; } else { $gmodstars1 = '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'}:    
Global Moderator:    
$txt{'12'}:    
$txt{'569'}:    
$txt{'13'}:    
$txt{'14'}:    
$txt{'15'}:    
$txt{'570'}:    
$txt{'16'}:


Custom Rank Colors 1.1 by dOCda S!
Modified for Global Mods. by Neo-Gilgamesh
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{'global'}\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"; print FILE "$FORM{'global'}|$FORM{'gmodtype'}|$FORM{'gmodcolor'}|$FORM{'gmodstars'}|\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] && $curl ne $lines[7]) { $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"; }