Games-Axmud
view release on metacpan or search on metacpan
lib/Games/Axmud/Cmd.pm view on Meta::CPAN
my (
$self, $session, $inputString, $userCmd, $standardCmd,
$switch,
$check,
) = @_;
# Check for improper arguments
if (defined $check) {
return $self->improper($session, $inputString);
}
# ;ss
if (! defined $switch) {
# Display header
$session->writeText('List of session settings');
# Display list
$session->writeText(' Tab label format: ');
if ($axmud::CLIENT->sessionTabMode eq 'bracket') {
$session->writeText(' \'bracket\' - displayed as \'deathmud (Gandalf)\'');
} elsif ($axmud::CLIENT->sessionTabMode eq 'hyphen') {
$session->writeText(' \'hyphen\' - displayed as \'deathmud - Gandalf\'');
} elsif ($axmud::CLIENT->sessionTabMode eq 'world') {
$session->writeText(' \'world\' - displayed as \'deathmud\'');
} elsif ($axmud::CLIENT->sessionTabMode eq 'char') {
$session->writeText(' \'char\' - displayed as \'Gandalf\'');
}
if (! $axmud::CLIENT->xTermTitleFlag) {
$session->writeText(' Display xterm titles - OFF');
} else {
$session->writeText(' Display xterm titles - ON');
}
if (! $axmud::CLIENT->longTabLabelFlag) {
$session->writeText(' Display long world names - OFF');
} else {
$session->writeText(' Display long world names - ON');
}
if (! $axmud::CLIENT->simpleTabFlag) {
$session->writeText(' Display simple tabs (single tab with no label) - OFF');
} else {
$session->writeText(' Display simple tabs (single tab with no label) - ON');
}
if (! $axmud::CLIENT->confirmCloseMainWinFlag) {
$session->writeText(' Confirm before click-closing \'main\' window - OFF');
} else {
$session->writeText(' Confirm before click-closing \'main\' window - ON');
}
if (! $axmud::CLIENT->confirmCloseTabFlag) {
$session->writeText(' Confirm before click-closing tabs - OFF');
} else {
$session->writeText(' Confirm before click-closing tabs - ON');
}
if (! $axmud::CLIENT->confirmCloseMenuFlag) {
$session->writeText(' Confirm before closing session from menu - OFF');
} else {
$session->writeText(' Confirm before closing session from menu - ON');
}
if (! $axmud::CLIENT->confirmCloseToolButtonFlag) {
$session->writeText(' Confirm before closing session from toolbar - OFF');
} else {
$session->writeText(' Confirm before closing session from toolbar - ON');
}
if (! $axmud::CLIENT->offlineOnDisconnectFlag) {
$session->writeText(' Switch to \'offline\' mode on disconnection - OFF');
} else {
$session->writeText(' Switch to \'offline\' mode on disconnection - ON');
}
# Display footer
return $self->complete($session, $standardCmd, 'End of list');
} elsif ($switch eq '-b') {
$axmud::CLIENT->set_sessionTabMode('bracket');
return $self->complete(
$session, $standardCmd,
'Session tab label format set to \'bracket\' (displayed as \'deathmud (Gandalf)\')',
);
} elsif ($switch eq '-h') {
$axmud::CLIENT->set_sessionTabMode('hyphen');
return $self->complete(
$session, $standardCmd,
'Session tab label format set to \'hyphen\' (displayed as \'deathmud - Gandalf\')',
);
} elsif ($switch eq '-w') {
$axmud::CLIENT->set_sessionTabMode('world');
return $self->complete(
$session, $standardCmd,
'Session tab label format set to \'world\' (displayed as \'deathmud\')',
);
} elsif ($switch eq '-c') {
$axmud::CLIENT->set_sessionTabMode('char');
return $self->complete(
$session, $standardCmd,
'Session tab label format set to \'char\' (displayed as \'Gandalf\')',
);
} elsif ($switch eq '-x') {
$axmud::CLIENT->toggle_sessionFlag('xterm');
if (! $axmud::CLIENT->xTermTitleFlag) {
lib/Games/Axmud/Cmd.pm view on Meta::CPAN
);
}
} elsif ($switch eq '-s') {
$axmud::CLIENT->toggle_sessionFlag('simple');
if (! $axmud::CLIENT->simpleTabFlag) {
return $self->complete(
$session, $standardCmd,
'Display simple tabs (single tab with no label) turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Display simple tabs (single tab with no label) turned ON',
);
}
} elsif ($switch eq '-m') {
$axmud::CLIENT->toggle_sessionFlag('close_main');
if (! $axmud::CLIENT->confirmCloseMainWinFlag) {
return $self->complete(
$session, $standardCmd,
'Confirm before click-closing \'main\' window turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Confirm before click-closing \'main\' window turned ON',
);
}
} elsif ($switch eq '-t') {
$axmud::CLIENT->toggle_sessionFlag('close_tab');
if (! $axmud::CLIENT->confirmCloseTabFlag) {
return $self->complete(
$session, $standardCmd,
'Confirm before click-closing tabs turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Confirm before click-closing tabs turned ON',
);
}
} elsif ($switch eq '-e') {
$axmud::CLIENT->toggle_sessionFlag('close_menu');
if (! $axmud::CLIENT->confirmCloseMenuFlag) {
return $self->complete(
$session, $standardCmd,
'Confirm before closing session from menu turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Confirm before closing session from menu turned ON',
);
}
} elsif ($switch eq '-r') {
$axmud::CLIENT->toggle_sessionFlag('close_toolbutton');
if (! $axmud::CLIENT->confirmCloseToolButtonFlag) {
return $self->complete(
$session, $standardCmd,
'Confirm before closing session from toolbar turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Confirm before closing session from toolbar turned ON',
);
}
} elsif ($switch eq '-o') {
$axmud::CLIENT->toggle_sessionFlag('switch_offline');
if (! $axmud::CLIENT->offlineOnDisconnectFlag) {
return $self->complete(
$session, $standardCmd,
'Switch to \'offline\' mode on disconnection turned OFF',
);
} else {
return $self->complete(
$session, $standardCmd,
'Switch to \'offline\' mode on disconnection turned ON',
);
}
} else {
return $self->error(
$session, $inputString,
'Unrecognised switch \'' . $switch . '\' - try \';help setsession\'',
);
}
}
}
lib/Games/Axmud/Cmd.pm view on Meta::CPAN
$switch,
$check,
) = @_;
# Local variables
my $msg;
# Check for improper arguments
if (! defined $switch || defined $check) {
return $self->improper($session, $inputString);
}
# ;tam -o
if ($switch eq '-o') {
if ($session->worldModelObj->autoOpenWinFlag) {
return $self->error(
$session, $inputString,
'The Automapper window is already set to open when ' . $axmud::SCRIPT
. ' starts',
);
} else {
$session->worldModelObj->set_autoOpenWinFlag(TRUE);
return $self->complete(
$session, $standardCmd,
'The Automapper window will now open when ' . $axmud::SCRIPT . ' starts',
);
}
# ;tam -s
} elsif ($switch eq '-s') {
if (! $session->worldModelObj->autoOpenWinFlag) {
return $self->error(
$session, $inputString,
'The Automapper window is already set not to open when ' . $axmud::SCRIPT
. ' starts',
);
} else {
$session->worldModelObj->set_autoOpenWinFlag(FALSE);
return $self->complete(
$session, $standardCmd,
'The Automapper window will no longer open when ' . $axmud::SCRIPT . ' starts',
);
}
} else {
# ;tam -e
if ($switch eq '-e') {
$session->worldModelObj->toggle_componentFlag('showMenuBarFlag');
if ($session->worldModelObj->showMenuBarFlag) {
$msg = 'Automapper window menu bar(s) shown';
} else {
$msg = 'Automapper window menu bar(s) hidden';
}
# ;tam -t
} elsif ($switch eq '-t') {
$session->worldModelObj->toggle_componentFlag('showToolbarFlag');
if ($session->worldModelObj->showToolbarFlag) {
$msg = 'Automapper window toolbar(s) shown';
} else {
$msg = 'Automapper window toolbar(s) hidden';
}
# ;tam -r
} elsif ($switch eq '-r') {
$session->worldModelObj->toggle_componentFlag('showTreeViewFlag');
if ($session->worldModelObj->showTreeViewFlag) {
$msg = 'Automapper window region list(s) shown';
} else {
$msg = 'Automapper window region list(s) hidden';
}
# ;tam -m
} elsif ($switch eq '-m') {
$session->worldModelObj->toggle_componentFlag('showCanvasFlag');
if ($session->worldModelObj->showCanvasFlag) {
$msg = 'Automapper window map(s) shown';
} else {
$msg = 'Automapper window map(s) hidden';
}
} else {
# Unrecognised switch
return $self->improper($session, $inputString);
}
return $self->complete($session, $standardCmd, $msg);
}
}
}
{ package Games::Axmud::Cmd::LocatorWizard;
use strict;
use warnings;
# use diagnostics;
use Glib qw(TRUE FALSE);
our @ISA = qw(Games::Axmud::Generic::Cmd Games::Axmud);
##################
# Constructors
sub new {
( run in 1.161 second using v1.01-cache-2.11-cpan-39bf76dae61 )