RO-fan

Код: Выделить всё

sub fi {
	my (undef, $mob) = @_;

my $found = 0;
foreach $val (values %monsters_lut) {
   last if ($found = (lc($val) eq lc($mob))); 
}
if ($found) {
message "Monster $val found\n";
}
else { message "Monster '$mob' is not found\n"}
}

Код: Выделить всё

foreach $val (values %monsters_lut) {
   $var = $val;
   last if ($found = (lc($val) eq lc($mob))); 
}
message "Monster $var found\n";

Код: Выделить всё

# xConf plugin by DeniZka 
# Based on Lims idea
# Last changes 23.01.2008
# This source code is licensed under the 
# GNU General Public License, Version 2. 
# See http://www.gnu.org/licenses/gpl.html

package xConf;
use Log qw(message error);

Plugins::register('xConf', 'commands for change monControls, etc', \&onUnload);
my $ID = Commands::register(
	['iconf', 'items_control edit', \&xConf],
	['pconf', 'pickupitems edit',   \&xConf],
	['mconf', 'mon_control edit',   \&xConf]
);

sub onUnload {
	Commands::unregister($ID);
	message 'xConf plugin unloaded\n';
}

sub xConf {
	my ($cmd, $args) = @_;
	my ($key, $value) = split(/\s(-?\d.*)/, $args, 2);
	
	my ($conff, $subj);
	if($cmd eq 'pconf'){
		$conff = 'pickupitems.txt';
		$subj = 'item|all [flag]'
	} elsif ($cmd eq 'mconf'){
		$conff = 'mon_control.txt';
		$subj = 'monster [attack teleport search skillcancel lv joblv hp sp weight]'
	} elsif ($cmd eq 'iconf'){
		$conff = 'items_control.txt';
		$subj = 'item|all [minimum auto-store auto-sell put_in_cart get_from_cart]'
	}

	if(!$key){
		error "Usage: $cmd <$subj>\n";
		return
	}
	
	my @folders = Settings::getControlFolders();
	open(F, "< $folders[0]/$conff");
	my @conff;
	{	local($/);
		@conff = split(/\n/, <F>);
	}
	close F;
	
	if ($value){
		for (my $i = 0; $i <= $#conff; $i++) {
			last if ($conff[$i] =~ s/^$key -?\d.*/$key $value/i);
			if ($i == $#conff){ push(@conff, "$key $value") }
		}
	} else {
		for (my $i = 0; $i <= $#conff; $i++) {
			if ($conff[$i] =~ /^$key -?\d.*/i){
				message "$key setted in $conff as\n$conff[$i]\n";
				return
			}
		}
		message "$key is not setted in $conff\n";
		return
	}
	
	open(F, "> $folders[0]/$conff");
	print F join("\n", @conff);
	close F;
	
	Commands::run("reload $conff");
}