Threaded Mode | Linear Mode

Berserker · 21.03.2014 05:05

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

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

Threaded Mode \| Linear Mode Быстрые клавиши колдовства в бою
Author	Message