#include <acknex.h>
#include <default.c>
ENTITY* molen_arm;
var gcon;

action swing_gondela ()
{
	my.scale_x=8;my.scale_y=8;
	phent_settype (my,PH_RIGID,PH_BOX);
	phent_setmass(my,1,PH_SPHERE);
	gcon = phcon_add(PH_HINGE,my,NULL);
	phcon_setparams1(gcon,my.x,vector(0,0,1),nullvector);
	phcon_setparams2(gcon,vector(-360,360,0),nullvector,nullvector);
	
	molen_arm = my;
}

action molen ()
{
	var con;
	while(molen_arm==NULL) {wait(1);}
	phent_settype (my,PH_RIGID,PH_SPHERE);
	phent_setmass(my,1,PH_SPHERE);
	con = phcon_add(PH_HINGE,my,molen_arm);
	
	phcon_setparams1(con,my.x,vector(0,0,1),nullvector);
	phcon_setparams2(con,vector(-360,360,0),nullvector,nullvector);
	phcon_setmotor (con,vector(3,10,0),nullvector,nullvector);
}
function main ()
{
	level_load ("");wait(3);
	ent_create("ph_box.mdl",nullvector,swing_gondela);
	ent_create("ph_sphere.mdl",vector(50,50,20),molen);
	ent_create("ph_sphere.mdl",vector(0,50,20),molen);
	ent_create("ph_sphere.mdl",vector(-50,50,20),molen);
	ent_create("ph_sphere.mdl",vector(-50,0,20),molen);
	ent_create("ph_sphere.mdl",vector(-50,-50,20),molen);
	ent_create("ph_sphere.mdl",vector(50,-50,20),molen);
	ent_create("ph_sphere.mdl",vector(50,0,20),molen);
	ent_create("ph_sphere.mdl",vector(0,-50,20),molen);
	ph_setgravity (vector(0,0,-300));
	
	while(molen_arm==NULL) {wait(1);}
	phcon_setmotor (gcon,vector(1,2,0),nullvector,nullvector);

	vec_set(camera.pan,vector(340,-18,0));vec_set(camera.x,vector(-173,47,72));
}