added autodetecting secret doors

[gemrb.git] / gemrb / core / Scriptable / ActorBlock.cpp

/* GemRB - Infinity Engine Emulator
 * Copyright (C) 2003-2005 The GemRB Project
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.

 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.

 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 */

#include "Scriptable/ActorBlock.h"

#include "strrefs.h"
#include "win32def.h"

#include "Audio.h"
#include "DisplayMessage.h"
#include "Game.h"
#include "GameData.h"
#include "Interface.h"
#include "Item.h"
#include "Map.h"
#include "Projectile.h"
#include "Spell.h"
#include "SpriteCover.h"
#include "TileMap.h"
#include "Video.h"
#include "GameScript/GSUtils.h"
#include "GUI/GameControl.h"

#include <cassert>
#include <cmath>

#define YESNO(x) ( (x)?"Yes":"No")

/***********************
 *  Scriptable Class   *
 ***********************/
Scriptable::Scriptable(ScriptableType type)
{
        Type = type;
        CutSceneId = NULL;
        for (int i = 0; i < MAX_SCRIPTS; i++) {
                Scripts[i] = NULL;
        }
        overHeadText = NULL;
        overHeadTextPos.empty();
        textDisplaying = 0;
        timeStartDisplaying = 0;
        scriptName[0] = 0;
        TriggerID = 0; //used by SendTrigger
        LastTriggerObject = LastTrigger = 0;
        LastEntered = 0;
        LastDisarmed = 0;
        LastDisarmFailed = 0;
        LastUnlocked = 0;
        LastOpenFailed = 0;
        LastPickLockFailed = 0;
        DialogName = 0;
        CurrentAction = NULL;
        CurrentActionState = 0;
        CurrentActionTarget = 0;
        CurrentActionInterruptable = true;
        UnselectableTimer = 0;
        startTime = 0;   //executing scripts
        lastRunTime = 0; //evaluating scripts
        lastDelay = 0;
        Dialog[0] = 0;

        interval = ( 1000 / AI_UPDATE_TIME );
        WaitCounter = 0;
        if (Type == ST_ACTOR) {
                InternalFlags = IF_VISIBLE | IF_ONCREATION | IF_USEDSAVE;
        } else {
                InternalFlags = IF_ACTIVE | IF_VISIBLE | IF_ONCREATION | IF_NOINT;
        }
        area = 0;
        Pos.x = 0;
        Pos.y = 0;

        LastCasterOnMe = 0;
        LastSpellOnMe = 0xffffffff;
        LastCasterSeen = 0;
        LastSpellSeen = 0xffffffff;
        SpellHeader = -1;
        LastTargetPos.empty();
        locals = new Variables();
        locals->SetType( GEM_VARIABLES_INT );
        locals->ParseKey( 1 );
        InitTriggers();

        memset( script_timers,0, sizeof(script_timers));
}

Scriptable::~Scriptable(void)
{
        if (CurrentAction) {
                ReleaseCurrentAction();
        }
        ClearActions();
        for (int i = 0; i < MAX_SCRIPTS; i++) {
                if (Scripts[i]) {
                        delete( Scripts[i] );
                }
        }
        if (overHeadText) {
                core->FreeString( overHeadText );
        }
        if (locals) {
                delete( locals );
        }
}

void Scriptable::SetScriptName(const char* text)
{
        //if (text && text[0]) { //this leaves some uninitialized bytes
        //lets hope this won't break anything
        if (text) {
                strnspccpy( scriptName, text, 32 );
        }
}

/** Gets the DeathVariable */
const char* Scriptable::GetScriptName(void) const
{
         return scriptName;
}

Map* Scriptable::GetCurrentArea() const
{
        //this could be NULL, always check it
        return area;
}

void Scriptable::SetMap(Map *map)
{
        if (map && (map->GetCurrentArea()!=map)) {
                //a map always points to itself (if it is a real map)
                printMessage("Scriptable","Invalid map set!\n",LIGHT_RED);
                abort();
        }
        area = map;
}

//ai is nonzero if this is an actor currently in the party
//if the script level is AI_SCRIPT_LEVEL, then we need to
//load an AI script (.bs) instead of (.bcs)
void Scriptable::SetScript(const ieResRef aScript, int idx, bool ai)
{
        if (idx >= MAX_SCRIPTS) {
                printMessage("Scriptable","Invalid script index!\n",LIGHT_RED);
                abort();
        }
        if (Scripts[idx]) {
                delete Scripts[idx];
        }
        Scripts[idx] = NULL;
        // NONE is an 'invalid' script name, never used seriously
        // This hack is to prevent flooding of the console
        if (aScript[0] && stricmp(aScript, "NONE") ) {
                if (idx!=AI_SCRIPT_LEVEL) ai = false;
                Scripts[idx] = new GameScript( aScript, this, idx, ai );
        }
}

void Scriptable::SetScript(int index, GameScript* script)
{
        if (index >= MAX_SCRIPTS) {
                printMessage("Scriptable","Invalid script index!\n",LIGHT_RED);
                return;
        }
        if (Scripts[index] ) {
                delete Scripts[index];
        }
        Scripts[index] = script;
}

void Scriptable::DisplayHeadText(const char* text)
{
        if (overHeadText) {
                core->FreeString( overHeadText );
        }
        overHeadText = (char *) text;
        overHeadTextPos.empty();
        if (text) {
                timeStartDisplaying = core->GetGame()->Ticks;
                textDisplaying = 1;
        }
        else {
                timeStartDisplaying = 0;
                textDisplaying = 0;
        }
}

/* 'fix' the current overhead text in the current position */
void Scriptable::FixHeadTextPos()
{
        overHeadTextPos = Pos;
}

#define MAX_DELAY  6000
static const Color black={0,0,0,0};

void Scriptable::DrawOverheadText(const Region &screen)
{
        unsigned long time = core->GetGame()->Ticks;
        Palette *palette = NULL;

        if (!textDisplaying)
                return;

        time -= timeStartDisplaying;

        Font* font = core->GetFont( 1 );
        if (time >= MAX_DELAY) {
                textDisplaying = 0;
                return;
        } else {
                time = (MAX_DELAY-time)/10;
                if (time<256) {
                        const Color overHeadColor = {time,time,time,time};
                        palette = core->CreatePalette(overHeadColor, black);
                }
        }

        int cs = 100;
        if (Type == ST_ACTOR) {
                cs = ((Selectable *) this)->size*50;
        }

        short x, y;
        if (overHeadTextPos.isempty()) {
                x = Pos.x;
                y = Pos.y;
        } else {
                x = overHeadTextPos.x;
                y = overHeadTextPos.y;
        }

        Region rgn( x-100+screen.x, y - cs + screen.y, 200, 400 );
        font->Print( rgn, ( unsigned char * ) overHeadText,
                palette?palette:core->InfoTextPalette, IE_FONT_ALIGN_CENTER | IE_FONT_ALIGN_TOP, false );
        gamedata->FreePalette(palette);
}

void Scriptable::DelayedEvent()
{
        lastRunTime = core->GetGame()->Ticks;
}

void Scriptable::ImmediateEvent()
{
        lastRunTime = 0;
}

bool Scriptable::IsPC() const
{
        if(Type == ST_ACTOR) {
                if (((Actor *) this)->GetStat(IE_EA) <= EA_CHARMED) {
                        return true;
                }
        }
        return false;
}

void Scriptable::ExecuteScript(int scriptCount)
{
        // area scripts still run for at least the current area, in bg1 (see ar2631, confirmed by testing)
        // but not in bg2 (kill Abazigal in ar6005)
        if (core->GetGameControl()->GetScreenFlags()&SF_CUTSCENE) {
                if (! (core->HasFeature(GF_CUTSCENE_AREASCRIPTS) && Type == ST_AREA)) {
                        return;
                }
        }

        if ((InternalFlags & IF_NOINT) && (CurrentAction || GetNextAction())) {
                return;
        }

        if (!CurrentActionInterruptable) {
                if (!CurrentAction && !GetNextAction()) abort();
                return;
        }

        // only allow death scripts to run once, hopefully?
        // this is probably terrible logic which needs moving elsewhere
        if ((lastRunTime != 0) && (InternalFlags & IF_JUSTDIED)) {
                return;
        }

        ieDword thisTime = core->GetGame()->Ticks;
        if (( thisTime - lastRunTime ) < 1000) {
                return;
        }

        lastDelay = lastRunTime;
        lastRunTime = thisTime;

        bool alive = false;

        bool continuing = false, done = false;
        for (int i = 0;i<scriptCount;i++) {
                //disable AI script level for actors in party when the player disabled them
                if ((i == AI_SCRIPT_LEVEL) && Type == ST_ACTOR && ((Actor *) this)->InParty) {
                        if (core->GetGame()->ControlStatus&CS_PARTY_AI) {
                                continue;
                        }
                }

                GameScript *Script = Scripts[i];
                if (Script) {
                        alive |= Script->Update(&continuing, &done);
                }
                
                /* scripts are not concurrent, see WAITPC override script for example */
                if (done) break;
        }
        if (alive && UnselectableTimer) {
                        UnselectableTimer--;
                        if (!UnselectableTimer) {
                                if (Type == ST_ACTOR) {
                                        ((Actor *) this)->SetCircleSize();
                                }
                        }
        }
        InternalFlags &= ~IF_ONCREATION;
}

void Scriptable::AddAction(Action* aC)
{
        if (!aC) {
                printf( "[GameScript]: NULL action encountered for %s!\n",scriptName );
                return;
        }

        InternalFlags|=IF_ACTIVE;
        aC->IncRef();

        // attempt to handle 'instant' actions, from instant.ids, which run immediately
        // when added if the action queue is empty, even on actors which are Held/etc
        if (!CurrentAction && !GetNextAction()) {
                if (actionflags[aC->actionID] & AF_INSTANT) {
                        CurrentAction = aC;
                        GameScript::ExecuteAction( this, CurrentAction );
                        return;
                }
        }

        actionQueue.push_back( aC );
}

void Scriptable::AddActionInFront(Action* aC)
{
        if (!aC) {
                printf( "[GameScript]: NULL action encountered for %s!\n",scriptName );
                return;
        }
        InternalFlags|=IF_ACTIVE;
        actionQueue.push_front( aC );
        aC->IncRef();
}

Action* Scriptable::GetNextAction() const
{
        if (actionQueue.size() == 0) {
                return NULL;
        }
        return actionQueue.front();
}

Action* Scriptable::PopNextAction()
{
        if (actionQueue.size() == 0) {
                return NULL;
        }
        Action* aC = actionQueue.front();
        actionQueue.pop_front();
        return aC;
}

void Scriptable::ClearActions()
{
        ReleaseCurrentAction();
        for (unsigned int i = 0; i < actionQueue.size(); i++) {
                Action* aC = actionQueue.front();
                actionQueue.pop_front();
                aC->Release();
        }
        actionQueue.clear();
        WaitCounter = 0;
        LastTarget = 0;
        //clear the triggers as fast as possible when queue ended?
        ClearTriggers();

        if (Type == ST_ACTOR) {
                Interrupt();
        } else {
                NoInterrupt();
        }
}

void Scriptable::ReleaseCurrentAction()
{
        if (CurrentAction) {
                CurrentAction->Release();
                CurrentAction = NULL;
        }

        CurrentActionState = 0;
        CurrentActionTarget = 0;
        CurrentActionInterruptable = true;
}

ieWord Scriptable::GetGlobalID()
{
        if (Type == ST_ACTOR) {
                Actor *actor = (Actor *) this;
                return actor->globalID;
        }
        return 0;
}

void Scriptable::ProcessActions(bool force)
{
        unsigned long thisTime = core->GetGame()->Ticks;

        if (!force && (( thisTime - startTime ) < interval)) {
                return;
        }
        startTime = thisTime;
        if (WaitCounter) {
                WaitCounter--;
                if (WaitCounter) return;
        }

        while (true) {
                CurrentActionInterruptable = true;
                if (!CurrentAction) {
                        CurrentAction = PopNextAction();
                }
                if (!CurrentAction) {
                        ClearActions();
                        if (CutSceneId) {
                                CutSceneId = NULL;
                        }
                        //removing the triggers at the end of the
                        //block
                        //ClearTriggers();
                        break;
                }
                GameScript::ExecuteAction( this, CurrentAction );
                //break execution in case of a Wait flag
                if (WaitCounter) {
                        //clear triggers while waiting
                        //ClearTriggers();
                        break;
                }
                //break execution in case of blocking action
                if (CurrentAction) {
                        break;
                }
                //break execution in case of movement
                //we should not actually break here, or else fix waypoints
                if (InMove()) {
                        break;
                }
        }
        //most likely the best place to clear triggers is here
        //queue is empty, or there is a looong action subject to break
        ClearTriggers();
        if (InternalFlags&IF_IDLE) {
                Deactivate();
        }
}

bool Scriptable::InMove() const
{
        if (Type!=ST_ACTOR) {
                return false;
        }
        Movable *me = (Movable *) this;
        return me->GetNextStep()!=NULL;
}

void Scriptable::SetWait(unsigned long time)
{
        WaitCounter = time;
}

unsigned long Scriptable::GetWait() const
{
        return WaitCounter;
}

Scriptable *Scriptable::GetCutsceneID() const
{
        return CutSceneId;
}

void Scriptable::LeaveDialog()
{
        InternalFlags |=IF_WASINDIALOG;
}

//this ends cutscene mode for this Sender
void Scriptable::ClearCutsceneID()
{
        CutSceneId = NULL;
        InternalFlags &= ~IF_CUTSCENEID;
}

//if the cutsceneID doesn't exist, we simply skip the action
//because the cutscene script executer DOESN'T get hijacked
void Scriptable::SetCutsceneID(Scriptable *csid)
{
        CutSceneId = csid;
        InternalFlags |= IF_CUTSCENEID;
}

void Scriptable::Hide()
{
        InternalFlags &=~(IF_VISIBLE);
}

void Scriptable::Unhide()
{
        InternalFlags |= IF_VISIBLE;
}

void Scriptable::Interrupt()
{
        InternalFlags &= ~IF_NOINT;
}

void Scriptable::NoInterrupt()
{
        InternalFlags |= IF_NOINT;
}

//also turning off the idle flag so it won't run continuously
void Scriptable::Deactivate()
{
        InternalFlags &=~(IF_ACTIVE|IF_IDLE);
}

//turning off the not interruptable flag, actions should reenable it themselves
//also turning off the idle flag
//heh, no, i wonder why did i touch the interruptable flag here
void Scriptable::Activate()
{
        InternalFlags |= IF_ACTIVE;
        InternalFlags &= ~IF_IDLE;
}

void Scriptable::PartyRested()
{
        InternalFlags |=IF_PARTYRESTED;
}

ieDword Scriptable::GetInternalFlag()
{
        return InternalFlags;
}

void Scriptable::InitTriggers()
{
        tolist.clear();
        bittriggers = 0;
}

void Scriptable::ClearTriggers()
{
        for (TriggerObjects::iterator m = tolist.begin(); m != tolist.end (); m++) {
                *(*m) = 0;
        }
        if (!bittriggers) {
                return;
        }
        if (bittriggers & BT_DIE) {
                InternalFlags &= ~IF_JUSTDIED;
        }
        if (bittriggers & BT_ONCREATION) {
                 InternalFlags &= ~IF_ONCREATION;
        }
        if (bittriggers & BT_BECAMEVISIBLE) {
                 InternalFlags &= ~IF_BECAMEVISIBLE;
        }
        if (bittriggers & BT_PARTYRESTED) {
                 InternalFlags &= ~IF_PARTYRESTED;
        }
        if (bittriggers & BT_WASINDIALOG) {
                InternalFlags &= ~IF_WASINDIALOG;
        }
        if (bittriggers & BT_PARTYRESTED) {
                InternalFlags &= ~IF_PARTYRESTED;
        }
        InitTriggers();
}

void Scriptable::SetBitTrigger(ieDword bittrigger)
{
        bittriggers |= bittrigger;
}

void Scriptable::AddTrigger(ieDword *actorref)
{
        tolist.push_back(actorref);
}

void Scriptable::CastSpellPointEnd( const ieResRef SpellResRef )
{
        if (Type == ST_ACTOR) {
                ((Actor *) this)->SetStance(IE_ANI_CONJURE);
        }

        if (SpellHeader == -1) {
                LastTargetPos.empty();
                return;
        }

        if (LastTargetPos.isempty()) {
                SpellHeader = -1;
                return;
        }

        Spell* spl = gamedata->GetSpell( SpellResRef );
        //create projectile from known spellheader
        Projectile *pro = spl->GetProjectile(this, SpellHeader, LastTargetPos);
        SpellHeader = -1;
        if (pro) {
                pro->SetCaster(GetGlobalID());
                Point origin = Pos;
                if (Type == ST_TRIGGER || Type == ST_PROXIMITY) {
                        // try and make projectiles start from the right trap position
                        // see the traps in the duergar/assassin battle in bg2 dungeon
                        // see also function below - maybe we should fix Pos instead
                        origin = ((InfoPoint *)this)->TrapLaunch;
                }
                GetCurrentArea()->AddProjectile(pro, origin, LastTargetPos);
        }

        // caster - Casts spellname
        char tmp[100];
        const char* msg = core->GetString(displaymsg->GetStringReference(STR_ACTION_CAST), 0);
        snprintf(tmp, sizeof(tmp), "%s %s", msg, core->GetString(spl->SpellName));
        displaymsg->DisplayStringName(tmp, 0xffffff, this);

        core->Autopause(AP_SPELLCAST);

        LastTarget = 0;
        LastTargetPos.empty();
}

static EffectRef fx_set_invisible_state_ref={"State:Invisible",NULL,-1};

void Scriptable::CastSpellEnd( const ieResRef SpellResRef )
{
        if (Type == ST_ACTOR) {
                ((Actor *) this)->SetStance(IE_ANI_CONJURE);
        }

        if (SpellHeader == -1) {
                LastTarget = 0;
                return;
        }
        if (!LastTarget) {
                SpellHeader = -1;
                return;
        }
        Spell* spl = gamedata->GetSpell( SpellResRef );
        //create projectile from known spellheader
        Projectile *pro = spl->GetProjectile(this, SpellHeader, LastTargetPos);
        if (pro) {
                pro->SetCaster(GetGlobalID());
                Point origin = Pos;
                if (Type == ST_TRIGGER || Type == ST_PROXIMITY) {
                        // try and make projectiles start from the right trap position
                        // see the traps in the duergar/assassin battle in bg2 dungeon
                        // see also function above - maybe we should fix Pos instead
                        origin = ((InfoPoint *)this)->TrapLaunch;
                }
                if (LastTarget) {
                        GetCurrentArea()->AddProjectile(pro, origin, LastTarget);
                } else {
                        GetCurrentArea()->AddProjectile(pro, origin, LastTargetPos);
                }
        }
        ieDword spellnum=ResolveSpellNumber( SpellResRef );
        if (spellnum!=0xffffffff) {
                area->SeeSpellCast(this, spellnum);

                // caster - Casts spellname : target OR
                // caster - spellname : target (repeating spells)
                Scriptable *target = NULL;
                char tmp[100];
                const char* msg = core->GetString(displaymsg->GetStringReference(STR_ACTION_CAST), 0);
                if (LastTarget) {
                        target = area->GetActorByGlobalID(LastTarget);
                        snprintf(tmp, sizeof(tmp), "%s %s : %s", msg, core->GetString(spl->SpellName), target->GetName(-1));
                } else {
                        snprintf(tmp, sizeof(tmp), "%s : %s", core->GetString(spl->SpellName), GetName(-1));
                }
                displaymsg->DisplayStringName(tmp, 0xffffff, this);

                if(LastTarget) {
                        if (target && (Type==ST_ACTOR) ) {
                                Actor *me = (Actor *) this;
                                target->LastSpellOnMe = spellnum;
                                target->LastCasterOnMe = me->GetID();
                                // don't cure invisibility if this is a self targetting invisibility spell
                                // like shadow door
                                //can't check GetEffectBlock, since it doesn't construct the queue for selftargetting spells
                                bool invis = false;
                                unsigned int opcode = EffectQueue::ResolveEffect(fx_set_invisible_state_ref);
                                for (unsigned int i=0; i < spl->ext_headers[SpellHeader].FeatureCount; i++) {
                                        if (spl->GetExtHeader(SpellHeader)->features[i].Opcode == opcode) {
                                                invis = true;
                                                break;
                                        }
                                }
                                if (invis && spl->GetExtHeader(SpellHeader)->Target == TARGET_SELF) {
                                        //pass
                                } else {
                                        me->CureInvisibility();
                                }
                                if (target!=this) { //FIXME: only dispel it for hostile spells
                                        me->CureSanctuary();
                                }
                        }
                }
        }

        core->Autopause(AP_SPELLCAST);

        gamedata->FreeSpell(spl, SpellResRef, false);
        LastTarget = 0;
        LastTargetPos.empty();
}

//set target as point
//if spell needs to be depleted, do it
//if spell is illegal stop casting
int Scriptable::CastSpellPoint( const ieResRef SpellResRef, const Point &target, bool deplete, bool instant )
{
        LastTarget = 0;
        LastTargetPos.empty();
        if (Type == ST_ACTOR) {
                Actor *actor = (Actor *) this;
                if (actor->HandleCastingStance(SpellResRef,deplete) ) {
                        return -1;
                }
        }
        LastTargetPos = target;
        return SpellCast(SpellResRef, instant);
}

//set target as actor (if target isn't actor, use its position)
//if spell needs to be depleted, do it
//if spell is illegal stop casting
int Scriptable::CastSpell( const ieResRef SpellResRef, Scriptable* target, bool deplete, bool instant )
{
        LastTarget = 0;
        LastTargetPos.empty();
        if (Type == ST_ACTOR) {
                Actor *actor = (Actor *) this;
                if (actor->HandleCastingStance(SpellResRef,deplete) ) {
                        return -1;
                }
        }

        if (!target) target = this;

        LastTargetPos = target->Pos;
        if (target->Type==ST_ACTOR) {
                LastTarget = target->GetGlobalID();
        }
        return SpellCast(SpellResRef, instant);
}

//start spellcasting (common part)
int Scriptable::SpellCast(const ieResRef SpellResRef, bool instant)
{
        Spell* spl = gamedata->GetSpell( SpellResRef );
        if (!spl) {
                SpellHeader = -1;
                return -1;
        }

        if (Type == ST_ACTOR) {
                Actor *actor = (Actor *) this;
                //The ext. index is here to calculate the casting time
                int level = actor->GetXPLevel(true);
                //Add casting level bonus/penalty - from stats and LVLMODWM.2da
                level += actor->CastingLevelBonus(level, spl->SpellType);
                SpellHeader = spl->GetHeaderIndexFromLevel(level);
        } else {
                SpellHeader = 0;
        }

        SPLExtHeader *header = spl->GetExtHeader(SpellHeader);
        int casting_time = (int)header->CastingTime;
        // how does this work for non-actors exactly?
        if (Type == ST_ACTOR) {
                // The mental speed effect can shorten or lengthen the casting time.
                casting_time -= (int)((Actor *) this)->GetStat(IE_MENTALSPEED);
                if (casting_time < 0) casting_time = 0;
        }
        // this is a guess which seems approximately right so far
        int duration = (casting_time*core->Time.round_size) / 10;
        if (instant)
                duration = 0;

        //cfb
        if (Type == ST_ACTOR) {
                Actor *actor = (Actor *) this;
                EffectQueue *fxqueue = spl->GetEffectBlock(this, this->Pos, -1);
                spl->AddCastingGlow(fxqueue, duration);
                fxqueue->SetOwner(actor);
                fxqueue->AddAllEffects(actor, actor->Pos);
                delete fxqueue;
        }

        gamedata->FreeSpell(spl, SpellResRef, false);
        return duration;
}

bool Scriptable::TimerActive(ieDword ID)
{
        if (ID>=MAX_TIMER) {
                return false;
        }
        if (script_timers[ID]) {
                return true;
        }
        return false;
}

bool Scriptable::TimerExpired(ieDword ID)
{
        if (ID>=MAX_TIMER) {
                return false;
        }
        if (script_timers[ID] && script_timers[ID] < core->GetGame()->GameTime) {
                // expired timers become inactive after being checked
                script_timers[ID] = 0;
                return true;
        }
        return false;
}

void Scriptable::StartTimer(ieDword ID, ieDword expiration)
{
        if (ID>=MAX_TIMER) {
                printMessage("Scriptable", " ", RED);
                printf("Timer id %d exceeded MAX_TIMER %d\n", ID, MAX_TIMER);
                return;
        }
        script_timers[ID]= core->GetGame()->GameTime + expiration*AI_UPDATE_TIME;
}

/********************
 * Selectable Class *
 ********************/

Selectable::Selectable(ScriptableType type)
        : Scriptable( type )
{
        Selected = false;
        Over = false;
        size = 0;
        cover = NULL;
        circleBitmap[0] = NULL;
        circleBitmap[1] = NULL;
}

void Selectable::SetSpriteCover(SpriteCover* c)
{
        delete cover;
        cover = c;
}

Selectable::~Selectable(void)
{
        delete cover;
}

void Selectable::SetBBox(const Region &newBBox)
{
        BBox = newBBox;
}

static const unsigned long tp_steps[8]={3,2,1,0,1,2,3,4};

void Selectable::DrawCircle(const Region &vp)
{
        /*  BG2 colours ground circles as follows:
        dark green for unselected party members
        bright green for selected party members
        flashing green/white for a party member the mouse is over
        bright red for enemies
        yellow for panicked actors
        flashing red/white for enemies the mouse is over
        flashing cyan/white for neutrals the mouse is over
        */

        if (size<=0) {
                return;
        }
        Color mix;
        Color* col = &selectedColor;
        Sprite2D* sprite = circleBitmap[0];

        if (Selected) {
                sprite = circleBitmap[1];
        } else if (Over) {
                //doing a time dependent flashing of colors
                //if it is too fast, increase the 6 to 7
                unsigned long step;
                GetTime( step );
                step = tp_steps [(step >> 6) & 7];
                mix.a = overColor.a;
                mix.r = (overColor.r*step+selectedColor.r*(8-step))/8;
                mix.g = (overColor.g*step+selectedColor.g*(8-step))/8;
                mix.b = (overColor.b*step+selectedColor.b*(8-step))/8;
                col = &mix;
        } else if (IsPC()) {
                col = &overColor;
        }

        if (sprite) {
                core->GetVideoDriver()->BlitSprite( sprite, Pos.x - vp.x, Pos.y - vp.y, true );
        } else {
                // for size >= 2, radii are (size-1)*16, (size-1)*12
                // for size == 1, radii are 12, 9
                int csize = (size - 1) * 4;
                if (csize < 4) csize = 3;
                core->GetVideoDriver()->DrawEllipse( (ieWord) (Pos.x - vp.x), (ieWord) (Pos.y - vp.y),
                (ieWord) (csize * 4), (ieWord) (csize * 3), *col );
        }
}

// Check if P is over our ground circle
bool Selectable::IsOver(const Point &P) const
{
        int csize = size;
        if (csize < 2) csize = 2;

        int dx = P.x - Pos.x;
        int dy = P.y - Pos.y;

        // check rectangle first
        if (dx < -(csize-1)*16 || dx > (csize-1)*16) return false;
        if (dy < -(csize-1)*12 || dy > (csize-1)*12) return false;

        // then check ellipse
        int r = 9*dx*dx + 16*dy*dy; // 48^2 * (  (dx/16)^2 + (dy/12)^2  )

        return (r <= 48*48*(csize-1)*(csize-1));
}

bool Selectable::IsSelected() const
{
        return Selected == 1;
}

void Selectable::SetOver(bool over)
{
        Over = over;
}

//don't call this function after rendering the cover and before the
//blitting of the sprite or bad things will happen :)
void Selectable::Select(int Value)
{
        if (Selected!=0x80 || Value!=1) {
                Selected = (ieWord) Value;
        }
        //forcing regeneration of the cover
        SetSpriteCover(NULL);
}

void Selectable::SetCircle(int circlesize, const Color &color, Sprite2D* normal_circle, Sprite2D* selected_circle)
{
        size = circlesize;
        selectedColor = color;
        overColor.r = color.r >> 1;
        overColor.g = color.g >> 1;
        overColor.b = color.b >> 1;
        overColor.a = color.a;
        circleBitmap[0] = normal_circle;
        circleBitmap[1] = selected_circle;
}

//used for creatures
int Selectable::WantDither()
{
        //if dithering is disabled globally, don't do it
        if (core->FogOfWar&4) {
                return 0;
        }
        //if actor is dead, dither it if polygon wants
        if (Selected&0x80) {
                return 1;
        }
        //if actor is selected dither it
        if (Selected) {
                return 2;
        }
        return 1;
}

/***********************
 * Highlightable Class *
 ***********************/

Highlightable::Highlightable(ScriptableType type)
        : Scriptable( type )
{
        outline = NULL;
        Highlight = false;
        Cursor = IE_CURSOR_NORMAL;
        KeyResRef[0] = 0;
}

Highlightable::~Highlightable(void)
{
        if (outline) {
                delete( outline );
        }
}

bool Highlightable::IsOver(const Point &Pos) const
{
        if (!outline) {
                return false;
        }
        return outline->PointIn( Pos );
}

void Highlightable::DrawOutline() const
{
        if (!outline) {
                return;
        }
        core->GetVideoDriver()->DrawPolyline( outline, outlineColor, true );
}

void Highlightable::SetCursor(unsigned char CursorIndex)
{
        Cursor = CursorIndex;
}

bool Highlightable::TryUnlock(Actor *actor, bool removekey) {
        const char *Key = GetKey();
        Actor *haskey = NULL;

        if (Key && actor->InParty) {
                Game *game = core->GetGame();
                //allow unlock when the key is on any partymember
                for (int idx = 0; idx < game->GetPartySize(false); idx++) {
                        Actor *pc = game->FindPC(idx + 1);
                        if (!pc) continue;

                        if (pc->inventory.HasItem(Key,0) ) {
                                haskey = pc;
                                break;
                        }
                }
        } else if (Key) {
                //actor is not in party, check only actor
                if (actor->inventory.HasItem(Key,0) ) {
                        haskey = actor;
                }
        }

        if (!haskey) {
                return false;
        }

        if (removekey) {
                CREItem *item = NULL;
                haskey->inventory.RemoveItem(Key,0,&item);
                //the item should always be existing!!!
                if (item) {
                        delete item;
                }
        }

        return true;
}


/*****************
 * Movable Class *
 *****************/

Movable::Movable(ScriptableType type)
        : Selectable( type )
{
        Destination = Pos;
        Orientation = 0;
        NewOrientation = 0;
        StanceID = 0;
        path = NULL;
        step = NULL;
        timeStartStep = 0;
        lastFrame = NULL;
        Area[0] = 0;
        AttackMovements[0] = 100;
        AttackMovements[1] = 0;
        AttackMovements[2] = 0;
}

Movable::~Movable(void)
{
        if (path) {
                ClearPath();
        }
}

int Movable::GetPathLength()
{
        PathNode *node = GetNextStep(0);
        int i = 0;
        while (node->Next) {
                i++;
                node = node->Next;
        }
        return i;
}

PathNode *Movable::GetNextStep(int x)
{
        if (!step) {
                DoStep((unsigned int) ~0);
        }
        PathNode *node = step;
        while(node && x--) {
                node = node->Next;
        }
        return node;
}

Point Movable::GetMostLikelyPosition()
{
        if (!path) {
                return Pos;
        }

//actually, sometimes middle path would be better, if
//we stand in Destination already
        int halfway = GetPathLength()/2;
        PathNode *node = GetNextStep(halfway);
        if (node) {
                return Point((ieWord) ((node->x*16)+8), (ieWord) ((node->y*12)+6) );
        }
        return Destination;
}

void Movable::SetStance(unsigned int arg)
{
        //don't modify stance from dead back to anything if the actor is dead
        if ((StanceID==IE_ANI_TWITCH || StanceID==IE_ANI_DIE) && (arg!=IE_ANI_TWITCH) ) {
                if (GetInternalFlag()&IF_REALLYDIED) {
                        printMessage("Movable","Stance overridden by death\n", YELLOW);
                        return;
                }
        }

        if (arg<MAX_ANIMS) {
                 StanceID=(unsigned char) arg;

                 if (StanceID == IE_ANI_ATTACK) {
                         // Set stance to a random attack animation

                         int random = rand()%100;
                         if (random < AttackMovements[0]) {
                                 StanceID = IE_ANI_ATTACK_BACKSLASH;
                         } else if (random < AttackMovements[0] + AttackMovements[1]) {
                                 StanceID = IE_ANI_ATTACK_SLASH;
                         } else {
                                 StanceID = IE_ANI_ATTACK_JAB;
                         }
                 }

        } else {
                StanceID=IE_ANI_AWAKE; //
                printf("Tried to set invalid stance id (%u)\n", arg);
        }
}

void Movable::SetAttackMoveChances(ieWord *amc)
{
        AttackMovements[0]=amc[0];
        AttackMovements[1]=amc[1];
        AttackMovements[2]=amc[2];
}



//this could be used for WingBuffet as well
void Movable::MoveLine(int steps, int Pass, ieDword orient)
{
        //remove previous path
        ClearPath();
        if (!steps)
                return;
        Point p = Pos;
        p.x/=16;
        p.y/=14;
        path = area->GetLine( p, steps, orient, Pass );
}

void AdjustPositionTowards(Point &Pos, ieDword time_diff, unsigned int walk_speed, short srcx, short srcy, short destx, short desty) {
        if (destx > srcx)
                Pos.x += ( unsigned short )
                        ( ( ( ( ( destx * 16 ) + 8 ) - Pos.x ) * ( time_diff ) ) / walk_speed );
        else
                Pos.x -= ( unsigned short )
                        ( ( ( Pos.x - ( ( destx * 16 ) + 8 ) ) * ( time_diff ) ) / walk_speed );
        if (desty > srcy)
                Pos.y += ( unsigned short )
                        ( ( ( ( ( desty * 12 ) + 6 ) - Pos.y ) * ( time_diff ) ) / walk_speed );
        else
                Pos.y -= ( unsigned short )
                        ( ( ( Pos.y - ( ( desty * 12 ) + 6 ) ) * ( time_diff ) ) / walk_speed );
        
}

// returns whether we made all pending steps (so, false if we must be called again this tick)
// we can't just do them all here because the caller might have to update searchmap etc
bool Movable::DoStep(unsigned int walk_speed, ieDword time)
{
        if (!path) {
                return true;
        }
        if (!time) time = core->GetGame()->Ticks;
        if (!walk_speed) {
                // zero speed: no movement
                timeStartStep = time;
                StanceID = IE_ANI_READY;
                return true;
        }
        if (!step) {
                step = path;
                timeStartStep = time;
        } else if (step->Next && (( time - timeStartStep ) >= walk_speed)) {
                //printf("[New Step] : Orientation = %d\n", step->orient);
                step = step->Next;
                timeStartStep = timeStartStep + walk_speed;
        }
        SetOrientation (step->orient, false);
        StanceID = IE_ANI_WALK;
        if ((Type == ST_ACTOR) && (InternalFlags & IF_RUNNING)) {
                StanceID = IE_ANI_RUN;
        }
        Pos.x = ( step->x * 16 ) + 8;
        Pos.y = ( step->y * 12 ) + 6;
        if (!step->Next) {
                // we reached our destination, we are done
                ClearPath();
                NewOrientation = Orientation;
                //since clearpath no longer sets currentaction to NULL
                //we set it here
                //no we don't, action is responsible for releasing itself
                //ReleaseCurrentAction();
                return true;
        }
        if (( time - timeStartStep ) >= walk_speed) {
                // we didn't finish all pending steps, yet
                return false;
        }
        AdjustPositionTowards(Pos, time - timeStartStep, walk_speed, step->x, step->y, step->Next->x, step->Next->y);
        return true;
}

void Movable::AddWayPoint(const Point &Des)
{
        if (!path) {
                WalkTo(Des);
                return;
        }
        Destination = Des;
        //it is tempting to use 'step' here, as it could
        //be about half of the current path already
        PathNode *endNode = path;
        while(endNode->Next) {
                endNode = endNode->Next;
        }
        Point p(endNode->x, endNode->y);
        area->ClearSearchMapFor(this);
        PathNode *path2 = area->FindPath( p, Des, size );
        endNode->Next = path2;
        //probably it is wise to connect it both ways?
        path2->Parent = endNode;
}

void Movable::FixPosition()
{
        if (Type!=ST_ACTOR) {
                return;
        }
        Actor *actor = (Actor *) this;
        if (actor->GetStat(IE_DONOTJUMP)&DNJ_BIRD ) {
                return;
        }
        //before fixposition, you should remove own shadow
        area->ClearSearchMapFor(this);
        Pos.x/=16;
        Pos.y/=12;
        GetCurrentArea()->AdjustPosition(Pos);
        Pos.x=Pos.x*16+8;
        Pos.y=Pos.y*12+6;
}

void Movable::WalkTo(const Point &Des, int distance)
{
        Point from;

        // maybe caller should be responsible for this
        if ((Des.x/16 == Pos.x/16) && (Des.y/12 == Pos.y/12)) {
                ClearPath();
                return;
        }

        // the prev_step stuff is a naive attempt to allow re-pathing while moving
        PathNode *prev_step = NULL;
        unsigned char old_stance = StanceID;
        if (step && step->Next) {
                // don't interrupt in the middle of a step; path from the next one
                prev_step = new PathNode(*step);
                from.x = ( step->Next->x * 16 ) + 8;
                from.y = ( step->Next->y * 12 ) + 6;
        }

        ClearPath();
        if (!prev_step) {
                FixPosition();
                from = Pos;
        }
        area->ClearSearchMapFor(this);
        if (distance) {
                path = area->FindPathNear( from, Des, size, distance );
        } else {
                path = area->FindPath( from, Des, size, distance );
        }
        //ClearPath sets destination, so Destination must be set after it
        //also we should set Destination only if there is a walkable path
        if (path) {
                Destination = Des;

                if (prev_step) {
                        // we want to smoothly continue, please
                        // this all needs more thought! but it seems to work okay
                        StanceID = old_stance;

                        if (path->Next) {
                                // this is a terrible hack to make up for the
                                // pathfinder orienting the first node wrong
                                // should be fixed in pathfinder and not here!
                                Point next, follow;
                                next.x = path->x; next.y = path->y;
                                follow.x = path->Next->x;
                                follow.y = path->Next->y;
                                path->orient = GetOrient(follow, next);
                        }

                        // then put the prev_step at the beginning of the path
                        prev_step->Next = path;
                        path->Parent = prev_step;
                        path = prev_step;

                        step = path;
                }
        } else {
                // pathing failed
                if (prev_step) {
                        delete( prev_step );
                        FixPosition();
                }
        }
}

void Movable::RunAwayFrom(const Point &Des, int PathLength, int flags)
{
        ClearPath();
        area->ClearSearchMapFor(this);
        path = area->RunAway( Pos, Des, size, PathLength, flags );
}

void Movable::RandomWalk(bool can_stop, bool run)
{
        if (path) {
                return;
        }
        //if not continous random walk, then stops for a while
        if (can_stop && (rand()&3) ) {
                SetWait((rand()&7)+7);
                return;
        }
        if (run) {
                InternalFlags|=IF_RUNNING;
        }
        //the commenting-out of the clear search map call was removed in 0.4.0
        //if you want to put it back for some reason, check
        //if the searchmap is not eaten up
        area->ClearSearchMapFor(this);
        Point p = Pos;

        //selecting points around a circle's edge around actor (didn't work better)
        //int x = core->Roll(1,100,-50);
        //p.x+=x;
        //p.y+=(int) sqrt(100-x*x);

        //selecting points in a square around actor
        p.x+=core->Roll(1,50,-25);
        p.y+=core->Roll(1,50,-25);
        //the 5th parameter is controlling the orientation of the actor
        //0 - back away, 1 - face direction
        path = area->RunAway( Pos, p, size, 50, 1 );
}

void Movable::MoveTo(const Point &Des)
{
        area->ClearSearchMapFor(this);
        Pos = Des;
        Destination = Des;
        if (BlocksSearchMap()) {
                area->BlockSearchMap( Pos, size, IsPC()?PATH_MAP_PC:PATH_MAP_NPC);
        }
}

void Movable::ClearPath()
{
        //this is to make sure attackers come to us
        //make sure ClearPath doesn't screw Destination (in the rare cases Destination
        //is set before ClearPath
        Destination = Pos;
        if (StanceID==IE_ANI_WALK || StanceID==IE_ANI_RUN) {
                StanceID = IE_ANI_AWAKE;
        }
        InternalFlags&=~IF_NORECTICLE;
        PathNode* thisNode = path;
        while (thisNode) {
                PathNode* nextNode = thisNode->Next;
                delete( thisNode );
                thisNode = nextNode;
        }
        path = NULL;
        step = NULL;
        //don't call ReleaseCurrentAction
}

void Movable::DrawTargetPoint(const Region &vp)
{
        if (!path || !Selected || (InternalFlags&IF_NORECTICLE) )
                return;

        // recticles are never drawn in cutscenes
        if ((core->GetGameControl()->GetScreenFlags()&SF_CUTSCENE))
                return;

        // generates "step" from sequence 3 2 1 0 1 2 3 4
        // updated each 1/15 sec
        unsigned long step;
        GetTime( step );
        step = tp_steps [(step >> 6) & 7];

        step = step + 1;
        int csize = (size - 1) * 4;
        if (csize < 4) csize = 3;

        /* segments should not go outside selection radius */
        unsigned short xradius = (csize * 4) - 5;
        unsigned short yradius = (csize * 3) - 5;
        ieWord xcentre = (ieWord) (Destination.x - vp.x);
        ieWord ycentre = (ieWord) (Destination.y - vp.y);

        // TODO: 0.5 and 0.7 are pretty much random values
        // right segment
        core->GetVideoDriver()->DrawEllipseSegment( xcentre + step, ycentre, xradius,
                yradius, selectedColor, -0.5, 0.5 );
        // top segment
        core->GetVideoDriver()->DrawEllipseSegment( xcentre, ycentre - step, xradius,
                yradius, selectedColor, -0.7 - M_PI_2, 0.7 - M_PI_2 );
        // left segment
        core->GetVideoDriver()->DrawEllipseSegment( xcentre - step, ycentre, xradius,
                yradius, selectedColor, -0.5 - M_PI, 0.5 - M_PI );
        // bottom segment
        core->GetVideoDriver()->DrawEllipseSegment( xcentre, ycentre + step, xradius,
                yradius, selectedColor, -0.7 - M_PI - M_PI_2, 0.7 - M_PI - M_PI_2 );
}

/**********************
 * Tiled Object Class *
 **********************/

TileObject::TileObject()
{
        opentiles = NULL;
        opencount = 0;
        closedtiles = NULL;
        closedcount = 0;
        Flags = 0;
}

TileObject::~TileObject()
{
        if (opentiles) {
                free( opentiles );
        }
        if (closedtiles) {
                free( closedtiles );
        }
}

void TileObject::SetOpenTiles(unsigned short* Tiles, int cnt)
{
        if (opentiles) {
                free( opentiles );
        }
        opentiles = Tiles;
        opencount = cnt;
}

void TileObject::SetClosedTiles(unsigned short* Tiles, int cnt)
{
        if (closedtiles) {
                free( closedtiles );
        }
        closedtiles = Tiles;
        closedcount = cnt;
}

/**************
 * Door Class *
 **************/

Door::Door(TileOverlay* Overlay)
        : Highlightable( ST_DOOR )
{
        tiles = NULL;
        tilecount = 0;
        Flags = 0;
        open = NULL;
        closed = NULL;
        open_ib = NULL;
        oibcount = 0;
        closed_ib = NULL;
        cibcount = 0;
        OpenSound[0] = 0;
        CloseSound[0] = 0;
        LockSound[0] = 0;
        UnLockSound[0] = 0;
        overlay = Overlay;
        LinkedInfo[0] = 0;
        OpenStrRef = (ieDword) -1;
}

Door::~Door(void)
{
        if (Flags&DOOR_OPEN) {
                if (closed) {
                        delete( closed );
                }
        } else {
                if (open) {
                        delete( open );
                }
        }
        if (tiles) {
                free( tiles );
        }
        if (open_ib) {
                free( open_ib );
        }
        if (closed_ib) {
                free( closed_ib );
        }
}

void Door::ImpedeBlocks(int count, Point *points, unsigned char value)
{
        for(int i = 0;i<count;i++) {
                unsigned char tmp = area->SearchMap->GetAt( points[i].x, points[i].y ) & PATH_MAP_NOTDOOR;
                area->SearchMap->SetAt( points[i].x, points[i].y, (tmp|value) );
        }
}

void Door::UpdateDoor()
{
        if (Flags&DOOR_OPEN) {
                outline = open;
        } else {
                outline = closed;
        }
        // update the Scriptable position
        Pos.x = outline->BBox.x + outline->BBox.w/2;
        Pos.y = outline->BBox.y + outline->BBox.h/2;

        unsigned char oval, cval;
        oval = PATH_MAP_IMPASSABLE;
        if (Flags & DOOR_TRANSPARENT) {
                cval = PATH_MAP_DOOR_TRANSPARENT;
        }
        else {
                cval = PATH_MAP_DOOR_OPAQUE;
        }
        if (Flags &DOOR_OPEN) {
                ImpedeBlocks(cibcount, closed_ib, 0);
                ImpedeBlocks(oibcount, open_ib, cval);
        }
        else {
                ImpedeBlocks(oibcount, open_ib, 0);
                ImpedeBlocks(cibcount, closed_ib, cval);
        }

        InfoPoint *ip = area->TMap->GetInfoPoint(LinkedInfo);
        if (ip) {
                if (Flags&DOOR_OPEN) ip->Flags&=~INFO_DOOR;
                else ip->Flags|=INFO_DOOR;
        }
}

void Door::ToggleTiles(int State, int playsound)
{
        int i;
        int state;

        if (State) {
                state = !closedIndex;
                if (playsound && ( OpenSound[0] != '\0' ))
                        core->GetAudioDrv()->Play( OpenSound );
        } else {
                state = closedIndex;
                if (playsound && ( CloseSound[0] != '\0' ))
                        core->GetAudioDrv()->Play( CloseSound );
        }
        for (i = 0; i < tilecount; i++) {
                overlay->tiles[tiles[i]]->tileIndex = (ieByte) state;
        }

        //set door_open as state
        Flags = (Flags & ~DOOR_OPEN) | (State == !core->HasFeature(GF_REVERSE_DOOR) );
}

//this is the short name (not the scripting name)
void Door::SetName(const char* name)
{
        strnlwrcpy( ID, name, 8 );
}

void Door::SetTiles(unsigned short* Tiles, int cnt)
{
        if (tiles) {
                free( tiles );
        }
        tiles = Tiles;
        tilecount = cnt;
}

void Door::SetDoorLocked(int Locked, int playsound)
{
        if (Locked) {
                if (Flags & DOOR_LOCKED) return;
                Flags|=DOOR_LOCKED;
                if (playsound && ( LockSound[0] != '\0' ))
                        core->GetAudioDrv()->Play( LockSound );
        }
        else {
                if (!(Flags & DOOR_LOCKED)) return;
                Flags&=~DOOR_LOCKED;
                if (playsound && ( UnLockSound[0] != '\0' ))
                        core->GetAudioDrv()->Play( UnLockSound );
        }
}

int Door::IsOpen() const
{
        int ret = core->HasFeature(GF_REVERSE_DOOR);
        if (Flags&DOOR_OPEN) {
                ret = !ret;
        }
        return ret;
}

//also mark actors to fix position
bool Door::BlockedOpen(int Open, int ForceOpen)
{
        bool blocked;
        int count;
        Point *points;

        blocked = false;
        if (Open) {
                count = oibcount;
                points = open_ib;
        } else {
                count = cibcount;
                points = closed_ib;
        }
        //getting all impeded actors flagged for jump
        Region rgn;
        rgn.w = 16;
        rgn.h = 12;
        for(int i = 0;i<count;i++) {
                Actor** ab;
                rgn.x = points[i].x*16;
                rgn.y = points[i].y*12;
                unsigned char tmp = area->SearchMap->GetAt( points[i].x, points[i].y ) & PATH_MAP_ACTOR;
                if (tmp) {
                        int ac = area->GetActorInRect(ab, rgn, false);
                        while(ac--) {
                                if (ab[ac]->GetBase(IE_DONOTJUMP)) {
                                        continue;
                                }
                                ab[ac]->SetBase(IE_DONOTJUMP, DNJ_JUMP);
                                blocked = true;
                        }
                        if (ab) {
                                free(ab);
                        }
                }
        }

        if ((Flags&DOOR_SLIDE) || ForceOpen) {
                return false;
        }
        return blocked;
}

void Door::SetDoorOpen(int Open, int playsound, ieDword ID)
{
        if (playsound) {
                //the door cannot be blocked when opening,
                //but the actors will be pushed
                //BlockedOpen will mark actors to be pushed
                if (BlockedOpen(Open,0) && !Open) {
                        //clear up the blocking actors
                        area->JumpActors(false);
                        return;
                }
                area->JumpActors(true);
        }
        if (Open) {
                LastEntered = ID; //used as lastOpener

                // in PS:T, opening a door does not unlock it
                if (!core->HasFeature(GF_REVERSE_DOOR)) {
                        SetDoorLocked(false,playsound);
                }
        } else {
                LastTriggerObject = LastTrigger = ID; //used as lastCloser
        }
        ToggleTiles(Open, playsound);
        //synchronising other data with the door state
        UpdateDoor();
        area->ActivateWallgroups(open_wg_index, open_wg_count, Flags&DOOR_OPEN);
        area->ActivateWallgroups(closed_wg_index, closed_wg_count, !(Flags&DOOR_OPEN));
}

bool Door::TryUnlock(Actor *actor) {
        if (!(Flags&DOOR_LOCKED)) return true;
        
        // don't remove key in PS:T!
        bool removekey = !core->HasFeature(GF_REVERSE_DOOR) && Flags&DOOR_KEY;
        return Highlightable::TryUnlock(actor, removekey);
}

void Door::TryDetectSecret(int skill)
{
        if (Type != ST_DOOR) return;
        if (Visible()) return;
        if (skill > (signed)DiscoveryDiff) {
                Flags |= DOOR_FOUND;
                core->PlaySound(DS_FOUNDSECRET);
        }
}

// return true if the door isn't secret or if it is, but was already discovered
bool Door::Visible()
{
        return (!(Flags & DOOR_SECRET) || (Flags & DOOR_FOUND));
}

void Door::SetPolygon(bool Open, Gem_Polygon* poly)
{
        if (Open) {
                if (open)
                        delete( open );
                open = poly;
        } else {
                if (closed)
                        delete( closed );
                closed = poly;
        }
}

void Door::SetNewOverlay(TileOverlay *Overlay) {
        overlay = Overlay;
        ToggleTiles(IsOpen(), false);
}

void Highlightable::SetTrapDetected(int x)
{
        if(x == TrapDetected)
                return;
        TrapDetected = x;
        if(TrapDetected) {
                core->Autopause(AP_TRAP);
        }
}

void Highlightable::TryDisarm(Actor *actor)
{
        if (!Trapped || !TrapDetected) return;

        LastTriggerObject = LastTrigger = actor->GetID();
        int skill = actor->GetStat(IE_TRAPS);

        if (skill/2+core->Roll(1,skill/2,0)>TrapRemovalDiff) {
                LastDisarmed = actor->GetID();
                //trap removed
                Trapped = 0;
                displaymsg->DisplayConstantStringName(STR_DISARM_DONE, 0xd7d7be, actor);
                int xp = actor->CalculateExperience(XP_DISARM, actor->GetXPLevel(1));
                Game *game = core->GetGame();
                game->ShareXP(xp, SX_DIVIDE);
        } else {
                displaymsg->DisplayConstantStringName(STR_DISARM_FAIL, 0xd7d7be, actor);
                TriggerTrap(skill, LastTrigger);
        }
        ImmediateEvent();
}

void Door::TryPickLock(Actor *actor)
{
        if (LockDifficulty == 100) {
                if (OpenStrRef != (ieDword)-1) {
                        displaymsg->DisplayStringName(OpenStrRef, 0xbcefbc, actor, IE_STR_SOUND|IE_STR_SPEECH);
                } else {
                        displaymsg->DisplayConstantStringName(STR_DOOR_NOPICK, 0xbcefbc, actor);
                }
                return;
        }
        if (actor->GetStat(IE_LOCKPICKING)<LockDifficulty) {
                displaymsg->DisplayConstantStringName(STR_LOCKPICK_FAILED, 0xbcefbc, actor);
                LastPickLockFailed = actor->GetID();
                return;
        }
        SetDoorLocked( false, true);
        displaymsg->DisplayConstantStringName(STR_LOCKPICK_DONE, 0xd7d7be, actor);
        LastUnlocked = actor->GetID();
        ImmediateEvent();
        int xp = actor->CalculateExperience(XP_LOCKPICK, actor->GetXPLevel(1));
        Game *game = core->GetGame();
        game->ShareXP(xp, SX_DIVIDE);
}

void Door::TryBashLock(Actor *actor)
{
        //Get the strength bonus agains lock difficulty
        int str = actor->GetStat(IE_STR);
        int strEx = actor->GetStat(IE_STREXTRA);
        unsigned int bonus = core->GetStrengthBonus(2, str, strEx); //BEND_BARS_LIFT_GATES
        unsigned int roll = actor->LuckyRoll(1, 10, bonus, 0);

        if(roll < LockDifficulty || LockDifficulty == 100) {
                displaymsg->DisplayConstantStringName(STR_DOORBASH_FAIL, 0xbcefbc, actor);
                return;
        }

        displaymsg->DisplayConstantStringName(STR_DOORBASH_DONE, 0xd7d7be, actor);
        SetDoorLocked(false, true);
        //Is this really useful ?
        LastUnlocked = actor->GetID();
        ImmediateEvent();
}

void Door::DebugDump() const
{
        printf( "Debugdump of Door %s:\n", GetScriptName() );
        printf( "Door Open: %s\n", YESNO(IsOpen()));
        printf( "Door Locked: %s\n", YESNO(Flags&DOOR_LOCKED));
        printf( "Door Trapped: %s\n", YESNO(Trapped));
        if (Trapped) {
                printf( "Trap Permanent: %s Detectable: %s\n", YESNO(Flags&DOOR_RESET), YESNO(Flags&DOOR_DETECTABLE) );
        }
        printf( "Secret door: %s (Found: %s)\n", YESNO(Flags&DOOR_SECRET),YESNO(Flags&DOOR_FOUND));
        const char *Key = GetKey();
        const char *name = "NONE";
        if (Scripts[0]) {
                name = Scripts[0]->GetName();
        }
        printf( "Script: %s, Key (%s) removed: %s, Dialog: %s\n", name, Key?Key:"NONE", YESNO(Flags&DOOR_KEY), Dialog );
}

/*******************
 * InfoPoint Class *
 *******************/

InfoPoint::InfoPoint(void)
        : Highlightable( ST_TRIGGER )
{
        Destination[0] = 0;
        EntranceName[0] = 0;
        Flags = 0;
        TrapDetectionDiff = 0;
        TrapRemovalDiff = 0;
        TrapDetected = 0;
        TrapLaunch.empty();
        Dialog[0] = 0;
}

InfoPoint::~InfoPoint(void)
{
}

//checks if the actor may use this travel trigger
//bit 1 : can use
//bit 2 : whole team
int InfoPoint::CheckTravel(Actor *actor)
{
        if (Flags&TRAP_DEACTIVATED) return CT_CANTMOVE;
        if (!actor->InParty && (Flags&TRAVEL_NONPC) ) return CT_CANTMOVE;
        if (actor->InParty && (Flags&TRAVEL_PARTY) ) {
                if (core->HasFeature(GF_TEAM_MOVEMENT) || core->GetGame()->EveryoneNearPoint(actor->GetCurrentArea(), actor->Pos, ENP_CANMOVE) ) {
                        return CT_WHOLE;
                }
                return CT_GO_CLOSER;
        }
        if(actor->IsSelected() ) {
                if(core->GetGame()->EveryoneNearPoint(actor->GetCurrentArea(), actor->Pos, ENP_CANMOVE|ENP_ONLYSELECT) ) {
                        return CT_MOVE_SELECTED;
                }
                return CT_SELECTED;
        }
        return CT_ACTIVE;
}

//detect this trap, using a skill, skill could be set to 256 for 'sure'
//skill is the all around modified trap detection skill
//a trapdetectiondifficulty of 100 means impossible detection short of a spell
void Highlightable::DetectTrap(int skill)
{
        if (!CanDetectTrap()) return;
        if (!Scripts[0]) return;
        if ((skill>=100) && (skill!=256) ) skill = 100;
        if (skill/2+core->Roll(1,skill/2,0)>TrapDetectionDiff) {
                SetTrapDetected(1); //probably could be set to the player #?
        }
}

bool Highlightable::PossibleToSeeTrap() const
{
        return CanDetectTrap();
}

bool InfoPoint::PossibleToSeeTrap() const
{
        // Only detectable trap-type infopoints.
        return (CanDetectTrap() && (Type == ST_PROXIMITY) );
}

bool InfoPoint::CanDetectTrap() const
{
        // Traps can be detected on all types of infopoint, as long
        // as the trap is detectable and isn't deactivated.
        return ((Flags&TRAP_DETECTABLE) && !(Flags&TRAP_DEACTIVATED));
}

// returns true if the infopoint is a PS:T portal
// GF_REVERSE_DOOR is the closest game feature (exists only in PST, and about area objects)
bool InfoPoint::IsPortal() const
{
        if (Type!=ST_TRAVEL) return false;
        if (Cursor != IE_CURSOR_PORTAL) return false;
        return core->HasFeature(GF_REVERSE_DOOR);
}

//trap that is visible on screen (marked by red)
//if TrapDetected is a bitflag, we could show traps selectively for
//players, really nice for multiplayer
bool Highlightable::VisibleTrap(int see_all) const
{
        if (!Trapped) return false;
        if (!PossibleToSeeTrap()) return false;
        if (!Scripts[0]) return false;
        if (see_all) return true;
        if (TrapDetected ) return true;
        return false;
}

//trap that will fire now
bool Highlightable::TriggerTrap(int skill, ieDword ID)
{
        if (!Trapped) {
                return false;
        }
        //actually this could be script name[0]
        if (!Scripts[0]) {
                return false;
        }
        if (CanDetectTrap()) {
                // this should probably be party members only
                if ((skill>=100) && (skill!=256) ) skill = 100;
                if (skill/2+core->Roll(1,skill/2,0)>TrapDetectionDiff) {
                        SetTrapDetected(1); //probably too late :)
                        //tumble???
                        return false;
                }
        }
        LastTriggerObject = LastTrigger = LastEntered = ID;
        ImmediateEvent();
        if (!TrapResets()) {
                Trapped = false;
        }
        return true;
}

//trap that will fire now
bool InfoPoint::TriggerTrap(int skill, ieDword ID)
{
        if (Type!=ST_PROXIMITY) {
                return true;
        }
        if (Flags&TRAP_DEACTIVATED) {
                return false;
        }
        if (!Trapped) {
                // we have to set Entered somewhere, here seems best..
                LastEntered = ID;
                return true;
        } else if (Highlightable::TriggerTrap(skill, ID)) {
                if (!Trapped) {
                        Flags|=TRAP_DEACTIVATED;
                }
                // ok, so this is a pain. Entered() trigger checks Trapped,
                // so it needs to be kept set. how to do this right?
                Trapped = true;
                return true;
        }
        return false;
}

bool InfoPoint::Entered(Actor *actor)
{
        if (outline->PointIn( actor->Pos ) ) {
                //don't trigger again for this actor
                if (!(actor->GetInternalFlag()&IF_INTRAP)) {
                        goto check;
                }
        }
        // why is this here? actors which aren't *in* a trap get IF_INTRAP
        // repeatedly unset, so this triggers again and again and again.
        // i disabled it for ST_PROXIMITY for now..
        /*if (Type != ST_PROXIMITY && (PersonalDistance(Pos, actor)<MAX_OPERATING_DISTANCE) ) {
                goto check;
        }*/
        // this method is better (fuzzie, 2009) and also works for the iwd ar6002 northeast exit
        if (Type == ST_TRAVEL && PersonalDistance(TrapLaunch, actor)<MAX_OPERATING_DISTANCE) {
                goto check;
        }
        // fuzzie can't escape pst's ar1405 without this one, maybe we should really be checking
        // for distance from the outline for travel regions instead?
        if (Type == ST_TRAVEL && PersonalDistance(TalkPos, actor)<MAX_OPERATING_DISTANCE) {
                goto check;
        }
        if (Flags&TRAP_USEPOINT) {
                if (PersonalDistance(UsePoint, actor)<MAX_OPERATING_DISTANCE) {
                        goto check;
                }
        }
        return false;
check:
        if (Type==ST_TRAVEL) {
                return true;
        }

        if (actor->InParty || (Flags&TRAP_NPC) ) {
                //no need to avoid a travel trigger

                //skill?
                if (TriggerTrap(0, actor->GetID()) ) {
                        return true;
                }
        }
        return false;
}

void InfoPoint::DebugDump() const
{
        switch (Type) {
                case ST_TRIGGER:
                        printf( "Debugdump of InfoPoint Region %s:\n", GetScriptName() );
                        break;
                case ST_PROXIMITY:
                        printf( "Debugdump of Trap Region %s:\n", GetScriptName() );
                        break;
                case ST_TRAVEL:
                        printf( "Debugdump of Travel Region %s:\n", GetScriptName() );
                        break;
                default:
                        printf( "Debugdump of Unsupported Region %s:\n", GetScriptName() );
                        break;
        }
        printf( "TrapDetected: %d, Trapped: %s\n", TrapDetected, YESNO(Trapped));
        printf( "Trap detection: %d%%, Trap removal: %d%%\n", TrapDetectionDiff,
                TrapRemovalDiff );
        const char *name = "NONE";
        if (Scripts[0]) {
                name = Scripts[0]->GetName();
        }
        printf( "Script: %s, Key: %s, Dialog: %s\n", name, KeyResRef, Dialog );
        printf( "Active: %s\n", YESNO(InternalFlags&IF_ACTIVE));
}

/*******************
 * Container Class *
 *******************/

Container::Container(void)
        : Highlightable( ST_CONTAINER )
{
        Type = 0;
        LockDifficulty = 0;
        Flags = 0;
        TrapDetectionDiff = 0;
        TrapRemovalDiff = 0;
        Trapped = 0;
        TrapDetected = 0;
        inventory.SetInventoryType(INVENTORY_HEAP);
        // NULL should be 0 for this
        memset (groundicons, 0, sizeof(groundicons) );
        groundiconcover = 0;
}

void Container::FreeGroundIcons()
{
        Video* video = core->GetVideoDriver();

        for (int i = 0;i<MAX_GROUND_ICON_DRAWN;i++) {
                if (groundicons[i]) {
                        video->FreeSprite( groundicons[i] );
                        groundicons[i]=NULL;
                }
        }
        delete groundiconcover;
        groundiconcover = 0;
}

Container::~Container()
{
        FreeGroundIcons();
}

void Container::DrawPile(bool highlight, Region screen, Color tint)
{
        Video* video = core->GetVideoDriver();
        CreateGroundIconCover();
        for (int i = 0;i<MAX_GROUND_ICON_DRAWN;i++) {
                if (groundicons[i]) {
                        //draw it with highlight
                        video->BlitGameSprite(groundicons[i],
                                screen.x + Pos.x, screen.y + Pos.y,
                                BLIT_TINTED | (highlight ? 0:BLIT_NOSHADOW),
                                tint, groundiconcover);
                }
        }
}

// create the SpriteCover for the groundicons
void Container::CreateGroundIconCover()
{
        int xpos = 0;
        int ypos = 0;
        int width = 0;
        int height = 0;

        int i; //msvc6.0
        for (i = 0;i<MAX_GROUND_ICON_DRAWN;i++) {
                if (groundicons[i]) {
                        Sprite2D& spr = *groundicons[i];
                        if (xpos < spr.XPos) {
                                width += spr.XPos - xpos;
                                xpos = spr.XPos;
                        }
                        if (ypos < spr.YPos) {
                                height += spr.YPos - ypos;
                                ypos = spr.YPos;
                        }
                        if (width-xpos < spr.Width-spr.XPos) {
                                width = spr.Width-spr.XPos+xpos;
                        }
                        if (height-ypos < spr.Height-spr.YPos) {
                                height = spr.Height-spr.YPos+ypos;
                        }
                }
        }

        if (!groundiconcover ||
                !groundiconcover->Covers(Pos.x, Pos.y, xpos, ypos, width, height))
        {
                delete groundiconcover;
                groundiconcover = 0;
                if (width*height > 0) {
                        groundiconcover = GetCurrentArea()->BuildSpriteCover
                                (Pos.x, Pos.y, xpos, ypos, width, height, WantDither());
                }
        }

#ifndef NDEBUG
        // TODO: remove this checking code eventually
        for (i = 0;i<MAX_GROUND_ICON_DRAWN;i++) {
                if (groundicons[i]) {
                        Sprite2D& spr = *groundicons[i];
                        assert(groundiconcover->Covers(Pos.x, Pos.y, spr.XPos, spr.YPos, spr.Width, spr.Height));
                }
        }
#endif
}

void Container::SetContainerLocked(bool lock)
{
        if (lock) {
                Flags|=CONT_LOCKED;
        } else {
                Flags&=~CONT_LOCKED;
        }
}

//This function doesn't exist in the original IE, destroys a container
//turning it to a ground pile
void Container::DestroyContainer()
{
        //it is already a groundpile?
        if (Type == IE_CONTAINER_PILE)
                return;
        Type = IE_CONTAINER_PILE;
        RefreshGroundIcons();
        //probably we should stop the script or trigger it, whatever
}

//Takes an item from the container's inventory and returns its pointer
CREItem *Container::RemoveItem(unsigned int idx, unsigned int count)
{
        CREItem *ret = inventory.RemoveItem(idx, count);
        //we just took the 3. or less item, groundpile changed
        if ((Type == IE_CONTAINER_PILE) && (inventory.GetSlotCount()<3)) {
                RefreshGroundIcons();
        }
        return ret;
}

//Adds an item to the container's inventory
//containers always have enough capacity (so far), thus we always return 2
int Container::AddItem(CREItem *item)
{
        inventory.AddItem(item);
        //we just added a 3. or less item, groundpile changed
        if ((Type == IE_CONTAINER_PILE) && (inventory.GetSlotCount()<4)) {
                RefreshGroundIcons();
        }
        return 2;
}

void Container::RefreshGroundIcons()
{
        int i = inventory.GetSlotCount();
        if (i>MAX_GROUND_ICON_DRAWN)
                i = MAX_GROUND_ICON_DRAWN;
        FreeGroundIcons();
        while (i--) {
                CREItem *slot = inventory.GetSlotItem(i); //borrowed reference
                Item *itm = gamedata->GetItem( slot->ItemResRef ); //cached reference
                //well, this is required in PST, needs more work if some other
                //game is broken by not using -1,0
                groundicons[i] = gamedata->GetBAMSprite( itm->GroundIcon, 0, 0 );
                gamedata->FreeItem( itm, slot->ItemResRef ); //decref
        }
}

//used for ground piles
int Container::WantDither()
{
        //if pile is highlighted, always dither it
        if (Highlight) {
                return 2; //dither me if you want
        }
        //if pile isn't highlighted, dither it if the polygon wants
        return 1;
}

int Container::IsOpen() const
{
        if (Flags&CONT_LOCKED) {
                return false;
        }
        return true;
}

void Container::TryPickLock(Actor *actor)
{
        if (LockDifficulty == 100) {
                if (OpenFail != (ieDword)-1) {
                        displaymsg->DisplayStringName(OpenFail, 0xbcefbc, actor, IE_STR_SOUND|IE_STR_SPEECH);
                } else {
                        displaymsg->DisplayConstantStringName(STR_CONT_NOPICK, 0xbcefbc, actor);
                }
                return;
        }
        if (actor->GetStat(IE_LOCKPICKING)<LockDifficulty) {
                displaymsg->DisplayConstantStringName(STR_LOCKPICK_FAILED, 0xbcefbc, actor);
                LastPickLockFailed = actor->GetID();
                return;
        }
        SetContainerLocked(false);
        displaymsg->DisplayConstantStringName(STR_LOCKPICK_DONE, 0xd7d7be, actor);
        LastUnlocked = actor->GetID();
        ImmediateEvent();
        int xp = actor->CalculateExperience(XP_LOCKPICK, actor->GetXPLevel(1));
        Game *game = core->GetGame();
        game->ShareXP(xp, SX_DIVIDE);
}

void Container::TryBashLock(Actor *actor)
{
        //Get the strength bonus agains lock difficulty
        int str = actor->GetStat(IE_STR);
        int strEx = actor->GetStat(IE_STREXTRA);
        unsigned int bonus = core->GetStrengthBonus(2, str, strEx); //BEND_BARS_LIFT_GATES
        unsigned int roll = actor->LuckyRoll(1, 10, bonus, 0);

        if(roll < LockDifficulty || LockDifficulty == 100) {
                displaymsg->DisplayConstantStringName(STR_CONTBASH_FAIL, 0xbcefbc, actor);
                return;
        }

        displaymsg->DisplayConstantStringName(STR_CONTBASH_DONE, 0xd7d7be, actor);
        SetContainerLocked(false);
        //Is this really useful ?
        LastUnlocked = actor->GetID();
        ImmediateEvent();
}

void Container::DebugDump() const
{
        printf( "Debugdump of Container %s\n", GetScriptName() );
        printf( "Type: %d,  LockDifficulty: %d\n", Type, LockDifficulty );
        printf( "Flags: %d, Trapped: %s, Detected: %d\n", Flags, YESNO(Trapped), TrapDetected );
        printf( "Trap detection: %d%%, Trap removal: %d%%\n", TrapDetectionDiff,
                TrapRemovalDiff );
        const char *name = "NONE";
        if (Scripts[0]) {
                name = Scripts[0]->GetName();
        }
        printf( "Script: %s, Key: %s\n", name, KeyResRef );
        // FIXME: const_cast
        const_cast<Inventory&>(inventory).dump();
}

bool Container::TryUnlock(Actor *actor) {
        if (!(Flags&CONT_LOCKED)) return true;
        
        return Highlightable::TryUnlock(actor, false);
}