Страница 16 из 20
Добавлено: Вс июн 03, 2007 11:56 pm
qvatra
памоуму там совсем не мили секунды а нормальные обычные секунды
Добавлено: Пн июн 04, 2007 3:46 pm
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.
Добавлено: Пн июн 04, 2007 5:50 pm
qvatra
Добавлено: Пн июн 04, 2007 7:59 pm
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).
Добавлено: Вт июн 05, 2007 12:23 am
qvatra
Кто нить ответит на мой вопрос?
Добавлено: Вт июн 05, 2007 2:00 am
qvatra
Все проблема решилась!
Добавлено: Ср июн 06, 2007 12:17 am
Врангель
А не проще найти где нибудь большу базу с никами и юзать ее?
Добавлено: Ср июн 06, 2007 4:59 pm
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
}
какойто дьявольский макрос,и то не работает
мб ктонить выложет?
Добавлено: Ср июн 06, 2007 5:16 pm
piroJOKE
А что этот "дьявольский макрос" должен делать? Дай угадаю, реализовывать давнюю мечту всех времен и народов - "продать всё". Ы?
Добавлено: Ср июн 06, 2007 6:52 pm
Kissa2k
qvatra
Ну блин. Включи моск и сделай чтоб работал! Как я могу знать что у тебя там не так работает??!!
Добавлено: Ср июн 06, 2007 7:33 pm
Melano
мде...такая же фигня...пишет что мыло не правильное...скачал последнююю сборку с сайта,и всёравно - не помогло...хелп..
Добавлено: Чт июн 07, 2007 1:01 pm
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 Вор
Подскажите у кого есть ПРАВИЛЬНЫЕ ответы на ВОРА. а то делаю вора - получается мечник и в излюде оказывается.
Проверяли уже =)))
Закоментированность снимаем с нужного но все равно не получается вор ((((
Добавлено: Чт июн 07, 2007 4:40 pm
Melano
просто послежние пару диалогов подправь,чтобы он отказался от мечника и пошел на вора...
Добавлено: Вс июн 10, 2007 7:41 pm
@ili
Кто-нибудь, может помочь переделать этот плагин(package char_recreate),под 1.6.9,просто ппц 1.9.4 так перегружает систему,что пожизни в работе бота возникают проблемы
Добавлено: Чт июн 14, 2007 8:18 am
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
