#include <acknex.h>
#include <default.c>

ENTITY* box;
ENTITY* z_arrow;

// Here is the *NEW and IMPROVED* Function...
function ArrowEvent()
{
	VECTOR temp2;
	var startx;
	var starty;
	var changey;
	
	mouse_calm = 10;
	mouse_time = 16;
	
	if(event_type == EVENT_CLICK)
	{  	
	  startx = mouse_pos.x;
	  starty = mouse_pos.y;
	  
       while(mouse_left == 1) 
		{
					
		if (mouse_pos.y >= starty)
		  {
		  	changey = mouse_pos.y - starty;
		  	if (changey <= 1000)
		  	  {
		  	  	me.z -= changey / 2;
		  	        box.z = me.z - ((box.max_z - box.min_z)/2);
		          }
		     if (changey > 1000)
		       {
		       	me.z -= changey / 2;
		       	box.z = me.z - ((box.max_z - box.min_z)/2);
		       }
		  }
		
		if (mouse_pos.y <= starty)
		  {
		  	changey = starty - mouse_pos.y;
		  	if (changey <= 1000)
		  	  {
		  	     me.z += changey / 2;
		  	     box.z = me.z - ((box.max_z - box.min_z)/2);
		          }
		     if (changey > 1000)
		       {
		       	me.z += changey / 2;
		       	box.z = me.z - ((box.max_z - box.min_z)/2);
		       }
		  }  
		wait(1);
		}
	}
}

action Arrow()
{
	z_arrow= me;
	my.emask = ENABLE_CLICK;
        my.event = ArrowEvent;
}

void main()
{
	mouse_mode = 1;
	level_load(""); 
	ent_createlayer("skycube+6.bmp",SKY|CUBE|SHOW,1);
	mouse_range = 2000;  	
	vec_set(camera.x,vector(-160,-570,30));
	camera.pan = 31;  
	box = ent_create("box.mdl", vector(270,-350,0),NULL);
	z_arrow = ent_create("le_arrow_blue.mdl",vector(0,0,0),Arrow);
	z_arrow.scale_x = 6;
	z_arrow.scale_y = 6;
	z_arrow.scale_z = 6;
	vec_set(z_arrow.x,vector(box.x,box.y,(box.max_z - box.min_z)/2));
	
	while(1)
	{
		mouse_pos.x = mouse_cursor.x;    
		mouse_pos.y = mouse_cursor.y;
		mouse_pos.z = 30;
		wait(1);
	}
}