Current time: 24.11.2024, 22:52 Hello There, Guest! (LoginRegister)
Language: english | russian  

Thread Closed 
Threaded Mode | Linear Mode
Быстрые клавиши колдовства в бою
Author Message
MOP Offline
Moderators

Posts: 1468
Post: #8

(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.
Код, приведённый Бесом из моих исходников, такой странный потому, что не все условия колдовства учитываются данной функцией.
Это так, по памяти. Конкретные проблемы забыл, но мучительные поиски решения - всё ещё помню.


Circle of destruction, hammer comes crushing
Powerhouse of energy
Whipping up a fury, dominating flurry
We create the battery
22.08.2020 14:57
Find all posts by this user
« Next Oldest | Next Newest »
Thread Closed 


Messages In This Thread
Быстрые клавиши колдовства в бою - Bes - 20.03.2014, 13:41
RE: Быстрые клавиши колдовства в бою - Bes - 22.08.2020, 05:27
RE: Быстрые клавиши колдовства в бою - Bes - 22.08.2020, 05:50
RE: Быстрые клавиши колдовства в бою - daemon_n - 22.08.2020, 09:46
RE: Быстрые клавиши колдовства в бою - Berserker - 22.08.2020, 15:25
RE: Быстрые клавиши колдовства в бою - MOP - 22.08.2020, 15:51
RE: Быстрые клавиши колдовства в бою - Bes - 22.08.2020, 16:06
RE: Быстрые клавиши колдовства в бою - Berserker - 22.08.2020, 16:24
RE: Технич.тема - Berserker - 20.03.2014, 22:47
RE: Технич.тема - Bes - 20.03.2014, 22:59
RE: Технич.тема - Berserker - 21.03.2014, 05:05
RE: Технич.тема - MOP - 22.08.2020 14:57

Forum Jump:

Powered by MyBB Copyright © 2002-2024 MyBB Group