From 74c55d916ca03049ce867027b9fe2a8608eace15 Mon Sep 17 00:00:00 2001
From: "VivianFoxfoot@gmail.com"
 <VivianFoxfoot@gmail.com@316c924e-a436-60f5-8080-3fe189b3f50e>
Date: Wed, 4 Jan 2012 04:15:54 +0000
Subject: [PATCH] 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 | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/code/game/atom_procs.dm b/code/game/atom_procs.dm
index 60fe1fb6149..a953a55472b 100644
--- a/code/game/atom_procs.dm
+++ b/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