proc/Left(t, n) return copytext(t, length(t)-n+1, length(t)-n+2)

client
	proc
		MapFrame(mob/PC/Player/M, client/C, X1, X2, Y1, Y2, LAYER, TAG, SRC)
			if((!C) || (!M)) {world << "\red <b>ERROR: <br>NO CLIENT([C])<br>NO MOB ([M]): [SRC]."; return}
			if(!TAG) {world << "\red <b>ERROR: <br>NO TAG: [SRC]."; return}
			if((!X1) || (!Y1) || (!X2) || (!Y2)) {world << "\red <b>ERROR: <br>NO X1 ([X1]) <br>NO Y1 ([Y1]) <br>NO X2 ([X2]) <br>NO Y2 ([Y2],): [SRC]."; return}
			if(X2 < X1) {world << "\red <b> ERROR: <br>X2 < X1 ([X2] < [X1]): [SRC]."; return}
			if(Y2 < Y1) {world << "\red <b> ERROR: <br>Y2 < Y1 ([Y2] < [Y1]): [SRC]."; return}

			if(!LAYER) {world << "\red <b>ERROR: <br>NO LAYER SET: [SRC]."; return}
			M.MenuLayer += 1
			LAYER += 1
			new /obj/OnScreen/Doubles/Frame/Backing (C, X1, X2, Y1, Y2, LAYER, TAG, SRC)
			M.MenuLayer += 1
			LAYER += 1
			var/{tmpx1 = X1;tmpx2 = X2;tmpy1 = Y1;tmpy2 = Y2}
			//bottem
			for(tmpx1=tmpx1, tmpx1<tmpx2+1,tmpx1++)
				new /obj/OnScreen/Singles/Frame/B(C,tmpx1,0,tmpy1,0, LAYER, TAG, SRC)
			tmpx1 = X1;tmpx2 = X2;tmpy1 = Y1;tmpy2 = Y2
			//top
			for(tmpx2=tmpx2, tmpx2>tmpx1-1,tmpx2--)
				new /obj/OnScreen/Singles/Frame/T(C,tmpx2,0,tmpy2,0, LAYER, TAG, SRC)
			tmpx1 = X1;tmpx2 = X2;tmpy1 = Y1;tmpy2 = Y2
			//left
			for(tmpy1=tmpy1, tmpy1<tmpy2+1,tmpy1++)
				new /obj/OnScreen/Singles/Frame/L(C,tmpx1,0,tmpy1,0, LAYER, TAG, SRC)
			tmpx1 = X1;tmpx2 = X2;tmpy1 = Y1;tmpy2 = Y2
			//right
			for(tmpy2=tmpy2, tmpy2>tmpy1-1,tmpy2--)
				new /obj/OnScreen/Singles/Frame/R(C,tmpx2,0,tmpy2,0, LAYER, TAG, SRC)
			tmpx1 = X1;tmpx2 = X2;tmpy1 = Y1;tmpy2 = Y2

			new /obj/OnScreen/Singles/Frame/BL(C,tmpx1,0,tmpy1,0, LAYER, TAG, SRC)
			new /obj/OnScreen/Singles/Frame/BR(C,tmpx2,0,tmpy1,0, LAYER, TAG, SRC)
			new /obj/OnScreen/Singles/Frame/TL(C,tmpx1,0,tmpy2,0, LAYER, TAG, SRC)
			new /obj/OnScreen/Singles/Frame/TR(C,tmpx2,0,tmpy2,0, LAYER, TAG, SRC)
	//		M.Menu = 1  //For later.
			M.MenuLayer += 1
			LAYER += 1
			return 1 //For if()s return a true.