My_Status
1.0b
This mod adds an ICQ type status to your profile & posts (in the signature).
**************************************************************************
BASED ON : Mute User by cae
AUTHOR : Sonic
***************************************************************************
Version 1.0b :
- Beta version.
Note:
Remember to backup English.lng, Profile.pl & Display.pl (safety 1st!!).
Future Updates :
- Ability for Admins to turn off feature
- Ability for user to not show their status
- Icons instead of text when text menu is not selected
Sonic
www.scotsonphones.co.uk/YaBB
Sources/Profile.pl
fopen(FILE, "$memberdir/$INFO{'username'}.dat");
@memsettings=;
fclose(FILE);
fopen(FILE, "$memberdir/$INFO{'username'}.status");
@statussettings=;
fclose(FILE);
if (@statussettings[0] eq '0') { $Status1 = ' selected'; }
if (@statussettings[0] eq '1') { $Status2 = ' selected'; }
if (@statussettings[0] eq '2') { $Status3 = ' selected'; }
~;
##########################
## My Status Mod by Sonic ##
##########################
$yymain .= qq~
$status{'1'}:
$status{'2'}
~;
$yymain .= qq~
~;
############################
## / My Status Mod by Sonic / ##
############################
if( $settings[7] ne 'Administrator' ) {
$member{'username'} = $username;
$member{'settings6'} = $settings[6];
$member{'settings7'} = $settings[7];
}
##########################
## My Status Mod by Sonic ##
##########################
fopen(FILE, ">$memberdir/$member{'username'}.status", 1);
print FILE "$member{'status'}";
fclose(FILE);
############################
## / My Status Mod by Sonic / ##
############################
english.lng
1;
$status{'1'} = "My Status :";
$status{'2'} = "Select your current status.";
$status{'3'} = "Current User Status : ";
$status{'4'} = "Available";
$status{'5'} = "Busy";
$status{'6'} = "Away";
$status{'7'} = "None Set";
1;
Sources/Display.pl
my(@userprofile,@messages,@bgcolors);
my($mystatus);
my(@statussettings);
if ($mstate != 1)
# My Status #
fopen(FILE, "$memberdir/$musername.status");
@statussettings=;
fclose(FILE);
$mystatus=@statussettings[0];
if ($mystatus eq '0') { $memstatus =$status{'4'} ; }
elsif ($mystatus eq '1') { $memstatus =$status{'5'} ; }
elsif ($mystatus eq '2') { $memstatus =$status{'6'} ; }
else { $memstatus =$status{'7'} ; }
$userprofile[5]=qq~$status{'1'} $memstatus$userprofile[5]~;
#/ My Status /#