7 files changed, 49 insertions, 0 deletions
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/ActMap.txt b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/ActMap.txt
new file mode 100644
index 0000000..8a13109
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/ActMap.txt
@@ -0,0 +1,7 @@
+[Action]
+Name=IsOnFire
+Delay=1
+Length=1
+FacetBase=1
+NextAction=IsOnFire
+EndCall=DoExtinguish
+\ No newline at end of file
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DefCore.txt b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DefCore.txt
new file mode 100644
index 0000000..626702c
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DefCore.txt
@@ -0,0 +1,10 @@
+[DefCore]
+id=_ETG
+Version=4,9,8
+Name=Extinguisher
+Category=C4D_StaticBack|C4D_Rule
+Timer=5
+TimerCall=Check
+Width=1
+Height=1
+Picture=0,0,64,64
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescDE.txt b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescDE.txt
new file mode 100644
index 0000000..f8cae0d
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescDE.txt
@@ -0,0 +1 @@
+Sorgt dafür, dass brennende Objekte nach einiger Zeit gelöscht werden.
+\ No newline at end of file
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescUS.txt b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescUS.txt
new file mode 100644
index 0000000..0c93c3f
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/DescUS.txt
@@ -0,0 +1 @@
+Extinguishes burning objects after a while.
+\ No newline at end of file
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Graphics.png b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Graphics.png
new file mode 100644
index 0000000..6b89fed
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Graphics.png
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Names.txt b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Names.txt
new file mode 100644
index 0000000..2466655
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Names.txt
@@ -0,0 +1,2 @@
+DE:Löscher
+US:Extinguisher
diff --git a/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Script.c b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Script.c
new file mode 100644
index 0000000..87dbd75
--- /dev/null
+++ b/TemplePushing.c4s/Locals.c4d/Extinguisher.c4d/Script.c
@@ -0,0 +1,28 @@
+/*-- Löschobjekt --*/
+
+#strict
+
+func Check()
+{
+  if(GetAction()ne"Idle") return(0);
+  while(Var()=FindObject(0,0,0,0,0,OCF_OnFire(),0,0,0,Var()))
+    if(!FindObject(GetID(),0,0,0,0,0,"IsOnFire",Var()) && GetAlive(Var(0)))
+     ObjectSetAction(CreateObject(GetID(),0,0,-1),"IsOnFire",Var());
+  return(1);
+}
+
+func DoExtinguish()
+{
+  if(!GetAlive(GetActionTarget())) return(RemoveObject());
+  if(GetActTime()>200 && !Random(4)) {
+    Extinguish(GetActionTarget());
+    return(RemoveObject());
+  }
+  return(1);
+}
+
+func Activate()
+{
+  MessageWindow(GetDesc(),Par());
+  return(1);
+}