From de97f8b2898e8fd00c5d6108e2832b7e6cd3668f Mon Sep 17 00:00:00 2001
From: Jan <>
Date: Mon, 2 Feb 2015 18:49:15 +0100
Subject: TemplePushingB.c4s

---
 TemplePushing.c4s/System.c4g/Curses.c | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 TemplePushing.c4s/System.c4g/Curses.c

(limited to 'TemplePushing.c4s/System.c4g/Curses.c')

diff --git a/TemplePushing.c4s/System.c4g/Curses.c b/TemplePushing.c4s/System.c4g/Curses.c
new file mode 100644
index 0000000..7a1e86f
--- /dev/null
+++ b/TemplePushing.c4s/System.c4g/Curses.c
@@ -0,0 +1,30 @@
+/*-- 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);
+}
-- 
cgit v1.2.3-54-g00ecf