Add More MemberGroups
Fix 1
- Fixes the Private Board Display for all Members if you have added a Custom MemberGroup (Postcount "x") to the Category access.
- Fixes the display of the Stars (done by CAE - thx a lot)
-Takes out a non needed line in Profile.pl
dOCda S!
http://gpu.hackers.sk/hacks/
Sources/BoardIndex.pl
if( $settings[6] >= $MemPostNum[$mscount] ) {
if($settings[6] >= $MemPostNum[$mscount] && $MemPostNum[$mscount] ne "x") {
Sources/Subs.pl
if( $settings[6] >= $MemPostNum[$mscount] ) {
if( $settings[6] >= $MemPostNum[$mscount] && $MemPostNum[$mscount] ne "x") {
Sources/Profile.pl
elsif ($memsettings[7] eq 'Global Moderator') { $tt = $MemStatGMod; }
elsif ($memsettings[7] eq 'Moderator') { $tt = $MemStatMod; }
else { $tt = $memsettings[7]; }
elsif ($memsettings[7] eq 'Global Moderator') { $tt = $MemStatGMod; }
else { $tt = $memsettings[7]; }
Sources/Load.pl
if( $userprofile{$user}->[7] eq 'Administrator' ) {
if ($MemTypeAdmin == 1) { $link{$user} = qq~~; }
elsif ($MemTypeAdmin == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatAdmin";
$starnum = "0";
if ($MemStarNumAdmin eq "") { $MemStarNumAdmin = "0"; }
fopen(FILE, ">mem$user.tmp");
while($MemStarNumAdmin ne "$starnum") {
$memberstartemp = qq(
);
print FILE $memberstartemp;
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test{$user} = ;
close(FILE);
$memberstar{$user} = qq~$test{$user}~;
unlink("mem$user.tmp");
$starnum = "0";
} elsif ( $userprofile{$user}->[7] eq 'Global Moderator' ) {
if ($MemTypeGMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeGMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatGMod";
$starnum = "0";
if ($MemStarNumGMod eq "") { $MemStarNumGMod = "0"; }
fopen(FILE, ">mem$user.tmp");
while($MemStarNumGMod ne "$starnum") {
$memberstartemp = qq(
);
print FILE $memberstartemp;
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test{$user} = ;
close(FILE);
$memberstar{$user} = qq~$test{$user}~;
unlink("mem$user.tmp");
$starnum = "0";
} else {
if ($MemStarNumNewbie eq "") { $MemStarNumNewbie = "0"; }
$starnum = "0";
if( $userprofile{$user}->[6] >= $MemPostNewbie) {
if ($MemTypeNewbie == 1) { $link{$user} = qq~~; }
elsif ($MemTypeNewbie == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatNewbie";
fopen(FILE, ">mem$user.tmp");
while($MemStarNumNewbie ne "$starnum") {
$memberstartemp = qq(
);
print FILE $memberstartemp;
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test{$user} = ;
close(FILE);
$memberstar{$user} = qq~$test{$user}~;
unlink("mem$user.tmp");
$starnum = "0";
$msstatcount = "0";
$starnum = "0";
while($MemStat[$msstatcount]) {
if( $userprofile{$user}->[6] >= $MemPostNum[$msstatcount] && $MemPostNum[$msstatcount] ne "x") {
if ($MemType[$msstatcount] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$msstatcount] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStat[$msstatcount]";
if ($MemStarNum[$msstatcount] eq "") { $MemStarNum[$msstatcount] = "0"; }
if (open(FILE, "mem$user.tmp")) { } else {
fopen(FILE, ">mem$user.tmp");
while($MemStarNum[$msstatcount] ne "$starnum") {
$memberstar[$user] = qq(
);
print FILE "$memberstar[$user]";
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test[$user] = ;
close(FILE);
$memberstar{$user} = qq~$test[$user]~;
}
unlink("mem$user.tmp");
$starnum = "0";
}
++$msstatcount;
}
}
if( $userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') {
$group{$user} = "$userprofile{$user}->[7]";
$groupinfo{$user} = "$userprofile{$user}->[7]";
$count=0;
while($MemStat[$count]) {
if ($MemStat[$count] eq "$group{$user}") {
if ($MemType[$count] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$count] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStat[$count]";
if ($MemStarNum[$count] eq "") { $MemStarNum[$count] = "0"; }
if (open(FILE, "mem$user.tmp")) { } else {
fopen(FILE, ">mem$user.tmp");
while($MemStarNum[$count] ne "$starnum") {
$memberstar[$user] = qq(
);
print FILE "$memberstar[$user]";
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test[$user] = ;
close(FILE);
$memberstar{$user} = qq~$test[$user]~;
}
unlink("mem$user.tmp");
$starnum = "0";
}
$count++;
}
}
if( exists $moderators{$user} && $sender ne "im") {
if ($MemTypeMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$modinfo{$user} = "$MemStatMod";
$starnum = "0";
if ($MemStarNumMod eq "") { $MemStarNumMod = "0"; }
fopen(FILE, ">mem$user.tmp");
while($MemStarNumMod ne "$starnum") {
$memberstartemp = qq(
);
print FILE $memberstartemp;
++$starnum;
}
fclose(FILE);
open(FILE, "mem$user.tmp");
$test{$user} = ;
close(FILE);
$memberstar{$user} = qq~$test{$user}~;
unlink("mem$user.tmp");
$starnum = "0";
}
if( $userprofile{$user}->[7] ne 'Administrator') {
if ($groupinfo{$user} ne "") { $brgroup = "
"; } else { $brgroup = ""; }
if ($groupinfo{$user} eq "") {
$memberinfo{$user} = "$memberinfo{$user}"; } else {
$memberinfo{$user} = "$groupinfo{$user}"; }
if ($modinfo{$user} ne "") { $memberinfo{$user} = "$modinfo{$user}$brgroup$groupinfo{$user}" }
}
}
if( $userprofile{$user}->[7] eq 'Administrator' ) {
if ($MemTypeAdmin == 1) { $link{$user} = qq~~; }
elsif ($MemTypeAdmin == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatAdmin";
$starnum = "0";
if ($MemStarNumAdmin eq "") { $MemStarNumAdmin = "0"; }
$memberstartemp ='';
while($MemStarNumAdmin ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
} elsif ( $userprofile{$user}->[7] eq 'Global Moderator' ) {
if ($MemTypeGMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeGMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatGMod";
$starnum = "0";
if ($MemStarNumGMod eq "") { $MemStarNumGMod = "0"; }
$memberstartemp ='';
while($MemStarNumGMod ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
} else {
if ($MemStarNumNewbie eq "") { $MemStarNumNewbie = "0"; }
$starnum = "0";
if( $userprofile{$user}->[6] >= $MemPostNewbie) {
if ($MemTypeNewbie == 1) { $link{$user} = qq~~; }
elsif ($MemTypeNewbie == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStatNewbie";
$memberstartemp ='';
while($MemStarNumNewbie ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
$msstatcount = "0";
$starnum = "0";
while($MemStat[$msstatcount]) {
if( $userprofile{$user}->[6] >= $MemPostNum[$msstatcount] && $MemPostNum[$msstatcount] ne "x") {
if ($MemType[$msstatcount] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$msstatcount] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStat[$msstatcount]";
if ($MemStarNum[$msstatcount] eq "") { $MemStarNum[$msstatcount] = "0"; }
$memberstartemp ='';
while($MemStarNum[$msstatcount] ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
}
++$msstatcount;
}
}
if( $userprofile{$user}->[7] && $userprofile{$user}->[7] ne 'Administrator') {
$group{$user} = "$userprofile{$user}->[7]";
$groupinfo{$user} = "$userprofile{$user}->[7]";
$count=0;
while($MemStat[$count]) {
if ($MemStat[$count] eq "$group{$user}") {
if ($MemType[$count] == 1) { $link{$user} = qq~~; }
elsif ($MemType[$count] == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$memberinfo{$user} = "$MemStat[$count]";
if ($MemStarNum[$count] eq "") { $MemStarNum[$count] = "0"; }
$memberstartemp ='';
while($MemStarNum[$count] ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
}
$count++;
}
}
if( exists $moderators{$user} && $sender ne "im") {
if ($MemTypeMod == 1) { $link{$user} = qq~~; }
elsif ($MemTypeMod == 2) { $link{$user} = qq~~; }
else { $link{$user} = qq~$userprofile{$user}->[1]~; }
$modinfo{$user} = "$MemStatMod";
$starnum = "0";
if ($MemStarNumMod eq "") { $MemStarNumMod = "0"; }
$memberstartemp ='';
while($MemStarNumMod ne "$starnum") {
$memberstartemp .= qq();
++$starnum;
}
$memberstar{$user} = $memberstartemp;
$starnum = "0";
}
if( $userprofile{$user}->[7] ne 'Administrator') {
if ($groupinfo{$user} ne "") { $brgroup = "
"; } else { $brgroup = ""; }
if ($groupinfo{$user} eq "") {
$memberinfo{$user} = "$memberinfo{$user}"; } else {
$memberinfo{$user} = "$groupinfo{$user}"; }
if ($modinfo{$user} ne "") { $memberinfo{$user} = "$modinfo{$user}$brgroup$groupinfo{$user}" }
}
}