Клуб любителей пляски с бубном вокруг OpenKore
https://www.ro-fan.ru/
Код: Выделить всё
sub parseItemsControl {
my $file = shift;
my $r_hash = shift;
undef %{$r_hash};
my ($key, $args_text, %cache);
my $reader = new Utils::TextReader($file);
while (!$reader->eof()) {
my $line = $reader->readLine();
$line =~ s/\x{FEFF}//g;
next if ($line =~ /^#/);
$line =~ s/[\r\n]//g;
$line =~ s/\s+$//g;
($key, $args_text) = lc($line) =~ /([\s\S]+?) (\d+[\s\S]*)/;
next if ($key eq "");
if ($cache{$args_text}) {
$r_hash->{$key} = $cache{$args_text};
} else {
my @args = split / /, $args_text;
my %item = (
keep => $args[0],
storage => $args[1],
sell => $args[2],
cart_add => $args[3],
cart_get => $args[4]
);
# Cache similar entries to save memory.
$r_hash->{$key} = $cache{$args_text} = \%item;
}
}
return 1;
}
4epT писал(а):хакей, тогда ломаем хэши дальше
Вопрос на засыпку, в файле item_control.txt можно писать ID итемов?
вот смотрю я на то как он парсится:
и у меня возникает вопрос, занафига тут условие "if ($cache{$args_text}) {" ??
Код: Выделить всё
sub parseItemsControl {
.......
if ($cache{$args_text}) {
если эта фигня нам уже встречалась (т.е. существует в нашем "кэше")
то присвоить ее нафиг, и не мучаться
$r_hash->{$key} = $cache{$args_text};
} else {
а если не встречалась то разбираем аргументы
my @args = split / /, $args_text;
my %item = (
keep => $args[0],
storage => $args[1],
sell => $args[2],
cart_add => $args[3],
cart_get => $args[4]
);
# Cache similar entries to save memory.
записываем результат и в нашу переменную и в "кэш" что бы потом не разбирать аргументы
$r_hash->{$key} = $cache{$args_text} = \%item;
}
}
return 1;
}
Код: Выделить всё
# xConf plugin by 4epT (ICQ 2227733)
# Based on Lims idea
# Last changes 24.01.2008
# Plug-in for change mon_control/pickupitems/items_control files, using console commands.
#
# Examples of commands:
# mconf Spore 0 0 0
# mconf 1014 0 0 0
#
# iconf Meat 50 1 0
# iconf 517 50 1 0
#
# pconf Fluff -1
# pconf 914 -1
package xConf;
use strict;
use Plugins;
use Globals;
use Log qw(message error debug);
## startup
Plugins::register('xConf', 'commands for change items_control, mon_control, pickupitems', \&Unload, \&Reload);
## Register command 'xConf'
my $chooks = Commands::register(
['iconf', 'edit items_control.txt', \&xConf],
['mconf', 'edit mon_control.txt', \&xConf],
['pconf', 'edit pickupitems.txt', \&xConf]
);
sub Reload {
Commands::unregister($chooks);
message "xConf plugin reloading\n", 'success'
}
sub Unload {
Commands::unregister($chooks);
message " xConf plugin unloading, ", 'success'
}
sub xConf {
my ($cmd, $args) = @_;
my ($key, $value) = $args =~ /([\s\S]+?) ([\-\d\.]+[\s\S]*)/;
$key = $args if !$key;
debug "KEY: $key, VALUE: $value\n";
if (!$key) {
error "Syntax Error in function '$cmd'. Not found <key>\nUsage: $cmd <key> [<value>]\n";
return
}
my ($file,$found,$name, %inf_hash, %ctrl_hash) = undef;
if ($cmd eq 'mconf') {
%inf_hash = %monsters_lut;
%ctrl_hash = %mon_control;
$file = 'mon_control.txt'
} elsif ($cmd eq 'pconf') {
%inf_hash = %items_lut;
%ctrl_hash = %pickupitems;
$file = 'pickupitems.txt'
} elsif ($cmd eq 'iconf') {
%inf_hash = %items_lut;
%ctrl_hash = %items_control;
$file = 'items_control.txt'
}
## Check $key in tables\monsters.txt & items.txt
if ($inf_hash{$key}) {
debug "'$inf_hash{$key}' ID: $key is found in 'tables\\monsters.txt'.\n";
$found = 1;
$key = $inf_hash{$key}
} else {
foreach $name (values %inf_hash) {
if ($found = (lc($key) eq lc($name))) {
$key = $name;
debug "'$name' is found in 'tables\\monsters.txt'.\n";
last
}
}
}
if (!$found) {error "WARNING: '$key' is not found in 'tables\\monsters.txt'!\n"}
if(!$value) {
if ($ctrl_hash{lc $key}) {
if ($cmd eq 'mconf') {
message "\n$file:\n------------------------------\n $key $ctrl_hash{lc $key}{attack_auto} $ctrl_hash{lc $key}{teleport_auto} $ctrl_hash{lc $key}{teleport_search} $ctrl_hash{lc $key}{skillcancel_auto} $ctrl_hash{lc $key}{attack_lvl} $ctrl_hash{lc $key}{attack_jlvl} $ctrl_hash{lc $key}{attack_hp} $ctrl_hash{lc $key}{attack_sp} $ctrl_hash{lc $key}{weight}\n------------------------------\n\n", 'list'
} elsif ($cmd eq 'pconf') {
message "\n$file:\n------------------------------\n $key $pickupitems{lc($key)}\n------------------------------\n\n", 'list'
} elsif ($cmd eq 'iconf') {
message "\n$file:\n------------------------------\n $key $items_control{lc $key}{keep} $items_control{lc $key}{storage} $items_control{lc $key}{sell} $items_control{lc $key}{cart_add} $items_control{lc $key}{cart_get}\n------------------------------\n\n", 'list'
}
} else {error "The key '$key' is not found in '$file'\n"}
return
}
filewrite($file, $key, $value)
}
## write FILE
sub filewrite {
my ($file, $key, $value) = @_;
my @folders = Settings::getControlFolders();
debug "sub WRITE = FILE: $file, KEY: $key, VALUE: $value\n";
open (FILE, "$folders[0]/$file");
my @lines = <FILE>;
close (FILE);
chomp @lines;
my @new = ();
my $used = 0;
foreach my $line (@lines) {
my ($what, $is) = $line =~ /([\s\S]+?) ([\-\d\.]+[\s\S]*)/;
if(lc($what) eq lc($key)) {
$line = join (' ', $key, $value);
$used = 1
}
push (@new, $line)
}
if($used == 0){
push (@new, $key.' '.$value)
}
open (WRITE, ">$folders[0]/$file");
print WRITE join ("\n", @new);
close (WRITE);
message "\n $file:\n------------------------------\n $key $value\n------------------------------\n\n", 'system';
Commands::run("reload $file")
}
return 1;
т.е. фактически это используется после команды reload items_control??DInvalid писал(а):если эта фигня нам уже встречалась (т.е. существует в нашем "кэше") то присвоить ее нафиг, и не мучаться
Код: Выделить всё
# xConf plugin by 4epT (ICQ 2227733)
# Based on Lims idea
# Last changes 24.01.2008
# Plug-in for change mon_control/pickupitems/items_control files, using console commands. 
Код: Выделить всё
# xConf plugin by 4epT (ICQ 2227733)
# Based on Lims idea
# Edited by Dairey
# Last changes 03.02.2009
# Plug-in for change mon_control/pickupitems/items_control files, using console commands.
#
# Examples of commands:
# mconf Spore 0 0 0
# mconf 1014 0 0 0
#
# iconf Meat 50 1 0
# iconf 517 50 1 0
#
# pconf Fluff -1
# pconf 914 -1
package xConf;
use strict;
use Plugins;
use Globals;
use Log qw(message error debug);
## startup
Plugins::register('xConf', 'commands for change items_control, mon_control, pickupitems', \&Unload, \&Reload);
## Register command 'xConf'
my $chooks = Commands::register(
['iconf', 'edit items_control.txt', \&xConf],
['mconf', 'edit mon_control.txt', \&xConf],
['pconf', 'edit pickupitems.txt', \&xConf],
['sconf', 'edit shop.txt', \&xConf]
);
sub Reload {
Commands::unregister($chooks);
message "xConf plugin reloading\n", 'success'
}
sub Unload {
Commands::unregister($chooks);
message " xConf plugin unloading, ", 'success'
}
sub xConf {
my ($cmd, $args) = @_;
my ($key, undef, $value) = $args =~ /([\s\S]+?)( | )([\-\d\.]+[\s\S]*)/;
$key = $args if !$key;
debug "KEY: $key, VALUE: $value\n";
if (!$key) {
error "Syntax Error in function '$cmd'. Not found <key>\nUsage: $cmd <key> [<value>]\n";
return
}
my ($file,$found,$name, %inf_hash, %ctrl_hash) = undef;
if ($cmd eq 'mconf') {
%inf_hash = %monsters_lut;
%ctrl_hash = %mon_control;
$file = 'mon_control.txt'
} elsif ($cmd eq 'pconf') {
%inf_hash = %items_lut;
%ctrl_hash = %pickupitems;
$file = 'pickupitems.txt'
} elsif ($cmd eq 'iconf') {
%inf_hash = %items_lut;
%ctrl_hash = %items_control;
$file = 'items_control.txt'
} elsif ($cmd eq 'sconf') {
%inf_hash = %items_lut;
%ctrl_hash = %shop;
$file = 'shop.txt'
}
## Check $key in tables\monsters.txt & items.txt
if ($key ne "all") {
if ($inf_hash{$key}) {
debug "'$inf_hash{$key}' ID: $key is found in 'tables\\monsters.txt'.\n";
$found = 1;
$key = $inf_hash{$key}
} else {
foreach $name (values %inf_hash) {
if ($found = (lc($key) eq lc($name))) {
$key = $name;
debug "'$name' is found in 'tables\\monsters.txt'.\n";
last
}
}
}
if (!$found) {error "WARNING: '$key' is not found in 'tables\\monsters.txt'!\n"}
}
if($value eq '') {
if ($ctrl_hash{lc $key}) {
if ($cmd eq 'mconf') {
message "\n$file:\n------------------------------\n $key $ctrl_hash{lc $key}{attack_auto} $ctrl_hash{lc $key}{teleport_auto} $ctrl_hash{lc $key}{teleport_search} $ctrl_hash{lc $key}{skillcancel_auto} $ctrl_hash{lc $key}{attack_lvl} $ctrl_hash{lc $key}{attack_jlvl} $ctrl_hash{lc $key}{attack_hp} $ctrl_hash{lc $key}{attack_sp} $ctrl_hash{lc $key}{weight}\n------------------------------\n\n", 'list'
} elsif ($cmd eq 'pconf') {
message "\n$file:\n------------------------------\n $key $pickupitems{lc($key)}\n------------------------------\n\n", 'list'
} elsif ($cmd eq 'iconf') {
message "\n$file:\n------------------------------\n $key $items_control{lc $key}{keep} $items_control{lc $key}{storage} $items_control{lc $key}{sell} $items_control{lc $key}{cart_add} $items_control{lc $key}{cart_get}\n------------------------------\n\n", 'list'
} elsif ($cmd eq 'sconf') {
message "\n$file:\n------------------------------\n $key $shop{lc $key}\n------------------------------\n\n", 'list'
}
} else {error "The key '$key' is not found in '$file'\n"}
return
}
filewrite($file, $key, $value)
}
## write FILE
sub filewrite {
my ($file, $key, $value) = @_;
my @folders = Settings::getControlFolders();
debug "sub WRITE = FILE: $file, KEY: $key, VALUE: $value\n";
open (FILE, "$folders[0]/$file");
my @lines = <FILE>;
close (FILE);
chomp @lines;
my @new = ();
my $used = 0;
foreach my $line (@lines) {
my ($what, undef, $is) = $line =~ /([\s\S]+?)( | )([\-\d\.]+[\s\S]*)/;
if(lc($what) eq lc($key)) {
if($file eq 'shop.txt') {
$line = join (' ', $key, $value);
} else {
$line = join (' ', $key, $value);
}
$used = 1
}
push (@new, $line)
}
if($used == 0){
if($file eq 'shop.txt') {
push (@new, $key.' '.$value)
} else {
push (@new, $key.' '.$value)
}
}
open (WRITE, ">$folders[0]/$file");
print WRITE join ("\n", @new);
close (WRITE);
message "\n $file:\n------------------------------\n $key $value\n------------------------------\n\n", 'system';
Commands::run("reload $file")
}
return 1;