Fixes a bug where AIs could examine people.

Adds another proc (alt-click) that functions by default to pull.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@2911 316c924e-a436-60f5-8080-3fe189b3f50e

code/game/atom_procs.dm

@@ -571,7 +571,16 @@ var/using_new_click_proc = 0 //TODO ERRORAGE (This is temporary, while the DblCl
 	var/parameters = params2list(params)
 
 	if(parameters["shift"]){
-		ShiftClick(usr)
+		if(!isAI(usr))
+			ShiftClick(usr)
+		return
+	}
+
+	// ------- ALT-CLICK -------
+
+	if(parameters["alt"]){
+		if(!isAI(usr))
+			AltClick(usr)
 		return
 	}
 
@@ -868,6 +877,16 @@ var/using_new_click_proc = 0 //TODO ERRORAGE (This is temporary, while the DblCl
 	examine()
 	return
 
+/atom/proc/AltClick()
+
+	src:pull()
+
+/*
+	if(hascall(src,"pull"))
+		call(src,/atom/movable/verb/pull)()
+*/
+	return
+
 /atom/proc/get_global_map_pos()
 	if(!islist(global_map) || isemptylist(global_map)) return
 	var/cur_x = null