Макрос для нубозоны.

[qvatra]

памоуму там совсем не мили секунды а нормальные обычные секунды

[piroJOKE]

Мож было, может нет, но думаю не сильно тут помешает:

char_recreate.pl / пересоздание чара при логине
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]);
}

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

(с)

ЗЫ: Что понравилось, так это vocalString.

[qvatra]

http://img524.imageshack.us/my.php?image=444444in0.png

[Kissa2k]

Если заменить

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

sendCharCreate($net,$chars[0], vocalString(int(3)+5), 5, 5, 5, 5, 5, 5, 5, int(rand(15))+5); 

на

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

sendCharCreate($net,$chars[0], ucfirst(vocalString(int(rand(5))+5)), 5, 5, 5, 5, 5, 5, 5, int(rand(15))+5);

То добьемся еще большей правдоподобности имен.
Рекомендую!
piroJOKE
vocalString - это функция, которая генерит звучные имена (В ОК она используется при генерации adminPassword).

[qvatra]

Кто нить ответит на мой вопрос?

[qvatra]

Все проблема решилась!

[Врангель]

А не проще найти где нибудь большу базу с никами и юзать ее?

[qvatra]

у кавонить есть макрос для подчистки нубофермы?
я юзал поиск нашел только это

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

macro s { 
$kafraloc = 156 97 
$kafratalksteps = c r1 n 
:begin 
do move 156 97 
do talknpc $kafraloc $kafratalksteps 
pause 1 
$wingi1 = @storamount (Fly Wing) 
$wingi0 = @storamount (Butterfly Wing) 
$Axe = @storamount (Battle Axe [3]) 
$Rp = @storamount (Red Potion) 
$Yp = @storamount (Yellow potion) 
$Gp = @storamount (Green Potion) 
$Mag = @storamount (Magnifier) 
$Ph = @storamount (Phracon) 
$Kak = @storamount (Powder of Butterfly) 
if ($wingi0 > 0) goto wingi0 
if ($wingi1 > 0) goto wingi1 
if ($Axe > 0) goto Axe 
if ($Rp > 0) goto Rp 
if ($Yp > 0) goto Yp 
if ($Gp > 0) goto Gp 
if ($Mag > 0) goto Mag 
if ($Ph > 0) goto Ph 
if ($Kak > 0) goto Kak 
if ($Kak = 0) goto end 
:Kak 
do storage get Powder of Butterfly 100 
goto sell 
:wingi0 
do storage get Butterfly Wing 100 
goto sell 
:Mag 
do storage get Magnifier 250 
goto sell 
:Gp 
do storage get Green Potion 200 
goto sell 
:Rp 
do storage get Red Potion 100 
goto sell 
:Yp 
do storage get Yellow potion 100 
goto sell 
:wingi1 
do storage get Fly Wing 300 
goto sell 
:Axe 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
do storage get Battle Axe [3] 
goto sell 
:Ph 
do storage get Phracon 100 
goto sell 
:sell 
do storage close 
do autosell 
pause 1 
goto begin 
:end 
do quit 
}

какойто дьявольский макрос,и то не работает
мб ктонить выложет?

[piroJOKE]

А что этот "дьявольский макрос" должен делать? Дай угадаю, реализовывать давнюю мечту всех времен и народов - "продать всё". Ы?

[Kissa2k]

qvatra
Ну блин. Включи моск и сделай чтоб работал! Как я могу знать что у тебя там не так работает??!!

[Melano]

мде...такая же фигня...пишет что мыло не правильное...скачал последнююю сборку с сайта,и всёравно - не помогло...хелп..

[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 Вор


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

[Melano]

просто послежние пару диалогов подправь,чтобы он отказался от мечника и пошел на вора...

[@ili]

Кто-нибудь, может помочь переделать этот плагин(package char_recreate),под 1.6.9,просто ппц 1.9.4 так перегружает систему,что пожизни в работе бота возникают проблемы

[Kissa2k]

qvatra
Вообщем там проблема не в паузах. А в кривых настройках.
Только что я запустил все с

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

[RusRo]
ip 85.17.154.34
port 6999
master_version 2
version 24
pauseCharServer 2
pauseMapServer 2
serverType 9
charBlockSize 108
private 1
serverEncoding Russian