don't need any batch files !!
support files
- config
items_control
mon_control
shop
profiles.plopenkore
|-control
|-fields
|-plugins
|-profiles
| |-default
| |-another
| |-other
|-src
|-tables
Code: Select all
#########################################################################
# This software is open source, licensed under the GNU General Public
# License, version 2.
# Basically, this means that you're allowed to modify and distribute
# this software. However, if you distribute modified versions, you MUST
# also distribute the source code.
# See http://www.gnu.org/licenses/gpl.html for the full license.
#########################################################################
# profiles selector (full)
# d3fc0n 30/12/2007
#########################################################################
package profiles;
use strict;
use Plugins;
use Globals qw($interface);
my $profile_folder = "profiles";
Plugins::register('profiles', 'Profiles Selector', \&on_unload);
my $hooks = Plugins::addHooks(
['start', \&onStart]
);
sub on_unload {
Plugins::delHook($hooks);
undef $profile_folder;
}
sub onStart {
opendir D, $profile_folder;
my @conlist = readdir(D);
closedir D;
my @profiles;
foreach (@conlist) {
next if (!-d "$profile_folder\\$_");
next if ($_ =~ /^\./);
push @profiles, $_;
}
my $choice = $interface->showMenu(
"Please choose a Profiles folder.",
\@profiles,
title => "Profiles Selector"
);
if ($choice == -1) {
exit;
} else {
if (-e "$profile_folder\\" . @profiles[$choice] . "\\config.txt") {
$Settings::config_file = "$profile_folder\\" . @profiles[$choice] . "\\config.txt";
}
if (-e "$profile_folder\\" . @profiles[$choice] . "\\mon_control.txt") {
$Settings::mon_control_file = "$profile_folder\\" . @profiles[$choice] . "\\mon_control.txt";
}
if (-e "$profile_folder\\" . @profiles[$choice] . "\\items_control.txt") {
$Settings::items_control_file = "$profile_folder\\" . @profiles[$choice] . "\\items_control.txt";
}
if (-e "$profile_folder\\" . @profiles[$choice] . "\\shop.txt") {
$Settings::shop_file = "$profile_folder\\" . @profiles[$choice] . "\\shop.txt";
}
}
}
return 1;