New Fimilars?, Just an idea... Options

[Gah]

This was just a thougth that came to me, why do mages only get fimilars? I wanted to solo for so long, and when i do i get a lonly feeling with my theif, archer, whatever. And I was thinking sinceI have NO clue what I'm doing, and i've always enjoyed Black Wyrm's stuff, why not make a mod, that allows you to choose an animal companion? Unless nobody else feels like thats a good idea that is. I just thought I would get it out there. (But if you guys don't I'll be willing to,I just have no clue on anything with modding) Thx~Gah~

(Gigantic-Arab-Horse)

[K'aeloree]

I believe this is Sharo's code, just found it in the Azure/scripts folder. No need to install Azure to get it

CODE

IIF
    CombatCounter(0)
    AreaType(DUNGEON)
    !ModalState(DETECTTRAPS)
    Delay(4)
THEN
    RESPONSE #100
 FindTraps()
 DisplayStringHead(Myself,~Looking for traps~)
END

IF
    CombatCounter(0)
    !StateCheck("Azure",STATE_DEAD)
    Delay(6)
THEN
    RESPONSE #100
           MoveToObjectFollow("Azure")
END

IF
    CombatCounter(0)
    StateCheck("Azure",STATE_DEAD)
    Delay(6)
THEN
    RESPONSE #100
 MoveToObjectFollow(Protagonist)
END

IF
    AttackedBy([ANYONE],DEFAULT)
THEN
    RESPONSE #100
 AttackOneRound(NearestEnemyOf(Myself))
END

IF
    StateCheck("Azure",STATE_DEAD)
    See(NearestEnemyOf(Protagonist))
    Range(NearestEnemyOf(Protagonist),8)
THEN
    RESPONSE #100
 AttackOneRound(NearestEnemyOf(Protagonist))
END

IF
    !StateCheck("Azure",STATE_DEAD)
    See(NearestEnemyOf("Azure"))
    Range(NearestEnemyOf("Azure"),8)
THEN
    RESPONSE #100
 AttackOneRound(NearestEnemyOf("Azure"))
END


IF
     !StateCheck(Myself,STATE_INVISIBLE)
    !StateCheck("Azure",STATE_DEAD)
    See(NearestEnemyOf("Azure"))
    !Range(NearestEnemyOf("Azure"),8)
THEN
    RESPONSE #100
 ReallyForceSpell(Myself,WIZARD_INVISIBILITY)
 DisplayStringHead(Myself,~Invisible~)
END

IF
     !StateCheck(Myself,STATE_INVISIBLE)
    StateCheck("Azure",STATE_DEAD)
    See(NearestEnemyOf(Protagonist))
    !Range(NearestEnemyOf(Protagonist),8)
THEN
    RESPONSE #100
 ReallyForceSpell(Myself,WIZARD_INVISIBILITY)
 DisplayStringHead(Myself,~Invisible~)
END

IF
    !StateCheck("Azure",STATE_DEAD)
    StateCheck(Myself,STATE_INVISIBLE)
    See(NearestEnemyOf("Azure"))
THEN
    RESPONSE #100
 AttackOneRound(NearestEnemyOf("Azure"))
END

IF
    StateCheck(Myself,STATE_INVISIBLE)
    StateCheck("Azure",STATE_DEAD)
    See(NearestEnemyOf(Protagonist))
THEN
    RESPONSE #100
 AttackOneRound(NearestEnemyOf(Protagonist))
END


IF
    !StateCheck("Azure",STATE_DEAD)
    See("Azure")
    HPPercentLT("Azure",50)
THEN
    RESPONSE #100
 ReallyForceSpell("Azure",CLERIC_CURE_CRITICAL_WOUNDS)
 DisplayStringHead(Myself,~Azure was cured~)
END

IF
    StateCheck("Azure",STATE_DEAD)
    See(Protagonist)
    HPPercentLT(Protagonist,50)
THEN
    RESPONSE #100
 ReallyForceSpell(Protagonist,CLERIC_CURE_CRITICAL_WOUNDS)
 DisplayStringHead(Myself,~Protagonist was cured~)
END


IF
    !StateCheck("Azure",STATE_DEAD)
    See("Azure")
    HPPercentLT("Azure",25)
THEN
    RESPONSE #100
 ReallyForceSpell("Azure",CLERIC_HEAL)
 DisplayStringHead(Myself,~Azure was healed~)
END

IF
    HPPercentLT(Myself,25)
THEN
    RESPONSE #100
 ReallyForceSpell(Myself,CLERIC_HEAL)
 DisplayStringHead(Myself,~Sharo healed~)
END

IF
    StateCheck("Azure",STATE_DEAD)
    See(Protagonist)
    HPPercentLT(Protagonist,25)
THEN
    RESPONSE #100
 ReallyForceSpell(Protagonist,CLERIC_HEAL)
 DisplayStringHead(Myself,~Protagonist was healed~)
END

This post has been edited by K'aeloree: Dec 24 2005, 12:39 AM