Вот моя попытка(Перл не знаю вообще...)
Код: Выделить всё
package noStand;
use strict;
use Plugins;
use Globals;
use Utils;
use Log qw(message);
# Это правильно?
my $time = $config{'noStand_maxTime'};
my $wtd = $config{'noStand_WhatToDo'};
Plugins::register('noStand', 'Warping when standing too long on 1 spot', \&Unload);
sub unload {
# чё писать в дужках ниже?
Plugins::register();
}
# Насколько я понял функции вызываются сами по себе...
sub count{
# Это по ходу так в перле переменные оглашаются о_О
my $x;
my $y;
my $x1;
my $y1;
# проверка не вырублен ли плагин в конфише, так?
return if (!$config{'noStand'});
# Я подумал раз плагин вызывается сам по себе то он вызывается много раз и цикл не нужен....?
# Тут проверка не сэйв мап ли это...
if ($field{name} != $config{'saveMap'}) {
# Записываем позицию...
$x = $char->{pos}{x};
$y = $char->{pos}{y};
# по ходу в перле пауза именно такая
sleep($time);
# записываем новою позицию
$x1 = $char->{pos}{x};
$y1 = $char->{pos}{y};
# проверка совпадения ????
if ($x eq $x1 && $y eq $y1) {
# месаг в консоль и выполнение команды или я дурак?
message "To long standing on 1 spot!";
Commands::run($wtd);
}
}
}