TUST or "The community library"

void stateHappy ( STMACHINE *stm ) 
{
   ENTITY *ent = stm_me ( stm );
   ENTITY *entFriend = stm_me ( stm_by_index ( stm_index ( friends_index ) ) );
   if ( entFriend->happyness > 50 )
      ent->happyness += time_step;
   else
      ent->happyness -= time_step * 0.5;
   if ( ent->happyness < 50 )
      stm_set_state ( stm, stateWretch, 0 );
   if ( ent->happyness > 80 )
      stm_set_state ( stm, stateSmiling, 0 );
}

/// @brief (Server) Entfernt eine Entity im Spiel.
///
/// @param nethandle		das globale Handle der Entity
void net_EntRemove(var nethandle)
{
	#ifdef NET_USE_ANET
		enet_svent_remove(nethandle);
	#else
	#ifdef NET_USE_GSTNET
		GSTNet_ent_remove(net_GetPointer(nethandle));
	#else
	#ifdef NET_USE_ACKNET
		return;
	#endif
	#endif
	#endif
}

@param[TAB]nethandle[TAB][TAB]das globale Handle der Entity

@param[SPACE]nethandle[SPACE][SPACE]das globale Handle der Entity

draw_font("Hello World", 16, 16, vector(0, 255, 0), font, SHADOW, 100);

And I have no problems with his words, I grew up with the internet.

TEXT *txtCamera =
{
	string =
	(
		".space=2",
		"Pan.slider=-180,180,1,%.0f,camera->pan,evnCameraLocate",
		"Tilt.slider=-90,90,1,%.0f,camera->tilt,evnCameraLocate",
		".space=2",
		"Distance.slider=10,200,1,%.0f,nCameraDistance,evnCameraLocate",
		"Arc.slider=1,179,1,%.0f,camera->arc",
		".space=2",
		"Ambient.slider=0,100,1,%.0f,camera->ambient",
		"Background color.sub=txtBackgroundColor",
		".space=3"
	);
}

/**
 * \defgroup TrashModule Trash
 * \brief    Linked trash or stack implementation.
 * \ingroup  GenericScriptLibrary
 * \{
 * \file  trash.h
 * \brief Linked trash or stack implementation header.
 * \file  trash.c
 * \brief Linked trash or stack implementation code.
 * \file  test_trash.c
 * \brief Linked trash or stack implementation test code.
 */

// close the group at the end
/**
 * \}
 */

/* The Ultimate Script Library 
-----------------------------------------------------------------------------------
   Module: Trash
   Linked trash or stack implementation.

   Read the documentation for further information: TUST\Documentation\index.html
----------------------------------------------------------------------------------- 
*/

action player_func()
{
	// Allow only one player!
	if(proc_status(player_func) > 1)
	{
		error("Only one player can be active at a time!");
		return;
	}
	
	my->z += 8; // Lift player up a little to prevent falling through ground
	
	// Setup the camera
	cam_target(me); // Focus the player
	cam_mouse_speed(25); // Set a fast mouse.
	cam_basic_offset(vector(0, 0, 20)); // We want a camera focus a little bit above the player
	cam_3person_offset(vector(-250, -30, 0)); // We want to camera to be behind 
	cam_set_mode(CAMERA_THIRD_PERSON); // Enable third person camera
	
	// Setup the CCT
	CCT *cct = cct_create(my.x, vector(10, 16, 46));
	while(1)
	{
		cam_update(); // Update the camera each frame
		my->pan = camera->pan; // We sync the entity rotation with the camera
		
		// Setup the cct input
		cct_set_input(cct, CCT_FORWARD, key_w - key_s);
		cct_set_input(cct, CCT_SIDEWARD, key_a - key_d);
		cct_set_input(cct, CCT_JUMP, key_space);
		cct_set_input(cct, CCT_CRAWL, key_ctrl);
		cct_set_input(cct, CCT_SPRINT, key_shift);
		cct_set_rotation(cct, my->pan);
		cct_update(cct); // Update the character controller
		
		cct_get_position(cct, &my->x); // Get the position of the character
		
		wait(1);
	}
}

input_init(); // Initialize the input system

// Setup axis controls
input_set_buttons("forward", key_for_str("w"), key_for_str("s"));
input_set_axis("forward", key_force.y, 1, 0.01);

input_set_buttons("sideward", key_for_str("a"), key_for_str("d"));
input_set_axis("sideward", key_force.x, -1, 0.01); // Invert X-Axis to get proper left-right movement

// Three simple buttons for movement
input_set_button("jump", key_for_str("space"));
input_set_button("crouch", 29); // ctrl
input_set_button("sprint", key_for_str("shiftl"));

var inputValue = input_get("forward");

//complete nonsense order for demonstration, only
int CInput_Forward = 0;
int CInput_Jump = 1;
...
input_set_buttons(CInput_Forward, key_for_str("w"), key_for_str("s"));
...
var inputValue = input_get(CInput_Forward);

/**
 * \brief This method does something
 * \param p This parameter is used
 */
void do_something(int p);

int floor(float f)
{
int i = f;
if(i < 0) i--;
return i;
}

// If next line is uncommented, tust will use this configuration
//#define TUST_TYPE skill[42]
#include "tust.h"

/**
 * A global skill to save an entity type
 */
#define TUST_TYPE skill[99]

/**
 * A global skill to save an entity sub type
 */
#define TUST_SUB_TYPE skill[98]

/**
 * A global skill to save a data pointer
 */
#define TUST_DATA skill[97]