TemplePushing.c4s/System.c4g/Curses.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

/*-- Prevent curse scrolls from vanishing --*/

#strict 2

#appendto CAHE

public func Activate(pCaster,pRealcaster)
{
  var pClonk=pRealcaster;
  if(!pClonk) pClonk=pCaster;
  if (!pClonk) return(1);

  pCasterClonk = pClonk; // Caster speichern, damit es sich unter keinen Umständen selber wählen kann
  // Auswählen wenn möglich
  if (pClonk->~DoSpellSelect(this(), 300, pCaster)) return(1);

  var pTarget;
  // Clonk kann nicht auswählen: nächsten Gegner verfluchen
  while(pTarget=FindObject(0,-300,-300,150,150,OCF_CrewMember,0,0,NoContainer(),pTarget))
      if(SelectorTarget(pTarget))
              return(ActivateTarget(pTarget));

  // ansonsten geht nich
  RemoveObject();
  return(0);
}