макросом (и плагином) создание/удаление чаров - не работает

[openKore206]

я хочу сделать что бы бот создал, зашол в игру и прописал igmail zeny Dedede zenky 100000потом вышел с чара удалил его и создал нового и так же всё по втарилось
ну или чтобы он создавал во всех 12 слотов а потом всех удалил ..

automacro Po4ta {
console /NPC стоит около Варпера./
run-once 1
call {
log Макрос работает
do c @mail
do igmail zeny Dedede zenky 100000
do igmail zeny Dedede zenky 100000
do c @go 10
pause 6
do charselect
release Po4ta
}
}

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

package char_create;
# by EternalHarvest (rofan.ru)

# Character creation and deletion
# Config options:
# charRecreate_create    0 to never create, 1 to create (if no character in current slot)
# charRecreate_delete    0 to never delete, 1 to delete once, 2 to delete always
# charRecreate_email     email for deleting
# charRecreate_stats     STR AGI DEX (example: 9 9 9)
# charRecreate_names     vocal MINLEN MAXLEN | comma-separated list
# charRecreate_nodelay   1 to bypass delay when deleting character

use strict;
use Globals;
use Log qw/message/;

my $configPrefix = 'charRecreate_';

Plugins::register ('char_create', 'Character creation and deletion', \&unload);
my $hooks = Plugins::addHooks (['charSelectScreen', \&charSelect, undef]);
sub unload {Plugins::delHooks ($hooks);}

my $justCreated = 0;

sub charSelect {
   my (undef, $args) = @_;
   
   my $charId = 0 + $config{'char'};
   if ($chars[$charId]) {
      if (!$justCreated && $config{$configPrefix.'delete'}) {
         message "Deleting character...\n", 'connection';
         
         sleep 10 unless $config{$configPrefix.'nodelay'};
         
         Misc::configModify ($configPrefix.'delete', '0') unless $config{$configPrefix.'delete'} == 2;
         
         $messageSender->sendCharDelete ($chars[$charId]{charID}, $config{$configPrefix.'email'});
         $AI::temp::delIndex = $charId;
         $args->{return} = 2;
      } else {
         $args->{autoLogin} = 1;
         $justCreated = 0;
      }
   } elsif ($config{$configPrefix.'create'}) {
      message "Creating character...\n", 'connection';
      
      my $name;
      if ($config{$configPrefix.'names'} =~ /^vocal\s+(\d+)\s+(\d+)$/) {
         $name = ucfirst Utils::vocalString (1 + $1 + int rand $2 - $1);
      } elsif ($config{$configPrefix.'names'}) {
         my @names = split /,/, $config{$configPrefix.'names'};
         $name = $names[int rand scalar @names];
         $name =~ s/^\s+|\s+$//g;
      } else {
         $name = ucfirst Utils::vocalString (6 + int rand 6);
      }
      
      my @st = $config{$configPrefix.'stats'} =~ /^(\d)\s*(\d)\s*(\d)$/ ? ($1, $2, $3) : (5, 5, 5);
      
      $messageSender->sendCharCreate (
         $charId, $name, $st[0], $st[1], 10-$st[2], 10-$st[0], $st[2], 10-$st[1],
         5 + int rand 15, 5 + int rand 15
      );
      $args->{return} = 2;
      $justCreated = 1;
   }
   
   $timeout{charlogin}{time} = time;
}

в конфиге написал так..

charRecreate_create 1
charRecreate_delete 2
charRecreate_stats STR AGI DEX (example: 9 9 9)
charRecreate_names "tehnoboyka"
charRecreate_email: Tehnodrum@mail.ru
charRecreate_nodelay 1

в макросе так ()

#########################################################################|
#
# Команды для почты в РО
#
# для отправки простого письма: igmail mail <name> <title> [text]
# например: igmail mail VasyaPupkin Hello Превед, чувак, пишу тебе письмо!
# # |
# для отправки предмета: igmail item <name> <title> <ID> <amount>
# для отправки зеней: igmail zeny <name> <title> <amount>
#
#########################################################################

automacro Po4ta {
console /NPC стоит около Варпера./
run-once 1
call {
log Макрос работает
do c @mail
do igmail zeny Dedede zenky 100000
do igmail zeny Dedede zenky 100000
do c @go 10
pause 6
do charselect
release Po4ta
}
}

[qwertyy]

а новис без базовых 10 джобов может почту слать?

[Сагпоименидурак]

Я знаю, где ты ботишь

[Sergant]

а сервак какой?