mob
	Logout()
		winset(src, null, "command=.quit")
	Login()
		ChangePane("Login")
	var
		User
		Password
		tmp/Wrong_times = 0
	verb
		Access()
			set hidden = 1
			var Name = winget(usr,"Login.Name","text")
			var Pass = winget(usr,"Login.Pass","text")
			var Correct
			var Denied = FALSE
			if((Name in Blocked_Usernames))del(src)
			if(!Name)
				winset(usr,"Login.Name","background-color='#E16A6A'")
				Denied = TRUE
			if(!Pass)
				winset(usr,"Login.Pass","background-color='#E16A6A'")
				Denied = TRUE
			if(Denied == FALSE)
				if(fexists("Clients/[User]/[User]_Main.sav"))
					var/savefile/F = new("Clients/[User]/[User]_Main.sav")
					F["Password"] >> Correct
					if(Pass == Correct)
						F["User"] >> src.User
						F["Password"] >> Password
						if((src.client.computer_id in owner)||(src.User in owner))
							src.verbs += typesof("/owner/verb")
							src.client.rank = "Owner"
							winset(src, "ownerMenu", "parent='menu';name='Owner'")
							winset(src, "ownerMenuGhostMode", "parent='ownerMenu';name='Ghost Mode';command=GhostMode")
							winset(src, "ownerMenuEdit", "parent='ownerMenu';name='Edit';command=Edit")
							winset(src, "ownerMenuBoot", "parent='ownerMenu';name='Boot';command=Boot")
							winset(src, "ownerMenuWipeSave", "parent='ownerMenu';name='Wipe Save';command=WipeSave")
							winset(src, "ownerMenuAddAdmin", "parent='ownerMenu';name='Add Admin';command=AddAdmin")
							winset(src, "ownerMenuRemoveAddmin", "parent='ownerMenu';name='Remove Admin';command=RemoveAdmin")
						if((src.User in admin)||(src.client.computer_id in owner)||(src.User in owner))
							src.verbs += typesof("/admin/verb")
							winset(src, "StaffMenu", "parent='menu';name='Admin'")
							winset(src, "StaffMenuB", "parent='StaffMenu';name='Ban';command=Ban")
							winset(src, "StaffMenuM", "parent='StaffMenu';name='Mute';command=Mute")
							winset(src, "StaffMenuU", "parent='StaffMenu';name='Unban';command=Unban")
							winset(src, "StaffMenuUM", "parent='StaffMenu';name='Unmute';command=Unmute")
							winset(src, "StaffMenuTP", "parent='StaffMenu';name='Teleport';command=Teleport")
							src.client.rank = "Admin"
						if((src.User in subs_list))
							src << "Thanks for subscripting or w/e the fuck that is called."
						ChangePane("Load")
						GameHourLoop()
					else
						winset(usr,"Login.Pass","background-color='#E16A6A'")
						winset(usr,"Login.Pass","text=''")
						Wrong_times++
						if(Wrong_times > 4)new/Blocked(src,4320);del(src)
						return
				else
					winset(usr,"Login.Name","background-color='#E16A6A'")
					winset(usr,"Login.Name","text=''")
					winset(usr,"Login.Pass","background-color='#E16A6A'")
					winset(usr,"Login.Pass","text=''")
					Wrong_times++
					if(Wrong_times > 4)new/Blocked(src,4320);del(src)
		Create()
			set hidden = 1
			var/Name=winget(usr,"Create.Name","text")
			var/Pass=winget(usr,"Create.Pass","text")
			var/Pass2=winget(usr,"Create.Pass2","text")
			var/can=0
			winset(usr,"Create.Name","background-color='#FFFFFF'")
			winset(usr,"Create.Pass","background-color='#FFFFFF'")
			winset(usr,"Create.Pass2","background-color='#FFFFFF'")
			if(!Name)
				winset(usr,"Create.Name","background-color='#E16A6A'")
				can=1
			if(!Pass)
				winset(usr,"Create.Pass","background-color='#E16A6A'")
				can=1
			if(!Pass2)
				winset(usr,"Create.Pass2","background-color='#E16A6A'")
				can=1
			if(Pass != Pass2)
				winset(usr,"Create.Pass","background-color='#E16A6A'")
				winset(usr,"Create.Pass2","background-color='#E16A6A'")
				can=1
			if(Taken_Names.Find(Name))
				winset(usr,"Create.Name","background-color='#E16A6A'")
				alert(usr,"Name Already Taken","Error")
				can=1
			if(!can)
				usr.User=Name
				usr.Password=Pass
				Taken_Names.Add(Name)
				client.Save()
				ChangePane("Main")