ab_spells.c-Dateireferenz

#include <properties.h>
#include <language.h>
#include <attributes.h>
#include <combat.h>
#include <wizlevels.h>
#include <new_skills.h>

Include-Abhängigkeitsdiagramm für ab_spells.c:

gehe zum Quellcode dieser Datei

Makrodefinitionen
#define	LICHTKUGEL   "/gilden/files.abenteurer/lichtkugel"
#define	LICHTMASTER   "/gilden/files.abenteurer/lichtmaster"
Funktionen
void	create ()
int	schaetz (object caster, mapping sinfo)
int	kampfschrei (object caster, mapping sinfo)
int	ausweichen (object caster, mapping sinfo)
mixed	Deckung (int dam, mixed dam_type, mixed spell, object enemy)
int	identifiziere (object caster, mapping sinfo)
int	licht (object caster, mapping sinfo)
int	saeurestrahl (object caster, mapping sinfo)
int	feuerball (object caster, mapping sinfo)
int	pfeil (object caster, mapping sinfo)
int	schnell (object caster, mapping sinfo)
Variablen
inherit std	spellbook

---

Makro-Dokumentation

#define LICHTKUGEL   "/gilden/files.abenteurer/lichtkugel"

Definiert in Zeile 36 der Datei ab_spells.c.

Wird benutzt von licht().

#define LICHTMASTER   "/gilden/files.abenteurer/lichtmaster"

Definiert in Zeile 37 der Datei ab_spells.c.

Wird benutzt von licht().

---

Dokumentation der Funktionen

int ausweichen	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 257 der Datei ab_spells.c.

Benutzt ERFOLG, MISSERFOLG, P_TMP_DEFEND_HOOK und SpellSuccess().

{
  if (!caster->InFight())
  {
    write("Ausweichen ausserhalb eines Kampfes ist ziemlich sinnlos.\n");
    return 0;
  }

  if (caster->QueryProp(P_TMP_DEFEND_HOOK))
  {
    write("Das geht momentan nicht, Du wunderst Dich wieso!\n");
    return 0;
  }

  if (SpellSuccess(caster,sinfo)<=0)
    return MISSERFOLG;

  caster->SetProp(P_TMP_DEFEND_HOOK, ({ time()+4, this_object(), "Deckung" }));
  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

void create

(

)

Definiert in Zeile 42 der Datei ab_spells.c.

Benutzt AddSpell(), create(), DT_ACID, DT_FIRE, DT_MAGIC, FACTOR, MT_ANGRIFF, MT_HELLSICHT, MT_PSYCHO, OFFSET, P_GLOBAL_SKILLPROPS, P_LEVEL, SetProp(), SI_MAGIC_TYPE, SI_SKILLDAMAGE, SI_SKILLDAMAGE_BY_ROW, SI_SKILLDAMAGE_TYPE, SI_SKILLLEARN, SI_SKILLRESTR_LEARN, SI_SPELLFATIGUE und SP_NAME.

              {
  ::create();
  SetProp(P_GLOBAL_SKILLPROPS,
          ([SI_SPELLFATIGUE:2,       // 2 Sekunden kein neuer Spell
            SI_SKILLLEARN:5,         // 0.05% pro 2 A_INT
            OFFSET(SI_SKILLLEARN):10 // plus 0.1% in jedem Fall
            ]));
  AddSpell("licht",5,4);
  AddSpell("schaetz",3,
       ([SI_SKILLRESTR_LEARN:([P_LEVEL:10]),
         SI_MAGIC_TYPE: ({ MT_HELLSICHT }),
         SP_NAME: "schaetz"]));
  AddSpell("pfeil",10,
           ([SI_SKILLRESTR_LEARN:([P_LEVEL:11]),
             // Um diesen Spruch lernen zu koennen muss
             // der Level mindestens 11 sein
             SI_SKILLDAMAGE:200,
             // Schaden: Random(200) ...
             SI_SKILLDAMAGE_TYPE:DT_MAGIC,
             // Damage Type: Magic
             SI_MAGIC_TYPE: ({ MT_ANGRIFF }),
            SP_NAME: "pfeil",
            // Boni für hintere Kampfreihen
            SI_SKILLDAMAGE_BY_ROW: ([2:110,3:50,4:10]),
            OFFSET(SI_SKILLDAMAGE_BY_ROW): ([2:50,3:20,4:5])
             ]));
  AddSpell("ausweichen", 10, 12);
  AddSpell("kampfschrei", 30,
       ([SI_SKILLRESTR_LEARN:([P_LEVEL:13]),
         SI_MAGIC_TYPE: ({ MT_PSYCHO }),
         SP_NAME: "kampfschrei"]));
  AddSpell("identifiziere",10,
       ([SI_SKILLRESTR_LEARN:([P_LEVEL:8]),
         SI_MAGIC_TYPE: ({ MT_HELLSICHT }),
         SP_NAME: "identifiziere"]));
  AddSpell("feuerball",20,
           ([SI_SKILLRESTR_LEARN:([P_LEVEL:15]),
             SI_SKILLDAMAGE:300,
             // Schaden: Random(300) ...
             OFFSET(SI_SKILLDAMAGE):100,
             // ... plus 100
             SI_SKILLDAMAGE_TYPE:DT_FIRE,
             // Damage Type: Fire
            SI_MAGIC_TYPE: ({ MT_ANGRIFF }),
            SP_NAME: "feuerball",
            SI_SKILLDAMAGE_BY_ROW: ([2:80,3:150,4:80,5:20]),
            OFFSET(SI_SKILLDAMAGE_BY_ROW): ([2:30,3:80,4:30,5:10])
             ]));
  AddSpell("schnell",100,17);
  AddSpell("saeurestrahl",25,
       ([SI_SKILLRESTR_LEARN:([P_LEVEL:30]),
         OFFSET(SI_SKILLLEARN):1,
         FACTOR(SI_SKILLLEARN):20,
             SI_SKILLDAMAGE:400,
             // Schaden: Random(400) ...
             OFFSET(SI_SKILLDAMAGE):200,
             // ... plus 200
             SI_SKILLDAMAGE_TYPE:DT_ACID,
             // Damage Type: Saeure
             SI_MAGIC_TYPE: ({ MT_ANGRIFF }),
             SP_NAME: "saeurestrahl",
             SI_SKILLDAMAGE_BY_ROW:([2:60,3:150,4:210,5:150,6:60]),
             OFFSET(SI_SKILLDAMAGE_BY_ROW):([2:30,3:80,4:120,5:80,6:30])
             ]));

}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

mixed Deckung	(	int	dam,
		mixed	dam_type,
		mixed	spell,
		object	enemy
	)

Definiert in Zeile 278 der Datei ab_spells.c.

Benutzt P_TMP_DEFEND_HOOK, PHYSICAL_DAMAGE_TYPES und QueryProp().

{
  if (!pointerp(dam_type))
    dam_type = ({ dam_type });
  if (sizeof(dam_type & m_indices(PHYSICAL_DAMAGE_TYPES)))
  {
    tell_object(previous_object(), "Du weichst gekonnt aus.\n");
    if (previous_object()->QueryProp(P_TMP_DEFEND_HOOK)[1] == this_object())
      previous_object()->SetProp(P_TMP_DEFEND_HOOK, 0);
    return 0;
  }
  tell_object(previous_object(), "Dein Ausweichversuch ist vergebens.\n");
  return ({ dam, dam_type, spell, enemy });
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int feuerball	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 396 der Datei ab_spells.c.

Benutzt ERFOLG, FindEnemyVictim(), hands, MISSERFOLG, SI_SKILLARG, SP_NAME, SP_SHOW_DAMAGE, SpellDefend(), SpellSuccess(), TryDefaultAttackSpell() und WEM.

                                        {
  object victim;
  int hands;
  string vnw;
  int suc;

  victim=FindEnemyVictim(sinfo[SI_SKILLARG],caster,
                         "Auf wen willst Du einen Feuerball schleudern?\n");
  if (!victim)
    return 0;
  if ((suc=SpellSuccess(caster,sinfo))<=0)
    return MISSERFOLG;
  if (suc < victim->SpellDefend(caster, sinfo))
  {
    tell_object(caster, victim->Name() + " wehrt Deinen Spruch ab.\n");
    return ERFOLG;
  }

  vnw = victim->name(WEM, 2);
  say(sprintf("%s wirft einen Feuerball nach %s.\n",
              caster->Name(), vnw), victim);
  printf("Du wirfst einen Feuerball nach %s.\n", vnw);
  tell_object(victim, sprintf("%s wirft einen Feuerball nach Dir.\n",
                              caster->Name()));

  TryDefaultAttackSpell(victim,caster,sinfo,
            ([SP_NAME:"Feuerball", SP_SHOW_DAMAGE:1]));

  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int identifiziere	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 294 der Datei ab_spells.c.

Benutzt break_string(), ERFOLG, FindVictim(), info, MISSERFOLG, ob(), P_INFO, P_PLURAL, result(), SI_SKILLARG, SpellDefend(), SpellSuccess(), WEM und WEN.

                                            {
  object ob;
  string* fi;
  string cn;
  string result, info;
  int suc;
  ob=FindVictim(sinfo[SI_SKILLARG], caster,
                "Was moechtest Du identifizieren?\n");
  if (!ob)
    return 0;

  cn = caster->name();
  if ((suc=SpellSuccess(caster,sinfo))<=0)
    return MISSERFOLG;
  if (suc < ob->SpellDefend(caster, sinfo))
  {
    tell_object(caster, ob->Name() + " wehrt Deinen Spruch ab.\n");
    return ERFOLG;
  }

  result="Du identifizierst "+ob->name(WEN,1)+". "
        +capitalize(ob->QueryPronoun())
        +" besteh"
        +(ob->QueryProp(P_PLURAL) ? "en" : "t")
        +" aus "
        +(ob->MaterialList(WEM, caster))+". ";
  if (info=ob->QueryProp(P_INFO))
    result+="Ausserdem bemerkst Du folgendes:\n"+info;
  else result+="Du kannst sonst nichts besonderes an "+ob->QueryPronoun(WEM)
              +" erkennen.";
  write(break_string(result, 78, 0, 1));
/*
  if (result=ob->QueryProp(P_INFO))
    printf("Du identifizierst %s.\n%s", ob->name(WEN, 1), result);
  else
    printf("Du kannst nichts besonderes an %s erkennen.\n", ob->name(WEM, 1));
*/
  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int kampfschrei	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 208 der Datei ab_spells.c.

Benutzt break_string(), cmdline(), ERFOLG, F_MODE_AS, FindEnemyVictim(), MISSERFOLG, ob(), P_LEVEL, SA_SPEED, SAVE, SI_SKILLARG, SpellDefend() und SpellSuccess().

{
  object ob;
  string cmdline, meldung;
  int    suc, dauer;

  cmdline = this_player()->_unparsed_args();
  if (cmdline)
  {
    if (sscanf(cmdline, "meldung %s", meldung))
    {
      caster->Set("ab_kampfschrei", SAVE, F_MODE_AS);
      caster->SetProp("ab_kampfschrei", meldung);
      printf("Dein Kampfschrei ist jetzt: %s\n", meldung);
      return 0;
    }
  }
  ob = FindEnemyVictim(sinfo[SI_SKILLARG], caster,
          "Wem willst Du Deinen Kampfschrei entgegenschleudern?\n");

  if (!ob)
    return 0;

  if ((suc=SpellSuccess(caster, sinfo)) <= 0)
    return MISSERFOLG;
  if (suc < ob->SpellDefend(caster, sinfo))
  {
    tell_object(caster, ob->Name() + " wehrt Deinen Spruch ab.\n");
    return ERFOLG;
  }

  meldung = caster->QueryProp("ab_kampfschrei");
  if (!meldung)
    meldung = "Aaaaaaaiiiiieeeeeeeeeeeeeeeehhhhhhhhhhhhhhh!!!!!!!\n";

  write(break_string(meldung, 78, "Du kreischst: "));
  tell_room(environment(caster),
        break_string(meldung, 78, caster->Name()+" kreischt: "),
        ({caster}));
  tell_object(ob, "Du fuehlst Dich wie gelaehmt.\n");

  dauer = 1 + (suc/1000 + random(caster->QueryProp(P_LEVEL)/2))/2;
  if (dauer>25)
    dauer = 25;
  ob->ModifySkillAttribute(caster, SA_SPEED, 50, dauer);

  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int licht	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 335 der Datei ab_spells.c.

Benutzt ERFOLG, LICHTKUGEL, LICHTMASTER, MISSERFOLG, P_LEVEL und SpellSuccess().

{
   object l;

   printf("Du machst eine magische Bewegung.\n");
   say(sprintf("%s macht eine magische Bewegung.\n",
           capitalize(caster->name())));

   if (SpellSuccess(caster,sinfo)<=0)
      return MISSERFOLG;

   l = clone_object(LICHTKUGEL);
   if (l->move(this_player()) > 0)
   {
      LICHTMASTER->add_kugel(l, caster->QueryProp(P_LEVEL)*20);
      printf("Wie aus dem Nichts erscheint eine leuchtende Kugel.\n");
   }
   else
   {
      l->remove();
      printf("Eine Lichtkugel erscheint, zerplatzt aber sofort mit einem sanften 'plopp'.\n");
   }

   return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int pfeil	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 428 der Datei ab_spells.c.

Benutzt ERFOLG, FindEnemyVictim(), hands, MISSERFOLG, SI_SKILLARG, SP_NAME, SP_SHOW_DAMAGE, SpellDefend(), SpellSuccess(), TryDefaultAttackSpell() und WEN.

                                    {
  object victim;
  int hands;
  string vn, vnw, cn;
  int suc;

  victim=FindEnemyVictim(sinfo[SI_SKILLARG],caster,
                         "Nach wem willst Du einen magischen Pfeil werfen?\n");
  if (!victim)
    return 0;
  if ((suc=SpellSuccess(caster,sinfo))<=0)
    return MISSERFOLG;
  if (suc < victim->SpellDefend(caster, sinfo))
  {
    tell_object(caster, victim->Name() + " wehrt Deinen Spruch ab.\n");
    return ERFOLG;
  }

  cn = caster->Name();
  vnw = victim->name(WEN, 2);
  say(sprintf("%s feuert einen magischen Pfeil auf %s ab.\n",cn, vnw),
      victim);
  printf("Du feuerst einen magischen Pfeil auf %s ab.\n", vnw);
  tell_object(victim,sprintf("%s feuert einen magischen Pfeil auf Dich ab.\n",
                             cn));
  TryDefaultAttackSpell(victim,caster,sinfo,
            ([SP_NAME:"Pfeil", SP_SHOW_DAMAGE:1]));
  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int saeurestrahl	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 362 der Datei ab_spells.c.

Benutzt break_string(), ERFOLG, FindEnemyVictim(), hands, MISSERFOLG, SI_SKILLARG, SP_NAME, SP_SHOW_DAMAGE, SpellDefend(), SpellSuccess(), TryDefaultAttackSpell() und WEN.

                                           {
  object victim;
  int hands;
  string vnw;
  int suc;

  victim=FindEnemyVictim(sinfo[SI_SKILLARG],caster,
                     "Wen willst Du mit einem Saeurestrahl beschiessen?\n");
  if (!victim)
    return 0;
  if ((suc=SpellSuccess(caster,sinfo))<=0)
    return MISSERFOLG;
  if (suc < victim->SpellDefend(caster, sinfo))
  {
    tell_object(caster, victim->Name() + " wehrt Deinen Spruch ab.\n");
    return ERFOLG;
  }

  vnw = victim->name(WEN, 2);
  say(break_string(
   sprintf(
   "%s fuchtelt seltsam in der Luft herum und schiesst einen Saeurestrahl auf %s.\n",
       caster->Name(), vnw), 78), victim);
  printf("Du schiesst einen Saeurestrahl auf %s.\n", vnw);
  tell_object(victim, sprintf("%s schiesst einen Saeurestrahl auf Dich.\n",
                              caster->Name()));

  TryDefaultAttackSpell(victim,caster,sinfo,
            ([SP_NAME:"Saeurestrahl", SP_SHOW_DAMAGE:1]));

  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int schaetz	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 110 der Datei ab_spells.c.

Benutzt ERFOLG, FindLivingVictim(), MISSERFOLG, P_HP, P_TOTAL_AC, P_TOTAL_WC, result(), SI_SKILLARG, SpellDefend(), SpellSuccess(), WEM, WER und WESSEN.

                                      {
   object victim;
   int hpdiff, wcdiff, acdiff;
   int hp, vhp, wc, vwc, ac, vac;
   string result;
   string vname, vnamegen;
   int suc;

   victim=FindLivingVictim(sinfo[SI_SKILLARG],caster,
                           "Wen moechtest Du einschaetzen?\n");
   if (!victim)
     return 0;
   if ((suc=SpellSuccess(caster,sinfo))<=0)
      return MISSERFOLG;
   if (suc < victim->SpellDefend(caster, sinfo))
   {
     tell_object(caster, victim->Name() + " wehrt Deinen Spruch ab.\n");
     return ERFOLG;
   }

   hp = caster->QueryProp(P_HP);    vhp = victim->QueryProp(P_HP);
   wc = caster->QueryProp(P_TOTAL_WC);  vwc = victim->QueryProp(P_TOTAL_WC);
   ac = caster->QueryProp(P_TOTAL_AC);  vac = victim->QueryProp(P_TOTAL_AC);
   hpdiff = hp - vhp;
   wcdiff = wc - vwc;
   acdiff = ac - vac;
   vname = victim->name(WER, 1);
   vnamegen = victim->name(WESSEN, 1);

   if (hpdiff > 10*vhp)
      result = capitalize(victim->name(WER, 1))+" sollte sich besser schon mal einen Sarg besorgen.\n";
   else if (hpdiff > 7*vhp)
      result = "Du bist " + victim->name(WEM, 1) + " haushoch ueberlegen.\n";
   else if (hpdiff > 4*vhp)
      result = "Du bist sehr viel staerker als " + vname + ".\n";
   else if (hpdiff > 2*vhp)
      result = "Du bist viel staerker als " + vname + ".\n";
   else if (2*hpdiff > 3*vhp)
      result = "Du bist spuerbar staerker als " + vname + ".\n";
   else if (hpdiff > vhp)
      result = "Du bist staerker als " + vname + ".\n";
   else if (hpdiff > vhp/5)
      result = "Du bist etwas staerker als " + vname + ".\n";
   else if (-hpdiff > 10*hp)
      result = "Besorg Dir besser schon mal einen Sarg.\n";
   else if (-hpdiff > 7*hp)
      result = capitalize(vname) + " ist Dir haushoch ueberlegen.\n";
   else if (-hpdiff > 4*hp)
      result = capitalize(vname) + " ist sehr viel staerker als Du.\n";
   else if (-hpdiff > 2*hp)
      result = capitalize(vname) + " ist viel staerker als Du.\n";
   else if (-2*hpdiff > 3*hp)
      result = capitalize(vname) + " ist spuerbar staerker als Du.\n";
   else if (-hpdiff > hp)
      result = capitalize(vname) + " ist staerker als Du.\n";
   else if (-hpdiff > hp/5)
      result = capitalize(vname) + " ist etwas staerker als Du.\n";
   else
      result = capitalize(vname) + " ist etwa gleich stark wie Du.\n";
   write(result);

   if (acdiff > 2*vac)
      result = "Deine Ruestung ist unglaublich viel besser als die "
     + vnamegen + ".\n";
   else if (acdiff > vac)
      result = "Deine Ruestung ist viel besser als die " + vnamegen + ".\n";
   else if (acdiff >vac/5)
      result = "Deine Ruestung ist besser als die " + vnamegen + ".\n";
   else if (-acdiff > 2*ac)
      result = "Die Ruestung " + vnamegen
     + " ist unglaublich viel besser als Deine.\n";
   else if (-acdiff > ac)
      result = "Die Ruestung " + vnamegen + " ist viel besser als Deine.\n";
   else if (-acdiff > ac/5)
      result = "Die Ruestung " + vnamegen + " ist besser als Deine.\n";
   else
      result = "Eure Ruestungen sind etwa gleich gut.\n";
   write(result);

   if (wcdiff > 2*vwc)
      result = "Deine Waffe ist eigentlich zu gut fuer diesen Gegner.\n";
   else if (wcdiff > vwc)
      result = "Deine Waffe ist viel besser als die " +vnamegen + ".\n";
   else if (wcdiff > vwc/5)
      result = "Deine Waffe ist besser als die " +vnamegen + ".\n";
   else if (-wcdiff > 2*wc)
      result = "Die Waffe " + vnamegen
     + " laesst Deine ganz mickrig aussehen.\n";
   else if (-wcdiff > wc)
      result = "Die Waffe " + vnamegen + " ist viel besser als Deine.\n";
   else if (-wcdiff > wc/5)
      result = "Die Waffe " + vnamegen + " ist besser als Deine.\n";
   else
      result = "Eure Waffen sind etwa gleich gut.\n";
   write(result);
   return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

int schnell	(	object	caster,
		mapping	sinfo
	)

Definiert in Zeile 459 der Datei ab_spells.c.

Benutzt A_DEX, ERFOLG, MISSERFOLG, SA_SPEED, SI_SKILLABILITY und SpellSuccess().

                                      {
  int dauer;

  if (SpellSuccess(caster,sinfo)<=0)
    return MISSERFOLG;
  write("Du fuehlst Dich ploetzlich deutlich schneller.\n");
  dauer = 2 * (caster->QueryAttribute(A_DEX) +
           random(sinfo[SI_SKILLABILITY]/1000));
  if (dauer>60)
    dauer = 60;
  caster->ModifySkillAttribute(caster,SA_SPEED,200,dauer);

  return ERFOLG;
}

Hier ist ein Graph der zeigt, was diese Funktion aufruft:

---

Variablen-Dokumentation

inherit std spellbook

Definiert in Zeile 39 der Datei ab_spells.c.

Wird benutzt von QuerySpell() und UseSpell().