Кормежка гомункула через doCommand
Модератор: 4epT
Правила форума
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
Все вопросы по OK не касающиеся плагинов и макросов публикуются в этом разделе.
Перед тем как что то писать, пожалуйста, удостоверьтесь что данная тема не поднималась, вы полностью изучили мануалы по конфигурационным файлам бота и не нашли там решения.
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
Кормежка гомункула через doCommand
Кто то писал корм гома через doCommand..сейчас банально немогу найти.
У кого реализовано через doCommand помогите)
У кого реализовано через doCommand помогите)
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
Попробуй вот это: viewtopic.php?t=2548
У подружки тоже были проблемы с кормежкой, поэтому появился этот плагин к тому же он весьма безопасен..
У подружки тоже были проблемы с кормежкой, поэтому появился этот плагин к тому же он весьма безопасен..
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
#Homunculus feeding plugin
#Just put in your plugins folder
package homunculusFeeder;
use strict;
use Globals;
use Plugins;
use Log qw(debug message warning error);
use Utils;
use Misc;
use Skill;
use Commands;
use Network;
use Network::Send;
use Task;
use Task::UseSkill;
use Task::ErrorReport;
Plugins::register('HomunculusFeeder', 'Plugin for automatic homunculus feeding', \&Unload);
my $hook = Plugins::addHooks(
['AI_pre', \&main]
);
our $homunculus;
sub Unload {
Plugins::delHooks($hook);
}
sub main {
return if (!$char->{homunculus} || ($char->{homunculus}{state} & 2) || ($char->{homunculus}{state} & 4));
my $homunculusJob = $char->{homunculus}{jobID};
my $food;
if($homunculusJob == 6001 || $homunculusJob == 6005 || $homunculusJob == 6009 || $homunculusJob == 6013){
$food ="Pet Food"; #Мы имеем дело с Lif
}elsif($homunculusJob == 6002 || $homunculusJob == 6006 || $homunculusJob == 6010 || $homunculusJob == 6014){
$food="Zargon"; #Мы имеем дело с Amistr
}elsif($homunculusJob == 6003 || $homunculusJob == 6007 || $homunculusJob == 6011 || $homunculusJob == 6015){
$food="Garlet"; #Мы имеем дело с Filir
}elsif($homunculusJob == 6004 || $homunculusJob == 6008 || $homunculusJob == 6012 || $homunculusJob == 6016){
$food="Scell"; #Это Vanilmirth
}
if (
!($char->{homunculus}{state} & 2)
&& !($char->{homunculus}{state} & 4)
&& $char->{homunculus}{hunger} <= 12
&& inInventory($food)
&& timeOut($homunculus{lastFeed}, 5)
){
$homunculus{lastFeed} = time;
message "Time to feed your Homunculus!\n";
$messageSender->sendHomunculusFeed();
message "Now your intimacy is $char->{homunculus}{intimacy}!\n";
}
}
return 1;
#Just put in your plugins folder
package homunculusFeeder;
use strict;
use Globals;
use Plugins;
use Log qw(debug message warning error);
use Utils;
use Misc;
use Skill;
use Commands;
use Network;
use Network::Send;
use Task;
use Task::UseSkill;
use Task::ErrorReport;
Plugins::register('HomunculusFeeder', 'Plugin for automatic homunculus feeding', \&Unload);
my $hook = Plugins::addHooks(
['AI_pre', \&main]
);
our $homunculus;
sub Unload {
Plugins::delHooks($hook);
}
sub main {
return if (!$char->{homunculus} || ($char->{homunculus}{state} & 2) || ($char->{homunculus}{state} & 4));
my $homunculusJob = $char->{homunculus}{jobID};
my $food;
if($homunculusJob == 6001 || $homunculusJob == 6005 || $homunculusJob == 6009 || $homunculusJob == 6013){
$food ="Pet Food"; #Мы имеем дело с Lif
}elsif($homunculusJob == 6002 || $homunculusJob == 6006 || $homunculusJob == 6010 || $homunculusJob == 6014){
$food="Zargon"; #Мы имеем дело с Amistr
}elsif($homunculusJob == 6003 || $homunculusJob == 6007 || $homunculusJob == 6011 || $homunculusJob == 6015){
$food="Garlet"; #Мы имеем дело с Filir
}elsif($homunculusJob == 6004 || $homunculusJob == 6008 || $homunculusJob == 6012 || $homunculusJob == 6016){
$food="Scell"; #Это Vanilmirth
}
if (
!($char->{homunculus}{state} & 2)
&& !($char->{homunculus}{state} & 4)
&& $char->{homunculus}{hunger} <= 12
&& inInventory($food)
&& timeOut($homunculus{lastFeed}, 5)
){
$homunculus{lastFeed} = time;
message "Time to feed your Homunculus!\n";
$messageSender->sendHomunculusFeed();
message "Now your intimacy is $char->{homunculus}{intimacy}!\n";
}
}
return 1;
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm
Он кормит когда голод меньше либо равен 12, т.е. самый быстрый набор интимаси. Строчка вот она:
Можно изменить или добавить условие как вам захочется)))
Код: Выделить всё
&& $char->{homunculus}{hunger} <= 12
-
- Энтузиаст
- Сообщения: 134
- Зарегистрирован: Вс дек 10, 2006 8:47 pm