AlphaChat UP/DOWN

use strict;
use Xchat ':all';


Xchat::register('AlphaChat Oper UP/DOWN Aliases', '1.0.0','Use /acup | /acdown for quick alphachat Up/Down for opers. Use /gup <network> | /gdown <network> for others.');
Xchat::hook_command('acdown', 'acdown');
Xchat::hook_command('acup', 'acup');
Xchat::hook_command('gup', 'gup');
Xchat::hook_command('gdown', 'gdown');

sub acup {
    Xchat::set_context(undef, 'AlphaChat');
    Xchat::command('BACK');
    Xchat::command('MODE ' . Xchat::get_info('nick') . ' +h');
    Xchat::command('CS UP #help');
}

sub acdown {
    Xchat::set_context(undef, 'AlphaChat');
    Xchat::command('CS DOWN #help');
    Xchat::command('MODE ' . Xchat::get_info('nick') . ' -h');
    Xchat::command('AWAY I am currently not available. If you are in need of assistance, please join #Help and ask an available staffer.');
}

sub gdown {
    return unless $_[0][1];
    Xchat::set_context(undef, $_[0][1]);
    Xchat::command('CS DOWN #help');
    Xchat::command('MODE ' . Xchat::get_info('nick') . ' -h');
    Xchat::command('AWAY I am currently not available. If you are in need of assistance, please join #Help and ask an available staffer.');
}

sub gup {
    return unless $_[0][1];
    Xchat::set_context(undef, $_[0][1]);
    Xchat::command('BACK');
    Xchat::command('MODE ' . Xchat::get_info('nick') . ' +h');
    Xchat::command('CS UP #help');
}