Отчёт (990924), страница 2
Текст из файла (страница 2)
if(newDist < dist) {
f = *it;
dist = newDist;
}
}
h->setTargetFood(f);
if(f) {
return true;
}
return false;
}
CONDITION(HareFoodReached, "Еда достигнута?", 3, 4)
{
Hare* h = dynamic_cast<Hare*>(m->getCurrentCreature());
if(!h->getTargetFood()) {
return false;
}
if(m->distance(h->getTargetFood(), h) < 0.001) {
return true;
}
return false;
}
//---------------------------------------------------------------------------
CONDITION(ReadyForReproduction, "Готов к размножению?", 4, 0)
{
return m->getCurrentCreature()->isReadyForReproduction();
}
CONDITION(PairChosen, "Пара выбрана?", 4, 1)
{
Creature* c = m->getCurrentCreature();
if(!c->getTargetPair()) {
return false;
}
for(vector<Creature*>::iterator it = m->creatures.begin();
it != m->creatures.end();
it++)
{
if(*it == c->getTargetPair()) {
return true;
}
}
c->setTargetPair(NULL);
return false;
}
CONDITION(CanSeePair, "Поиск пары; пару видно?", 4, 2)
{
Creature* h = m->getCurrentCreature();
Creature* p = NULL;
float dist = 5;
for(vector<Creature*>::iterator it = m->creatures.begin();
it != m->creatures.end();
it++)
{
float newDist = m->distance(h, *it);
if(newDist < dist
&& (*it)->maleGender != h->maleGender
&& (*it)->isHare() == h->isHare()
&& (*it)->isReadyForReproduction()
&& (((*it)->getTargetPair() == NULL)
|| ((*it)->getTargetPair() == h))) {
p = *it;
dist = newDist;
}
}
h->setTargetPair(p);
if(p) {
p->setTargetPair(h);
return true;
}
return false;
}
CONDITION(PairOK, "Пара ОК?", 4, 3)
{
Creature* h = m->getCurrentCreature();
if(!h->getTargetPair()) {
return false;
}
if(h->getTargetPair()->getTargetPair() != h) {
return false;
}
if(!h->getTargetPair()->isReadyForReproduction()) {
return false;
}
return true;
}
CONDITION(HarePairReached, "Пара достигнута?", 4, 4)
{
Creature* h = m->getCurrentCreature();
if(!h->getTargetPair()) {
return false;
}
if(m->distance(h->getTargetPair(), h) < 0.001) {
return true;
}
return false;
}
//---------------------------------------------------------------------------
CONDITION(WolfIsHungry, "Голоден?", 5, 0)
{
return m->getCurrentCreature()->isHungry();
}
CONDITION(WolfCanSeeFood, "Еду видно?", 5, 1)
{
Wolf* w = dynamic_cast<Wolf*>(m->getCurrentCreature());
Creature* c = NULL;
float dist = 5;
for(vector<Creature*>::iterator it = m->creatures.begin();
it != m->creatures.end();
it++)
{
if((*it)->isHare()) {
float newDist = m->distance(w, *it);
if(newDist < dist) {
c = *it;
dist = newDist;
}
}
}
w->setTargetFood(c);
if(c) {
return true;
}
return false;
}
CONDITION(WolfFoodReached, "Еда достигнута?", 5, 2)
{
Wolf* w = dynamic_cast<Wolf*>(m->getCurrentCreature());
if(!w->getTargetFood()) {
return false;
}
if(m->distance(w->getTargetFood(), w) < StartConfig::instance()->hareSpeed) {
return true;
}
return false;
}
//---------------------------------------------------------------------------
#pragma hdrstop
#include "Hare.h"
#include "Wolf.h"
#include "Model.h"
#include "TMainForm.h"
#include "SysAction.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
SYSACTION(DoNothing, "Заглушка", 0, 0)
{
}
//---------------------------------------------------------------------------
SYSACTION(GiveBirth, "Рожать", 1, 0)
{
m->getCurrentCreature()->giveBirth(m);
m->getCurrentCreature()->pregnancy = -1;
}
//---------------------------------------------------------------------------
SYSACTION(HareDie, "Умереть", 2, 0)
{
m->killCurrent();
}
//---------------------------------------------------------------------------
SYSACTION(HareGoToFood, "Идти к еде", 3, 0)
{
Hare* h = dynamic_cast<Hare*>(m->getCurrentCreature());
if(h->getTargetFood()) {
h->runTo(h->getTargetFood()->x, h->getTargetFood()->y);
}
}
SYSACTION(HareEat, "Есть", 3, 1) {
Hare* h = dynamic_cast<Hare*>(m->getCurrentCreature());
for(vector<Food*>::iterator it = m->food.begin();
it != m->food.end();
it++) {
if(*it == h->getTargetFood()) {
m->food.erase(it);
h->eat();
h->setTargetFood(NULL);
break;
}
}
}
SYSACTION(HareWanderByTable2, "Бродить вокруг", 3, 2)
{
}
SYSACTION(NextCreatureTable2, "Следующий", 3, 3)
{
m->nextCreature();
}
SYSACTION(HareRunAway, "Убегать!", 3, 4)
{
Hare* h = dynamic_cast<Hare*>(m->getCurrentCreature());
if(h->getDanger()) {
float toX = h->x - h->getDanger()->x;
float toY = h->y - h->getDanger()->y;
float l = sqrt(toX*toX + toY*toY);
if(l > 0) {
toX = toX/l * h->speed;
toY = toY/l * h->speed;
toX += h->x;
toY += h->y;
}
if(toX >= 1) toX = 0.9;
if(toY >= 1) toY = 0.9;
if(toX <= 0) toX = 0.1;
if(toY <= 0) toY = 0.1;
h->runTo(toX, toY);
h->setTargetFood(NULL);
h->setTargetPair(NULL);
}
}
//---------------------------------------------------------------------------
SYSACTION(GoToPair, "Идти к паре", 4, 0)
{
Creature* h = m->getCurrentCreature();
if(h->getTargetPair()) {
h->runTo(h->getTargetPair()->x, h->getTargetPair()->y);
}
}
SYSACTION(Reproduce, "Размножаться", 4, 1)
{
Creature* h = m->getCurrentCreature();
if(h->getTargetPair()) {
Creature* p = h->getTargetPair();
h->copulate(m);
p->copulate(m);
}
else {
h->setTargetPair(NULL);
}
}
SYSACTION(WanderByTable3, "Бродить вокруг", 4, 2)
{
}
SYSACTION(DropPair, "Сбросить пару", 4, 3)
{
Creature* h = m->getCurrentCreature();
h->setTargetPair(NULL);
}
SYSACTION(CreatureTable3, "Следующий", 4, 4)
{
m->nextCreature();
}
//---------------------------------------------------------------------------
SYSACTION(WolfGoToFood, "Идти к еде", 5, 0)
{
Wolf* w = dynamic_cast<Wolf*>(m->getCurrentCreature());
if(w->getTargetFood()) {
w->runTo(w->getTargetFood()->x, w->getTargetFood()->y);
}
}
SYSACTION(WolfEat, "Есть", 5, 1) {
Wolf* w = dynamic_cast<Wolf*>(m->getCurrentCreature());
for(vector<Creature*>::iterator it = m->creatures.begin();
it != m->creatures.end();
it++) {
if(*it == w->getTargetFood()) {
m->creatures.erase(it);
w->eat();
break;
}
}
w->setTargetFood(NULL);
}
SYSACTION(WolfWanderByTable5, "Бродить вокруг", 5, 2)
{
}
SYSACTION(NextCreatureTable5, "Следующий", 5, 3)
{
m->nextCreature();
}
- 14 -
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
