User More Membergroups 1.0 BETA First, I have to say one thing: Do NOT confuse this with the Add More Membergroups mod, because the two mods does two different things! Use: Install Mod, upload modified files. Limitations: If you want to promote someone to Admin/GMod, you HAVE to use the first slot, because that's the only one checked for this privilege!!! The other slots will be shown whenever you post, and in your profile... So, Have Fun! Krikkert None ATM Sources/Profile.pl fopen(FILE, "$memberdir/$INFO{'username'}.dat"); @memsettings=; fclose(FILE); fopen(FILE, "$memberdir/$INFO{'username'}.kri"); @krimodsettings=; fclose(FILE); $txt{'87'}: $tt --------------- $position $txt{'87'}: $t1 --------------- $position $txt{'87'}: $t2 --------------- $position $txt{'87'}: $t3 --------------- $position $txt{'87'}: $t4 --------------- $position $txt{'87'}: $t5 --------------- $position else { $tt = $memsettings[7]; } $t1 = $krimodsettings[0]; $t2 = $krimodsettings[1]; $t3 = $krimodsettings[2]; $t4 = $krimodsettings[3]; $t5 = $krimodsettings[4]; fopen( FILE, ">$memberdir/$member{'username'}.dat", 1); fopen( FILE, ">$memberdir/$member{'username'}.kri", 1); print FILE "$FORM{'title1'}\n"; print FILE "$FORM{'title2'}\n"; print FILE "$FORM{'title3'}\n"; print FILE "$FORM{'title4'}\n"; print FILE "$FORM{'title5'}\n"; fclose(FILE); unlink("$memberdir/$member{'username'}.dat"); unlink("$memberdir/$member{'username'}.kri"); unlink("$memberdir/$member{'username'}.dat"); unlink("$memberdir/$member{'username'}.kri"); if($memsettings[7] eq "Administrator") { $memberinfo = "$membergroups[0]"; } fopen(FILE, "$memberdir/$INFO{'username'}.kri"); @infokrimodset = ; fclose(FILE); $txt{'87'}: $memberinfo $txt{'87a'}: $infokrimodset[0] $txt{'87b'}: $infokrimodset[1] $txt{'87c'}: $infokrimodset[2] $txt{'87d'}: $infokrimodset[3] $txt{'87e'}: $infokrimodset[4] english.lng $txt{'87'} = "Position"; $txt{'87a'} = "Secondary Position"; $txt{'87b'} = "Third Position"; $txt{'87c'} = "Fourth Position"; $txt{'87d'} = "Fifth Position"; $txt{'87e'} = "Sixth Position"; Sources/Display.pl $memberinfo = $memberinfo{$musername}; $krititleinfo = $krititleinfo{$musername}; $memberinfo
~; $memberinfo
$krititleinfo
~; Sources/Load.pl if($userprofile{$user}->[7] ne 'Administrator') { $memberinfo{$user} = "$modinfo{$user}$groupinfo{$user}$memberinfo{$user}"; } fopen(USERFILE, "$memberdir/$user.kri"); @krimodsettings = ; fclose(FILE); foreach $setting (@krimodsettings) { chomp $setting; if($setting ne "") { if($krititleinfo{user} eq "") { $krititleinfo = $setting; } else { $krititleinfo{user} = "$krititleinfo{user}\n$setting"; } }