ERROR:internal error: value stack overflow!

/*-- Nanosuitclonk --*/

#strict
#include HZCK


static mode;

protected func Initialize(){
   SetAction("Walk");
   CreateObject(DCLK,0,0,GetOwner())->Start(this(),"Left");
   CreateObject(DCLK,0,0,GetOwner())->Start(this(),"Right");
         SetPhysical("Magic", 50000, PHYS_Permanent, this());
        DoMagicEnergy(100,this(),1);
  return(1);
}

public func ControlScrollLeft(){
   Message("Die linke Scrolltaste wurde Betätigt!",this());
        CreateContents(EFLN,this());
        //Waffenscroll hoch
   return(1);}

public func ControlScrollRight(){
   Message("Die rechte Scrolltaste wurde Betätigt!",this());
        CreateContents(SFLN,this());
        //Waffenscroll runter
   return(1);}


protected func ControlSpecial2()
{
  // Anzug-Modi
  CreateMenu(NANO,this());
  AddMenuItem("Panzerungsmodus","DefMode",ICDE);
  AddMenuItem("Geschwindugkeitsmodus","SpeedMode",NANO);
  AddMenuItem("Stärkemodus","StrMode",NANO);
  AddMenuItem("Tarnmodus","TarnMode",NANO);
  AddMenuItem("Waffenmodus","WpnMode",NANO);


  return(0);
}


protected func ControlUp()
{
  if (mode == 3){

    if (GetMagicEnergy() - 30 < 0){
      ResetPhysical(this(),PHYS_Current);
      Jump();
      Control2Effect("ControlUp");
      SetPhysical("Jump", GetPhysical("Jump", PHYS_Current, this()) + 8000, PHYS_StackTemporary, this());
      return(2);
    }

  DoMagicEnergy(-30);

  Jump();
  // Steuerung an Effekt weitergeben
  Control2Effect("ControlUp");
  return(1);

  }
}




protected func ControlSpecial2Double()
{
  //Gibts nicht
  ControlSpecial2();
  return(1);
}

public func DefMode(){              //Panzerungsmodus
  ResetPhysical(this(),PHYS_Current);//Veränderungen durch andere Modi reseten
  SetVisibility(VIS_All());          //Nach Tarnmodus muss man auch wieder sichtbar werden
  CreateContents(ROCK,this());      //Test um Aufruf zu bestätigen(Wirkung kommt noch)
  mode = 1;                          //Modus speichern
  return(1);
}




public func SpeedMode(){ //Geschwindigkeitsmodus
  ResetPhysical(this(),PHYS_Current);
  SetVisibility(VIS_All());
  SetPhysical("Walk", GetPhysical("Walk", PHYS_Current, this()) + 25000, PHYS_StackTemporary, this());
  mode = 2;

  return(1);
}





public func StrMode(){ //Stärkemodus
  ResetPhysical(this(),PHYS_Current);
  SetVisibility(VIS_All());
  SetPhysical("Jump", GetPhysical("Jump", PHYS_Current, this()) + 8000, PHYS_StackTemporary, this());
  mode = 3;
  return(1);
}




public func TarnMode(){ //Tarnmodus
  ResetPhysical(this(),PHYS_Current);
  SetVisibility(VIS_None,this());
  mode = 4;
  return(1);
}




public func WpnMode(){ //Waffenmodus
  SetVisibility(VIS_All(),PHYS_Current);
  ResetPhysical(this());
  mode = 5;
  return(1);

}




public func UpdateCharge()                      //Enerieverbrauch und Nachschub
{
      if (mode==4){                            //Tarnmodus
                                           
        if (GetMagicEnergy(this()) -2 < 0){    //Zu wenig Energie?
        PlayerMessage(GetOwner(this()),"Tarnfeld deaktiviert",this());
        DefMode();                              //Pech gehabt
        return(0);
        }
        DoMagicEnergy(-2,this(),1);            //Energieverbrauch
        return(1);
      }
     
     
      if (mode==2){                                                    //Geschwindigkeitsmodus
        if (GetAction(this())=="Walk"){                                //Läuft er?
            if (GetMagicEnergy(this())-2 <0){                          //zu wenig Energie?
            PlayerMessage(GetOwner(this()),"Energie kritisch",this()); //Mal Bescheid geben
            DefMode();                                                //Zum Schutz
            return(0);
            }
        }
       
        DoMagicEnergy(-2,this,1);                                      //Energieverbrauch
        return(1);
      }   
     
      DoMagicEnergy(+5, this(),1);                                      //Nachschub

  return(1);
}