ботоферма

[4epT]

не надо писать значки [ и ]

[Блэйз2]

ну так что?? кто нить тут реально хапустил её?

[DocDeath]

Ставлю макрос, а бот не хочет говорить в НПС в новис лэнде, даже двигаться (только рандомно). Уже не знаю где копать. Подскажите :rolleyes:


Все разрешилось. Спасибо!
это проблемы UTF-8 (1 строчку коментируем) 4epT

у тебя удаляет чаров этот макрос?

[qvatra]

char_recreate.pl

#Плагин к Openkore для пересоздания новиса
#Author: F[i]ghter
#mailto: night.fighter.2005<SOBAKA>gmail.com

package char_recreate;

use strict;
use Utils;

use Plugins;
use Globals;
use Log qw(message warning error debug);
use Misc;
use Network;
use Network::Send;


Plugins::register('char_recreate', 'Char Recreate Bot', \&onUnload);

my $hooks = Plugins::addHooks(['charSelectScreen', \&delChar, undef]);


sub onUnload {
Plugins::delHooks($hooks);
}


sub delChar {
sleep 5 ;
my (undef, $args) = @_;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&createChar, undef]);
# Удаляем чара в 0-ом слоте
sendCharDelete($net,$chars[0]{ID}, $config{email});
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 2;

}

sub createChar {
sleep 2000;
my (undef, $args) = @_;
sleep 5;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&loginChar, undef]);
# Создаём чара в 0ом слоте со случайным именем и случайным цветом волос.
sendCharCreate($net,$chars[0], vocalString(int(3)+5), 5, 5, 5, 5, 5, 5, 5, int(rand(15))+5);
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 2;
sleep 5;

}

sub loginChar {
sleep 5 ;
my (undef, $args) = @_;
sleep 2;
#Логинимся чаром в 0ом слоте
sendCharLogin($net,$chars[0]);
sleep 2;
$timeout{'charlogin'}{'time'} = time;
$args->{return} = 1;
sleep 2;
Plugins::delHooks($hooks);
$hooks = Plugins::addHooks(['charSelectScreen', \&delChar, undef]);
}

Вобщем это плагин для пересоздания чара при логине,у меня есть такая проблема мне надо поставить паузы так чтобы при заходе на мап сервер коннект у меня не обрывался,помогите плиз ктонить кто знает как сделать. ;)

а может это даже не из за пауз

[4epT]

sub delChar {
	my (undef, $args) = @_;
	Plugins::delHooks($hooks);
	$hooks = Plugins::addHooks(['charSelectScreen', \&createChar, undef]);
sleep 20;
	$net->sendCharDelete($chars[0]{ID});
	$args->{return} = 2;
}

у меня 20 сек ждёт

[qvatra]

Сообщение от 4epT

у меня 20 сек ждёт

у меня была проблема в сервертайпе,терь все ришилось,я злобный нобофермер

[DocDeath]

do talknpc 100 29 c c c c c r0 c c c c r0 r1 r0 r0 r0 r0 c c r0 c r0 c r0 c r0 c c r0 c r0 c r0 c r0 c c r0 c r0 c r0 c r0 c r0 c r0 c r0 c r0 c c c c c c c c c c r0 c c c c c c c c # Делаем сворда
# do talknpc 100 29 c c c c c r0 c c c c r2 r1 r2 r1 r1 r2 c c r1 c r1 c r0 c r1 c c r1 c r0 c r0 c r1 c c r2 c r0 c r1 c r1 c r0 c r1 c r3 c r1 c c c c c c c c c c r0 c c c c c c c c Аколит
# do talknpc 100 29 c c c c c r0 c c c c r3 r0 r0 r0 r1 r1 c c r0 c r0 c r0 c r0 c c r0 c r1 c r1 c r0 c c r2 c r0 c r0 c r0 c r1 c r2 c r2 c r2 c c c c c c c c c c r0 c c c c c c c c Вор


Подскажите у кого есть ПРАВИЛЬНЫЕ ответы на ВОРА. а то делаю вора - получается мечник и в излюде оказывается.
Проверяли уже
Закоментированность снимаем с нужного но все равно не получается вор ((((

[AmsTaFF]

do talknpc 100 29 c c c c c r0 c c c c r1 r0 r0 r0 r1 r1 c c r0 c r0 c r1 c r0 c c r0 c r1 c r1 c r1 c c r2 c r0 c r2 c r1 c r0 c r3 c r0 c r2 c c c c c c c c c c r0 c c c c c n

[4epT]

>исправил<