RO-fan

OpenKore version 1.9.3
@ai_seq =
Loaded plugins:
plugins/alertsound.pl (alertsound)
plugins/doCommand.pl (doCommand)
plugins/macro.pl (macro)

Trailing \ in regex m/\/ at plugins/Macro/Utilities.pm line 116.
at plugins/Macro/Utilities.pm line 116
Macro::Utilities::match('Map loaded', '/\//') called at plugins/Macro/Automacro.pm line 343
Macro::Automacro::checkConsole('/\//', 'ARRAY(0x3389c58)') called at plugins/Macro/Automacro.pm line 435
Macro::Automacro::automacroCheck('log', 'ARRAY (0x3389c58)') called at plugins/Macro/Automacro.pm line 358
Macro::Automacro::consoleCheckWrapper('message', 'connection', 0, 1, 'Map loaded\x{a}', 'undef', 'main::parseSendMsg', 'main::mainLoop') called at H:/Game/Ragnarok/src/Log.pm line 252
Log::processMsg('message', 'Map loaded\x{a}', 'connection', 'undef', 1, 'HASH(0x11fd038)', 'HASH(0x11fd158)') called at H:/Game/Ragnarok/src/Log.pm line 274
Log::message('Map loaded\x{a}', 'connection') called at H:/Game/Ragnarok/src/functions.pl line 591
main::parseSendMsg('}\x{0}\x{89}\x{0}79d08d1\ x{e2}\x{ba}\x{db}\x{1}M\x{1}O\x{1}\x{0}\x{0}\x{0}\x{0}O\x{ 1}\x{0}\x{0}\x{0}\x{0}O\x{1}\x{1}\x{0}\x{0}\x{0}' ) called at H:/Game/Ragnarok/src/functions.pl line 231
main::mainLoop() called at H:/Game/Ragnarok/src/ Interface.pm line 79
Interface::mainLoop('Interface::Console::Win32=HASH (0x125d558)') called at openkore.pl line 359
main::__start() called at start.pl line 127


Died at this line:
if ($match == 0 && $text eq $kw) {return 1}
* if ($match == 1 && ($text =~ /$kw/ || ($flag eq 'i' && $text =~ /$kw/i))) {
no strict;

sub match {
$cvs->debug("match (@_)", $logfac{function_call_auto});
my ($text, $kw) = @_;

unless (defined $text && defined $kw) {
error "match: wrong # of args\n", "macro";
return 0
}

my $match;
my $flag;

if ($kw =~ /^".*"$/) {$match = 0}
elsif ($kw =~ /^\/.*\/\w?$/) {$match = 1}
else {return 0}
($kw, $flag) = $kw =~ /^[\/"](.*?)[\/"](\w?)/;

if ($match == 0 && $text eq $kw) {return 1}
if ($match == 1 && ($text =~ /$kw/ || ($flag eq 'i' && $text =~ /$kw/i))) {
no strict;
foreach my $idx (1..$#-) {setVar(".lastMatch".$idx, ${$idx})}
use strict;
return 1
}

return 0
}

• Тебе надо немного побаловаться с автоматическим переводчиком; причем английский даже не обязательно для этого знать.
  Метода такая (я ее уже описывал где-то): составляешь фразу, пытаясь избегать сленга, литературщины и идиом. Авто-переводчик тебе что-то выдает на английском. Берешь его английскую фразу, и засовуешь ее обратно в переводчик - получаешь ее на русском. Если ты из этого вторичного русского результата понимашь о чем идет речь - фразу на английском можно публиковать. Если нет - пытаешься перестроить конструкцию своей начальной фразы на русском так, чтобы она прошла этот... тест.
  NB: Чего не хавает переводчик: он пытается слово "пакет" представить как package, а нам нужно packet.