(21.03.2014 05:05)Berserker Wrote:  

Code:

TCaster = (CASTER_HERO, CASTER_MON, CASTER_ART);

PROCEDURE CastSpell (Caster: TCaster; Spell, Power, Pos1, Pos2: INTEGER);
VAR
  HeroPower:  INTEGER;
  MonPower:   INTEGER;
  CasterId:   INTEGER;
  
BEGIN
  IF Caster <> CASTER_MON THEN BEGIN
    HeroPower :=  Power;
    MonPower  :=  -1;
  END // .IF
  ELSE BEGIN
    HeroPower :=  -1;
    MonPower  :=  Power;
  END; // .ELSE
  
  CasterId  :=  ORD(Caster);
  
  ASM
    MOV ECX, [COMBAT_MAN]
    PUSH HeroPower
    PUSH MonPower
    PUSH Pos2
    PUSH CasterId
    PUSH Pos1
    PUSH Spell
    MOV EAX, $5A0140
    CALL EAX
  END; // .ASM
END; // .PROCEDURE CastSpell

Оставлю на будущее. Процедура позволяет колдовать любое заклинание. Ну а обработка клавиш в Эре есть.

Было бы прекрасно, если бы это было всё, что требуется... Но это просто оригинал !!BM:C и !!BH:C.
Код, приведённый Бесом из моих исходников, такой странный потому, что не все условия колдовства учитываются данной функцией.
Это так, по памяти. Конкретные проблемы забыл, но мучительные поиски решения - всё ещё помню.