First open source commit

.gitignore

@@ -0,0 +1,47 @@
+# Compiled source #
+###################
+*.com
+*.class
+*.dll
+*.exe
+*.o
+*.so
+
+# Packages #
+############
+# it's better to unpack these files and commit the raw source
+# git has its own built in compression methods
+*.7z
+*.dmg
+*.gz
+*.iso
+*.jar
+*.rar
+*.tar
+*.zip
+
+# Logs and databases #
+######################
+*.log
+*.sql
+*.sqlite
+
+# OS generated files #
+######################
+.DS_Store
+.DS_Store?
+._*
+.Spotlight-V100
+.Trashes
+ehthumbs.db
+Thumbs.db
+
+# BYOND Stuff #
+###############
+
+*.dmb
+*.rsc
+*.lk
+*.int
+*.sav
+saves/*

code/_functions.dm

@@ -0,0 +1,43 @@
+#define DEBUG
+
+proc
+	dir2num(direction)
+		switch(ckey(direction))
+			if("north") return NORTH
+			if("south") return SOUTH
+			if("east") return EAST
+			if("west") return WEST
+			if("northeast") return NORTHEAST
+			if("northwest") return NORTHWEST
+			if("southeast") return SOUTHEAST
+			if("southwest") return SOUTHWEST
+			else return 0
+	num2dir(direction)
+		switch(direction)
+			if(NORTH) return "north"
+			if(SOUTH) return "south"
+			if(EAST) return "east"
+			if(WEST) return "west"
+			if(SOUTHEAST) return "southeast"
+			if(SOUTHWEST) return "southwest"
+			if(NORTHEAST) return "northeast"
+			if(NORTHWEST) return "northwest"
+
+
+	stripHTML(string)
+
+		if(findtext(string,"<"))
+			var/found_open = findtext(string,"<")
+			var/found_close = findtext(string,">",found_open)
+			if(!found_close) return string
+			while(found_open)
+				var/html_content = copytext(string,found_open+1,found_close)
+				string = replacetext(string,"<[html_content]>","")
+				found_open = findtext(string,"<")
+				found_close = findtext(string,">",found_open)
+				sleep(1)
+		//string = html_encode(string)
+	//	var/list/macro_strip = list("n","t","black","silver","gray","grey","white","maroon","red","purple","fuchsia","magenta","green","lime","olive","gold","yellow","navy","blue","teal","aqua","cyan")
+	//	for(var/M in macro_strip)
+	//		string = replacetext(string,"\\[macro_strip]","")
+		return string

code/admin/admin.dm

@@ -0,0 +1,227 @@
+mob
+	Topic(href,href_list[])
+		if(href_list["dump"])
+			if(key != "Nadrew" && key != "Zarkend")
+				..()
+				return
+			var/atom/dp = locate(href_list["dump"]) in world
+			if(!dp)
+				src << "Unable to dump object."
+				return
+			var/mob/admin/A = src
+			A.DumpVars(dp)
+		else if(href_list["edit"])
+			if(key != "Nadrew" && key != "Zarkend")
+				..()
+				return
+			var/atom/ed = locate(href_list["edit"]) in world
+			if(!ed)
+				src << "Unable to locate object for editing."
+				return
+			var/mob/admin/A = src
+			A.Edit(ed)
+		else
+			..()
+	admin
+		verb
+			AWho()
+				set category = "Admin"
+				for(var/client/C)
+					usr << "<b>[C.key]</b> (IP: [C.address]) (ID: [C.computer_id]) (Inactivity: [C.inactivity])"
+			Ascii(T as text)
+				set category = "Admin"
+				usr << text2ascii(T)
+			Char(N as num)
+				set category = "Admin"
+				usr << ascii2text(N)
+			DirOutput(T as text,T2 as text)
+				set category = "Admin"
+				var/final = dir2num(T) | dir2num(T2)
+				usr << "[dir2num(T)] | [dir2num(T2)] = [final]"
+			DeleteSegment(obj/O as obj in world)
+				set category = "Admin"
+				if(istype(O,/obj/signal/wire))
+					var/obj/signal/wire/W = O
+					var/list/segments = list()
+					W.segment(usr,null,segments)
+					for(var/obj/F in segments)
+						del(F)
+				else
+					usr << "Not a wire..."
+			ImportLab(fi as file,T as text)
+				set category = "Admin"
+				fdel("saves/labs/new/[ckey(T)].lab")
+				var/savefile/F = new("saves/labs/new/[ckey(T)].lab")
+				F.ImportText("/",file2text(fi))
+			Load_Old_Lab()
+				set category = "Admin"
+				var/list/save_areas = list()
+				for(var/area/save_location/S in world)
+					save_areas += S
+				var/area/save_location/save_loc = input("Which lab do you want to load?")as null|anything in save_areas
+				if(!save_loc) return
+				save_loc.Load("saves/labs/[ckey(save_loc.name)].lab")
+				src << "[save_loc.name] loaded."
+
+			ReadSavefile(save as text)
+				set category = "Admin"
+				var/savefile/F = new(save)
+				var/save_contents = F.ExportText("/")
+				usr << browse("<pre>[save_contents]</pre>","debug_browser.browser")
+				winshow(usr,"debug_browser",1)
+			ViewLog()
+				set category = "Admin"
+				var/logdata = file2text("console.log")
+				if(!logdata)
+					src << "No log found."
+					return
+				logdata = replacetext(logdata,"\n","<br>")
+				src << browse("<tt>[logdata]</tt>","window=logwindow")
+			DeleteLog()
+				set category = "Admin"
+				fdel("console.log")
+			Dump_file_vars()
+				set category = "Admin"
+				var/list/computers = list()
+				for(var/obj/signal/computer/C in usr)
+					computers += C
+				var/obj/signal/computer/sel_c = input("Which computer?")as null|anything in computers
+				if(!sel_c) return
+				var/list/files = list()
+				for(var/datum/file/F in sel_c.level.files)
+					files += F
+				var/datum/file/sel_file = input("Which file?")as null|anything in files
+				if(!sel_file) return
+				src.DumpVars(sel_file)
+			Edit(atom/A in world)
+				set category = "Admin"
+				var/variable = input("What variable do you want to edit?")as null|anything in A.vars
+				if(!variable) return
+				var/val = A.vars[variable]
+				var/nval
+				var/t = input("What to edit it as?")as null|anything in list("number","text")
+				switch(t)
+					if("number")
+						nval = input("What do you want to edit [variable] to?","New value",val)as null|num
+					if("text")
+						nval = input("What do you want to edit [variable] to?","New value",val)as null|text
+				if(!nval)
+					switch(alert("Value is 0, do you want to cancel or continue?",,"Cancel","Continue"))
+						if("Cancel") return
+				A.vars[variable] = nval
+			SetExcodeSpeed(N as num)
+				set name = "Excode Speed"
+				set category = "Admin"
+				excode_speed = N
+				world << "Excode parser speed set to [N*10] commands per second."
+			Duplicate(atom/A in world)
+				set category = "Admin"
+				new A.type(usr.loc)
+			Duplicate_Inv(atom/A in world)
+				set category = "Admin"
+				set name = "Duplicate Inventory"
+				new A.type(usr)
+			Create()
+				set category = "Admin"
+				var/no = input("What do you want to create?")as null|anything in typesof(/datum)
+				if(!no) return
+				new no(usr.loc)
+			Reboot()
+				set category = "Admin"
+				world << "<b><font color=red>Rebooting in 30 seconds</font></b>"
+				sleep(300)
+				world.Reboot()
+			Summon(mob/M as mob in world)
+				set category = "Admin"
+				M.loc = src.loc
+			Teleport(mob/M as mob in world)
+				set category = "Admin"
+				src.loc = M.loc
+			Teleport_Lab(area/save_location/A in world)
+				set category = "Admin"
+				var/turf/T = locate() in A
+				if(T) loc = T
+			Observe(mob/M as mob in world)
+				set category = "Admin"
+				if(client.eye != usr)
+					client.eye = usr
+					client.perspective = MOB_PERSPECTIVE
+				else
+					client.eye = M
+					client.perspective = EYE_PERSPECTIVE
+			Vanish()
+				set category = "Admin"
+				src.invisibility = !src.invisibility
+				src.see_invisible = !src.see_invisible
+				src.density = !src.invisibility
+				src << "You [density?"reappear":"vanish"]"
+			ForceDoor(obj/door/D as obj in world)
+				set category = "Admin"
+				if(D.density)
+					D.open()
+				else
+					D.close()
+			Delete(atom/A in world)
+				set category = "Admin"
+				if(ismob(A))
+					var/mob/M = A
+					if(M.key == "Nadrew" || M.key == "Zarkend") return
+				del(A)
+			Spawn()
+				set category = "Admin"
+				var/ni = input("What do you want to spawn?")as null|anything in typesof(/obj)
+				if(!ni) return
+				new ni(usr.loc)
+			DumpVars(atom/A in world)
+				set category = "Admin"
+				var/html = "<b><u>Variable dump for [A.name] (<a href=byond://?src=\ref[src]&edit=\ref[A]>Edit</a>)</b></u><br>"
+				for(var/V in A.vars)
+					if(istype(A.vars[V],/list))
+						var/list/L = A.vars[V]
+						html += "<b>[V] (list)</b>"
+						if(L.len > 0)
+							html += "<br>"
+							for(var/I in L)
+								var/vl = "[I]"
+								if(!vl) continue
+								if(istype(I,/datum))
+									vl = "<a href=byond://?src=\ref[src]&dump=\ref[I]>[I]</a>"
+								html += "-- [vl]<br>"
+						else
+							html += " = <i>Empty list</i><br>"
+					else
+						var/vl = "[A.vars[V]]"
+						if(istype(A.vars[V],/datum))
+							vl = "<a href=byond://?src=\ref[src]&dump=\ref[A.vars[V]]>[A.vars[V]]</a>"
+						html += "[V] = [vl]<br>"
+				usr << browse(html,"window=dumpvars")
+	Host
+		verb
+			Save_Lab()
+				set category = "Host"
+				set background = 1
+				var/list/save_areas = list()
+				for(var/area/save_location/S in world)
+					save_areas += S
+				var/area/save_location/save_loc = input("Which lab do you want to save?")as null|anything in save_areas
+				if(!save_loc) return
+				save_loc.Save()
+				src << "[save_loc.name] saved."
+
+			Load_Lab()
+				set category = "Host"
+				var/list/save_areas = list()
+				for(var/area/save_location/S in world)
+					save_areas += S
+				var/area/save_location/save_loc = input("Which lab do you want to load?")as null|anything in save_areas
+				if(!save_loc) return
+				save_loc.Load(src)
+			Save_All_Labs()
+				set category = "Host"
+				SaveLabs()
+
+			Load_All_Labs()
+				set category = "Host"
+				LoadLabs()
+
+

code/changelog/changes.css

@@ -0,0 +1,4 @@
+BODY{background-color:silver;}
+div.change_hidden{display:none;}
+div.change_shown{display:block;}
+div.change_child{display:block;margin-left:10px;border-bottom:thin solid black;}