/*-- Prevent Curse Scrolls from vanishing --*/

#strict 2

#appendto CAHE

local pCasterClonk;

public func Activate(pCaster,pRealcaster)
{
  var pClonk;
  if(pRealcaster) pClonk=pRealcaster;
  else pClonk=pCaster;
  
  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)) 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
  var iResult;
  if (iResult = CheckEffect("*Curse*", 0, 125)) return(iResult!=-1 && RemoveObject());
  
  return(0);
}