done with `crcombat.cc`

8 files changed, 455 insertions, 2340 deletions

diff --git a/Makefile b/Makefile
index c2e87d3..2b03278 100644
--- a/Makefile
+++ b/Makefile
@@ -13,9 +13,9 @@ else
 	CFLAGS += -O2
 endif
 
-HEADERS = $(SRCDIR)/common.hh $(SRCDIR)/config.hh $(SRCDIR)/connection.hh $(SRCDIR)/containers.hh $(SRCDIR)/creature.hh $(SRCDIR)/crcombat.hh $(SRCDIR)/crskill.hh $(SRCDIR)/enums.hh $(SRCDIR)/map.hh $(SRCDIR)/monster.hh $(SRCDIR)/objects.hh $(SRCDIR)/player.hh $(SRCDIR)/script.hh $(SRCDIR)/thread.hh
+HEADERS = $(SRCDIR)/common.hh $(SRCDIR)/config.hh $(SRCDIR)/connection.hh $(SRCDIR)/containers.hh $(SRCDIR)/creature.hh $(SRCDIR)/crcombat.hh $(SRCDIR)/crskill.hh $(SRCDIR)/enums.hh $(SRCDIR)/magic.hh $(SRCDIR)/map.hh $(SRCDIR)/monster.hh $(SRCDIR)/objects.hh $(SRCDIR)/player.hh $(SRCDIR)/script.hh $(SRCDIR)/thread.hh
 
-$(BUILDDIR)/$(OUTPUTEXE): $(BUILDDIR)/config.obj $(BUILDDIR)/creature.obj $(BUILDDIR)/crcombat.obj $(BUILDDIR)/crskill.obj $(BUILDDIR)/main.obj $(BUILDDIR)/map.obj $(BUILDDIR)/objects.obj $(BUILDDIR)/player.obj $(BUILDDIR)/script.obj $(BUILDDIR)/shm.obj $(BUILDDIR)/strings.obj $(BUILDDIR)/thread.obj $(BUILDDIR)/time.obj $(BUILDDIR)/util.obj
+$(BUILDDIR)/$(OUTPUTEXE): $(BUILDDIR)/config.obj $(BUILDDIR)/creature.obj $(BUILDDIR)/crcombat.obj $(BUILDDIR)/crskill.obj $(BUILDDIR)/magic.obj $(BUILDDIR)/main.obj $(BUILDDIR)/map.obj $(BUILDDIR)/objects.obj $(BUILDDIR)/player.obj $(BUILDDIR)/script.obj $(BUILDDIR)/shm.obj $(BUILDDIR)/strings.obj $(BUILDDIR)/thread.obj $(BUILDDIR)/time.obj $(BUILDDIR)/util.obj
 	$(CC) $(CFLAGS) $(LFLAGS) -o $@ $^
 
 $(BUILDDIR)/config.obj: $(SRCDIR)/config.cc $(HEADERS)
@@ -34,6 +34,10 @@ $(BUILDDIR)/crskill.obj: $(SRCDIR)/crskill.cc $(HEADERS)
 	@mkdir -p $(@D)
 	$(CC) -c $(CFLAGS) -o $@ $<
 
+$(BUILDDIR)/magic.obj: $(SRCDIR)/magic.cc $(HEADERS)
+	@mkdir -p $(@D)
+	$(CC) -c $(CFLAGS) -o $@ $<
+
 $(BUILDDIR)/main.obj: $(SRCDIR)/main.cc $(HEADERS)
 	@mkdir -p $(@D)
 	$(CC) -c $(CFLAGS) -o $@ $<
diff --git a/reference/game.c b/reference/game.c
index 55287d4..b5b2520 100644
--- a/reference/game.c
+++ b/reference/game.c
@@ -39021,130 +39021,6 @@ void ExitKillStatistics(void)
     return;

 }

 

-

-

-// DWARF original prototype: void TCreature(TCreature * this)

-

-void __thiscall TCreature::TCreature(TCreature *this)

-

-{

-    int i;

-    int iVar1;

-    

-    TSkillBase::TSkillBase(&this->super_TSkillBase);

-    this->_vptr_TCreature = (_func_int_varargs **)&PTR__TCreature_08127be8;

-                    // try { // try from 0809ef0c to 0809ef41 has its CatchHandler @ 0809f0a0

-    TCombat::TCombat(&this->Combat);

-    (this->CrObject).ObjectID = 0;

-    vector<TToDoEntry>::vector(&this->ToDoList,0,0x14,10);

-    this->LoggingOut = false;

-    this->Connection = (TConnection *)0x0;

-    this->ID = 0;

-    this->NextChainCreature = 0;

-    this->EarliestLogoutRound = 0;

-    this->NextHashEntry = (TCreature *)0x0;

-    this->EarliestProtectionZoneRound = 0;

-    this->EarliestYellRound = 0;

-    this->EarliestTradeChannelRound = 0;

-    this->EarliestSpellTime = 0;

-    this->EarliestMultiuseTime = 0;

-    this->EarliestWalkTime = 0;

-    this->LifeEndRound = 0;

-    this->ActToDo = 0;

-    this->NrToDo = 0;

-    this->NextWakeup = 0;

-    this->starty = 0;

-    this->posx = 0;

-    this->posy = 0;

-    this->posz = 0;

-    this->Radius = 0x7fffffff;

-    this->startz = 0;

-    iVar1 = 0;

-    this->LogoutAllowed = false;

-    this->Stop = false;

-    this->LockToDo = false;

-    this->Direction = 0;

-    this->startx = 0;

-    this->IsDead = false;

-    this->LoseInventory = 2;

-    (this->Combat).Master = this;

-    do {

-                    // try { // try from 0809f041 to 0809f045 has its CatchHandler @ 0809f088

-        TSkillBase::NewSkill(&this->super_TSkillBase,(ushort)iVar1,this);

-        iVar1 = iVar1 + 1;

-    } while (iVar1 < 0x19);

-    this->Murderer[0] = '\0';

-    this->FireDamageOrigin = 0;

-    this->FirstKnowingConnection = (TKnownCreature *)0x0;

-    this->SummonedCreatures = 0;

-    this->PoisonDamageOrigin = 0;

-    this->EnergyDamageOrigin = 0;

-    return;

-}

-

-

-

-// DWARF original prototype: void TCreature(TCreature * this)

-

-void __thiscall TCreature::TCreature(TCreature *this)

-

-{

-    int i;

-    int iVar1;

-    

-    TSkillBase::TSkillBase(&this->super_TSkillBase);

-    this->_vptr_TCreature = (_func_int_varargs **)&PTR__TCreature_08127be8;

-                    // try { // try from 0809f0ec to 0809f121 has its CatchHandler @ 0809f280

-    TCombat::TCombat(&this->Combat);

-    (this->CrObject).ObjectID = 0;

-    vector<TToDoEntry>::vector(&this->ToDoList,0,0x14,10);

-    this->LoggingOut = false;

-    this->ID = 0;

-    this->Connection = (TConnection *)0x0;

-    this->NextHashEntry = (TCreature *)0x0;

-    this->NextChainCreature = 0;

-    this->EarliestLogoutRound = 0;

-    this->EarliestTradeChannelRound = 0;

-    this->EarliestYellRound = 0;

-    this->EarliestSpellTime = 0;

-    this->EarliestWalkTime = 0;

-    this->EarliestMultiuseTime = 0;

-    this->LifeEndRound = 0;

-    this->NrToDo = 0;

-    this->EarliestProtectionZoneRound = 0;

-    this->ActToDo = 0;

-    this->posx = 0;

-    this->posy = 0;

-    this->NextWakeup = 0;

-    this->posz = 0;

-    this->Direction = 0;

-    this->startx = 0;

-    this->Radius = 0x7fffffff;

-    iVar1 = 0;

-    this->LogoutAllowed = false;

-    this->Stop = false;

-    this->LockToDo = false;

-    this->starty = 0;

-    this->startz = 0;

-    this->IsDead = false;

-    this->LoseInventory = 2;

-    (this->Combat).Master = this;

-    do {

-                    // try { // try from 0809f221 to 0809f225 has its CatchHandler @ 0809f268

-        TSkillBase::NewSkill(&this->super_TSkillBase,(ushort)iVar1,this);

-        iVar1 = iVar1 + 1;

-    } while (iVar1 < 0x19);

-    this->Murderer[0] = '\0';

-    this->FirstKnowingConnection = (TKnownCreature *)0x0;

-    this->SummonedCreatures = 0;

-    this->FireDamageOrigin = 0;

-    this->PoisonDamageOrigin = 0;

-    this->EnergyDamageOrigin = 0;

-    return;

-}

-

-

-

 // DWARF original prototype: void ~TCreature(TCreature * this, int __in_chrg)

 

 void __thiscall TCreature::~TCreature(TCreature *this,int __in_chrg)

@@ -47358,75 +47234,6 @@ LAB_080ad830:
 }

 

 

-

-// DWARF original prototype: uchar GetRealProfession(TPlayer * this)

-

-uchar __thiscall TPlayer::GetRealProfession(TPlayer *this)

-

-{

-    return (this->super_TCreature).Profession;

-}

-

-

-

-// DWARF original prototype: uchar GetEffectiveProfession(TPlayer * this)

-

-uchar __thiscall TPlayer::GetEffectiveProfession(TPlayer *this)

-

-{

-    byte bVar1;

-    

-    bVar1 = (this->super_TCreature).Profession;

-    if (9 < bVar1) {

-        bVar1 = bVar1 - 10;

-    }

-    return bVar1;

-}

-

-

-

-// DWARF original prototype: uchar GetActiveProfession(TPlayer * this)

-

-uchar __thiscall TPlayer::GetActiveProfession(TPlayer *this)

-

-{

-    bool bVar1;

-    byte bVar2;

-    

-    bVar1 = CheckRight((this->super_TCreature).ID,PREMIUM_ACCOUNT);

-    if (bVar1) {

-        bVar2 = (this->super_TCreature).Profession;

-    }

-    else {

-        bVar2 = (this->super_TCreature).Profession;

-        if (9 < bVar2) {

-            bVar2 = bVar2 - 10;

-        }

-    }

-    return bVar2;

-}

-

-

-

-// DWARF original prototype: bool GetActivePromotion(TPlayer * this)

-

-bool __thiscall TPlayer::GetActivePromotion(TPlayer *this)

-

-{

-    bool bVar1;

-    

-    bVar1 = CheckRight((this->super_TCreature).ID,PREMIUM_ACCOUNT);

-    if (bVar1) {

-        bVar1 = 9 < (this->super_TCreature).Profession;

-    }

-    else {

-        bVar1 = false;

-    }

-    return bVar1;

-}

-

-

-

 // DWARF original prototype: bool SpellKnown(TPlayer * this, int SpellNumber)

 

 bool __thiscall TPlayer::SpellKnown(TPlayer *this,int SpellNumber)

@@ -58419,20 +58226,6 @@ void __thiscall TCreature::Turn(TCreature *this,Object *Obj)
     __cxa_throw(puVar2,&RESULT::typeinfo,0);

 }

 

-

-

-// DWARF original prototype: void Attack(TCreature * this)

-

-void __thiscall TCreature::Attack(TCreature *this)

-

-{

-                    // try { // try from 080c0a51 to 080c0a55 has its CatchHandler @ 080c0a60

-    TCombat::Attack(&this->Combat);

-    return;

-}

-

-

-

 // DWARF original prototype: void NotifyGo(TCreature * this)

 

 void __thiscall TCreature::NotifyGo(TCreature *this)

@@ -60111,2069 +59904,6 @@ void __static_initialization_and_destruction_0(int __initialize_p,int __priority
     return;

 }

 

-

-

-// DWARF original prototype: void TCombat(TCombat * this)

-

-void __thiscall TCombat::TCombat(TCombat *this)

-

-{

-    int iVar1;

-    TCombatEntry *pTVar2;

-    

-    (this->Shield).ObjectID = 0;

-    (this->Close).ObjectID = 0;

-    (this->Missile).ObjectID = 0;

-    (this->Throw).ObjectID = 0;

-    (this->Wand).ObjectID = 0;

-    (this->Ammo).ObjectID = 0;

-    this->Master = (TCreature *)0x0;

-    this->AttackDest = 0;

-    this->EarliestAttackTime = 0;

-    this->EarliestDefendTime = 0;

-    this->LastDefendTime = 0;

-    this->LatestAttackTime = 0;

-    pTVar2 = this->CombatList;

-    for (iVar1 = 0x3c; iVar1 != 0; iVar1 = iVar1 + -1) {

-        pTVar2->ID = 0;

-        pTVar2 = (TCombatEntry *)&pTVar2->Damage;

-    }

-    this->ActCombatEntry = 0;

-    this->CombatDamage = 0;

-    this->LearningPoints = 0;

-    (this->Missile).ObjectID = ::NONE.ObjectID;

-    (this->Wand).ObjectID = ::NONE.ObjectID;

-    (this->Close).ObjectID = ::NONE.ObjectID;

-    (this->Shield).ObjectID = ::NONE.ObjectID;

-    (this->Throw).ObjectID = ::NONE.ObjectID;

-    (this->Ammo).ObjectID = ::NONE.ObjectID;

-    this->Fist = false;

-    this->AttackMode = '\x02';

-    this->ChaseMode = '\0';

-    this->SecureMode = '\x01';

-    return;

-}

-

-

-

-// DWARF original prototype: void TCombat(TCombat * this)

-

-void __thiscall TCombat::TCombat(TCombat *this)

-

-{

-    int iVar1;

-    TCombatEntry *pTVar2;

-    

-    (this->Shield).ObjectID = 0;

-    (this->Close).ObjectID = 0;

-    (this->Missile).ObjectID = 0;

-    (this->Throw).ObjectID = 0;

-    (this->Wand).ObjectID = 0;

-    (this->Ammo).ObjectID = 0;

-    this->Master = (TCreature *)0x0;

-    this->AttackDest = 0;

-    this->EarliestAttackTime = 0;

-    this->EarliestDefendTime = 0;

-    this->LastDefendTime = 0;

-    this->LatestAttackTime = 0;

-    pTVar2 = this->CombatList;

-    for (iVar1 = 0x3c; iVar1 != 0; iVar1 = iVar1 + -1) {

-        pTVar2->ID = 0;

-        pTVar2 = (TCombatEntry *)&pTVar2->Damage;

-    }

-    this->ActCombatEntry = 0;

-    this->CombatDamage = 0;

-    this->LearningPoints = 0;

-    (this->Missile).ObjectID = ::NONE.ObjectID;

-    (this->Wand).ObjectID = ::NONE.ObjectID;

-    (this->Close).ObjectID = ::NONE.ObjectID;

-    (this->Shield).ObjectID = ::NONE.ObjectID;

-    (this->Throw).ObjectID = ::NONE.ObjectID;

-    (this->Ammo).ObjectID = ::NONE.ObjectID;

-    this->Fist = false;

-    this->AttackMode = '\x02';

-    this->ChaseMode = '\0';

-    this->SecureMode = '\x01';

-    return;

-}

-

-

-

-// DWARF original prototype: void CanToDoAttack(TCombat * this)

-

-void __thiscall TCombat::CanToDoAttack(TCombat *this)

-

-{

-    char cVar1;

-    bool bVar2;

-    int Distance;

-    TCreature *pTVar3;

-    int iVar4;

-    TConnection *Connection;

-    undefined4 *puVar5;

-    byte bVar6;

-    int Mode;

-    TPlayer *this_00;

-    TCreature *pTVar7;

-    TCreature *dfd;

-    int local_48;

-    int x;

-    int y;

-    int z;

-    Object local_2c [7];

-    

-    if (this->AttackDest == 0) {

-        return;

-    }

-                    // try { // try from 080c40e9 to 080c43eb has its CatchHandler @ 080c4403

-    pTVar3 = GetCreature(this->AttackDest);

-    if (pTVar3 == (TCreature *)0x0) {

-LAB_080c428d:

-        this->AttackDest = 0;

-        if (this->Master->Type == PLAYER) {

-            Connection = this->Master->Connection;

-LAB_080c42a6:

-            SendClearTarget(Connection);

-        }

-    }

-    else {

-        this_00 = (TPlayer *)this->Master;

-        if (this_00 == (TPlayer *)0x0) {

-            error("TCombat::CanAttack: Kein Master gesetzt!\n");

-            puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-            *puVar5 = 0xffffffff;

-            goto LAB_080c42c0;

-        }

-        if (((this_00->super_TCreature).Type != PLAYER) || (pTVar3->Type == PLAYER)) {

-LAB_080c413c:

-            if (this->Following == false) {

-                cVar1 = '\0';

-                if (((((this_00->super_TCreature).Type == PLAYER) && (pTVar3->Type == PLAYER)) &&

-                    (this->SecureMode == '\x01')) && (WorldType == NORMAL)) {

-                    bVar2 = TPlayer::IsAttackJustified(this_00,pTVar3->ID);

-                    if (!bVar2) {

-                        this->AttackDest = 0;

-                        if (this->Master->Type == PLAYER) {

-                            SendClearTarget(this->Master->Connection);

-                        }

-                        puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-                        *puVar5 = 0x3a;

-                        goto LAB_080c42c0;

-                    }

-                    cVar1 = this->Following;

-                    this_00 = (TPlayer *)this->Master;

-                }

-                if ((cVar1 == '\0') && (WorldType == NON_PVP)) {

-                    iVar4 = (*(this_00->super_TCreature)._vptr_TCreature[4])(this_00);

-                    if (((char)iVar4 != '\0') &&

-                       (iVar4 = (*pTVar3->_vptr_TCreature[4])(pTVar3), (char)iVar4 != '\0')) {

-                        pTVar7 = this->Master;

-                        if (pTVar7->Type == PLAYER) {

-                            bVar2 = CheckRight(pTVar7->ID,ATTACK_EVERYWHERE);

-                            if (bVar2) goto LAB_080c42e4;

-                            pTVar7 = this->Master;

-                        }

-                        this->AttackDest = 0;

-                        if (pTVar7->Type == PLAYER) {

-                            SendClearTarget(pTVar7->Connection);

-                        }

-                        puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-                        *puVar5 = 0x2b;

-                        goto LAB_080c42c0;

-                    }

-LAB_080c42e4:

-                    this_00 = (TPlayer *)this->Master;

-                }

-            }

-            local_2c[0].ObjectID = (pTVar3->CrObject).ObjectID;

-            z = (this_00->super_TCreature).CrObject.ObjectID;

-            iVar4 = ObjectDistance((Object *)&z,local_2c);

-            if (iVar4 < 9) {

-                if (this->Following == false) {

-                    bVar6 = this->ChaseMode;

-                }

-                else {

-                    bVar6 = 1;

-                }

-                if (bVar6 == 1) {

-                    if (iVar4 < 2) {

-                        return;

-                    }

-                    iVar4 = 3;

-                }

-                else {

-                    if (bVar6 < 2) {

-                        return;

-                    }

-                    if (bVar6 != 2) {

-                        return;

-                    }

-                    if (iVar4 < 4) {

-                        bVar2 = SearchFlightField();

-                        if (!bVar2) {

-                            return;

-                        }

-                        iVar4 = 0x7fffffff;

-                        bVar2 = true;

-                        goto LAB_080c4201;

-                    }

-                    if (iVar4 < 5) {

-                        return;

-                    }

-                    iVar4 = iVar4 + -4;

-                }

-                bVar2 = false;

-                y = pTVar3->posz;

-                x = pTVar3->posy;

-                local_48 = pTVar3->posx;

-LAB_080c4201:

-                TCreature::ToDoGo(this->Master,local_48,x,y,bVar2,iVar4);

-                return;

-            }

-            goto LAB_080c428d;

-        }

-        bVar2 = false;

-        if (((pTVar3->Outfit).OutfitID == 0) && ((pTVar3->Outfit).field_1.ObjectType == 0)) {

-            bVar2 = true;

-        }

-        if (!bVar2) goto LAB_080c413c;

-        this->AttackDest = 0;

-        if ((this_00->super_TCreature).Type == PLAYER) {

-            Connection = (this_00->super_TCreature).Connection;

-            goto LAB_080c42a6;

-        }

-    }

-    puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-    *puVar5 = 0x25;

-LAB_080c42c0:

-                    // WARNING: Subroutine does not return

-    __cxa_throw(puVar5,&RESULT::typeinfo,0);

-}

-

-

-

-// DWARF original prototype: int GetDistance(TCombat * this)

-

-int __thiscall TCombat::GetDistance(TCombat *this)

-

-{

-    bool bVar1;

-    int range;

-    int iVar2;

-    

-    bVar1 = false;

-    iVar2 = 0;

-    if (((this->Close).ObjectID != ::NONE.ObjectID) || (this->Fist != false)) {

-        bVar1 = true;

-    }

-    if (bVar1) {

-        iVar2 = 1;

-    }

-    else if ((this->Throw).ObjectID == ::NONE.ObjectID) {

-        bVar1 = false;

-        if (((this->Missile).ObjectID != ::NONE.ObjectID) ||

-           ((this->Wand).ObjectID != ::NONE.ObjectID)) {

-            bVar1 = true;

-        }

-        if (bVar1) {

-            iVar2 = 3;

-        }

-    }

-    else {

-        iVar2 = 2;

-    }

-    return iVar2;

-}

-

-

-

-// DWARF original prototype: void Attack(TCombat * this)

-

-void __thiscall TCombat::Attack(TCombat *this)

-

-{

-    bool bVar1;

-    uchar uVar2;

-    TCreature *this_00;

-    TConnection *pTVar3;

-    int iVar4;

-    int iVar5;

-    int iVar6;

-    undefined4 *puVar7;

-    ulong *puVar8;

-    int disty;

-    TPlayer *pTVar9;

-    uint uVar10;

-    TCreature *dfd;

-    int iVar11;

-    int distx;

-    int range;

-    int distance;

-    uint local_40;

-    Object local_3c [4];

-    Object local_2c [7];

-    

-    if (this->AttackDest == 0) {

-        return;

-    }

-    if (this->Following != false) {

-        return;

-    }

-                    // try { // try from 080c44d3 to 080c495b has its CatchHandler @ 080c4961

-    this_00 = GetCreature(this->AttackDest);

-    if (this_00 == (TCreature *)0x0) {

-LAB_080c4892:

-        this->AttackDest = 0;

-        if (this->Master->Type == PLAYER) {

-            pTVar3 = this->Master->Connection;

-LAB_080c48ab:

-            SendClearTarget(pTVar3);

-        }

-LAB_080c48b3:

-        puVar7 = (undefined4 *)__cxa_allocate_exception(4);

-        *puVar7 = 0x25;

-        goto LAB_080c4776;

-    }

-    pTVar9 = (TPlayer *)this->Master;

-    if (pTVar9 == (TPlayer *)0x0) {

-        error("TCombat::CanAttack: Kein Master gesetzt!\n");

-LAB_080c478e:

-        puVar7 = (undefined4 *)__cxa_allocate_exception(4);

-        *puVar7 = 0xffffffff;

-        goto LAB_080c4776;

-    }

-    if ((this->LatestAttackTime != 0) && (this->LatestAttackTime < RoundNr)) {

-        this->AttackDest = 0;

-        if ((pTVar9->super_TCreature).Type != PLAYER) {

-            return;

-        }

-        pTVar3 = (pTVar9->super_TCreature).Connection;

-        goto LAB_080c4514;

-    }

-    if (((pTVar9->super_TCreature).Type == PLAYER) && (this_00->Type != PLAYER)) {

-        bVar1 = false;

-        if (((this_00->Outfit).OutfitID == 0) && ((this_00->Outfit).field_1.ObjectType == 0)) {

-            bVar1 = true;

-        }

-        if (!bVar1) goto LAB_080c4558;

-        this->AttackDest = 0;

-        if ((pTVar9->super_TCreature).Type == PLAYER) {

-            pTVar3 = (pTVar9->super_TCreature).Connection;

-            goto LAB_080c48ab;

-        }

-        goto LAB_080c48b3;

-    }

-LAB_080c4558:

-    if (((((pTVar9->super_TCreature).Type == PLAYER) && (this_00->Type == PLAYER)) &&

-        (this->SecureMode == '\x01')) && (WorldType == NORMAL)) {

-        bVar1 = TPlayer::IsAttackJustified(pTVar9,this_00->ID);

-        if (!bVar1) {

-            this->AttackDest = 0;

-            if (this->Master->Type == PLAYER) {

-                SendClearTarget(this->Master->Connection);

-            }

-            puVar7 = (undefined4 *)__cxa_allocate_exception(4);

-            *puVar7 = 0x3a;

-            goto LAB_080c4776;

-        }

-        pTVar9 = (TPlayer *)this->Master;

-    }

-    local_2c[0].ObjectID = (this_00->CrObject).ObjectID;

-    local_3c[0].ObjectID = (pTVar9->super_TCreature).CrObject.ObjectID;

-    iVar4 = ObjectDistance(local_3c,local_2c);

-    iVar5 = GetDistance(this);

-    if (8 < iVar4) goto LAB_080c4892;

-    pTVar9 = (TPlayer *)this->Master;

-    if (((pTVar9->super_TCreature).Type == PLAYER) && (this_00->Type == PLAYER)) {

-        uVar2 = TPlayer::GetRealProfession(pTVar9);

-        if ((uVar2 != '\0') || (bVar1 = CheckRight(this->Master->ID,ATTACK_EVERYWHERE), bVar1)) {

-            pTVar9 = (TPlayer *)this->Master;

-            goto LAB_080c45cc;

-        }

-LAB_080c4829:

-        this->AttackDest = 0;

-        if (this->Master->Type == PLAYER) {

-            SendClearTarget(this->Master->Connection);

-        }

-        puVar7 = (undefined4 *)__cxa_allocate_exception(4);

-        *puVar7 = 0x2b;

-        goto LAB_080c4776;

-    }

-LAB_080c45cc:

-    if ((pTVar9->super_TCreature).Type == PLAYER) {

-        bVar1 = CheckRight((pTVar9->super_TCreature).ID,NO_ATTACK);

-        if (bVar1) goto LAB_080c4829;

-        pTVar9 = (TPlayer *)this->Master;

-    }

-    iVar11 = (pTVar9->super_TCreature).posz;

-    iVar6 = this->Master->posy;

-    bVar1 = IsProtectionZone();

-    if (!bVar1) {

-        iVar11 = this_00->posz;

-        iVar6 = this_00->posy;

-        bVar1 = IsProtectionZone();

-        if (!bVar1) {

-            iVar11 = this->Master->posx - this_00->posx;

-            iVar6 = -iVar11;

-            if (-1 < iVar11) {

-                iVar6 = iVar11;

-            }

-            uVar10 = this->Master->posy - this_00->posy;

-            if (0x7fffffff < uVar10) {

-                uVar10 = -uVar10;

-            }

-            TCreature::BlockLogout(this->Master,0x3c,this_00->Type == PLAYER);

-            TCreature::BlockLogout(this_00,0x3c,false);

-            if (((((TPlayer *)this->Master)->super_TCreature).Type == PLAYER) &&

-               (this_00->Type == PLAYER)) {

-                TPlayer::RecordAttack((TPlayer *)this->Master,this_00->ID);

-            }

-            local_40 = ServerMilliseconds + 200;

-            puVar8 = &local_40;

-            if (ServerMilliseconds + 200 <= this->EarliestAttackTime) {

-                puVar8 = &this->EarliestAttackTime;

-            }

-            this->EarliestAttackTime = *puVar8;

-            if (iVar5 == 1) {

-                if (1 < iVar4) {

-LAB_080c4764:

-                    puVar7 = (undefined4 *)__cxa_allocate_exception(4);

-                    *puVar7 = 0x29;

-                    goto LAB_080c4776;

-                }

-                CloseAttack(this,this_00);

-            }

-            else {

-                if ((iVar5 < 1) || (3 < iVar5)) goto LAB_080c478e;

-                if ((7 < iVar6) || (5 < (int)uVar10)) goto LAB_080c4764;

-                RangeAttack(this,this_00);

-            }

-            distance = ServerMilliseconds + 2000;

-            puVar8 = (ulong *)&distance;

-            if (ServerMilliseconds + 2000 <= this->EarliestAttackTime) {

-                puVar8 = &this->EarliestAttackTime;

-            }

-            this->EarliestAttackTime = *puVar8;

-            if (this_00->IsDead == false) {

-                return;

-            }

-            this->AttackDest = 0;

-            if (this->Master->Type != PLAYER) {

-                return;

-            }

-            pTVar3 = this->Master->Connection;

-LAB_080c4514:

-            SendClearTarget(pTVar3);

-            return;

-        }

-    }

-    this->AttackDest = 0;

-    if (this->Master->Type == PLAYER) {

-        SendClearTarget(this->Master->Connection);

-    }

-    puVar7 = (undefined4 *)__cxa_allocate_exception(4,iVar6,iVar11);

-    *puVar7 = 0x2f;

-LAB_080c4776:

-                    // WARNING: Subroutine does not return

-    __cxa_throw(puVar7,&RESULT::typeinfo,0);

-}

-

-

-

-// DWARF original prototype: void SetAttackDest(TCombat * this, ulong dfd, bool Follow)

-

-void __thiscall TCombat::SetAttackDest(TCombat *this,ulong dfd,bool Follow)

-

-{

-    bool bVar1;

-    uchar uVar2;

-    TCreature *pTVar3;

-    int iVar4;

-    undefined4 *puVar5;

-    TConnection *pTVar6;

-    TPlayer *this_00;

-    int iVar7;

-    TCreature *cr;

-    Object OStack_3c;

-    bool Follow_local;

-    Object local_2c [7];

-    

-    if ((this->AttackDest == dfd) && (this->Following == Follow)) {

-        return;

-    }

-    if (dfd == 0) {

-        pTVar3 = this->Master;

-    }

-    else {

-        pTVar3 = this->Master;

-        if (dfd != pTVar3->ID) {

-                    // try { // try from 080c49be to 080c4e17 has its CatchHandler @ 080c4e52

-            pTVar3 = GetCreature(dfd);

-            if (pTVar3 == (TCreature *)0x0) {

-                this->AttackDest = 0;

-                if (this->Master->Type != PLAYER) {

-                    return;

-                }

-                pTVar6 = this->Master->Connection;

-                goto LAB_080c4e10;

-            }

-            if (Follow) {

-                this_00 = (TPlayer *)this->Master;

-            }

-            else {

-                this_00 = (TPlayer *)this->Master;

-                if (((((this_00->super_TCreature).Type == PLAYER) && (pTVar3->Type == PLAYER)) &&

-                    (this->SecureMode == '\x01')) && (WorldType == NORMAL)) {

-                    bVar1 = TPlayer::IsAttackJustified(this_00,pTVar3->ID);

-                    if (!bVar1) {

-                        this->AttackDest = 0;

-                        if (this->Master->Type == PLAYER) {

-                            SendClearTarget(this->Master->Connection);

-                        }

-                        puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-                        *puVar5 = 0x3a;

-                        goto LAB_080c4ba7;

-                    }

-                    this_00 = (TPlayer *)this->Master;

-                }

-                if (!Follow) {

-                    if ((this_00->super_TCreature).Type == PLAYER) {

-                        bVar1 = CheckRight((this_00->super_TCreature).ID,ATTACK_EVERYWHERE);

-                        if (!bVar1) {

-                            iVar4 = pTVar3->posz;

-                            iVar7 = pTVar3->posy;

-                            bVar1 = IsProtectionZone();

-                            if (!bVar1) {

-                                iVar4 = this->Master->posz;

-                                iVar7 = this->Master->posy;

-                                bVar1 = IsProtectionZone();

-                                if (!bVar1) goto LAB_080c4cec;

-                            }

-                            this->AttackDest = 0;

-                            if (this->Master->Type == PLAYER) {

-                                SendClearTarget(this->Master->Connection);

-                            }

-                            puVar5 = (undefined4 *)__cxa_allocate_exception(4,iVar7,iVar4);

-                            *puVar5 = 0x2f;

-                            goto LAB_080c4ba7;

-                        }

-LAB_080c4cec:

-                        this_00 = (TPlayer *)this->Master;

-                    }

-                    if (!Follow) {

-                        if ((this_00->super_TCreature).Type == PLAYER) {

-                            bVar1 = CheckRight((this_00->super_TCreature).ID,NO_ATTACK);

-                            if (!bVar1) {

-                                this_00 = (TPlayer *)this->Master;

-                                goto LAB_080c4a23;

-                            }

-LAB_080c4c8f:

-                            this->AttackDest = 0;

-                            if (this->Master->Type == PLAYER) {

-                                pTVar6 = this->Master->Connection;

-LAB_080c4bef:

-                                SendClearTarget(pTVar6);

-                            }

-LAB_080c4bf7:

-                            puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-                            *puVar5 = 0x2b;

-                            goto LAB_080c4ba7;

-                        }

-LAB_080c4a23:

-                        if (!Follow) {

-                            if (((this_00->super_TCreature).Type == PLAYER) &&

-                               (pTVar3->Type == PLAYER)) {

-                                uVar2 = TPlayer::GetRealProfession(this_00);

-                                if ((uVar2 == '\0') &&

-                                   (bVar1 = CheckRight(this->Master->ID,ATTACK_EVERYWHERE), !bVar1))

-                                goto LAB_080c4c8f;

-                                this_00 = (TPlayer *)this->Master;

-                            }

-                            if (!Follow) {

-                                if (WorldType == NON_PVP) {

-                                    iVar4 = (*(this_00->super_TCreature)._vptr_TCreature[4])

-                                                      (this_00);

-                                    if (((char)iVar4 == '\0') ||

-                                       (iVar4 = (*pTVar3->_vptr_TCreature[4])(pTVar3),

-                                       (char)iVar4 == '\0')) {

-LAB_080c4c1c:

-                                        this_00 = (TPlayer *)this->Master;

-                                        goto LAB_080c4a57;

-                                    }

-                                    this_00 = (TPlayer *)this->Master;

-                                    if ((this_00->super_TCreature).Type == PLAYER) {

-                                        bVar1 = CheckRight((this_00->super_TCreature).ID,

-                                                           ATTACK_EVERYWHERE);

-                                        if (bVar1) goto LAB_080c4c1c;

-                                        this_00 = (TPlayer *)this->Master;

-                                    }

-                                }

-                                else {

-LAB_080c4a57:

-                                    if ((Follow) || (pTVar3->Type != NPC)) goto LAB_080c4a6d;

-                                }

-                                this->AttackDest = 0;

-                                if ((this_00->super_TCreature).Type == PLAYER) {

-                                    pTVar6 = (this_00->super_TCreature).Connection;

-                                    goto LAB_080c4bef;

-                                }

-                                goto LAB_080c4bf7;

-                            }

-                        }

-                    }

-                }

-            }

-LAB_080c4a6d:

-            if (((this_00->super_TCreature).Type == PLAYER) && (pTVar3->Type != PLAYER)) {

-                bVar1 = false;

-                if (((pTVar3->Outfit).OutfitID == 0) && ((pTVar3->Outfit).field_1.ObjectType == 0))

-                {

-                    bVar1 = true;

-                }

-                if (!bVar1) goto LAB_080c4aa8;

-                this->AttackDest = 0;

-                if ((this_00->super_TCreature).Type == PLAYER) {

-                    pTVar6 = (this_00->super_TCreature).Connection;

-                    goto LAB_080c4b8d;

-                }

-            }

-            else {

-LAB_080c4aa8:

-                local_2c[0].ObjectID = (pTVar3->CrObject).ObjectID;

-                OStack_3c.ObjectID = (this_00->super_TCreature).CrObject.ObjectID;

-                iVar4 = ObjectDistance(&stack0xffffffc4,local_2c);

-                if (iVar4 < 9) {

-                    this->AttackDest = dfd;

-                    this->Following = Follow;

-                    if (Follow) {

-                        return;

-                    }

-                    (*pTVar3->_vptr_TCreature[10])(pTVar3,this->Master->ID);

-                    TCreature::BlockLogout(this->Master,0x3c,pTVar3->Type == PLAYER);

-                    if (((((TPlayer *)this->Master)->super_TCreature).Type == PLAYER) &&

-                       (pTVar3->Type == PLAYER)) {

-                        TPlayer::RecordAttack((TPlayer *)this->Master,pTVar3->ID);

-                    }

-                    this->LatestAttackTime = 0;

-                    return;

-                }

-                this->AttackDest = 0;

-                if (this->Master->Type == PLAYER) {

-                    pTVar6 = this->Master->Connection;

-LAB_080c4b8d:

-                    SendClearTarget(pTVar6);

-                }

-            }

-            puVar5 = (undefined4 *)__cxa_allocate_exception(4);

-            *puVar5 = 0x25;

-LAB_080c4ba7:

-                    // WARNING: Subroutine does not return

-            __cxa_throw(puVar5,&RESULT::typeinfo,0);

-        }

-    }

-    this->AttackDest = 0;

-    if (pTVar3->Type != PLAYER) {

-        return;

-    }

-    pTVar6 = pTVar3->Connection;

-LAB_080c4e10:

-    SendClearTarget(pTVar6);

-    return;

-}

-

-

-

-// DWARF original prototype: void SetAttackMode(TCombat * this, uchar b)

-

-void __thiscall TCombat::SetAttackMode(TCombat *this,uchar b)

-

-{

-    uint uVar1;

-    ulong *puVar2;

-    uint local_10;

-    

-    if ((byte)(b - 1) < 3) {

-        if (b != this->AttackMode) {

-            local_10 = ServerMilliseconds + 2000;

-            puVar2 = &local_10;

-            if (ServerMilliseconds + 2000 <= this->EarliestAttackTime) {

-                puVar2 = &this->EarliestAttackTime;

-            }

-            uVar1 = *puVar2;

-            this->AttackMode = b;

-            this->EarliestAttackTime = uVar1;

-        }

-    }

-    else {

-        error(&DAT_081073c0,b);

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void SetChaseMode(TCombat * this, uchar b)

-

-void __thiscall TCombat::SetChaseMode(TCombat *this,uchar b)

-

-{

-    if (b < 2) {

-        this->ChaseMode = b;

-        return;

-    }

-    error(&DAT_08107400);

-    return;

-}

-

-

-

-// DWARF original prototype: void SetSecureMode(TCombat * this, uchar b)

-

-void __thiscall TCombat::SetSecureMode(TCombat *this,uchar b)

-

-{

-    if (b < 2) {

-        this->SecureMode = b;

-        return;

-    }

-    error(&DAT_08107440);

-    return;

-}

-

-

-

-// DWARF original prototype: void StopAttack(TCombat * this, int Delay)

-

-void __thiscall TCombat::StopAttack(TCombat *this,int Delay)

-

-{

-    if (Delay == 0) {

-        this->AttackDest = 0;

-        if (this->Master->Type == PLAYER) {

-            SendClearTarget(this->Master->Connection);

-            return;

-        }

-    }

-    else {

-        this->LatestAttackTime = Delay + RoundNr;

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void DelayAttack(TCombat * this, int Milliseconds)

-

-void __thiscall TCombat::DelayAttack(TCombat *this,int Milliseconds)

-

-{

-    ulong *puVar1;

-    uint local_c;

-    

-    local_c = ServerMilliseconds + Milliseconds;

-    puVar1 = &local_c;

-    if (ServerMilliseconds + Milliseconds <= this->EarliestAttackTime) {

-        puVar1 = &this->EarliestAttackTime;

-    }

-    this->EarliestAttackTime = *puVar1;

-    return;

-}

-

-

-

-// DWARF original prototype: void CheckCombatValues(TCombat * this)

-

-void __thiscall TCombat::CheckCombatValues(TCombat *this)

-

-{

-    bool bVar1;

-    ulong uVar2;

-    ulong uVar3;

-    ulong uVar4;

-    ulong uVar5;

-    ulong uVar6;

-    bool bVar7;

-    ulong *puVar8;

-    uint uStack_e0;

-    bool OldFist;

-    ulong local_dc;

-    ulong local_cc;

-    ulong local_bc;

-    ulong local_ac;

-    ulong local_9c;

-    ulong local_8c;

-    ulong local_7c;

-    ulong local_6c;

-    Object OldAmmo;

-    Object OldThrow;

-    Object OldShield;

-    Object OldClose;

-    Object OldWand;

-    Object OldMissile;

-    

-    uVar2 = (this->Missile).ObjectID;

-    uVar3 = (this->Wand).ObjectID;

-    uVar4 = (this->Close).ObjectID;

-    uVar5 = (this->Shield).ObjectID;

-    uVar6 = (this->Throw).ObjectID;

-    local_6c = (this->Ammo).ObjectID;

-    bVar1 = this->Fist;

-    GetWeapon(this);

-    GetAmmo(this);

-    local_7c = (this->Missile).ObjectID;

-    bVar7 = false;

-    local_8c = local_7c;

-    if (uVar2 == local_7c) {

-        local_8c = (this->Wand).ObjectID;

-        local_9c = local_8c;

-        if (uVar3 == local_8c) {

-            local_9c = (this->Close).ObjectID;

-            local_ac = local_9c;

-            if (uVar4 == local_9c) {

-                local_ac = (this->Shield).ObjectID;

-                local_bc = local_ac;

-                if (uVar5 == local_ac) {

-                    local_bc = (this->Throw).ObjectID;

-                    local_cc = local_bc;

-                    if (uVar6 == local_bc) {

-                        local_cc = (this->Ammo).ObjectID;

-                        local_dc = local_cc;

-                        if ((local_6c == local_cc) && (bVar1 == this->Fist)) goto LAB_080c5092;

-                    }

-                }

-            }

-        }

-    }

-    bVar7 = true;

-LAB_080c5092:

-    if (bVar7) {

-        uStack_e0 = ServerMilliseconds + 2000;

-        puVar8 = &stack0xffffff20;

-        if (ServerMilliseconds + 2000 <= this->EarliestAttackTime) {

-            puVar8 = &this->EarliestAttackTime;

-        }

-        this->EarliestAttackTime = *puVar8;

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: ushort GetArmorStrength(TCombat * this)

-

-ushort __thiscall TCombat::GetArmorStrength(TCombat *this)

-

-{

-    bool bVar1;

-    uint uVar2;

-    int iVar3;

-    ulong uVar4;

-    int i;

-    ulong uVar5;

-    uint local_40;

-    ushort Value;

-    Object local_2c;

-    Object Obj;

-    

-    uVar5 = 1;

-    local_40 = 0;

-    do {

-        GetBodyObject((ulong)&local_2c,this->Master->ID);

-        bVar1 = Object::exists(&local_2c);

-        if (bVar1) {

-            Object::getObjectType((Object *)&Value);

-            bVar1 = ObjectType::getFlag((ObjectType *)&Value,CLOTHES);

-            if (bVar1) {

-                Object::getObjectType((Object *)&Value);

-                uVar4 = ObjectType::getAttribute((ObjectType *)&Value,BODYPOSITION);

-                if (uVar4 == uVar5) {

-                    Object::getObjectType((Object *)&Value);

-                    bVar1 = ObjectType::getFlag((ObjectType *)&Value,ARMOR);

-                    if (bVar1) {

-                        Object::getObjectType((Object *)&Value);

-                        uVar4 = ObjectType::getAttribute((ObjectType *)&Value,ARMORVALUE);

-                        local_40 = uVar4 + local_40 & 0xffff;

-                    }

-                }

-            }

-        }

-        uVar5 = uVar5 + 1;

-    } while ((int)uVar5 < 0xb);

-    uVar2 = (ushort)RaceData[this->Master->Race].Armor + local_40;

-    local_40 = uVar2 & 0xffff;

-    if (1 < (ushort)uVar2) {

-        iVar3 = rand();

-        local_40 = (local_40 >> 1) + iVar3 % (int)(local_40 >> 1) & 0xffff;

-    }

-    return (ushort)local_40;

-}

-

-

-

-// DWARF original prototype: void AddDamageToCombatList(TCombat * this, ulong atk, ushort Damage)

-

-void __thiscall TCombat::AddDamageToCombatList(TCombat *this,ulong atk,ushort Damage)

-

-{

-    ulong *puVar1;

-    ulong uVar2;

-    TCombat *pTVar3;

-    int iVar4;

-    int i;

-    int iVar5;

-    uint uVar6;

-    

-    uVar2 = RoundNr;

-    iVar5 = 0;

-    uVar6 = (uint)Damage;

-    this->CombatDamage = this->CombatDamage + uVar6;

-    pTVar3 = this;

-    do {

-        if (pTVar3->CombatList[0].ID == atk) {

-            puVar1 = &pTVar3->CombatList[0].Damage;

-            *puVar1 = *puVar1 + uVar6;

-            pTVar3->CombatList[0].TimeStamp = uVar2;

-            return;

-        }

-        iVar5 = iVar5 + 1;

-        pTVar3 = (TCombat *)&pTVar3->LastDefendTime;

-    } while (iVar5 < 0x14);

-    this->CombatList[this->ActCombatEntry].ID = atk;

-    this->CombatList[this->ActCombatEntry].Damage = uVar6;

-    this->CombatList[this->ActCombatEntry].TimeStamp = RoundNr;

-    iVar4 = this->ActCombatEntry + 1;

-    iVar5 = 0;

-    if (iVar4 != 0x14) {

-        iVar5 = iVar4;

-    }

-    this->ActCombatEntry = iVar5;

-    return;

-}

-

-

-

-// DWARF original prototype: void DistributeExperiencePoints(TCombat * this, ulong Exp)

-

-void __thiscall TCombat::DistributeExperiencePoints(TCombat *this,ulong Exp)

-

-{

-    TSkill *pTVar1;

-    bool bVar2;

-    TPlayer *this_00;

-    uint uVar3;

-    int iVar4;

-    uint uVar5;

-    char *pcVar6;

-    ulong uVar7;

-    ulong uVar8;

-    int iVar9;

-    int iVar10;

-    int LevelMurderer;

-    int Rest;

-    uint uVar11;

-    int Amount;

-    TCombat *pTVar12;

-    TCreature *cr;

-    char *pcVar13;

-    char *pcVar14;

-    int Interval;

-    int LevelVictim;

-    int local_30;

-    int i;

-    

-    pcVar13 = "%s ist gestorben. Verteile %ld EXP...\n";

-    pcVar14 = this->Master->Name;

-    uVar11 = Exp;

-    print();

-    if (this->CombatDamage != 0) {

-        local_30 = 0x13;

-        pTVar12 = this;

-        do {

-            this_00 = (TPlayer *)GetCreature(pTVar12->CombatList[0].ID);

-            if ((this_00 != (TPlayer *)0x0) && ((this_00->super_TCreature).IsDead == false)) {

-                uVar3 = (Exp * pTVar12->CombatList[0].Damage) / this->CombatDamage;

-                if (((((TPlayer *)this->Master)->super_TCreature).Type == PLAYER) &&

-                   ((this_00->super_TCreature).Type == PLAYER)) {

-                    pcVar13 = (char *)0x1;

-                    uVar7 = TPlayer::GetPartyLeader((TPlayer *)this->Master,true);

-                    if (uVar7 != 0) {

-                        uVar7 = TPlayer::GetPartyLeader((TPlayer *)this->Master,true);

-                        pcVar13 = (char *)0x1;

-                        uVar8 = TPlayer::GetPartyLeader(this_00,true);

-                        if (uVar7 == uVar8) goto LAB_080c536f;

-                    }

-                    iVar9 = TSkill::Get((this->Master->super_TSkillBase).Skills[0]);

-                    iVar10 = TSkill::Get((this_00->super_TCreature).super_TSkillBase.Skills[0]);

-                    iVar4 = (iVar9 * 0xb) / 10;

-                    if (iVar4 <= iVar10) goto LAB_080c536f;

-                    pcVar13 = &DAT_08107558;

-                    pcVar14 = (this_00->super_TCreature).Name;

-                    uVar3 = (int)((iVar4 - iVar10) * uVar3) / iVar9;

-                    uVar11 = uVar3;

-                    print();

-                }

-                if (uVar3 != 0) {

-                    pcVar6 = pcVar14;

-                    if ((this_00->super_TCreature).Type == PLAYER) {

-                        iVar4 = TSkill::Get((this_00->super_TCreature).super_TSkillBase.Skills[0]);

-                        pcVar6 = pcVar14;

-                        if (iVar4 <= (int)uVar3) {

-                            bVar2 = TPlayer::GetActivePromotion(this_00);

-                            uVar5 = 0x78;

-                            if (bVar2) {

-                                uVar5 = 0xf;

-                            }

-                            pcVar6 = (char *)(0xf0 / (ulonglong)(longlong)(int)uVar5);

-                            pTVar1 = (this_00->super_TCreature).super_TSkillBase.Skills[0x16];

-                            iVar4 = (*pTVar1->_vptr_TSkill[0xd])(pTVar1,pcVar13,pcVar14,uVar11);

-                            uVar11 = iVar4 % (int)uVar5;

-                            if (iVar4 % (int)uVar5 == 0) {

-                                uVar11 = uVar5;

-                            }

-                            TSkillBase::SetTimer(&(this_00->super_TCreature).super_TSkillBase);

-                        }

-                    }

-                    (*(this_00->super_TCreature).super_TSkillBase.Skills[0]->_vptr_TSkill[3])

-                              ((this_00->super_TCreature).super_TSkillBase.Skills[0],uVar3,pcVar6,

-                               uVar11);

-                    pcVar13 = (char *)0xd7;

-                    pcVar14 = "%d";

-                    TextualEffect();

-                    uVar11 = uVar3;

-                }

-            }

-LAB_080c536f:

-            pTVar12 = (TCombat *)&pTVar12->LastDefendTime;

-            local_30 = local_30 + -1;

-        } while (-1 < local_30);

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: ulong GetDamageByCreature(TCombat * this, ulong CreatureID)

-

-ulong __thiscall TCombat::GetDamageByCreature(TCombat *this,ulong CreatureID)

-

-{

-    int i;

-    int iVar1;

-    

-    iVar1 = 0;

-    do {

-        if (this->CombatList[0].ID == CreatureID) {

-            return this->CombatList[0].Damage;

-        }

-        iVar1 = iVar1 + 1;

-        this = (TCombat *)&this->LastDefendTime;

-    } while (iVar1 < 0x14);

-    return 0;

-}

-

-

-

-// DWARF original prototype: ulong GetMostDangerousAttacker(TCombat * this)

-

-ulong __thiscall TCombat::GetMostDangerousAttacker(TCombat *this)

-

-{

-    uint uVar1;

-    int i;

-    int iVar2;

-    int Limitation;

-    ulong MaximumDamage;

-    uint uVar3;

-    ulong Attacker;

-    ulong uVar4;

-    

-    iVar2 = 0x13;

-    uVar4 = 0;

-    uVar3 = 0;

-    do {

-        if (((int)(RoundNr - 0x3c) < this->CombatList[0].TimeStamp) &&

-           (uVar1 = this->CombatList[0].Damage, uVar3 < uVar1)) {

-            uVar4 = this->CombatList[0].ID;

-            uVar3 = uVar1;

-        }

-        this = (TCombat *)&this->LastDefendTime;

-        iVar2 = iVar2 + -1;

-    } while (-1 < iVar2);

-    return uVar4;

-}

-

-

-

-// DWARF original prototype: int TypeToSkill(TCombat * this, int type)

-

-int __thiscall TCombat::TypeToSkill(TCombat *this,int type)

-

-{

-    int iVar1;

-    

-    iVar1 = 0xb;

-    switch(type) {

-    case 0:

-        iVar1 = 0xb;

-        break;

-    case 1:

-        iVar1 = 8;

-        break;

-    case 2:

-        iVar1 = 9;

-        break;

-    case 3:

-        iVar1 = 10;

-        break;

-    case 4:

-        iVar1 = 6;

-        break;

-    case 5:

-    case 6:

-        iVar1 = 7;

-    }

-    return iVar1;

-}

-

-

-

-// DWARF original prototype: void GetWeapon(TCombat * this)

-

-void __thiscall TCombat::GetWeapon(TCombat *this)

-

-{

-    bool bVar1;

-    byte bVar2;

-    int iVar3;

-    ulong uVar4;

-    int local_50;

-    int Hand;

-    Object local_3c;

-    Object Obj;

-    Object local_2c [7];

-    

-    (this->Missile).ObjectID = ::NONE.ObjectID;

-    (this->Wand).ObjectID = ::NONE.ObjectID;

-    (this->Close).ObjectID = ::NONE.ObjectID;

-    (this->Shield).ObjectID = ::NONE.ObjectID;

-    (this->Throw).ObjectID = ::NONE.ObjectID;

-    local_2c[0].ObjectID = ::NONE.ObjectID;

-    (this->Ammo).ObjectID = ::NONE.ObjectID;

-    this->Fist = true;

-    local_3c.ObjectID = (this->Master->CrObject).ObjectID;

-    bVar1 = Object::exists(&local_3c);

-    if (bVar1) {

-        local_50 = 5;

-        do {

-            GetBodyObject((ulong)&local_3c,this->Master->ID);

-            local_2c[0].ObjectID = ::NONE.ObjectID;

-            if (local_3c.ObjectID != ::NONE.ObjectID) {

-                Object::getObjectType(local_2c);

-                bVar1 = ObjectType::getFlag((ObjectType *)local_2c,RESTRICTLEVEL);

-                if (bVar1) {

-                    iVar3 = TSkill::Get((this->Master->super_TSkillBase).Skills[0]);

-                    Object::getObjectType(local_2c);

-                    uVar4 = ObjectType::getAttribute((ObjectType *)local_2c,MINIMUMLEVEL);

-                    if (iVar3 < (int)uVar4) goto LAB_080c5626;

-                }

-                Object::getObjectType(local_2c);

-                bVar1 = ObjectType::getFlag((ObjectType *)local_2c,RESTRICTPROFESSION);

-                if ((bVar1) && (this->Master->Type == PLAYER)) {

-                    Object::getObjectType(local_2c);

-                    uVar4 = ObjectType::getAttribute((ObjectType *)local_2c,PROFESSIONS);

-                    bVar2 = TPlayer::GetEffectiveProfession((TPlayer *)this->Master);

-                    if ((1 << (bVar2 & 0x1f) & uVar4) == 0) goto LAB_080c5626;

-                }

-                Object::getObjectType(local_2c);

-                bVar1 = ObjectType::getFlag((ObjectType *)local_2c,SHIELD);

-                if (bVar1) {

-                    Hand = local_3c.ObjectID;

-                    (this->Shield).ObjectID = local_3c.ObjectID;

-                    local_2c[0].ObjectID = local_3c.ObjectID;

-                }

-                Object::getObjectType((Object *)&Hand);

-                bVar1 = ObjectType::getFlag((ObjectType *)&Hand,BOW);

-                if (bVar1) {

-                    local_2c[0].ObjectID = local_3c.ObjectID;

-                    (this->Missile).ObjectID = local_3c.ObjectID;

-                    Hand = local_3c.ObjectID;

-                    this->Fist = false;

-                }

-                Object::getObjectType((Object *)&Hand);

-                bVar1 = ObjectType::getFlag((ObjectType *)&Hand,WAND);

-                if (bVar1) {

-                    local_2c[0].ObjectID = local_3c.ObjectID;

-                    (this->Wand).ObjectID = local_3c.ObjectID;

-                    Hand = local_3c.ObjectID;

-                    this->Fist = false;

-                }

-                Object::getObjectType((Object *)&Hand);

-                bVar1 = ObjectType::getFlag((ObjectType *)&Hand,THROW);

-                if (bVar1) {

-                    local_2c[0].ObjectID = local_3c.ObjectID;

-                    (this->Throw).ObjectID = local_3c.ObjectID;

-                    Hand = local_3c.ObjectID;

-                    this->Fist = false;

-                }

-                Object::getObjectType((Object *)&Hand);

-                bVar1 = ObjectType::getFlag((ObjectType *)&Hand,WEAPON);

-                if (bVar1) {

-                    Hand = local_3c.ObjectID;

-                    (this->Close).ObjectID = local_3c.ObjectID;

-                    this->Fist = false;

-                    local_2c[0].ObjectID = Hand;

-                }

-            }

-LAB_080c5626:

-            local_50 = local_50 + 1;

-        } while (local_50 < 7);

-    }

-    else {

-        error("TCombat::GetWeapon: Kreatur-Objekt existiert nicht.\n");

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void GetAmmo(TCombat * this)

-

-void __thiscall TCombat::GetAmmo(TCombat *this)

-

-{

-    bool bVar1;

-    bool bVar2;

-    ulong uVar3;

-    ulong uVar4;

-    Object local_4c [4];

-    Object local_3c [4];

-    ulong local_2c;

-    

-    local_2c = ::NONE.ObjectID;

-    local_3c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Missile).ObjectID == ::NONE.ObjectID) {

-        uVar3 = (this->Throw).ObjectID;

-        if (uVar3 != ::NONE.ObjectID) {

-            (this->Ammo).ObjectID = uVar3;

-            return;

-        }

-        uVar3 = (this->Wand).ObjectID;

-        if (uVar3 == ::NONE.ObjectID) {

-            return;

-        }

-        (this->Ammo).ObjectID = uVar3;

-        return;

-    }

-    GetBodyObject((ulong)local_4c,this->Master->ID);

-    (this->Ammo).ObjectID = local_4c[0].ObjectID;

-    bVar1 = false;

-    local_4c[0].ObjectID = ::NONE.ObjectID;

-    local_3c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Ammo).ObjectID != ::NONE.ObjectID) {

-        Object::getObjectType(local_3c);

-        bVar2 = ObjectType::getFlag((ObjectType *)local_3c,AMMO);

-        if (bVar2) {

-            Object::getObjectType(local_3c);

-            uVar3 = ObjectType::getAttribute((ObjectType *)local_3c,AMMOTYPE);

-            Object::getObjectType(local_3c);

-            uVar4 = ObjectType::getAttribute((ObjectType *)local_3c,BOWAMMOTYPE);

-            if (uVar3 == uVar4) goto LAB_080c58ea;

-        }

-        bVar1 = true;

-    }

-LAB_080c58ea:

-    if (bVar1) {

-        (this->Ammo).ObjectID = ::NONE.ObjectID;

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void CloseAttack(TCombat * this, TCreature * dfd)

-

-void __thiscall TCombat::CloseAttack(TCombat *this,TCreature *dfd)

-

-{

-    TSkill *pTVar1;

-    bool bVar2;

-    bool bVar3;

-    short sVar4;

-    int Poison;

-    int iVar5;

-    int iVar6;

-    long Damage_00;

-    ulong uVar7;

-    int Damage;

-    int Attack;

-    int iVar8;

-    int Defend;

-    Object local_4c [4];

-    ulong local_3c;

-    ushort local_20;

-    short local_1e;

-    ushort Type;

-    short Value;

-    

-                    // try { // try from 080c59a6 to 080c5bf2 has its CatchHandler @ 080c5c88

-    GetAttackValue(this);

-    pTVar1 = (this->Master->super_TSkillBase).Skills[local_20];

-    if (this->AttackMode == '\x01') {

-        local_1e = (short)((local_1e * 2) / 10) + local_1e;

-    }

-    else if (this->AttackMode == '\x03') {

-        local_1e = local_1e - (short)((local_1e * 4) / 10);

-    }

-    iVar5 = (*pTVar1->_vptr_TSkill[8])(pTVar1,(int)local_1e,(uint)(0 < this->LearningPoints));

-    local_1e = (short)iVar5;

-    if (0 < this->LearningPoints) {

-        this->LearningPoints = this->LearningPoints + -1;

-    }

-    iVar8 = (int)local_1e;

-    sVar4 = GetDefendDamage(&dfd->Combat);

-    iVar5 = iVar8 - sVar4;

-    if (iVar5 < 0) {

-        iVar5 = 0;

-    }

-    iVar5 = TCreature::Damage(dfd,this->Master,iVar5,1);

-    if (0 < iVar5) {

-        this->LearningPoints = 0x1e;

-    }

-    iVar6 = GetRacePoison(this->Master->Race);

-    if ((iVar6 != 0) &&

-       ((0 < iVar5 || ((sVar4 < iVar8 && (iVar5 = rand(), iVar5 == (iVar5 / 5) * 5)))))) {

-        GetRacePoison(this->Master->Race);

-        GetRacePoison(this->Master->Race);

-        Damage_00 = random();

-        if ((0 < Damage_00) &&

-           (TCreature::Damage(dfd,this->Master,Damage_00,0x20), dfd->Type == PLAYER)) {

-            SendMessage(dfd->Connection,0x15,"You are poisoned.");

-        }

-    }

-    bVar2 = false;

-    local_3c = ::NONE.ObjectID;

-    local_4c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Close).ObjectID != ::NONE.ObjectID) {

-        Object::getObjectType(local_4c);

-        bVar3 = ObjectType::getFlag((ObjectType *)local_4c,WEAROUT);

-        if (bVar3) {

-            bVar2 = true;

-        }

-    }

-    if (bVar2) {

-        uVar7 = Object::getAttribute(&this->Close,REMAININGUSES);

-        if (uVar7 < 2) {

-            Object::getObjectType((Object *)&Defend);

-            uVar7 = ObjectType::getAttribute((ObjectType *)&Defend,WEAROUTTARGET);

-            ObjectType::setTypeID((ObjectType *)local_4c,uVar7);

-            Defend = (this->Close).ObjectID;

-            Change((Object *)&Defend,(ObjectType *)local_4c,0);

-            CheckCombatValues(this);

-        }

-        else {

-            uVar7 = Object::getAttribute(&this->Close,REMAININGUSES);

-            local_4c[0].ObjectID = (this->Close).ObjectID;

-            Change(local_4c,REMAININGUSES,uVar7 - 1);

-        }

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void RangeAttack(TCombat * this, TCreature * dfd)

-

-void __thiscall TCombat::RangeAttack(TCombat *this,TCreature *dfd)

-

-{

-    TSkill *pTVar1;

-    Object OVar2;

-    bool bVar3;

-    bool bVar4;

-    int Damage;

-    int iVar5;

-    ulong uVar6;

-    uint uVar7;

-    long lVar8;

-    undefined4 *puVar9;

-    ulong uVar10;

-    ulong uVar11;

-    int *piVar12;

-    RESULT r;

-    int Attack;

-    Object *this_00;

-    TYPEATTRIBUTE Attribute;

-    undefined4 uVar13;

-    char local_f1;

-    ulong uStack_f0;

-    bool Hit;

-    int EffectStrength;

-    int SpecialEffect;

-    int Fragility;

-    int AnimType;

-    int DamageType;

-    int DiffLvl;

-    int local_d4;

-    int local_d0;

-    int x;

-    int y;

-    int z;

-    int local_c0;

-    int local_bc;

-    int local_b8;

-    int local_b4;

-    int local_b0;

-    undefined1 local_ac [4];

-    TDamageImpact Impact;

-    ushort local_80;

-    short local_7e;

-    ushort Type;

-    short Value;

-    Object local_6c [4];

-    Object local_5c [4];

-    Object local_4c [4];

-    ulong local_3c;

-    ulong local_2c;

-    Object Drop;

-    

-    local_2c = 0;

-    local_3c = ::NONE.ObjectID;

-    local_5c[0].ObjectID = (this->Wand).ObjectID;

-    if (local_5c[0].ObjectID == ::NONE.ObjectID) {

-        local_5c[0].ObjectID = ::NONE.ObjectID;

-        local_4c[0].ObjectID = ::NONE.ObjectID;

-        if ((this->Missile).ObjectID == ::NONE.ObjectID) {

-            _Type = ::NONE.ObjectID;

-            this_00 = local_6c;

-            local_6c[0].ObjectID = ::NONE.ObjectID;

-            uVar6 = (this->Throw).ObjectID;

-            if (uVar6 == ::NONE.ObjectID) {

-                puVar9 = (undefined4 *)__cxa_allocate_exception(4);

-                *puVar9 = 0xffffffff;

-                goto LAB_080c66b1;

-            }

-            DamageType = 0x4b;

-            (this->Ammo).ObjectID = uVar6;

-            iVar5 = this->Master->posx - dfd->posx;

-            local_c0 = -iVar5;

-            if (-1 < iVar5) {

-                local_c0 = iVar5;

-            }

-            iVar5 = this->Master->posy - dfd->posy;

-            z = -iVar5;

-            if (-1 < iVar5) {

-                z = iVar5;

-            }

-            piVar12 = &z;

-            if (z <= local_c0) {

-                piVar12 = &local_c0;

-            }

-            local_6c[0].ObjectID = uVar6;

-            local_4c[0].ObjectID = uVar6;

-                    // try { // try from 080c5d84 to 080c5edd has its CatchHandler @ 080c6b00

-            Object::getObjectType(this_00);

-            uVar6 = ObjectType::getAttribute((ObjectType *)this_00,THROWRANGE);

-            if ((int)uVar6 < *piVar12) goto LAB_080c66c9;

-            Object::getObjectType(this_00);

-            Fragility = ObjectType::getAttribute((ObjectType *)this_00,THROWMISSILE);

-            Object::getObjectType(this_00);

-            SpecialEffect = ObjectType::getAttribute((ObjectType *)this_00,THROWFRAGILITY);

-            Object::getObjectType(this_00);

-            EffectStrength = ObjectType::getAttribute((ObjectType *)this_00,THROWSPECIALEFFECT);

-            Object::getObjectType(this_00);

-            Attribute = THROWEFFECTSTRENGTH;

-        }

-        else {

-            uVar13 = 10;

-            DamageType = 0x5a;

-            uVar6 = this->Master->ID;

-            GetBodyObject((ulong)local_6c,uVar6);

-            (this->Ammo).ObjectID = local_6c[0].ObjectID;

-            bVar3 = false;

-            local_6c[0].ObjectID = ::NONE.ObjectID;

-            local_4c[0].ObjectID = ::NONE.ObjectID;

-            if ((this->Ammo).ObjectID != ::NONE.ObjectID) {

-                Object::getObjectType(local_4c);

-                uVar6 = 0x3c;

-                bVar4 = ObjectType::getFlag((ObjectType *)local_4c,AMMO);

-                if (bVar4) {

-                    Object::getObjectType(local_4c);

-                    uVar10 = ObjectType::getAttribute((ObjectType *)local_4c,AMMOTYPE);

-                    Object::getObjectType(local_4c);

-                    uVar6 = 0x27;

-                    uVar11 = ObjectType::getAttribute((ObjectType *)local_4c,BOWAMMOTYPE);

-                    if (uVar10 == uVar11) goto LAB_080c6742;

-                }

-                bVar3 = true;

-            }

-LAB_080c6742:

-            OVar2.ObjectID = ::NONE.ObjectID;

-            if (bVar3) {

-                _Type = ::NONE.ObjectID;

-                (this->Ammo).ObjectID = ::NONE.ObjectID;

-                local_4c[0].ObjectID = OVar2.ObjectID;

-            }

-            bVar3 = Object::exists(&this->Ammo);

-            if (!bVar3) {

-                puVar9 = (undefined4 *)__cxa_allocate_exception(4,uVar6,uVar13);

-                *puVar9 = 0x26;

-                goto LAB_080c66b1;

-            }

-            iVar5 = this->Master->posx - dfd->posx;

-            local_b8 = -iVar5;

-            if (-1 < iVar5) {

-                local_b8 = iVar5;

-            }

-            iVar5 = this->Master->posy - dfd->posy;

-            local_bc = -iVar5;

-            if (-1 < iVar5) {

-                local_bc = iVar5;

-            }

-            piVar12 = &local_bc;

-            if (local_bc <= local_b8) {

-                piVar12 = &local_b8;

-            }

-            Object::getObjectType((Object *)&Type);

-            uVar6 = ObjectType::getAttribute((ObjectType *)&Type,BOWRANGE);

-            if ((int)uVar6 < *piVar12) goto LAB_080c66c9;

-            Object::getObjectType((Object *)&Type);

-            Fragility = ObjectType::getAttribute((ObjectType *)&Type,AMMOMISSILE);

-            SpecialEffect = 100;

-            Object::getObjectType((Object *)&Type);

-            EffectStrength = ObjectType::getAttribute((ObjectType *)&Type,AMMOSPECIALEFFECT);

-            Object::getObjectType((Object *)&Type);

-            this_00 = (Object *)&Type;

-            Attribute = AMMOEFFECTSTRENGTH;

-        }

-        AnimType = 1;

-        uStack_f0 = ObjectType::getAttribute((ObjectType *)this_00,Attribute);

-    }

-    else {

-        DamageType = 0;

-        (this->Ammo).ObjectID = local_5c[0].ObjectID;

-        iVar5 = this->Master->posx - dfd->posx;

-        local_b0 = -iVar5;

-        if (-1 < iVar5) {

-            local_b0 = iVar5;

-        }

-        iVar5 = this->Master->posy - dfd->posy;

-        local_b4 = -iVar5;

-        if (-1 < iVar5) {

-            local_b4 = iVar5;

-        }

-        piVar12 = &local_b4;

-        if (local_b4 <= local_b0) {

-            piVar12 = &local_b0;

-        }

-        local_4c[0].ObjectID = local_5c[0].ObjectID;

-        Object::getObjectType(local_5c);

-        uVar6 = ObjectType::getAttribute((ObjectType *)local_5c,WANDRANGE);

-        if ((int)uVar6 < *piVar12) {

-LAB_080c66c9:

-            puVar9 = (undefined4 *)__cxa_allocate_exception(4);

-            *puVar9 = 0x29;

-            goto LAB_080c66b1;

-        }

-        Object::getObjectType(local_5c);

-        AnimType = ObjectType::getAttribute((ObjectType *)local_5c,WANDDAMAGETYPE);

-        Object::getObjectType(local_5c);

-        Fragility = ObjectType::getAttribute((ObjectType *)local_5c,WANDMISSILE);

-        SpecialEffect = 0;

-        EffectStrength = 0;

-        uStack_f0 = 0;

-    }

-    _Type = (dfd->CrObject).ObjectID;

-    GetObjectCoordinates((Object *)&Type,&local_d0,&x,&y);

-    bVar3 = ThrowPossible(this->Master->posx,this->Master->posy,this->Master->posz,local_d0,x,y,0);

-    if (!bVar3) {

-        puVar9 = (undefined4 *)__cxa_allocate_exception(4);

-        *puVar9 = 0x2a;

-LAB_080c66b1:

-                    // WARNING: Subroutine does not return

-        __cxa_throw(puVar9,&RESULT::typeinfo,0);

-    }

-    _Type = ::NONE.ObjectID;

-    local_6c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Wand).ObjectID == ::NONE.ObjectID) {

-        iVar5 = this->Master->posx - dfd->posx;

-        local_d4 = -iVar5;

-        if (-1 < iVar5) {

-            local_d4 = iVar5;

-        }

-        iVar5 = this->Master->posy - dfd->posy;

-        DiffLvl = -iVar5;

-        if (-1 < iVar5) {

-            DiffLvl = iVar5;

-        }

-        piVar12 = &DiffLvl;

-        if (DiffLvl <= local_d4) {

-            piVar12 = &local_d4;

-        }

-        iVar5 = *piVar12;

-        if (iVar5 < 2) {

-            iVar5 = 5;

-        }

-        iVar5 = (*(this->Master->super_TSkillBase).Skills[7]->_vptr_TSkill[9])

-                          ((this->Master->super_TSkillBase).Skills[7],iVar5 * 0xf,DamageType,

-                           (uint)(0 < this->LearningPoints));

-        local_f1 = (char)iVar5;

-        if (0 < this->LearningPoints) {

-            this->LearningPoints = this->LearningPoints + -1;

-        }

-    }

-    else {

-                    // try { // try from 080c5f0a to 080c5f42 has its CatchHandler @ 080c6a3c

-        Object::getObjectType(local_6c);

-        uVar6 = ObjectType::getAttribute((ObjectType *)local_6c,WANDMANACONSUMPTION);

-        CheckMana(this->Master,uVar6,0,0);

-        local_f1 = '\x01';

-    }

-    _Type = ::NONE.ObjectID;

-    local_6c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Wand).ObjectID == ::NONE.ObjectID) {

-        if (local_f1 != '\0') {

-            local_4c[0].ObjectID = (dfd->CrObject).ObjectID;

-            GetMapContainer(local_5c);

-            local_2c = local_5c[0].ObjectID;

-            local_6c[0].ObjectID = local_5c[0].ObjectID;

-            GetObjectCoordinates(local_6c,&local_d0,&x,&y);

-            GetAttackValue(this);

-            pTVar1 = (this->Master->super_TSkillBase).Skills[local_80];

-            if (this->AttackMode == '\x01') {

-                local_7e = (short)((local_7e * 2) / 10) + local_7e;

-            }

-            else if (this->AttackMode == '\x03') {

-                local_7e = local_7e - (short)(((int)local_7e << 2) / 10);

-            }

-            iVar5 = (*pTVar1->_vptr_TSkill[8])

-                              (pTVar1,(int)local_7e,(uint)(0 < this->LearningPoints));

-            if (0 < this->LearningPoints) {

-                this->LearningPoints = this->LearningPoints + -1;

-            }

-            local_6c[0].ObjectID = ::NONE.ObjectID;

-            local_5c[0].ObjectID = ::NONE.ObjectID;

-            if ((this->Shield).ObjectID != ::NONE.ObjectID) {

-                GetDefendDamage(&dfd->Combat);

-            }

-            iVar5 = TCreature::Damage(dfd,this->Master,(int)(short)iVar5,AnimType);

-            if (0 < iVar5) {

-                this->LearningPoints = 0x1e;

-            }

-            goto LAB_080c60be;

-        }

-        local_6c[0].ObjectID = (dfd->CrObject).ObjectID;

-                    // try { // try from 080c5f9b to 080c60ea has its CatchHandler @ 080c6b00

-        GetObjectCoordinates(local_6c,&local_d0,&x,&y);

-        uVar7 = this->Master->posx - dfd->posx;

-        if (0x7fffffff < uVar7) {

-            uVar7 = -uVar7;

-        }

-        if ((int)uVar7 < 2) {

-            uVar7 = this->Master->posy - dfd->posy;

-            if (0x7fffffff < uVar7) {

-                uVar7 = -uVar7;

-            }

-            if (1 < (int)uVar7) goto LAB_080c5fc4;

-        }

-        else {

-LAB_080c5fc4:

-            iVar5 = rand();

-            local_d0 = iVar5 % 3 + local_d0 + -1;

-            iVar5 = rand();

-            x = iVar5 % 3 + x + -1;

-        }

-        bVar3 = false;

-        bVar4 = CoordinateFlag();

-        if (bVar4) {

-            bVar3 = CoordinateFlag();

-            bVar3 = !bVar3;

-        }

-        if ((!bVar3) ||

-           (bVar3 = ThrowPossible(this->Master->posx,this->Master->posy,this->Master->posz,local_d0,

-                                  x,y,0), !bVar3)) {

-            local_d0 = dfd->posx;

-            x = dfd->posy;

-            y = dfd->posz;

-        }

-        GetMapContainer((int)local_5c,local_d0,x);

-    }

-    else {

-        Object::getObjectType(local_6c);

-        uVar6 = ObjectType::getAttribute((ObjectType *)local_6c,WANDATTACKSTRENGTH);

-        Object::getObjectType(local_6c);

-        ObjectType::getAttribute((ObjectType *)local_6c,WANDATTACKVARIATION);

-        Object::getObjectType(local_6c);

-        ObjectType::getAttribute((ObjectType *)local_6c,WANDATTACKVARIATION);

-        lVar8 = random();

-        iVar5 = TCreature::Damage(dfd,this->Master,lVar8 + uVar6,AnimType);

-        if (0 < iVar5) {

-            this->LearningPoints = 0x1e;

-        }

-        local_4c[0].ObjectID = (dfd->CrObject).ObjectID;

-        GetMapContainer(local_5c);

-    }

-    local_2c = local_5c[0].ObjectID;

-LAB_080c60be:

-    _Type = local_2c;

-    local_6c[0].ObjectID = (this->Master->CrObject).ObjectID;

-    Missile(local_6c,(Object *)&Type,Fragility);

-    if (EffectStrength == 1) {

-        if (local_f1 != '\0') {

-            TCreature::Damage(dfd,this->Master,uStack_f0,0x20);

-        }

-    }

-    else if (EffectStrength == 2) {

-                    // try { // try from 080c61e3 to 080c6a18 has its CatchHandler @ 080c6b00

-        iVar5 = ComputeDamage(this->Master,0,uStack_f0,uStack_f0);

-        TDamageImpact::TDamageImpact((TDamageImpact *)local_ac,this->Master,1,iVar5,false);

-        _Type = local_2c;

-        GetObjectCoordinates((Object *)&Type,&local_d0,&x,&y);

-        CircleShapeSpell(this->Master,local_d0,x,y,0x7fffffff,0,2,(TImpact *)local_ac,7);

-    }

-    _Type = ::NONE.ObjectID;

-    if ((this->Wand).ObjectID == ::NONE.ObjectID) {

-                    // try { // try from 080c6129 to 080c614e has its CatchHandler @ 080c6aab

-        lVar8 = random();

-        if (lVar8 < SpecialEffect) {

-            local_6c[0].ObjectID = (this->Ammo).ObjectID;

-            Delete(local_6c,1);

-        }

-        else {

-            local_6c[0].ObjectID = ::NONE.ObjectID;

-            local_5c[0].ObjectID = local_2c;

-            local_4c[0].ObjectID = (this->Ammo).ObjectID;

-                    // try { // try from 080c61c1 to 080c61c5 has its CatchHandler @ 080c6aab

-            Move(0,local_4c,local_5c,1,false,local_6c);

-        }

-        if (local_f1 == '\0') {

-                    // try { // try from 080c617d to 080c6181 has its CatchHandler @ 080c6b00

-            GraphicalEffect();

-        }

-    }

-    return;

-}

-

-

-

-// DWARF original prototype: void GetAttackValue(TCombat * this, short * Value, ushort * Skill)

-

-void __thiscall TCombat::GetAttackValue(TCombat *this)

-

-{

-    ulong uVar1;

-    undefined2 uVar2;

-    Object *this_00;

-    ushort Type;

-    uint uVar3;

-    undefined2 *in_stack_00000008;

-    undefined2 *in_stack_0000000c;

-    TYPEATTRIBUTE Attribute;

-    Object local_6c [4];

-    ulong local_5c;

-    Object local_4c [4];

-    Object local_3c [4];

-    ulong local_2c;

-    

-    this_00 = local_3c;

-    *in_stack_00000008 = 0;

-    local_2c = ::NONE.ObjectID;

-    local_3c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Close).ObjectID == ::NONE.ObjectID) {

-        this_00 = local_4c;

-        local_4c[0].ObjectID = ::NONE.ObjectID;

-        if ((this->Throw).ObjectID != ::NONE.ObjectID) {

-            uVar3 = 6;

-            Object::getObjectType(this_00);

-            Attribute = THROWATTACKVALUE;

-            goto LAB_080c6c20;

-        }

-        if ((this->Wand).ObjectID != ::NONE.ObjectID) {

-            uVar3 = 0;

-            *in_stack_00000008 = 0;

-            goto LAB_080c6b79;

-        }

-        local_5c = ::NONE.ObjectID;

-        this_00 = local_6c;

-        local_6c[0].ObjectID = ::NONE.ObjectID;

-        if ((this->Missile).ObjectID != ::NONE.ObjectID) {

-            Object::getObjectType(this_00);

-            Attribute = AMMOATTACKVALUE;

-            uVar3 = 5;

-            goto LAB_080c6c20;

-        }

-        uVar3 = 0;

-        uVar2 = (undefined2)RaceData[this->Master->Race].Attack;

-    }

-    else {

-        Object::getObjectType(this_00);

-        uVar1 = ObjectType::getAttribute((ObjectType *)this_00,WEAPONTYPE);

-        uVar3 = uVar1 & 0xffff;

-        Object::getObjectType(this_00);

-        Attribute = WEAPONATTACKVALUE;

-LAB_080c6c20:

-        uVar1 = ObjectType::getAttribute((ObjectType *)this_00,Attribute);

-        uVar2 = (undefined2)uVar1;

-    }

-    *in_stack_00000008 = uVar2;

-LAB_080c6b79:

-    uVar2 = 0xb;

-    switch(uVar3) {

-    case 0:

-        uVar2 = 0xb;

-        break;

-    case 1:

-        uVar2 = 8;

-        break;

-    case 2:

-        uVar2 = 9;

-        break;

-    case 3:

-        uVar2 = 10;

-        break;

-    case 4:

-        uVar2 = 6;

-        break;

-    case 5:

-    case 6:

-        uVar2 = 7;

-    }

-    *in_stack_0000000c = uVar2;

-    return;

-}

-

-

-

-// DWARF original prototype: void GetDefendValue(TCombat * this, short * Value, ushort * Skill)

-

-void __thiscall TCombat::GetDefendValue(TCombat *this)

-

-{

-    ulong uVar1;

-    undefined2 uVar2;

-    Object *this_00;

-    ushort Type;

-    uint uVar3;

-    undefined2 *in_stack_00000008;

-    undefined2 *in_stack_0000000c;

-    TYPEATTRIBUTE Attribute;

-    Object local_5c [4];

-    Object local_4c [4];

-    Object local_3c [4];

-    ulong local_2c;

-    

-    this_00 = local_3c;

-    *in_stack_00000008 = 0;

-    local_2c = ::NONE.ObjectID;

-    local_3c[0].ObjectID = ::NONE.ObjectID;

-    if ((this->Shield).ObjectID == ::NONE.ObjectID) {

-        this_00 = local_4c;

-        local_4c[0].ObjectID = ::NONE.ObjectID;

-        if ((this->Close).ObjectID != ::NONE.ObjectID) {

-            Object::getObjectType(this_00);

-            uVar1 = ObjectType::getAttribute((ObjectType *)this_00,WEAPONTYPE);

-            uVar3 = uVar1 & 0xffff;

-            Object::getObjectType(this_00);

-            Attribute = WEAPONDEFENDVALUE;

-            goto LAB_080c6d9c;

-        }

-        this_00 = local_5c;

-        local_5c[0].ObjectID = ::NONE.ObjectID;

-        if ((this->Throw).ObjectID != ::NONE.ObjectID) {

-            uVar3 = 6;

-            Object::getObjectType(this_00);

-            Attribute = THROWDEFENDVALUE;

-            goto LAB_080c6d9c;

-        }

-        if ((this->Missile).ObjectID != ::NONE.ObjectID) {

-            uVar3 = 5;

-            *in_stack_00000008 = 0;

-            goto LAB_080c6d01;

-        }

-        uVar3 = 0;

-        uVar2 = (undefined2)RaceData[this->Master->Race].Defend;

-    }

-    else {

-        uVar3 = 4;

-        Object::getObjectType(this_00);

-        Attribute = SHIELDDEFENDVALUE;

-LAB_080c6d9c:

-        uVar1 = ObjectType::getAttribute((ObjectType *)this_00,Attribute);

-        uVar2 = (undefined2)uVar1;

-    }

-    *in_stack_00000008 = uVar2;

-LAB_080c6d01:

-    uVar2 = 0xb;

-    switch(uVar3) {

-    case 0:

-        uVar2 = 0xb;

-        break;

-    case 1:

-        uVar2 = 8;

-        break;

-    case 2:

-        uVar2 = 9;

-        break;

-    case 3:

-        uVar2 = 10;

-        break;

-    case 4:

-        uVar2 = 6;

-        break;

-    case 5:

-    case 6:

-        uVar2 = 7;

-    }

-    *in_stack_0000000c = uVar2;

-    return;

-}

-

-

-

-// WARNING: Variable defined which should be unmapped: Type

-// DWARF original prototype: short GetAttackDamage(TCombat * this)

-

-short __thiscall TCombat::GetAttackDamage(TCombat *this)

-

-{

-    TSkill *pTVar1;

-    int iVar2;

-    TSkill *sk;

-    ushort local_14;

-    short local_12;

-    ushort Type;

-    short Value;

-    

-    GetAttackValue(this);

-    pTVar1 = (this->Master->super_TSkillBase).Skills[local_14];

-    if (this->AttackMode == '\x01') {

-        local_12 = (short)((local_12 * 2) / 10) + local_12;

-    }

-    else if (this->AttackMode == '\x03') {

-        local_12 = local_12 - (short)((local_12 * 4) / 10);

-    }

-    iVar2 = (*pTVar1->_vptr_TSkill[8])(pTVar1,(int)local_12,(uint)(0 < this->LearningPoints));

-    if (0 < this->LearningPoints) {

-        this->LearningPoints = this->LearningPoints + -1;

-    }

-    return (short)iVar2;

-}

-

-

-

-// DWARF original prototype: short GetDefendDamage(TCombat * this)

-

-short __thiscall TCombat::GetDefendDamage(TCombat *this)

-

-{

-    Object *this_00;

-    TSkill *pTVar1;

-    short sVar2;

-    uchar Tac;

-    uchar uVar3;

-    bool bVar4;

-    bool bVar5;

-    int iVar6;

-    ulong uVar7;

-    undefined4 uVar8;

-    TSkill *sk;

-    Object local_5c [4];

-    ulong local_4c;

-    Object local_3c [7];

-    undefined4 local_20;

-    ushort Type;

-    short Value;

-    

-    if (ServerMilliseconds < this->EarliestDefendTime) {

-        return 0;

-    }

-    this->EarliestDefendTime = this->LastDefendTime + 2000;

-    this->LastDefendTime = ServerMilliseconds;

-    GetDefendValue(this);

-    pTVar1 = (this->Master->super_TSkillBase).Skills[local_20 & 0xffff];

-    if (((this->Following == false) && (this->AttackDest != 0)) ||

-       (ServerMilliseconds < this->EarliestAttackTime)) {

-        uVar3 = this->AttackMode;

-    }

-    else {

-        uVar3 = '\x03';

-    }

-    sVar2 = (short)local_20;

-    if (uVar3 == '\x01') {

-        local_20 = CONCAT22(local_20._2_2_ - (short)(((int)local_20._2_2_ << 2) / 10),

-                            (short)local_20);

-    }

-    else if (uVar3 == '\x03') {

-        local_20 = CONCAT22((short)(((int)local_20._2_2_ << 3) / 10) + local_20._2_2_,

-                            (short)local_20);

-    }

-    if (sVar2 != 0) {

-        uVar8 = 0;

-        local_3c[0].ObjectID = ::NONE.ObjectID;

-        local_4c = ::NONE.ObjectID;

-        if (((this->Shield).ObjectID != ::NONE.ObjectID) && (0 < this->LearningPoints)) {

-            uVar8 = 1;

-        }

-        iVar6 = (*pTVar1->_vptr_TSkill[8])(pTVar1,(int)local_20._2_2_,uVar8);

-        bVar4 = false;

-        local_20 = CONCAT22((short)iVar6,(short)local_20);

-        uVar7 = (this->Shield).ObjectID;

-        if ((uVar7 != ::NONE.ObjectID) && (0 < this->LearningPoints)) {

-            bVar4 = true;

-        }

-        if (bVar4) {

-            this->LearningPoints = this->LearningPoints + -1;

-        }

-        bVar4 = false;

-        this_00 = &this->Shield;

-        local_4c = ::NONE.ObjectID;

-        local_3c[0].ObjectID = ::NONE.ObjectID;

-        if (uVar7 != ::NONE.ObjectID) {

-            Object::getObjectType(local_3c);

-            bVar5 = ObjectType::getFlag((ObjectType *)local_3c,WEAROUT);

-            if (bVar5) {

-                bVar4 = true;

-            }

-        }

-        if (bVar4) {

-            uVar7 = Object::getAttribute(this_00,REMAININGUSES);

-            if (uVar7 < 2) {

-                Object::getObjectType(local_5c);

-                uVar7 = ObjectType::getAttribute((ObjectType *)local_5c,WEAROUTTARGET);

-                ObjectType::setTypeID((ObjectType *)local_3c,uVar7);

-                local_5c[0].ObjectID = (this->Shield).ObjectID;

-                Change(local_5c,(ObjectType *)local_3c,0);

-                bVar4 = Object::exists(this_00);

-                if (bVar4) {

-                    Object::getObjectType(local_5c);

-                    bVar4 = ObjectType::getFlag((ObjectType *)local_5c,SHIELD);

-                    if (bVar4) goto LAB_080c7009;

-                }

-                CheckCombatValues(this);

-            }

-            else {

-                uVar7 = Object::getAttribute(this_00,REMAININGUSES);

-                local_3c[0].ObjectID = (this->Shield).ObjectID;

-                Change(local_3c,REMAININGUSES,uVar7 - 1);

-            }

-        }

-    }

-LAB_080c7009:

-    return local_20._2_2_;

-}

-

-

-

-// DWARF original prototype: void ActivateLearning(TCombat * this)

-

-void __thiscall TCombat::ActivateLearning(TCombat *this)

-

-{

-    this->LearningPoints = 0x1e;

-    return;

-}

-

-

-

 // WARNING: Unknown calling convention -- yet parameter storage is locked

 

 void _GLOBAL__I__ZN7TCombatC2Ev(void)

@@ -85164,4 +82894,3 @@ void _fini(void)
     return;

 }

 

-

diff --git a/src/crcombat.cc b/src/crcombat.cc
index 256f056..7ad7534 100644
--- a/src/crcombat.cc
+++ b/src/crcombat.cc
@@ -1,4 +1,5 @@
 #include "creature.hh"
+#include "monster.hh"
 #include "player.hh"
 #include "config.hh"
 #include "magic.hh"
@@ -13,7 +14,7 @@ TCombat::TCombat(void){
 	this->LatestAttackTime = 0;
 	this->AttackMode = ATTACK_MODE_BALANCED;
 	this->ChaseMode = CHASE_MODE_NONE;
-	this->SecureMode = 1;
+	this->SecureMode = SECURE_MODE_ENABLED;
 	this->AttackDest = 0;
 	this->Following = false;
 	this->Shield = NONE;
@@ -147,6 +148,164 @@ void TCombat::CheckCombatValues(void){
 	}
 }
 
+static int WeaponTypeToSkill(int WeaponType){
+	int Result = SKILL_FIST;
+	switch(WeaponType){
+		case WEAPON_NONE:		Result = SKILL_FIST; break;
+		case WEAPON_SWORD:		Result = SKILL_SWORD; break;
+		case WEAPON_CLUB:		Result = SKILL_CLUB; break;
+		case WEAPON_AXE:		Result = SKILL_AXE; break;
+		case WEAPON_SHIELD:		Result = SKILL_SHIELDING; break;
+		case WEAPON_AMMO:		ATTR_FALLTHROUGH;
+		case WEAPON_THROW:		Result = SKILL_DISTANCE; break;
+	}
+	return Result;
+}
+
+void TCombat::GetAttackValue(int *Value, int *SkillNr){
+	int AttackValue;
+	int WeaponType;
+	if(this->Close != NONE){
+		ObjectType CloseType = this->Close.getObjectType();
+		AttackValue = (int)CloseType.getAttribute(WEAPONATTACKVALUE);
+		WeaponType = (int)CloseType.getAttribute(WEAPONTYPE);
+	}else if(this->Missile != NONE){
+		ObjectType AmmoType = this->Ammo.getObjectType();
+		AttackValue = (int)AmmoType.getAttribute(AMMOATTACKVALUE);
+		WeaponType = WEAPON_AMMO;
+	}else if(this->Throw != NONE){
+		ObjectType ThrowType = this->Throw.getObjectType();
+		AttackValue = (int)ThrowType.getAttribute(THROWATTACKVALUE);
+		WeaponType = WEAPON_THROW;
+	}else if(this->Wand != NONE){
+		AttackValue = 0;
+		WeaponType = WEAPON_NONE;
+	}else{
+		AttackValue = RaceData[this->Master->Race].Attack;
+		WeaponType = WEAPON_NONE;
+	}
+
+	*Value = AttackValue;
+	*SkillNr = WeaponTypeToSkill(WeaponType);
+}
+
+void TCombat::GetDefendValue(int *Value, int *SkillNr){
+	int DefenseValue;
+	int WeaponType;
+	if(this->Shield != NONE){
+		ObjectType ShieldType = this->Shield.getObjectType();
+		DefenseValue = (int)ShieldType.getAttribute(SHIELDDEFENDVALUE);
+		WeaponType = WEAPON_SHIELD;
+	}else if(this->Close != NONE){
+		ObjectType CloseType = this->Close.getObjectType();
+		DefenseValue = (int)CloseType.getAttribute(WEAPONDEFENDVALUE);
+		WeaponType = (int)CloseType.getAttribute(WEAPONTYPE);
+	}else if(this->Throw != NONE){
+		ObjectType ThrowType = this->Throw.getObjectType();
+		DefenseValue = (int)ThrowType.getAttribute(THROWDEFENDVALUE);
+		WeaponType = WEAPON_THROW;
+	}else if(this->Missile != NONE){
+		// TODO(fusion): This might be correct. Having a bow equipped will reduce
+		// your defense to zero but having a wand equipped will give you base defense.
+		DefenseValue = 0;
+		WeaponType = WEAPON_AMMO;
+	}else{
+		DefenseValue = RaceData[this->Master->Race].Defend;
+		WeaponType = WEAPON_NONE;
+	}
+
+	*Value = DefenseValue;
+	*SkillNr = WeaponTypeToSkill(WeaponType);
+}
+
+int TCombat::GetAttackDamage(void){
+	int MaxValue, SkillNr;
+	this->GetAttackValue(&MaxValue, &SkillNr);
+	if(this->AttackMode == ATTACK_MODE_OFFENSIVE){
+		MaxValue += (MaxValue * 2) / 10;
+	}else if(this->AttackMode == ATTACK_MODE_DEFENSIVE){
+		MaxValue -= (MaxValue * 4) / 10;
+	}
+
+	TSkill *Skill = this->Master->Skills[SkillNr];
+	int Result = Skill->ProbeValue(MaxValue, this->LearningPoints > 0);
+	if(this->LearningPoints > 0){
+		this->LearningPoints -= 1;
+	}
+	return Result;
+}
+
+int TCombat::GetDefendDamage(void){
+	if(this->EarliestDefendTime > ServerMilliseconds){
+		return 0;
+	}
+
+	this->EarliestDefendTime = this->LastDefendTime + 2000;
+	this->LastDefendTime = ServerMilliseconds;
+
+	int AttackMode = this->AttackMode;
+	if(this->Following || this->AttackDest == 0){
+		AttackMode = ATTACK_MODE_DEFENSIVE;
+	}
+
+	int MaxValue, SkillNr;
+	this->GetDefendValue(&MaxValue, &SkillNr);
+	if(AttackMode == ATTACK_MODE_OFFENSIVE){
+		MaxValue -= (MaxValue * 4) / 10;
+	}else if(AttackMode == ATTACK_MODE_DEFENSIVE){
+		MaxValue += (MaxValue * 8) / 10;
+	}
+
+	TSkill *Skill = this->Master->Skills[SkillNr];
+	bool Increase = (this->Shield != NONE && this->LearningPoints > 0);
+	int Result = Skill->ProbeValue(MaxValue, Increase);
+	if(Increase){
+		this->LearningPoints -= 1;
+	}
+
+	Object Shield = this->Shield;
+	if(Shield != NONE){
+		ObjectType ShieldType = Shield.getObjectType();
+		if(ShieldType.getFlag(WEAROUT)){
+			uint32 RemainingUses = Shield.getAttribute(REMAININGUSES);
+			if(RemainingUses > 1){
+				Change(Shield, REMAININGUSES, RemainingUses - 1);
+			}else{
+				ObjectType WearOutType = ShieldType.getAttribute(WEAROUTTARGET);
+				Change(Shield, WearOutType, 0);
+				// TODO(fusion): Probably just check anyways, to be sure.
+				if(!Shield.exists() || !WearOutType.getFlag(SHIELD)){
+					this->CheckCombatValues();
+				}
+			}
+		}
+	}
+
+	return Result;
+}
+
+int TCombat::GetArmorStrength(void){
+	// TODO(fusion): We're iterating over inventory slots. Make it clearer?
+	int Armor = 0;
+	TCreature *Master = this->Master;
+	for(int Position = 1; Position <= 10; Position += 1){
+		Object Obj = GetBodyObject(Master->ID, Position);
+		if(Obj.exists()){
+			ObjectType ObjType = Obj.getObjectType();
+			if(ObjType.getFlag(CLOTHES) && ObjType.getFlag(ARMOR)
+			&& (int)ObjType.getAttribute(BODYPOSITION) == Position){
+				Armor += (int)ObjType.getAttribute(ARMORVALUE);
+			}
+		}
+	}
+
+	Armor += RaceData[Master->Race].Armor;
+	if(Armor >= 2){
+		Armor = (Armor / 2) + rand() % (Armor / 2);
+	}
+	return Armor;
+}
+
 int TCombat::GetDistance(void){
 	int Distance = 0;
 	if(this->Close != NONE || this->Fist){
@@ -159,6 +318,42 @@ int TCombat::GetDistance(void){
 	return Distance;
 }
 
+void TCombat::ActivateLearning(void){
+	this->LearningPoints = 30;
+}
+
+void TCombat::SetAttackMode(uint8 AttackMode){
+	if(AttackMode != ATTACK_MODE_OFFENSIVE
+			&& AttackMode != ATTACK_MODE_BALANCED
+			&& AttackMode != ATTACK_MODE_DEFENSIVE){
+		error("TCombat::SetAttackMode: Ungültiger Angriffsmodus %d.\n", AttackMode);
+		return;
+	}
+
+	if(this->AttackMode != AttackMode){
+		this->DelayAttack(2000);
+		this->AttackMode = AttackMode;
+	}
+}
+
+void TCombat::SetChaseMode(uint8 ChaseMode){
+	if(ChaseMode != CHASE_MODE_NONE && ChaseMode != CHASE_MODE_CLOSE){
+		error("TCombat::SetChaseMode: Ungültiger Verfolgungsmodus %d.\n", ChaseMode);
+		return;
+	}
+
+	this->ChaseMode = ChaseMode;
+}
+
+void TCombat::SetSecureMode(uint8 SecureMode){
+	if(SecureMode != SECURE_MODE_DISABLED && SecureMode != SECURE_MODE_ENABLED){
+		error("TCombat::SetSecureMode: Ungültiger Sicherheitsmodus %d.\n", SecureMode);
+		return;
+	}
+
+	this->SecureMode = SecureMode;
+}
+
 void TCombat::SetAttackDest(uint32 TargetID, bool Follow){
 	if(this->AttackDest == TargetID && this->Following == Follow){
 		return;
@@ -178,8 +373,8 @@ void TCombat::SetAttackDest(uint32 TargetID, bool Follow){
 
 	if(!Follow){
 		if(Master->Type == PLAYER && Target->Type == PLAYER){
-			if(this->SecureMode == 1 && WorldType == NORMAL
-			&& !((TPlayer*)Master)->IsAttackJustified(TargetID)){
+			if(this->SecureMode == SECURE_MODE_ENABLED && WorldType == NORMAL
+					&& !((TPlayer*)Master)->IsAttackJustified(TargetID)){
 				this->StopAttack(0);
 				throw SECUREMODE;
 			}
@@ -275,8 +470,8 @@ void TCombat::CanToDoAttack(void){
 
 	if(!this->Following){
 		if(Master->Type == PLAYER && Target->Type == PLAYER){
-			if(this->SecureMode == 1 && WorldType == NORMAL
-			&& !((TPlayer*)Master)->IsAttackJustified(Target->ID)){
+			if(this->SecureMode == SECURE_MODE_ENABLED && WorldType == NORMAL
+					&& !((TPlayer*)Master)->IsAttackJustified(Target->ID)){
 				this->StopAttack(0);
 				throw SECUREMODE;
 			}
@@ -319,6 +514,24 @@ void TCombat::CanToDoAttack(void){
 	}
 }
 
+void TCombat::StopAttack(int Delay){
+	if(Delay == 0){
+		this->AttackDest = 0;
+		if(this->Master->Type == PLAYER){
+			SendClearTarget(this->Master->Connection);
+		}
+	}else{
+		this->LatestAttackTime = RoundNr + Delay;
+	}
+}
+
+void TCombat::DelayAttack(int Milliseconds){
+	uint32 EarliestAttackTime = ServerMilliseconds + Milliseconds;
+	if(this->EarliestAttackTime < EarliestAttackTime){
+		this->EarliestAttackTime = EarliestAttackTime;
+	}
+}
+
 void TCombat::Attack(void){
 	if(this->AttackDest == 0 || this->Following){
 		return;
@@ -352,8 +565,8 @@ void TCombat::Attack(void){
 	}
 
 	if(Master->Type == PLAYER && Target->Type == PLAYER){
-		if(this->SecureMode == 1 && WorldType == NORMAL
-		&& !((TPlayer*)Master)->IsAttackJustified(Target->ID)){
+		if(this->SecureMode == SECURE_MODE_ENABLED && WorldType == NORMAL
+				&& !((TPlayer*)Master)->IsAttackJustified(Target->ID)){
 			this->StopAttack(0);
 			throw SECUREMODE;
 		}
@@ -436,49 +649,17 @@ void TCombat::Attack(void){
 	}
 }
 
-void TCombat::StopAttack(int Delay){
-	if(Delay == 0){
-		this->AttackDest = 0;
-		if(this->Master->Type == PLAYER){
-			SendClearTarget(this->Master->Connection);
-		}
-	}else{
-		this->LatestAttackTime = RoundNr + Delay;
-	}
-}
-
-void TCombat::DelayAttack(int Milliseconds){
-	uint32 EarliestAttackTime = ServerMilliseconds + Milliseconds;
-	if(this->EarliestAttackTime < EarliestAttackTime){
-		this->EarliestAttackTime = EarliestAttackTime;
-	}
-}
-
 void TCombat::CloseAttack(TCreature *Target){
-	int Attack;
-	uint16 SkillNr;
-	this->GetAttackValue(&Attack, &SkillNr);
-	if(this->AttackMode == ATTACK_MODE_OFFENSIVE){
-		Attack += (Attack * 2) / 10;
-	}else if(this->AttackMode == ATTACK_MODE_DEFENSIVE){
-		Attack -= (Attack * 4) / 10;
-	}
-
-	TCreature *Master = this->Master;
-	Attack = Master->Skills[SkillNr]->ProbeValue(Attack, this->LearningPoints > 0);
-	if(this->LearningPoints > 0){
-		this->LearningPoints -= 1;
-	}
-
+	int Attack = this->GetAttackDamage();
 	int Defense = Target->Combat.GetDefendDamage();
 	int Damage = Attack - Defense;
 	if(Damage < 0){
 		Damage = 0;
 	}
 
-	int DamageDone = Target->Damage(Master, Damage, 1); // DAMAGE_PHYSICAL ?
+	int DamageDone = Target->Damage(Master, Damage, DAMAGE_PHYSICAL);
 	if(DamageDone > 0){
-		this->LearningPoints = 30;
+		this->ActivateLearning();
 	}
 
 	int Poison = GetRacePoison(Master->Race);
@@ -547,7 +728,7 @@ void TCombat::WandAttack(TCreature *Target){
 
 	int Damage = AttackStrength + random(-AttackVariation, AttackVariation);
 	if(Target->Damage(Master, Damage, DamageType) > 0){
-		this->LearningPoints = 30;
+		this->ActivateLearning();
 	}
 
 	::Missile(Master->CrObject, Target->CrObject, AnimType);
@@ -617,29 +798,18 @@ void TCombat::DistanceAttack(TCreature *Target){
 	int DropY = Target->posy;
 	int DropZ = Target->posz;
 	if(Hit){
-		int Attack;
-		uint16 SkillNr;
-		this->GetAttackValue(&Attack, &SkillNr);
-		if(this->AttackMode == ATTACK_MODE_OFFENSIVE){
-			Attack += (Attack * 2) / 10;
-		}else if(this->AttackMode == ATTACK_MODE_DEFENSIVE){
-			Attack -= (Attack * 4) / 10;
-		}
-
-		Attack = Master->Skills[SkillNr]->ProbeValue(Attack, this->LearningPoints > 0);
-		if(this->LearningPoints > 0){
-			this->LearningPoints -= 1;
-		}
+		int Attack = this->GetAttackDamage();
 
 		// TODO(fusion): This doesn't make any sense. The disassembly looks
 		// correct but I feel we're missing something here. Or maybe defense
-		// doesn't work with ranged attacks but worn them out?
+		// doesn't work with ranged attacks but worn them out? But then only
+		// if the attacker is wearing a shield? This is a probably a bug.
 		if(this->Shield != NONE){
 			Target->Combat.GetDefendDamage();
 		}
 
 		if(Target->Damage(Master, Attack, DamageType) > 0){
-			this->LearningPoints = 30;
+			this->ActivateLearning();
 		}
 	}else{
 		if(DistanceX > 1 || DistanceY > 1){
@@ -679,3 +849,105 @@ void TCombat::DistanceAttack(TCreature *Target){
 		GraphicalEffect(DropX, DropY, DropZ, EFFECT_POFF);
 	}
 }
+
+void TCombat::AddDamageToCombatList(uint32 Attacker, uint32 Damage){
+	this->CombatDamage += Damage;
+	for(int i = 0; i < NARRAY(this->CombatList); i += 1){
+		if(this->CombatList[i].ID == Attacker){
+			this->CombatList[i].Damage += Damage;
+			this->CombatList[i].TimeStamp = RoundNr;
+			return;
+		}
+	}
+
+	int NextEntryIndex = this->ActCombatEntry;
+	this->CombatList[NextEntryIndex].ID = Attacker;
+	this->CombatList[NextEntryIndex].Damage = Damage;
+	this->CombatList[NextEntryIndex].TimeStamp = RoundNr;
+
+	NextEntryIndex += 1;
+	if(NextEntryIndex >= NARRAY(this->CombatList)){
+		NextEntryIndex = 0;
+	}
+	this->ActCombatEntry = NextEntryIndex;
+}
+
+uint32 TCombat::GetDamageByCreature(uint32 CreatureID){
+	uint32 Damage = 0;
+	for(int i = 0; i < NARRAY(this->CombatList); i += 1){
+		if(this->CombatList[i].ID == CreatureID){
+			Damage = this->CombatList[i].Damage;
+			break;
+		}
+	}
+	return Damage;
+}
+
+uint32 TCombat::GetMostDangerousAttacker(void){
+	uint32 Attacker = 0;
+	uint32 MaxDamage = 0;
+	for(int i = 0; i < NARRAY(this->CombatList); i += 1){
+		if((RoundNr - this->CombatList[i].TimeStamp) < 60
+				&& this->CombatList[i].Damage > MaxDamage){
+			Attacker = this->CombatList[i].ID;
+			MaxDamage = this->CombatList[i].Damage;
+		}
+	}
+	return Attacker;
+}
+
+void TCombat::DistributeExperiencePoints(uint32 Exp){
+	TCreature *Master = this->Master;
+	print(3, "%s ist gestorben. Verteile %u EXP...\n", Master->Name, Exp);
+	if(this->CombatDamage == 0){
+		return;
+	}
+
+	for(int i = 0; i < NARRAY(this->CombatList); i += 1){
+		TCreature *Attacker = GetCreature(this->CombatList[i].ID);
+		if(Attacker == NULL || Attacker->IsDead){
+			continue;
+		}
+
+		int Amount = (int)((Exp * this->CombatList[i].Damage) / this->CombatDamage);
+		if(Master->Type == PLAYER && Attacker->Type == PLAYER){
+			if(((TPlayer*)Master)->GetPartyLeader(true) == ((TPlayer*)Attacker)->GetPartyLeader(true)){
+				continue;
+			}
+
+			int MasterLevel = Master->Skills[SKILL_LEVEL]->Get();
+			int AttackerLevel = Attacker->Skills[SKILL_LEVEL]->Get();
+			int MaxLevel = (MasterLevel * 11) / 10;
+			if(AttackerLevel < MaxLevel){
+				Amount = ((MaxLevel - AttackerLevel) * Amount) / MasterLevel;
+			}else{
+				Amount = 0;
+			}			
+		}
+
+		if(Amount > 0){
+			if(Attacker->Type == PLAYER){
+				// NOTE(fusion): Enable soul regeneration.
+				int AttackerLevel = Attacker->Skills[SKILL_LEVEL]->Get();
+				if(Amount >= AttackerLevel){
+					int Interval = 120;
+					if(((TPlayer*)Attacker)->GetActivePromotion()){
+						Interval = 15;
+					}
+
+					int Count = Attacker->Skills[SKILL_SOUL]->TimerValue() % Interval;
+					if(Count == 0){
+						Count = Interval;
+					}
+
+					Attacker->SetTimer(SKILL_SOUL, (240 / Interval), Count, Interval, -1);
+				}
+			}
+
+			Attacker->Skills[0]->Increase(Amount);
+			TextualEffect(Attacker->CrObject, 0xD7, "%d", Amount);
+		}
+	}
+}
+
+
diff --git a/src/crcombat.hh b/src/crcombat.hh
index bd22584..b5db3c3 100644
--- a/src/crcombat.hh
+++ b/src/crcombat.hh
@@ -6,7 +6,7 @@ struct TCreature;
 struct TCombatEntry{
 	uint32 ID;
 	uint32 Damage;
-	int TimeStamp;
+	uint32 TimeStamp;
 };
 
 struct TCombat{
@@ -16,17 +16,29 @@ struct TCombat{
 	void GetWeapon(void);
 	void GetAmmo(void);
 	void CheckCombatValues(void);
-	int GetDistance(void);
-	void GetAttackValue(int *Attack, uint16 *SkillNr);
+	void GetAttackValue(int *Value, int *SkillNr);
+	void GetDefendValue(int *Value, int *SkillNr);
+	int GetAttackDamage(void);
 	int GetDefendDamage(void);
+	int GetArmorStrength(void);
+	int GetDistance(void);
+	void ActivateLearning(void);
+	void SetAttackMode(uint8 AttackMode);
+	void SetChaseMode(uint8 ChaseMode);
+	void SetSecureMode(uint8 SecureMode);
 	void SetAttackDest(uint32 TargetID, bool Follow);
 	void CanToDoAttack(void);
-	void Attack(void);
 	void StopAttack(int Delay);
 	void DelayAttack(int Milliseconds);
+	void Attack(void);
 	void CloseAttack(TCreature *Target);
 	void DistanceAttack(TCreature *Target);
 	void WandAttack(TCreature *Target);
+	void AddDamageToCombatList(uint32 Attacker, uint32 Damage);
+	uint32 GetDamageByCreature(uint32 CreatureID);
+	uint32 GetMostDangerousAttacker(void);
+	void DistributeExperiencePoints(uint32 Exp);
+
 
 	// DATA
 	// =========================================================================
diff --git a/src/enums.hh b/src/enums.hh
index d8f5816..4081dce 100644
--- a/src/enums.hh
+++ b/src/enums.hh
@@ -25,7 +25,6 @@ enum AnimationType: int {
 
 // NOTE(fusion): Not in debug symbols.
 enum AttackMode: uint8 {
-	ATTACK_MODE_NONE		= 0,
 	ATTACK_MODE_OFFENSIVE	= 1,
 	ATTACK_MODE_BALANCED	= 2,
 	ATTACK_MODE_DEFENSIVE	= 3,
@@ -360,6 +359,11 @@ enum RIGHT: int {
 	NO_STATISTICS						= 81,
 };
 
+enum SecureMode: uint8 {
+	SECURE_MODE_DISABLED = 0,
+	SECURE_MODE_ENABLED = 1,
+};
+
 // NOTE(fusion): Not in debug symbols.
 enum Skill: int {
 	SKILL_LEVEL				= 0,
@@ -556,4 +560,14 @@ enum TWorldType: int {
 	PVP_ENFORCED	= 2,
 };
 
+enum WeaponType: int {
+	WEAPON_NONE		= 0,
+	WEAPON_SWORD	= 1,
+	WEAPON_CLUB		= 2,
+	WEAPON_AXE		= 3,
+	WEAPON_SHIELD	= 4,
+	WEAPON_AMMO		= 5,
+	WEAPON_THROW	= 6,
+};
+
 #endif //TIBIA_ENUMS_HH_
diff --git a/src/magic.cc b/src/magic.cc
index f8f0505..5d6acad 100644
--- a/src/magic.cc
+++ b/src/magic.cc
@@ -1,6 +1,63 @@
 #include "magic.hh"
+#include "config.hh"
 #include "creature.hh"
 
+#include "stubs.hh"
+
+static const char SpellSyllable[51][6] = {
+	"",
+	"al",
+	"ad",
+	"ex",
+	"ut",
+	"om",
+	"para",
+	"ana",
+	"evo",
+	"ori",
+	"mort",
+	"lux",
+	"liber",
+	"vita",
+	"flam",
+	"pox",
+	"hur",
+	"moe",
+	"ani",
+	"ina",
+	"eta",
+	"amo",
+	"hora",
+	"gran",
+	"cogni",
+	"res",
+	"mas",
+	"vis",
+	"som",
+	"aqua",
+	"frigo",
+	"tera",
+	"ura",
+	"sio",
+	"grav",
+	"ito",
+	"pan",
+	"vid",
+	"isa",
+	"iva",
+	"con",
+	"",
+	"",
+	"",
+	"",
+	"",
+	"",
+	"",
+	"",
+	"",
+	"",
+};
+
 // TImpact
 // =============================================================================
 void TImpact::handleField(int a, int b, int c){
@@ -17,7 +74,7 @@ bool TImpact::isAggressive(void){
 
 // TDamageImpact
 // =============================================================================
-void TDamageImpact::TDamageImpact(TCreature *Actor, int DamageType, int Power, bool AllowDefense){
+TDamageImpact::TDamageImpact(TCreature *Actor, int DamageType, int Power, bool AllowDefense){
 	if(Actor == NULL){
 		error("TDamageImpact::TDamageImpact: Actor ist NULL.\n");
 	}
@@ -28,6 +85,26 @@ void TDamageImpact::TDamageImpact(TCreature *Actor, int DamageType, int Power, b
 	this->AllowDefense = AllowDefense;
 }
 
+void TDamageImpact::handleCreature(TCreature *Victim){
+	if(Victim == NULL){
+		error("TDamageImpact::handleCreature: Opfer existiert nicht.\n");
+		return;
+	}
+
+	TCreature *Actor = this->Actor;
+	if(Actor != NULL && Actor != Victim){
+		if(WorldType != NON_PVP || !Actor->IsPeaceful() || !Victim->IsPeaceful()){
+			int DamageType = this->DamageType;
+			int Damage = this->Power;
+			if(DamageType == DAMAGE_PHYSICAL && this->AllowDefense){
+				// TODO(fusion): Shouldn't we clamp `Damage` to zero?
+				Damage -= Victim->Combat.GetDefendDamage();
+			}
+			Victim->Damage(Actor, Damage, DamageType);
+		}
+	}
+}
+
 // Magic Related Functions
 // =============================================================================
 void CheckMana(TCreature *Creature, int ManaPoints, int SoulPoints, int Delay){
@@ -36,8 +113,9 @@ void CheckMana(TCreature *Creature, int ManaPoints, int SoulPoints, int Delay){
 		throw ERROR;
 	}
 
-	if(Creature->Type != PLAYER || ManaPoints < 0)
+	if(Creature->Type != PLAYER || ManaPoints < 0){
 		return;
+	}
 
 	TSkill *Mana = Creature->Skills[SKILL_MANA];
 	if(Mana == NULL){
@@ -52,11 +130,13 @@ void CheckMana(TCreature *Creature, int ManaPoints, int SoulPoints, int Delay){
 	}
 
 	if(!CheckRight(Creature->ID, UNLIMITED_MANA)){
-		if(Mana->Get() < ManaPoints)
+		if(Mana->Get() < ManaPoints){
 			throw NOTENOUGHMANA;
+		}
 
-		if(Soul->Get() < SoulPoints)
+		if(Soul->Get() < SoulPoints){
 			throw NOTENOUGHSOULPOINTS;
+		}
 
 		Mana->Change(-ManaPoints);
 		Soul->Change(-SoulPoints);
diff --git a/src/player.hh b/src/player.hh
index 815289e..33ca7c3 100644
--- a/src/player.hh
+++ b/src/player.hh
@@ -72,6 +72,9 @@ struct TPlayer: TCreature {
 	uint8 GetEffectiveProfession(void);
 	uint8 GetActiveProfession(void);
 	bool GetActivePromotion(void);
+
+	uint32 GetPartyLeader(bool CheckFormer);
+
 	bool IsAttackJustified(uint32 Victim);
 	void RecordAttack(uint32 Victim);
 
diff --git a/src/stubs.hh b/src/stubs.hh
index 622e588..d3cfcd0 100644
--- a/src/stubs.hh
+++ b/src/stubs.hh
@@ -65,6 +65,7 @@ extern void SendMessage(TConnection *Connection, int Mode, const char *Text, ...
 extern void SendPlayerData(TConnection *Connection);
 extern void SendPlayerSkills(TConnection *Connection);
 extern void SendPlayerState(TConnection *Connection, uint8 State);
+extern void TextualEffect(Object Obj, int Color, const char *Text, ...) ATTR_PRINTF(3, 4);
 extern bool ThrowPossible(int FromX, int FromY, int FromZ,
 						int ToX, int ToY, int ToZ, int Power);
 extern void WriteKillStatistics(void);