anchor.diff:        Result := _('Heal');
       spCurePoison:
         Result := _('Cure poison');
  +    spTeleportation:
  +      Result := _('Teleportation');
     end;
   end;
   
  
positive.code: interface
  
  type
    TSpellEnum = (spHeal, spCurePoison);
  
  type
    TSpellBase = record
  
negative.code:   // Heal
    (Level: 1; ManaCost: 20;),
    // Cure Poison
    (Level: 2; ManaCost: 30;),
    // Teleportation
    (Level: 3; ManaCost: 40;)
    );
  
  type
  