Aquawipf problem

[Action]
Name=Build
Procedure=BUILD
Directions=2
FlipDir=1
Length=8
Delay=2
Facet=128,220,16,20
NextAction=Build
StartCall=Building
InLiquidAction=Swim


[Action]
Name=Bridge
Procedure=BRIDGE
Directions=2
FlipDir=1
Length=16
Delay=1
Facet=0,60,16,20
NextAction=Bridge
StartCall=Digging
InLiquidAction=Swim

Code:

protected func ControlSpecial()
{
  [$CtrlInventoryDesc$|Image=CXIV]
 // Inventory verschieben
  return (ShiftContents(0,0,0,1));
}
 
// Inventarauswahl
protected func ControlContents() {  /*Standardaktivität*/  return(0); }

// Itemlimit
 func MaxContentsCount() { return 3; }

Dabei kannst du die 3 in MaxContentsCount durch die gewünschte Zahl an Gegenständen ersetzen.

/*-- Wipf --*/

#strict
#include CLNK
#include WIPF

local Bait; // Verfolgter Köder

public func IsPossessible() { return(1); }

var pBait;
// Nur wenn der Wipf ausgewachsen ist
if (GetCon()==100)
// Soll nicht zu einfach sein...
if (!Random(5))
// Ein Köder in der Nähe?
while (pBait = FindObject( 0, -250,-250,500,500, 0,0,0,NoContainer(), pBait))
// Köder?
if(WildcardMatch(GetAction(pBait), "*MeatBait*"))
// Je nach Köderqualität...
if (Random(100) < pBait->~IsBait())
{
// ...hinrennen
SetCommand(this(), "Follow", pBait);
// Und Köder merken
Bait = pBait;
}

// Graben, aber keine Richtung? Dann wieder laufen
if(GetAction() S= "Dig" && GetComDir() == COMD_None)
SetAction("Walk");

// Die folgenden Aktionen nur im Freien
if (Contained()) return();

// Die folgenden Aktionen nur im Gehen oder Schwimmen
if (GetAction() ne "Walk" && GetAction() ne "Swim") return();

// Auftauchen, wenn der Atem ausgeht
if (InLiquid() && GetBreath() <= 25 && GetComDir() != COMD_Up())
SetComDir(COMD_Up());

// Brennenden Objekten ausweichen
var pBurning;
if(pBurning = FindObject(0, -!GetDir()*80,-30,80,35, OCF_OnFire()))
{
if(!Random(5) || !SpaceToFlee(pBurning))
{
if(GetDir()) SetComDir(COMD_Right());
else SetComDir(COMD_Left());
Jump();
}
else
{
if(GetComDir()==COMD_Left()) SetComDir(COMD_Right());
else SetComDir(COMD_Left());
}
}

// Nichts machen
if (Random(2)) return();

// Freigraben, falls er feststeckt

[Action]
Name=DigFree
Procedure=DIG
Directions=2
FlipDir=1
Length=18
Delay=10
Facet=0,0,24,18
NextAction=Walk
StartCall=DigSound
DigFree=9


[Action]
Name=Eat
Procedure=NONE
Directions=2
FlipDir=1
Length=6
Delay=4
Facet=0,54,24,18
NextAction=Walk
EndCall=Eating

[Action]
Name=Sit
Procedure=NONE
Directions=2
FlipDir=1
Length=6
Delay=3
Facet=0,54,24,18
NextAction=Sit
StartCall=Sitting

siehe hier