From 0b344ff76a1532cae792b9117b7c4b1c82862b2c Mon Sep 17 00:00:00 2001
From: Duck- <e2204370@drdrb.com>
Date: Mon, 22 Dec 2014 00:31:54 -0500
Subject: [PATCH] TRAINS

CHOO CHOO
---
 aurora.dme                                    |   3 +
 code/datums/supplypacks.dm                    |  16 +
 code/game/objects/items/weapons/cards_ids.dm  |   9 +-
 code/modules/mob/living/carbon/human/human.dm |   3 +-
 code/modules/mob/mob_movement.dm              |   6 +-
 code/modules/vehicles/cargo_train.dm          | 303 +++++++++++++++
 code/modules/vehicles/train.dm                | 229 +++++++++++
 code/modules/vehicles/vehicle.dm              | 358 ++++++++++++++++++
 data/investigate/gravity.html                 |  30 +-
 icons/obj/vehicles.dmi                        | Bin 6970 -> 10594 bytes
 10 files changed, 938 insertions(+), 19 deletions(-)
 create mode 100644 code/modules/vehicles/cargo_train.dm
 create mode 100644 code/modules/vehicles/train.dm
 create mode 100644 code/modules/vehicles/vehicle.dm

diff --git a/aurora.dme b/aurora.dme
index 858cb0a4..c1df4764 100644
--- a/aurora.dme
+++ b/aurora.dme
@@ -1441,6 +1441,9 @@
 #include "code\modules\telesci\gps.dm"
 #include "code\modules\telesci\telepad.dm"
 #include "code\modules\telesci\telesci_computer.dm"
+#include "code\modules\vehicles\cargo_train.dm"
+#include "code\modules\vehicles\train.dm"
+#include "code\modules\vehicles\vehicle.dm"
 #include "code\modules\virus2\analyser.dm"
 #include "code\modules\virus2\antibodies.dm"
 #include "code\modules\virus2\centrifuge.dm"
diff --git a/code/datums/supplypacks.dm b/code/datums/supplypacks.dm
index f09a659a..6616fda5 100644
--- a/code/datums/supplypacks.dm
+++ b/code/datums/supplypacks.dm
@@ -251,6 +251,22 @@ var/list/all_supply_groups = list("Operations","Security","Hospitality","Enginee
 	containername = "MULEbot Crate"
 	group = "Operations"
 
+/datum/supply_packs/cargotrain
+	name = "Cargo Train Tug"
+	contains = list(/obj/vehicle/train/cargo/engine)
+	cost = 30
+	containertype = /obj/structure/largecrate
+	containername = "Cargo Train Tug Crate"
+	group = "Operations"
+
+/datum/supply_packs/cargotrailer
+	name = "Cargo Train Trolley"
+	contains = list(/obj/vehicle/train/cargo/trolley)
+	cost = 20
+	containertype = /obj/structure/largecrate
+	containername = "Cargo Train Trolley Crate"
+	group = "Operations"
+
 /datum/supply_packs/lisa
 	name = "Corgi Crate"
 	contains = list()
diff --git a/code/game/objects/items/weapons/cards_ids.dm b/code/game/objects/items/weapons/cards_ids.dm
index 931edd3d..71b1629f 100644
--- a/code/game/objects/items/weapons/cards_ids.dm
+++ b/code/game/objects/items/weapons/cards_ids.dm
@@ -100,7 +100,8 @@
 		/obj/machinery/bot,
 		/obj/machinery/door,
 		/obj/machinery/telecomms,
-		/obj/machinery/mecha_part_fabricator
+		/obj/machinery/mecha_part_fabricator,
+		/obj/vehicle
 		)
 
 
@@ -200,7 +201,7 @@
 	access = list(access_maint_tunnels, access_syndicate, access_external_airlocks)
 	origin_tech = "syndicate=3"
 	var/registered_user=null
-	
+
 /obj/item/weapon/card/id/syndicate/New(mob/user as mob)
 	..()
 	if(!isnull(user)) // Runtime prevention on laggy starts or where users log out because of lag at round start.
@@ -208,7 +209,7 @@
 	else
 		registered_name = "Agent Card"
 	assignment = "Agent"
-	name = "[registered_name]'s ID Card ([assignment])"		
+	name = "[registered_name]'s ID Card ([assignment])"
 
 /obj/item/weapon/card/id/syndicate/afterattack(var/obj/item/weapon/O as obj, mob/user as mob, proximity)
 	if(!proximity) return
@@ -239,7 +240,7 @@
 		registered_user = user
 	else if(!registered_user || registered_user == user)
 
-		if(!registered_user) registered_user = user  // 
+		if(!registered_user) registered_user = user  //
 
 		switch(alert("Would you like to display the ID, or retitle it?","Choose.","Rename","Show"))
 			if("Rename")
diff --git a/code/modules/mob/living/carbon/human/human.dm b/code/modules/mob/living/carbon/human/human.dm
index 6d81acee..49f0c755 100644
--- a/code/modules/mob/living/carbon/human/human.dm
+++ b/code/modules/mob/living/carbon/human/human.dm
@@ -478,10 +478,9 @@
 		var/obj/machinery/bot/mulebot/MB = AM
 		MB.RunOver(src)
 
-/*	if(istype(AM, /obj/vehicle))
+	if(istype(AM, /obj/vehicle))
 		var/obj/vehicle/V = AM
 		V.RunOver(src)
-*/
 
 //gets assignment from ID or ID inside PDA or PDA itself
 //Useful when player do something with computers
diff --git a/code/modules/mob/mob_movement.dm b/code/modules/mob/mob_movement.dm
index ca8015e6..3e58626b 100644
--- a/code/modules/mob/mob_movement.dm
+++ b/code/modules/mob/mob_movement.dm
@@ -203,7 +203,8 @@
 
 
 	if(!mob.canmove)
-		return
+		if (mob.buckled && (istype(mob.buckled, /obj/structure/stool/bed/chair/wheelchair) || istype(mob.buckled, /obj/vehicle))) // Exception for wheelchairs
+		else return
 
 	//if(istype(mob.loc, /turf/space) || (mob.flags & NOGRAV))
 	//	if(!mob.Process_Spacemove(0))	return 0
@@ -257,6 +258,9 @@
 			if(mob.machine.relaymove(mob,direct))
 				return
 
+		if(istype(mob.buckled, /obj/vehicle))
+			return mob.buckled.relaymove(mob,direct)
+
 		if(mob.pulledby || mob.buckled) // Wheelchair driving!
 			if(istype(mob.loc, /turf/space))
 				return // No wheelchair driving in space
diff --git a/code/modules/vehicles/cargo_train.dm b/code/modules/vehicles/cargo_train.dm
new file mode 100644
index 00000000..ea3f7b72
--- /dev/null
+++ b/code/modules/vehicles/cargo_train.dm
@@ -0,0 +1,303 @@
+/obj/vehicle/train/cargo/engine
+	name = "cargo train tug"
+	desc = "A ridable electric car designed for pulling cargo trolleys."
+	icon = 'icons/obj/vehicles.dmi'
+	icon_state = "cargo_engine"
+	on = 0
+	powered = 1
+	locked = 0
+
+	load_item_visible = 1
+	load_offset_x = 0
+	mob_offset_y = 7
+
+	var/car_limit = 3		//how many cars an engine can pull before performance degrades
+	active_engines = 1
+	var/obj/item/weapon/key/cargo_train/key
+
+/obj/item/weapon/key/cargo_train
+	name = "key"
+	desc = "A keyring with a small steel key, and a yellow fob reading \"Choo Choo!\"."
+	icon = 'icons/obj/vehicles.dmi'
+	icon_state = "train_keys"
+	w_class = 1
+
+/obj/vehicle/train/cargo/trolley
+	name = "cargo train trolley"
+	icon = 'icons/obj/vehicles.dmi'
+	icon_state = "cargo_trailer"
+	anchored = 0
+	passenger_allowed = 0
+	locked = 0
+
+	load_item_visible = 1
+	load_offset_x = 0
+	load_offset_y = 4
+	mob_offset_y = 8
+
+//-------------------------------------------
+// Standard procs
+//-------------------------------------------
+/obj/vehicle/train/cargo/engine/New()
+	..()
+	cell = new /obj/item/weapon/cell/high
+	verbs -= /atom/movable/verb/pull
+	key = new()
+	var/image/I = new(icon = 'icons/obj/vehicles.dmi', icon_state = "cargo_engine_overlay", layer = src.layer + 0.2) //over mobs
+	overlays += I
+	turn_off()	//so engine verbs are correctly set
+
+/obj/vehicle/train/cargo/engine/Move()
+	if(on && cell.charge < charge_use)
+		turn_off()
+		update_stats()
+		if(load && is_train_head())
+			load << "The drive motor briefly whines, then drones to a stop."
+	
+	if(is_train_head() && !on)
+		return 0
+
+	return ..()
+
+/obj/vehicle/train/cargo/trolley/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(open && istype(W, /obj/item/weapon/wirecutters))
+		passenger_allowed = !passenger_allowed
+		user.visible_message("<span class='notice'>[user] [passenger_allowed ? "cuts" : "mends"] a cable in [src].</span>","<span class='notice'>You [passenger_allowed ? "cut" : "mend"] the load limiter cable.</span>")
+	else
+		..()
+
+/obj/vehicle/train/cargo/engine/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(istype(W, /obj/item/weapon/key/cargo_train))
+		if(!key)
+			user.drop_item()
+			W.forceMove(src)
+			key = W
+			verbs += /obj/vehicle/train/cargo/engine/verb/remove_key
+		return
+	..()
+
+/obj/vehicle/train/cargo/update_icon()
+	if(open)
+		icon_state = initial(icon_state) + "_open"
+	else
+		icon_state = initial(icon_state)
+
+/obj/vehicle/train/cargo/trolley/insert_cell(var/obj/item/weapon/cell/C, var/mob/living/carbon/human/H)
+	return
+
+/obj/vehicle/train/cargo/engine/insert_cell(var/obj/item/weapon/cell/C, var/mob/living/carbon/human/H)
+	..()
+	update_stats()
+
+/obj/vehicle/train/cargo/engine/remove_cell(var/mob/living/carbon/human/H)
+	..()
+	update_stats()
+
+/obj/vehicle/train/cargo/engine/Bump(atom/Obstacle)
+	var/obj/machinery/door/D = Obstacle
+	var/mob/living/carbon/human/H = load
+	if(istype(D) && istype(H))
+		D.Bumped(H)		//a little hacky, but hey, it works, and respects access rights
+
+	..()
+
+/obj/vehicle/train/cargo/trolley/Bump(atom/Obstacle)
+	if(!lead)
+		return //so people can't knock others over by pushing a trolley around
+	..()
+
+//-------------------------------------------
+// Train procs
+//-------------------------------------------
+/obj/vehicle/train/cargo/engine/turn_on()
+	if(!key)
+		return
+	else
+		..()
+		update_stats()
+
+		verbs -= /obj/vehicle/train/cargo/engine/verb/stop_engine
+		verbs -= /obj/vehicle/train/cargo/engine/verb/start_engine
+		
+		if(on)
+			verbs += /obj/vehicle/train/cargo/engine/verb/stop_engine
+		else
+			verbs += /obj/vehicle/train/cargo/engine/verb/start_engine
+
+/obj/vehicle/train/cargo/engine/turn_off()
+	..()
+
+	verbs -= /obj/vehicle/train/cargo/engine/verb/stop_engine
+	verbs -= /obj/vehicle/train/cargo/engine/verb/start_engine
+	
+	if(!on)
+		verbs += /obj/vehicle/train/cargo/engine/verb/start_engine
+	else
+		verbs += /obj/vehicle/train/cargo/engine/verb/stop_engine
+
+/obj/vehicle/train/cargo/RunOver(var/mob/living/carbon/human/H)
+	var/list/parts = list("head", "chest", "l_leg", "r_leg", "l_arm", "r_arm")
+
+	H.apply_effects(5, 5)
+	for(var/i = 0, i < rand(1,3), i++)
+		H.apply_damage(rand(1,5), BRUTE, pick(parts))
+
+/obj/vehicle/train/cargo/trolley/RunOver(var/mob/living/carbon/human/H)
+	..()
+	attack_log += text("\[[time_stamp()]\] <font color='red'>ran over [H.name] ([H.ckey])</font>")
+
+/obj/vehicle/train/cargo/engine/RunOver(var/mob/living/carbon/human/H)
+	..()
+
+	if(is_train_head() && istype(load, /mob/living/carbon/human))
+		var/mob/living/carbon/human/D = load
+		D << "\red \b You ran over [H]!"
+		visible_message("<B>\red \The [src] ran over [H]!</B>")
+		attack_log += text("\[[time_stamp()]\] <font color='red'>ran over [H.name] ([H.ckey]), driven by [D.name] ([D.ckey])</font>")
+		msg_admin_attack("[D.name] ([D.ckey]) ran over [H.name] ([H.ckey]). (<A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[src.x];Y=[src.y];Z=[src.z]'>JMP</a>)")
+	else
+		attack_log += text("\[[time_stamp()]\] <font color='red'>ran over [H.name] ([H.ckey])</font>")
+
+
+//-------------------------------------------
+// Interaction procs
+//-------------------------------------------
+/obj/vehicle/train/cargo/engine/relaymove(mob/user, direction)
+	if(user != load)
+		return 0
+
+	if(is_train_head())
+		if(direction == reverse_direction(dir) && tow)
+			return 0
+		if(Move(get_step(src, direction)))
+			return 1
+		return 0
+	else
+		return ..()
+
+/obj/vehicle/train/cargo/engine/examine()
+	..()
+
+	if(!istype(usr, /mob/living/carbon/human))
+		return
+	
+	if(get_dist(usr,src) <= 1)
+		usr << "The power light is [on ? "on" : "off"].\nThere are[key ? "" : " no"] keys in the ignition."
+		usr << "The charge meter reads [cell? round(cell.percent(), 0.01) : 0]%"
+
+/obj/vehicle/train/cargo/engine/verb/start_engine()
+	set name = "Start engine"
+	set category = "Object"
+	set src in view(1)
+
+	if(!istype(usr, /mob/living/carbon/human))
+		return
+	
+	if(on)
+		usr << "The engine is already running."
+		return
+
+	turn_on()
+	if (on)
+		usr << "You start [src]'s engine."
+	else
+		if(cell.charge < charge_use)
+			usr << "[src] is out of power."
+		else
+			usr << "[src]'s engine won't start."
+
+/obj/vehicle/train/cargo/engine/verb/stop_engine()
+	set name = "Stop engine"
+	set category = "Object"
+	set src in view(1)
+	
+	if(!istype(usr, /mob/living/carbon/human))
+		return
+	
+	if(!on)
+		usr << "The engine is already stopped."
+		return
+
+	turn_off()
+	if (!on)
+		usr << "You stop [src]'s engine."
+
+/obj/vehicle/train/cargo/engine/verb/remove_key()
+	set name = "Remove key"
+	set category = "Object"
+	set src in view(1)
+
+	if(!istype(usr, /mob/living/carbon/human))
+		return
+	
+	if(!key || (load && load != usr))
+		return
+	
+	if(on)
+		turn_off()
+
+	key.loc = usr.loc
+	if(!usr.get_active_hand())
+		usr.put_in_hands(key)
+	key = null
+
+	verbs -= /obj/vehicle/train/cargo/engine/verb/remove_key
+
+//-------------------------------------------
+// Loading/unloading procs
+//-------------------------------------------
+/obj/vehicle/train/cargo/trolley/load(var/atom/movable/C)
+	if(ismob(C) && !passenger_allowed)
+		return 0
+	if(!istype(C,/obj/machinery) && !istype(C,/obj/structure/closet) && !istype(C,/obj/structure/largecrate) && !istype(C,/obj/structure/reagent_dispensers) && !istype(C,/obj/structure/ore_box) && !istype(C, /mob/living/carbon/human))
+		return 0
+
+	..()
+
+	if(load)
+		return 1
+
+/obj/vehicle/train/cargo/engine/load(var/atom/movable/C)
+	if(!istype(C, /mob/living/carbon/human))
+		return 0
+
+	return ..()
+
+
+//-------------------------------------------------------
+// Stat update procs
+//
+// Update the trains stats for speed calculations.
+// The longer the train, the slower it will go. car_limit
+// sets the max number of cars one engine can pull at
+// full speed. Adding more cars beyond this will slow the
+// train proportionate to the length of the train. Adding
+// more engines increases this limit by car_limit per
+// engine.
+//-------------------------------------------------------
+/obj/vehicle/train/cargo/engine/update_car(var/train_length, var/active_engines)
+	src.train_length = train_length
+	src.active_engines = active_engines
+
+	//Update move delay
+	if(!is_train_head() || !on)
+		move_delay = initial(move_delay)		//so that engines that have been turned off don't lag behind
+	else
+		move_delay = max(0, (-car_limit * active_engines) + train_length - active_engines)	//limits base overweight so you cant overspeed trains
+		move_delay *= (1 / max(1, active_engines)) * 2 										//overweight penalty (scaled by the number of engines)
+		move_delay += config.run_speed 														//base reference speed
+		move_delay *= 1.1																	//makes cargo trains 10% slower than running when not overweight
+
+/obj/vehicle/train/cargo/trolley/update_car(var/train_length, var/active_engines)
+	src.train_length = train_length
+	src.active_engines = active_engines
+	
+	if(!lead && !tow)
+		anchored = 0
+		if(verbs.Find(/atom/movable/verb/pull))
+			return
+		else
+			verbs += /atom/movable/verb/pull
+	else
+		anchored = 1
+		verbs -= /atom/movable/verb/pull
diff --git a/code/modules/vehicles/train.dm b/code/modules/vehicles/train.dm
new file mode 100644
index 00000000..d8e372d8
--- /dev/null
+++ b/code/modules/vehicles/train.dm
@@ -0,0 +1,229 @@
+/obj/vehicle/train
+	name = "train"
+	dir = 4
+
+	move_delay = 1
+
+	health = 100
+	maxhealth = 100
+	fire_dam_coeff = 0.7
+	brute_dam_coeff = 0.5
+
+	var/passenger_allowed = 1
+
+	var/active_engines = 0
+	var/train_length = 0
+
+	var/obj/vehicle/train/lead
+	var/obj/vehicle/train/tow
+
+
+//-------------------------------------------
+// Standard procs
+//-------------------------------------------
+/obj/vehicle/train/initialize()
+	for(var/obj/vehicle/train/T in orange(1, src))
+		latch(T)
+
+/obj/vehicle/train/Move()
+	var/old_loc = get_turf(src)
+	if(..())
+		if(tow)
+			tow.Move(old_loc)
+		return 1
+	else
+		if(lead)
+			unattach()
+		return 0
+
+/obj/vehicle/train/Bump(atom/Obstacle)
+	if(!istype(Obstacle, /atom/movable))
+		return
+	var/atom/movable/A = Obstacle
+
+	if(!A.anchored)
+		var/turf/T = get_step(A, dir)
+		if(isturf(T))
+			A.Move(T)	//bump things away when hit
+
+	if(emagged)
+		if(istype(A, /mob/living))
+			var/mob/living/M = A
+			visible_message("\red [src] knocks over [M]!")
+			M.apply_effects(5, 5)				//knock people down if you hit them
+			M.apply_damages(22 / move_delay)	// and do damage according to how fast the train is going
+			if(istype(load, /mob/living/carbon/human))
+				var/mob/living/D = load
+				D << "\red You hit [M]!"
+				msg_admin_attack("[D.name] ([D.ckey]) hit [M.name] ([M.ckey]) with [src]. (<A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[src.x];Y=[src.y];Z=[src.z]'>JMP</a>)")
+
+
+//-------------------------------------------
+// Vehicle procs
+//-------------------------------------------
+/obj/vehicle/train/explode()
+	if (tow)
+		tow.unattach()
+	unattach()
+	..()
+
+
+//-------------------------------------------
+// Interaction procs
+//-------------------------------------------
+/obj/vehicle/train/relaymove(mob/user, direction)
+	var/turf/T = get_step_to(src, get_step(src, direction))
+	if(!T)
+		user << "You can't find a clear area to step onto."
+		return 0
+
+	if(user != load)
+		if(user in src)		//for handling players stuck in src - this shouldn't happen - but just in case it does
+			user.forceMove(T)
+			return 1
+		return 0
+
+	unload(user, direction)
+
+	user << "\blue You climb down from [src]."
+
+	return 1
+
+/obj/vehicle/train/MouseDrop_T(var/atom/movable/C, mob/user as mob)
+	if(user.buckled || user.stat || user.restrained() || !Adjacent(user) || !user.Adjacent(C) || !istype(C) || (user == C && !user.canmove))
+		return
+	if(istype(C,/obj/vehicle/train))
+		latch(C, user)
+	else
+		if(!load(C))
+			user << "\red You were unable to load [C] on [src]."
+
+/obj/vehicle/train/attack_hand(mob/user as mob)
+	if(user.stat || user.restrained() || !Adjacent(user))
+		return 0
+
+	if(user != load && (user in src))
+		user.forceMove(loc)			//for handling players stuck in src
+	else if(load)
+		unload(user)			//unload if loaded
+	else if(!load && !user.buckled)
+		load(user)				//else try climbing on board
+	else
+		return 0
+
+/obj/vehicle/train/verb/unlatch_v()
+	set name = "Unlatch"
+	set desc = "Unhitches this train from the one in front of it."
+	set category = "Object"
+	set src in view(1)
+	
+	if(!istype(usr, /mob/living/carbon/human))
+		return
+
+	if(!usr.canmove || usr.stat || usr.restrained() || !Adjacent(usr))
+		return
+
+	unattach(usr)
+
+
+//-------------------------------------------
+// Latching/unlatching procs
+//-------------------------------------------
+
+//attempts to attach src as a follower of the train T
+/obj/vehicle/train/proc/attach_to(obj/vehicle/train/T, mob/user)
+	if (get_dist(src, T) > 1)
+		user << "\red [src] is too far away from [T] to hitch them together."
+		return
+
+	if (lead)
+		user << "\red [src] is already hitched to something."
+		return
+	
+	if (T.tow)
+		user << "\red [T] is already towing something."
+		return
+	
+	//check for cycles.
+	var/obj/vehicle/train/next_car = T
+	while (next_car)
+		if (next_car == src)
+			user << "\red That seems very silly."
+			return
+		next_car = next_car.lead
+	
+	//latch with src as the follower
+	lead = T
+	T.tow = src
+	dir = lead.dir
+	
+	if(user)
+		user << "\blue You hitch [src] to [T]."
+	
+	update_stats()
+
+
+//detaches the train from whatever is towing it
+/obj/vehicle/train/proc/unattach(mob/user)
+	if (!lead)
+		user << "\red [src] is not hitched to anything."
+		return
+	
+	lead.tow = null
+	lead.update_stats()
+	
+	user << "\blue You unhitch [src] from [lead]."
+	lead = null
+
+	update_stats()
+
+/obj/vehicle/train/proc/latch(obj/vehicle/train/T, mob/user)
+	if(!istype(T) || !Adjacent(T))
+		return 0
+
+	var/T_dir = get_dir(src, T)	//figure out where T is wrt src
+
+	if(dir == T_dir) 	//if car is ahead
+		src.attach_to(T, user)
+	else if(reverse_direction(dir) == T_dir)	//else if car is behind
+		T.attach_to(src, user)
+
+//returns 1 if this is the lead car of the train
+/obj/vehicle/train/proc/is_train_head()
+	if (lead) 
+		return 0
+	return 1
+
+//-------------------------------------------------------
+// Stat update procs
+//
+// Used for updating the stats for how long the train is.
+// These are useful for calculating speed based on the
+// size of the train, to limit super long trains.
+//-------------------------------------------------------
+/obj/vehicle/train/update_stats()
+	//first, seek to the end of the train
+	var/obj/vehicle/train/T = src
+	while(T.tow)
+		//check for cyclic train.
+		if (T.tow == src)
+			lead.tow = null
+			lead.update_stats()
+			
+			lead = null
+			update_stats()
+			return
+		T = T.tow
+
+	//now walk back to the front.
+	var/active_engines = 0
+	var/train_length = 0
+	while(T)
+		train_length++
+		if (powered && on)
+			active_engines++
+		T.update_car(train_length, active_engines)
+		T = T.lead
+
+/obj/vehicle/train/proc/update_car(var/train_length, var/active_engines)
+	return
diff --git a/code/modules/vehicles/vehicle.dm b/code/modules/vehicles/vehicle.dm
new file mode 100644
index 00000000..76fd7d89
--- /dev/null
+++ b/code/modules/vehicles/vehicle.dm
@@ -0,0 +1,358 @@
+/obj/vehicle
+	name = "vehicle"
+	icon = 'icons/obj/vehicles.dmi'
+	layer = MOB_LAYER + 0.1 //so it sits above objects including mobs
+	density = 1
+	anchored = 1
+	animate_movement=1
+	luminosity = 3
+
+	var/attack_log = null
+	var/on = 0
+	var/health = 0	//do not forget to set health for your vehicle!
+	var/maxhealth = 0
+	var/fire_dam_coeff = 1.0
+	var/brute_dam_coeff = 1.0
+	var/open = 0	//Maint panel
+	var/locked = 1
+	var/stat = 0
+	var/emagged = 0
+	var/powered = 0		//set if vehicle is powered and should use fuel when moving
+	var/move_delay = 1	//set this to limit the speed of the vehicle
+	var/movable = 1
+
+	var/obj/item/weapon/cell/cell
+	var/charge_use = 5	//set this to adjust the amount of power the vehicle uses per move
+
+	var/atom/movable/load		//all vehicles can take a load, since they should all be a least drivable
+	var/load_item_visible = 1	//set if the loaded item should be overlayed on the vehicle sprite
+	var/load_offset_x = 0		//pixel_x offset for item overlay
+	var/load_offset_y = 0		//pixel_y offset for item overlay
+	var/mob_offset_y = 0		//pixel_y offset for mob overlay
+
+//-------------------------------------------
+// Standard procs
+//-------------------------------------------
+/obj/vehicle/New()
+	..()
+	//spawn the cell you want in each vehicle
+
+/obj/vehicle/Move()
+	if(world.time > l_move_time + move_delay)
+		if(on && powered && cell.charge < charge_use)
+			turn_off()
+
+		var/init_anc = anchored
+		anchored = 0
+		if(!..())
+			anchored = init_anc
+			return 0
+
+		anchored = init_anc
+
+		if(on && powered)
+			cell.use(charge_use)
+
+		if(load)
+			load.forceMove(loc)// = loc
+			load.dir = dir
+
+		return 1
+	else
+		return 0
+
+/obj/vehicle/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	if(istype(W, /obj/item/weapon/hand_labeler))
+		return
+	if(istype(W, /obj/item/weapon/screwdriver))
+		if(!locked)
+			open = !open
+			update_icon()
+			user << "<span class='notice'>Maintenance panel is now [open ? "opened" : "closed"].</span>"
+	else if(istype(W, /obj/item/weapon/crowbar) && cell && open)
+		remove_cell(user)
+
+	else if(istype(W, /obj/item/weapon/cell) && !cell && open)
+		insert_cell(W, user)
+	else if(istype(W, /obj/item/weapon/weldingtool))
+		var/obj/item/weapon/weldingtool/T = W
+		if(T.welding)
+			if(health < maxhealth)
+				if(open)
+					health = min(maxhealth, health+10)
+					user.visible_message("\red [user] repairs [src]!","\blue You repair [src]!")
+				else
+					user << "<span class='notice'>Unable to repair with the maintenance panel closed.</span>"
+			else
+				user << "<span class='notice'>[src] does not need a repair.</span>"
+		else
+			user << "<span class='notice'>Unable to repair while [src] is off.</span>"
+	else if(istype(W, /obj/item/weapon/card/emag) && !emagged)
+		Emag(user)
+	else if(hasvar(W,"force") && hasvar(W,"damtype"))
+		switch(W.damtype)
+			if("fire")
+				health -= W.force * fire_dam_coeff
+			if("brute")
+				health -= W.force * brute_dam_coeff
+		..()
+		healthcheck()
+	else
+		..()
+
+/obj/vehicle/attack_animal(var/mob/living/simple_animal/M as mob)
+	if(M.melee_damage_upper == 0)	return
+	health -= M.melee_damage_upper
+	src.visible_message("\red <B>[M] has [M.attacktext] [src]!</B>")
+	M.attack_log += text("\[[time_stamp()]\] <font color='red'>attacked [src.name]</font>")
+	if(prob(10))
+		new /obj/effect/decal/cleanable/blood/oil(src.loc)
+	healthcheck()
+
+/obj/vehicle/bullet_act(var/obj/item/projectile/Proj)
+	health -= Proj.damage
+	..()
+	healthcheck()
+
+/obj/vehicle/meteorhit()
+	explode()
+	return
+
+/obj/vehicle/blob_act()
+	src.health -= rand(20,40)*fire_dam_coeff
+	healthcheck()
+	return
+
+/obj/vehicle/ex_act(severity)
+	switch(severity)
+		if(1.0)
+			explode()
+			return
+		if(2.0)
+			health -= rand(5,10)*fire_dam_coeff
+			health -= rand(10,20)*brute_dam_coeff
+			healthcheck()
+			return
+		if(3.0)
+			if (prob(50))
+				health -= rand(1,5)*fire_dam_coeff
+				health -= rand(1,5)*brute_dam_coeff
+				healthcheck()
+				return
+	return
+
+/obj/vehicle/emp_act(severity)
+	var/was_on = on
+	stat |= EMPED
+	var/obj/effect/overlay/pulse2 = new/obj/effect/overlay ( src.loc )
+	pulse2.icon = 'icons/effects/effects.dmi'
+	pulse2.icon_state = "empdisable"
+	pulse2.name = "emp sparks"
+	pulse2.anchored = 1
+	pulse2.dir = pick(cardinal)
+
+	spawn(10)
+		pulse2.delete()
+	if(on)
+		turn_off()
+	spawn(severity*300)
+		stat &= ~EMPED
+		if(was_on)
+			turn_on()
+
+/obj/vehicle/attack_ai(mob/user as mob)
+	return
+
+/obj/vehicle/proc/handle_rotation()
+	return
+
+//-------------------------------------------
+// Vehicle procs
+//-------------------------------------------
+/obj/vehicle/proc/turn_on()
+	if(stat)
+		return 0
+	if(powered && cell.charge < charge_use)
+		return 0
+	on = 1
+	luminosity = initial(luminosity)
+	update_icon()
+	return 1
+
+/obj/vehicle/proc/turn_off()
+	on = 0
+	luminosity = 0
+	update_icon()
+
+/obj/vehicle/proc/Emag(mob/user as mob)
+	emagged = 1
+
+	if(locked)
+		locked = 0
+		user << "<span class='warning'>You bypass [src]'s controls.</span>"
+
+/obj/vehicle/proc/explode()
+	src.visible_message("\red <B>[src] blows apart!</B>", 1)
+	var/turf/Tsec = get_turf(src)
+
+	new /obj/item/stack/rods(Tsec)
+	new /obj/item/stack/rods(Tsec)
+//	new /obj/item/stack/cable_coil/cut(Tsec) THIS DOESN'T WORK SO I'M GETTING RID OF IT.
+
+	if(cell)
+		cell.forceMove(Tsec)
+		cell.update_icon()
+		cell = null
+
+	//stuns people who are thrown off a train that has been blown up
+	if(istype(load, /mob/living))
+		var/mob/living/M = load
+		M.apply_effects(5, 5)
+
+	unload()
+
+	new /obj/effect/gibspawner/robot(Tsec)
+	new /obj/effect/decal/cleanable/blood/oil(src.loc)
+
+	del(src)
+
+/obj/vehicle/proc/healthcheck()
+	if(health <= 0)
+		explode()
+
+/obj/vehicle/proc/powercheck()
+	if(!cell && !powered)
+		return
+
+	if(!cell && powered)
+		turn_off()
+		return
+
+	if(cell.charge < charge_use)
+		turn_off()
+		return
+
+	if(cell && powered)
+		turn_on()
+		return
+
+/obj/vehicle/proc/insert_cell(var/obj/item/weapon/cell/C, var/mob/living/carbon/human/H)
+	if(cell)
+		return
+	if(!istype(C))
+		return
+
+	H.drop_from_inventory(C)
+	C.forceMove(src)
+	cell = C
+	powercheck()
+	usr << "<span class='notice'>You install [C] in [src].</span>"
+
+/obj/vehicle/proc/remove_cell(var/mob/living/carbon/human/H)
+	if(!cell)
+		return
+
+	usr << "<span class='notice'>You remove [cell] from [src].</span>"
+	cell.forceMove(get_turf(H))
+	H.put_in_hands(cell)
+	cell = null
+	powercheck()
+
+/obj/vehicle/proc/RunOver(var/mob/living/carbon/human/H)
+	return		//write specifics for different vehicles
+
+//-------------------------------------------
+// Loading/unloading procs
+//
+// Set specific item restriction checks in
+// the vehicle load() definition before
+// calling this parent proc.
+//-------------------------------------------
+/obj/vehicle/proc/load(var/atom/movable/C)
+	//define allowed items for loading in specific vehicle definitions
+
+	if(!isturf(C.loc)) //To prevent loading things from someone's inventory, which wouldn't get handled properly.
+		return 0
+	if(load || C.anchored)
+		return 0
+
+	// if a create/closet, close before loading
+	var/obj/structure/closet/crate = C
+	if(istype(crate))
+		crate.close()
+
+	C.forceMove(loc)
+	C.dir = dir
+	C.anchored = 1
+
+	load = C
+
+	if(load_item_visible)
+		C.pixel_x += load_offset_x
+		if(ismob(C))
+			C.pixel_y += mob_offset_y
+		else
+			C.pixel_y += load_offset_y
+		C.layer = layer + 0.1		//so it sits above the vehicle
+
+	if(ismob(C))
+		var/mob/M = C
+		M.buckled = src
+		M.update_canmove()
+
+	return 1
+
+
+/obj/vehicle/proc/unload(var/mob/user, var/direction)
+	if(!load)
+		return
+
+	var/turf/dest = null
+
+	//find a turf to unload to
+	if(direction)	//if direction specified, unload in that direction
+		dest = get_step(src, direction)
+	else if(user)	//if a user has unloaded the vehicle, unload at their feet
+		dest = get_turf(user)
+
+	if(!dest)
+		dest = get_step_to(src, get_step(src, turn(dir, 90))) //try unloading to the side of the vehicle first if neither of the above are present
+
+	//if these all result in the same turf as the vehicle or nullspace, pick a new turf with open space
+	if(!dest || dest == get_turf(src))
+		var/list/options = new()
+		for(var/test_dir in alldirs)
+			var/new_dir = get_step_to(src, get_step(src, test_dir))
+			if(new_dir && load.Adjacent(new_dir))
+				options += new_dir
+		if(options.len)
+			dest = pick(options)
+		else
+			dest = get_turf(src)	//otherwise just dump it on the same turf as the vehicle
+
+	if(!isturf(dest))	//if there still is nowhere to unload, cancel out since the vehicle is probably in nullspace
+		return 0
+
+	load.forceMove(dest)
+	load.dir = get_dir(loc, dest)
+	load.anchored = initial(load.anchored)
+	load.pixel_x = initial(load.pixel_x)
+	load.pixel_y = initial(load.pixel_y)
+	load.layer = initial(load.layer)
+
+	if(ismob(load))
+		var/mob/M = load
+		M.buckled = null
+		M.anchored = initial(M.anchored)
+		M.update_canmove()
+
+	load = null
+
+	return 1
+
+
+//-------------------------------------------------------
+// Stat update procs
+//-------------------------------------------------------
+/obj/vehicle/proc/update_stats()
+	return
\ No newline at end of file
diff --git a/data/investigate/gravity.html b/data/investigate/gravity.html
index cbab9d0b..7166030e 100644
--- a/data/investigate/gravity.html
+++ b/data/investigate/gravity.html
@@ -1,12 +1,18 @@
-<small>22:30 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:30 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
-<small>22:31 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:31 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
-<small>22:31 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:31 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
-<small>22:36 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:36 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
-<small>22:41 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:41 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
-<small>22:45 [0x20078ca] (92,152,1)</small> || the gravitational generator has regained power.<br>
-<small>22:45 [0x20078ca] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>23:57 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>23:57 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>23:57 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>23:57 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>23:58 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>23:58 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:03 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:03 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:08 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:08 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:12 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:12 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:17 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:17 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:22 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:22 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
+<small>00:27 [0x200793a] (92,152,1)</small> || the gravitational generator has regained power.<br>
+<small>00:27 [0x200793a] (92,152,1)</small> || the gravitational generator is now charging.<br>
diff --git a/icons/obj/vehicles.dmi b/icons/obj/vehicles.dmi
index fd6daee8bd4b59531061149219c3ccd5e641631f..e70275591fc4ea810bbdf564cc1ad63db9bbad72 100644
GIT binary patch
literal 10594
zcma)ibyQSe^zWrhq)Qr<6iMML4bsxBNJyiUNY^kl(t=7zOACmAh|)Fm07G|4H-ii?
z%=|9D_5OTst+&?Px%b?C&e`?Zd!KvmjnmgvCnvo}3IG7PriO|kcy0%ed}2cI{{^3&
zC3u1b8k>8oIJ~p-a`E(b@o)zK|1XKjN~94Yl&aJH{Dh02467_1jndbYYd8vY?aFlQ
zKL{+fl99cp+VxtI!(>xd&k6~13VAJYKXD@`)=1(VA+)?E#Q$P9a&MyI1hLwTB*w*+
z&|+2@S2M|}!W((5a~J>q7degAQD|63-93vZ;bAB*^O?o@rne~rS#F|PW4uZ3(S>e(
zX%i)LQA-c_Ep#p+u+N?jGU&WNl7U}MlVl#~88&LjD4@m_Ox`?*{H6_Z$Kce#QxQG{
zmk$Ae1JG1aGWP#+5E9}|Yx47`21j(4BLKIEFg6D$fdz@azn>PSq24?lD*gul<(i?e
ztyDy7K-W+PiDS=y+`<eky$>T}0yDQvzGf#Id=?=Vf76>wp?xo1f`py0`6-uXDKAt_
zg+<<2-Z455V*Iba98p?PDZ|Qacy3W?W;S^_Q~GcA`b&s!&fH&TXXh}Ju~8AZ<%7Gb
zLmO4q)uuyJ78VwJ8Z9Oa3<uDJ=;)oxyLF@-zPNDbqIz#mBV_sE4x)5#^CYkZ2%DNR
zjqG|Asa#NBA5m&)Xo&lHkN_aY$NlXvu4+*u6bT*2lF)?-TwLE|?aAjQv+flaM^JIy
zfWrVqOH0;4BNGz>KwEKKwe9!s7n$-Q(#=-FMT6WdcZ<G$jbx?K;52lL@rO6JpCPw1
zVg~;zb5JVs(e5%}Xb82i6q+h8o1ZAZdR5^5L}2~wGQCwqNp1PBmnaV{J$+$uag?PV
zZ-}idNhWN4?5lc_0S}TbIi?{VKV@#!TiU?LsK{TI&FFxbFhVONM6Pg*uQG;q^siUP
zjyD(MogYEI(m8Jr1o-)t_-K`Ve0=6E^%(hX6!@6dfE90PCWIy*>WwTq6k_<Vk}4#X
z&<9wivduN#LG)RJ8YRPu%Ej*`a@|Y(q07-LlcW1-dhfjO>sNfJA~5Dm`}px=kSobN
z)g8i*Sy}gZ&<`FwI1X&d`W=u}RaNy(PL@KJjiREWLL}r0S$~pO1K~JtGsZzFg9c1g
z3I6MShVIkYfhsDBtMUxui?$^+sZpNsKFy14`}$Sood?LE!-f)^XlSZ*7RsPlc;wZz
zavrE72<1at)tLE35=~_Cv)rxwhaaJ&BLi~M($WGQCwLC|f@^GMCKweJ<vOO04K9`-
z7#!hew{HFZeN=)*<tjw=2NK7b{!8=9pyITH77)e{eV%fB=0h19ZD8TA>e=*i+$Wss
z+Y~lSRU|RAK%aOGiHBU;{`S0XO<=A$Ks;=T3d%s72PdkS?&C=t`%Hr4BLQ{wl!I!1
zlFvWiKVD(@)9iUtlJc!()sxYxhCx10xSCvIF>Th)TR1ofIoH`3lMWv$oOyr4-bl<N
zl@)6v68rnNw1lK&VSPO<Fgi2SH|{i?)l(f$rdAYaH0*~EtXY8pR;DB+RaRm`8jMgY
zC7M0rDCHql&G-pti3%A9W}UxkE``Tu)uy#V-V|TGy_d`|6cZRH()Q#~*)qHBO{i64
zntw}eEft6W*A6vS*mUJq=4g>e<Y%4DXVI;Le{FLK<vO;gNTVb=VS+eq=DLK&(OU(m
z1f?1wS%0IXDcnHr?<UvQ;&_yJJ<<3P9sjwN^4C;U2qcko*oe5(iWJR?U7=$K^eQ2k
z4vLw#?%~ajJ2d`vP(^Mzp-|PoD`&r7J{qRg3FwhL$(N|eqi<{$dw+mKIn86Jkt><`
zF3zS0GyO1Jv+kTx&4?wx0k5*6Lc)csOg?lYMJc&;d-q+_%OULi_;}$7PJF=dXbl+N
zd^$YnbW=047=6C40mNN?rhK%vxlD?5@=F%>^^7GF)b@t=xK}?n#I>mlJoPa%F=2Y7
zRyBi-0IGodxGwUPaD4F;pK!L2djva9gmDAgB+wyu0^?WQINvHNY!x!YDK)}ctb|{`
ze!X(y58{p{OBi$}TQU)ddJyFIR8z)2G=TWq3)Dv*jt$(v9f8zYh-cGizY9Hu98YYK
zV(DO%f~QZPw6SpFJw3r-42jK~H-dKlCMF*@rT-R>(6{geB1xJ_l)_cQZ`A-X0H&Zs
z>SJ+bKH72Fb}c$I-eaq`vGliG>U>Y!*5=)N(JAK;CHCvK73ytB2{7Seylrh^k;>~#
zDdc6Zy>g(aY^5hRLA<Na<bQ>q42w8D_4;OBiz{gQE%py*7UAVydSi35tb4b3A^RP|
z*$D3N+?Ckro$|^%HI5Di@`BH@c%Fus(pydT>*<vy&T;+G-D4Poz@JWG-9q-UKcD4e
zGjV_6yKOlEU}kt5(x0IyW&PsC0CBu{Sb}chUfAyG@12ik=JHpUH=)B#8B$Er5<ku;
zqh8dvT-wPg1@G@aPtTF7oM)qQaDuOi=AhTEo_Yvz$&_X)Q~baPZ`)!2&qRvYe{H>F
z-EYheH;4PyUk0LI=Q%06xRh^hx<tNLE9!gW*7KxVH>(iIG3Q#JkvaM<^lmTa6imjS
zF5s~j_<h@HH|4x68*BGzBGf3yXjg0EO1kkm+$AS(wY!V!y0NiGy>mRhEiHFEmYv#1
z_^FAj2jlUsDNG)z@WLWBI~s$13%{hle+U`4ZhKXYjfssz|1`p^CV_z>CG}?N+pnD@
zHM{}%a*BBkTX*kC0NicK6_p=1H}g9{{LxYEGu0P?Ll^$C-<}3!XE)YqlK7{j^y7cP
zzpxIPqa?;R$I$TV^3Bf9-jy!d15@eJl<7vn^tF+pVfcp+)Q($c-siH0h015{78t95
zm-{zuJ@#0S*=8p3v~4VB*l&-k-+R?Y-R}c<j_Hn#tP6Vw*$nm)<&BAEJ&ju%oU|Uu
z=<j!fvFW%RD9iR`zM1Lo%b+rr<wxA3e56Qup9k037udZ_IdAs*?KSoTB3ztbFCPV;
z_VYdzKB_E*{Zl-Ocvw5E2FL4`%nbPDU3-E3bpIOijQXbL59<qGar_g<M2YE#&euw>
zUU6EWVsrU^2t{;okdl$jCbtFPRw=}0f|>WWbXvt;T?O*UqHQxG^YZAB^j;<=Cf~aH
zb2NR%Of55$b7a+YOVfnR`$M#3o}DiwtR?g`e%vjr2M4*Z#-;RQgf(ihWZM6*`MbNX
z|5i0Fi7k}#p0UNoC#zfrG@nmdkY3teGU#;+^@$ztG&8hoKPl`$(9JX7jhQudv?Ae4
z#1a{Ea(9r%biFOgVOrI=Zv(O$`&Lskov>@0?Y~+oG#MP!(^?ydrQm<~FcP*7g>NDD
z0a}>{CV4;2li^!wNsje>6LvolI}^^*I#3}Yp{y&g%zzbEI!bbMJzxw27AK!=Io9H_
z7Ym2&*-T(&C@U{l0;}-Az`#t?oo2T$IXS~g{5r`nkmQPAdNnvO;61O>DI6|Yf5OwJ
zcmSy-54=%`B-USdCiQB1nf3V|QraZ?(<l0pobCxaK~rZd>$F8@aDkCM4su>O;m{K!
zICUf3$a%_E_7a(-5tz$nMbg*3>gLh5oDAZBhwIn3ZwVwN+9bj9?0-fOMeF<fu8FvY
zR#_&<$UG?@V*79cT%2KfE(|nh2-BKz-6jMAfA2)`!7f$_Enx_*m-vK*o&J?AA34>0
zIYAK3<~)Hb)YQgZ%7RYa&oM7W#DO`5{4C(NO3}}sQyt=Q49ahli6#e^W%FVn0vgEJ
z*8PyFxw#ia#fVV0)6Nvu!;5RtkSlN0O(^(t<VhVRicsSDh2$ddIJ$V_+~<78ErPXu
z2HGsVBVP>#X52SK4RLB(7&lQd2-4Z21v|?%v;Dvcw{7pZqgPEEIJU8~Tez#qeZTOj
zcK$~hQD|tOjDX8t?RHasDr|pnwxOZn?wnEAv=Fny7hPU3eP>XE>mzWD5UI?GkBcL@
zcK=6Qz;O|ss$V`;YGhkUiCUwaETm7+esjra2g|-begwwYl<xILnjQ;4E1;dYd9wi=
zJG$_*xw>{|7Z>M0U}_@V;R*0F)oY>L!8svg6w@q|UAzN{2&9NWl^gh;*`J+qrx3rj
zRCL!0&6B4Xd-OSzw|TLKDDzKRuEOZkM@zJ;^GXgqi{Bh06(%t-U>l<T^l8MVOBti5
z#)LU{N9td?J@G>BK|OMMrGJILh`B)F7q32KQrSamQ4BhOTLKFvD$p?2cpW!&hx_WH
zr$<2Hw1k>*aNx#+ks+3y#NibmQc+v0gvP!|Y|O*O1qV)iif0srVi4KxJ>TZNccZG$
zicUyzwh*r(a^}&XZPMP1%90QHUA+}<_Fv1t5<Jswh$P;zQZ&-)d6Aub&Hh4Jb81O;
zaUOC1xE_6=+v>+C`mT+@jYiyKZjQwF&AicTR5*&ypJy7A&@6iVxUieV_@#gPB(N4O
zAU=jSL`gT;w>|0;TEC}v)jzsJh9V{cW+X{x3)7QTyN@n3&HTGm4(h$I;xron*h<;1
z#`(phH!el?gfu^f{_wuSZ6R`98{7#Lj)1Us!n-PN6o~a3PM}0=o{R?!dPK<W`uh5n
z+va_{?9%X>_`A@H7K9Amk8?ar-q!8Q{cAGQLu`6i5i{pv&S%XzNkU2O7<H*R(>GBl
zlq4a~9lEf6BS9FfQS^JkHA~oX38}fbd}|_<V&_gi0~gDv`%bYCt{5jRBFO4kgjVf&
zaIhTb76OVoAVJd@TadVJbL!$GtgXk3nkL|<&_;EJ@EYQRor(f47qjpUp1VHyo=QA!
z##P0_z8u|<Zvfo8xwNS+{N7*q=7Aw@AZ&8)T+1?Ra&nS1it0Y}u^>9|pa4xf#yMM)
zKJ%S$jlRP)IoYG@MeMaafaOX0xVE0%gP^FA{Gyo~U>Dj}{g__v@&o6M104I+ddKMs
zgV3?wC2V*dj8^f#DwrIg;2lxlP+^w8*(J6u{R03`y1Y(?1#8qpeQ|O_og2ojmA`NI
ze@?%yF|-zWg8b-f!}PAWk{3=|+?Kww6JsivrnXUZA2wWlV~c%__FN0r$sH+>nYp}b
zuaIwWsP@C5K{cNlNz|*%t(rd_M^86XatGDojvm_I-zG@?Yd3bxLtG;g_=mHnIascL
zbSgem)1`a}xA_?2@6C%b@FqkYdg1{;J>ImhYzle~HY}@wa)s7HeCE`Z4N%EgxoE1V
zUO*UY8g=u{-}m)!{N`hI-Flbt@J04^abE#|L*Wnb(Tz<1rExdv-ClQi`rHpcNH%U6
z+U>P_?|8ULf}~zrN}gqy=Qo_7Bz5hxykUSXS^Y}4l#xA8v1S|RqySaMhGBv-Iw<0+
z>J{Z1q9a7uY`rCGbtW7$%fB+vi%{KKX^lySE|tcO*cTFJV1$k4hRMU`+vd7YUs`*U
zhqDI*6aajt+$D$P))itstFMYMCv7mwYm4;ay7iigHvYR5AjNRbF}#%hMb%3wZ;da<
zkgG{5p#3Y=<?W=J+^0CeGcwbH9|1VPN?$Gf?Oyk8`gZG0rOvO=iO2U=vB*m9nRl|`
zU`M7K532w<fWxbh{J|6VZe733&9+tbQ~Q&X9qF8SQE~p7eH>G<e7@If*LlH!`CG@e
zd6j@}|I6}lser7k?Dg?KMXY^Yw85YQyrTd17GKcaN0!#<zM5ICR=bY7faaPd?EG>&
zmcJtt^w{gsJKPAw5`Lr|dDgo%b?%=yPoX0S8U4VkyTPFRiPT@;A378LE@Cx*@tt(l
z91lcTeZ8mpOD03oy3uBe_L#9ENK4CZGsM!7i^^(vz>xc2*2_EAxgVoG<G93nhO%}x
zsz%$duQR_2auwowdI|uS8PSFdQ1Y?KEZKKo&Q3@$NvsUJ(6shdbKbDa4|5-2hsQj3
z{``Fnw12OwINti3q!u)N4YVi0oR;q@=1}=cdEg$W)sI3p6EBmRmI$<VT&misC`uN`
z1i2F}=WhiEb@`9h?TE%wfSqkh5FOA|6tv@Ev;%+p`f?%G%^Vxu)IekeEPdtd8*#8!
z6%`X?lL?~V0@`hGhSnEm>-@EOb&&r(c%Ll%DB9?4)bB-ihlF>shY$bI0N;J~*lXqH
z;)2*QIISN`eS4uJT{GVg=@LeUyAqhN;TOBhU5s1)zZTt#3knMK9AoDXOhbR7nDDXR
z8H`xiSg=8N4*c1Rs)v;@i%)TYQU#W{k?O9#rlB}62);ihS#yfd(<BS&ylNL9s=BrH
zch28gCo2k{WD^5gm#p6G&qY7Io_`)FaFBm3KN`R&TwU1#^4kE7wDb!XXn%pN%tw;%
zS#_{%1#jFL?8#lHLUd9fy9pm(wbHO>-R@I_B)`{Vs4>tlah7;*R`<g*fZAH4sd<Zx
zA05gSzI4&V=dR$vw!=9Vvo>Vww0-d($c0Fn!VbL5k}&+_y{fqN%2)dzrnX4bH!<nb
z2gjO+b)`i#(&KNUqxUZJuEDZC9N$=5j{qE0r$h*x_R@(+|L`vQx!Ymz;zfo2fAX0O
zsxQ4yDI;Kpp&X$#DZh#{laqz#wS*4OQxpFM9*q4VA{FgxbIv7x*Fu&qGkB=tq|VGW
z_DI&?@_y*mIyOpl<izzoTTXUNmt_vBO&H5yWqu`ln$y(BY!(LE|5-fqv3@;k<Hv>g
zaL7W!%yMDHFon(dMJo<4bCxX(0PA%g>LU)i_2f%2i>o?}>nzJoR};}|g<LGxD`KN}
zMq}OfF|bXY_U4$aR~uy>wwI?2`kRlQf>QkSFuLZQeBO89D;W0LHuc!dSQZLT3VGkK
zH&yuOj03O%VWRbxC>uvj=Y|;!M4iPy-oh!2AsN>8<G3`V$*Folp4)Lh;9C*Xdk&q$
zu!#aYt&7XxhY1agkQk0f?w1};aR!T5KTsb@6ae)0i55_?k~}huco|f9s;N?FxxMe)
zmE+*Y^Z4G*81GqlBxGu6*1W!qIw<sv;2(OE?BNUJxaZ<dMK|5ouJjpOLEqrWa`HXA
zN|wT7gk0JU<aC2S*mvK^*jTp1F}yZ_#*jW#(c}wwu@;Hl=r;n4dpKI9Y?(pWiMXi9
zCxv)2O%a(s8CsAr0%YV{Su7ecRH@Dkj__6r)`Np>XAkv<zQjOEHiX;j%p=ln)TY}u
z#{6o3_JWi8pmVAUqMem{Cx`V#+x4%L^;*|iLt4E*WId{?=09EedlT6`%y~>=e?qu_
zz5=!I{EsEJ=kBYCh9{m$!yTWjJ(7&VeK6Bkve)0v+BPYpAcHkhT~8#5ZX*X|dN&5I
z&T(XluLG=-rrL18G%48wKNot`T$g$S<o_xowoFYPqq}4TxsA)(vi94C*nC`Xxw`ls
zVnO_;E8A208S5ojk@UsC$dTBSPrsDO@gW88gJeE89`mhH)_bd^IQaq7k0c&T71iyD
z(5fm8F7Zf8Ul8f$%0_)^(b1<R$gzwWn^;KLv;-?|?F?rkwfEh{SFisu+n%FPj*2A|
zt5L=9H`Vc5wymuzARZMg(02fvgWnCn#1>@_;!qj!PXQ-v6NM<cevZMKpL)O8##8(c
z4t;)6*16pLhGFW``W@Qepy5Nvq`tRrIho~o8wsFqaDvbFPp$&#L+?LxQDz7>rRV0y
zel*67;Tm5Y#R<dL|2i}z#e^gasHQ<dDA<8^Th}jr!m!Vw7~=F9yUR)PfSujiG5olo
zLz9G0f}>;WOcZ*48C+IbX-8(Gn3!yBW=50;hwW0YkMH%s7z|8I=q^Mh#ZOMok3G(U
z-}6nlA_<Ns8A@-DuP$K~lvqjl=O5&{4iw&Oy>mWqM9<jH*FEfV)`7BcYuSTG!ws1i
zL!BTY^P*T7Num(gOf7ztSxglQ_y;_%vb+9C`Mz{9N_|rfSJ5OKwCpXcRC{PLq_DN=
zJMe65hB1mg^Md%c)4{y5e?aD3-X6N<NtWM%G6)24s-7vrxb|GUV`!FtUHIBMUIo{&
z@Hfish`Y4xc}x3iI?Qd$HF1<f5zf|ri#}O!`c(d}4D5MxoUJNd3J=%U*R$6&C^S%-
zWu=R&z5m?EXPU$l7SPNfdd$-lq_ArH3rtfR1c4t{KEJuqMC8d`%kR6-#%x|R7CN8W
zyAh6{J7&|ez83bUjiE87>A#P9-J+yQRq{k6J#fVXknMkD;^W^3=B8JQcaYmv!<sLX
z`QMneWzpUQoUt3ZGrnt4LzTPBUGPHZWF$Sp-Px2EOo=l!yFENMm1>@Ru=$Yx-jPIj
zD6Sm_D<!CUC@<ge%vG=A<Rsv@6Yk+Z56Ws?eJ<l{EO**p`c2zx!%pX(^`qwxR-&+@
z)?9p9vP`g~-i(%c)`RW-%O`>e)`PIFRU5KyP~7L3*}9`=nk2Vy`VY2w3wH42T#a}*
zIy$<tviLF5V0ts(p{4>~;bw=+F`4&8ntrQlyg;o>7qj#1{4MqSn1ZmMgk)6^fl9Uq
z&FHoE{W;c%cdok1;@ZDi=U#(S-lq-)v_~&{sxt`7v=r;0x02;~?mOQZJ7l~C_|W+y
z{ZlXXqBMT!`{sqQ?S1KlbEwH(YQoOLPa)A-9GkqO-)Ig@cMy*aAL5b}g2hyW#LKJq
z`%jO#V?uhNitZl{&l25pppoqQbedI_x7va+tTEjn@Y8Lgp`ujd2y@FugAPcEA>fVW
z{ta5NhO&9s1OHJTkG%Zo-nFoxU|Q%<B9=#Z8Drm0hLvg+y%Th?KQ;WuQKI;C8PzLd
zq{TssjcjHX;XEQNe^&deESBW?Ltl+Ed;c8lV^~+K`bV+G0c=DLM6(RPzLi5i2h{CH
z4O85HWwh-?!|p?UiGUy8_Bp;VZ`Wn|PR7#R55xUT5q9c!V7+Qj56czoJA_pGL6tl6
zq^f}&R=0gN9GmN(DUP2w%g9#xzqx@rd9Dqfxo!$%$v!ut09-E{uBz<1j_`n~_+;$A
z8p)p7i)D=OYvHMQI8GAF^-EqSVc*7mJLC>z)W%KfJn6l_cE&|Y-}WAqR_&8oCxvsP
zb>H#O2Z$d~!O^(yro39!1Kbu)JYe|WTe)U%LAre?od7ONT-TX14b><nyMLCuvGosI
z%{`A#mny)e?DjuY3jjAi(!ouff5Q(&<y#q9pCCYYd#lR#u2$=6H&@XD-ywe7zMTuP
zdK}^!-*`=~(6&jrp7ab#;&^>*H@r`+;kuz<2J=!bY*h1o+#pK5NDRyGK(TYHt#)ta
zy?w(FGWvq&`kqe&`{b*7UlGF<6?bz)$J?}?Vrq74!p8Zklu;i)wta-vC*xgFBi-OW
zZkiPD1)|B+kYNo#pI}zS^0U?xgt+35UlVKV)~_{SJW}E-EwW(&s=ti~&a-iWx$}rI
z8N9-I2}C$tysjp@$*`OkfmBTx&OSa`%pt;3uu^>Wx^cvv{r;9;5rlIzd1bpP!2Bt?
z3XptAZh_-!e(xvl%y)^eq~E>Dt)Dkd<kfnvWtMn!Nyi$6eSCH^(5aPY_o^74O2RoL
z5yCtbu7;z5+D7lucWNUVU&-BniT6c1%^%MQ!i7K*;YL4tS$4<rmxvvnX2}k-QXQQw
zIMm?J#@2vN<0sqAi`Km|%hPwofhToui$oHK))eweKEumI9d}B@RqBbPP5&%rklDZv
z<wybTCb#kFfn;sO^wWhqo`|Yq)Y+0+%JJl*%O^Ao4~mXpAI2{1{u;J%T~EtwVrd@t
z#mWN@12A5<hwl(J9)@oEs8fC>XeJHV+(eTPw7lCiPim$5n!Q@Vps+VX<!*~>1j@DV
zf3n(GYmdCiLO)YmPVR|WPLk233q+bV`_s@X1n4#{eAp6(t?|NlFcwr2Ygesp0A||k
z6(XAaQ(+$QTT+qN6MU|h!yX^e!RK~Flks^zKn0~0s*L2ZXCYc!=u=(})aW_uuVVum
zfge9@FK3y6_HiJe>y6;R{Nx!K#I3XZTlc?a&XC|pBd0*#DzaZ;SzAytKsSdelI)ia
zD(_C8WAWIYVRzDEQ2Gw7LU}9O<>l+`bd9fgM()|(1_<nLlyDB{5&N>fx!3+7AcMEC
z=I{(C)y;pulPNk+8H6)NJm@PI-G}rLy0d=Mzlt}fvBBN`@m>{w0Ta|=j<~w`ni?0Y
zHt{e=8nW#X2FBl>{=pW8!OG`<kq>#%*ty#SmlpVhen}O@8m2arMu%2G2E3~Amkm`Z
z_12<+58t{=>we*g@s?S&_qXNmN;}g2lzMXK>6<g!mfff(ap=i{y4~C)MWxNny+$sY
z663)*jmd?+`!_Y&Si}BU6)r|eS4Np5|8*j}>Q-A8&`xW+g2v>V@Ji58`Kh_p@i6a^
z8eSyFIB#H>z(jM{8Foz+5_(RzPW>p-Wdb)0jefg(8FJAP(x`6Pe$JwBvG9)MXm#<i
zyThS&$mY>f-jWxWM(hVwo*k!ftRao_M43U>*~+SiA7ah7fBU-j7p$@?&pM>%zn}ko
z5{ljN??JtOsJlW<x0AL~?SI145Sl|!{cGm27L8K;W5B<#LW+ee(e`4=k6nJDZrT{u
z`lq)lePLnH{;ExsozeGWU?>MJOPklL7Xv#5s~1YYj{b2_?<h`pMD*p@u<#3|A;o(j
z<+$4X{8Rp~sG$trRx5+^Z%m*^O^*KxJ|%>5;T%>H#qJyRdX8ACYfB+gB~B9<TGOVN
z2<rWC*&zjD5R`&2Z1kxxPDYw{(>h6HnA$UHMrn6c%RRet7<bW7j(7~Ya%M>$KW49$
zMz;8?dEJA8X4odLFvX2Es`6f4l&o^;59z>~i(sbm%^KZ@z4PXwzJ&Dbq4N_@`ExPl
z;;e6Tzu3zu_6LTmTz|~4wz5prVU{W^EaY+zLw)X)du#M)ROSG;WeDE#nw&4Z&7d^y
zFR|DaAW~jWE4Iqbc^U%2x#qpi7SH9Z8L-!A!{%S3#Zf1xb>bQA)9th3S2Bp-4V+9A
zDPzk1U}%nyY_!nJp5fSR^riOYh(HrHxLaSuHHlAp$#y}P_%od30hT9NOCGf2fI+rB
za>rT^#kYvP5&&AlGhD7RHz9_?J!g7O=NO#HXZP98uq7m3-Z;*(iW`foEwY6$^-nzG
zr8|L$-o&?$q<4Ycg885V03g=7{T5*8R<XSmB^PE7)*GVWXRx3kjzY}Y(9zW?l?oRt
z<H@9!(cdz;K;%1K?NQY1<$84l(Q4~Fjh_b~rppe9^<$s$2t+a+r80f30Dv_$8O(A>
zBN4AcMasBr=wIcHtz?7<JFpbGr?Y@<k02Q|ut?b6o9#*OoyIG(`XnA>)k$X;`oZ8z
zeFQR{j(hA=oQD0JfQw}CZ>#%;M;ypa0X?#(O4T4*pqUhwIUTaD^)9yqE%x5v2{j;&
z<kt)Ed2Bi{^}`Mr^5%HaWLDLYx2w>Tl6rCP=byHnW%HMD+NaB>q@HExZ=*_{a%V8z
zbl=UVDy=%WPf8jM6J-Z}x}OLT5bVZ0;>+P6Rs2yTOks6QEZi(lyZq+{+$qM!9p$O>
zTrSt7u0EpMuxcQrT6n|?MWx0hIbaJZk6Fo)q@NAcx2zg?bcu(@8QfekY^WXU`CKVs
z(yPpkw!d`wdxPpJL6i4hDj*yCT3-L+5%S{-i)%kMBVwL1IGIrZSO|_oUoHZk8^J`U
zAhM^4*lkWH${)g0&z5`Wtp6n?1;ZYwLlPwphDOt}u0LejWPWY4yI^~ehHh-eEh8IK
z2b#O98ye0--&N+@_)|nAa()sO<3%bCWZb=qJe+w#OY2NP0f^&>=_nx3jp%y-Fd!)S
zvA?IswWG1JoFo}i$|UUGM37dhtMe;jtn5xP6%PZ$(_oa5)${WIb=jU)lzc!|0zTF@
z9}K8@($R?10WAW3CJCPnE&rC!+?4;tFhI;A!5M%5jco$wds2O;xL>-ZZ6{u1A{wf;
z{1EF#K&fwKRSmSSiz{@;Te#x@EHVMKZOFFr!EWP$8Km&ttDm?UigyTx#Kk^}N!|=0
z8tK}ji(kPA8(z80klJ*OfB)aMU>NzcuK!!<epmoxCh6t5TuCBdkq`hA=4oM9r1#k)
z`vs70ec+uw@8B!2SQjMY)BqA|hAdgy-7xt55a!;|5bmL*<h<uscu?$TTyMH|@bNPd
zg>vEaOhrg3f5DwOIjN#!Z&Qd8K_G_}>j=NEuUiPqhe9~PX817R8yx(m7j{HppCz9k
zxG*&IMH^=yg_=r8)<f$ti0QD8p5`fp9yV>Im*xfzyq%rwqQmZ0iujGN97uI?rQU76
z{-cvIAArB)hK&n4M5Xc!CnYbpot%jGV7)n+<o^+cC_;`oG1k84o|w9-0ZIY<GQ_@m
z%#!N%X0Z2>Ohg}}3@8f%E`dcv*`qX&PD6LT`rx?UM+c()9&VpVZEYoY38lIB_^}z3
zu2fW8ub?`ke1p-UC3=0d*z?xW4-c0t*G)eZDD<A&&P6HEVcuxxgZaP~x#9-^K1~YU
zxSYd$%16f#t0X+lUZ>^BiO6eqjh9JnRB~5nofBB$Fbe~_f<hhg(%?TDbY6Bz6;uDH
zUgI&%hgAjs*7YWb!2=YE9yF=B3$?~XvPxT9WS*>Cm?*Y~$%8nmq$K(t=Pc^@>xolz
zE<Q&xd_<jq9xv;?o0du*M#^oW><Qt<$&NxoLdS)d*fVVPkD=2x1<vs!;Z-N(9aN3e
zE;$Zx(S0%YeHrv1{}lrn7D1943L%3OK7UE^^wtmH{YTx&-&?Y8dVh`UKDt}jNfmf0
zyd3=BeZ<LZ0O;GlJ|ULqw)6t2uKR}aw{LY=*|A*td72mtricGkv$8{M#`Hd6O~G9*
z=gOX##vKdh@#AgN_Y@w8M#=pnJad-ATxUAdo-hdiQZzaD{|{1K3BLb7Abog&LrDE-
z6NQu%i^r(~J}U<YGH3RLnE>*pe|uQ+med@_JV-}B3uhzg!1xSg{!DnKit`~3p6foh
z^Ii|@6FlfQ;Fjinq<}zHh1Uxz{y3RMl;eXWIHaOXLFDxYF?t#sq$(u`(j)5y6a_$f
zly^@l?`phv{kkyZlI&0D*>DsP7IOVU;&Slt3l2~Q@p#kO?0pmUd+Y7Z=rV32!P+4=
zI6S(ZA5bOYfo>%`)QW3Tjgz!QRn4N1ds43Y!OPa|k;(YcM8cj9ek1KCaQUv*5FwJY
zCC@H$VB*?WFPI%tp}_F@R?67=5um)=Nsr;`US4kG(MCTF>L}z|)L~BIi)?`MGdq9D
zB*;G|U)SX%eng2&QsOBFF-#*G>@P_pub6lzM0BiCV4R-*!6a&bN7;G}fnZqFMERq^
zJ~)c+LI&zxUN;@g(`<euSthHYm{fT)ct4~vMpd&Cm$CT5PgW}vcQkf+%9ome;1q>y
zK0arVbX#!NLWwIa?~<lS((r-P-bC52AueEnkwhfcU6^?siJoGotk#dIk^~x$<%52w
zybcarlHH{!do>tS^a^`0K7$4y8+^X%;20*tb6svzK2XnIlG1b4R$`<2auz;6;B$7S
zufEhehK2j-;Q_xdayk}9xXT7_IHwfOmGX8hSn+&?Q=SiHFnKbDu&?w5Jf6Zl2Eawu
z=Z}9J#;f*?ihiJjE$w}^bEO}<mxw)6Xl`T$^u69t`e0F<6~9BF)xw`IGFvBK1%OEq
zbr~ES`o4i8IF<q8$27<r>JTL#$T^s&?HVeMRHq0fvh!%gUA!K#0mJ>f{83<n7EOp?
zSJGV}j#=~TouuI!v*k{9lit5MUi0_Wt#>RI$?OHg@cVn`^!!{ypNEJ^iD!z36nOX$
bps<I6bsq{$@ScGmO#+&#x+>MmHsSvRVSf+W

literal 6970
zcmZX3by!qU*YBC3q#U|okPsvU0VN~`rKB4~q@)BS1Z0GvrKD53hVDkBOQcgkkP?s*
z7)pk|$M^ld=RWtjf1I=TUi+-I_xi1TX2LYp6-kL0hyVZ}eWoO*4UT^Qo?H0fyIb0P
z5FFAxbq(F*tXyBceeLY_+Q|_Bkm+v*t8WJgQYox7o!-0du!~@gdP&kF*uk58w>3%O
zUS6Xz(u;sV#6_~-<86AH$~=0{$kT;N2G3Ua0;jllUIejf7{@T%e8>Aq+%uBMh`=L%
z@$==1BTHfJX+?hp`E8ovZ_voNg!Pc;Ia-<TOiwSVp3|-tV0`%=d2Z-E(!I=PQZxN0
z6NivM?BZj^$~*ut7(J7d)kUW78v8oyes8@oMnsfjv>yie_biYNH3+x8v47;S8R#%I
zvu7G7wrxoCc@T&$t{*10oX#Msm4EC);4&exE7(=_xW`D5A3tNnVV<^@F@_H}FSf0w
z_}RNOIIoN{agVlc=INEok(Bu9pH>f#cvjmzo4fH|`)3DNnMYTd`)8T(i^SY<?gHN2
z@l>HtypLj3Oxl+OHjJEHU28>LDx_b`X;%=j3UyKnDW~xm^PcN^sHsIdvPAdc07@Jb
zp?#~Ny%suM1RC>OZe7;35TI+N$}t7?+C~qsV51@`Zu4q2`CIns5p@9B78eB}fDoj!
ze2<cb168+EdCq;>O)H9v{rgtU-QM@Cx`<_{|5arTO6G=Jq`mh)I^IkP8Mb~Z#-zYU
zGZ?m4<`5Cu#W}nCZsD!&*PWArc=7-m@3i5sAIux)$0sMd+cY@6DWL8(^Sk=_h1&P-
zx;4%ZW7!~NaGG#De+1%P^Md#Rd6?W<RMhP}?R)yLd)dR*fxQ;892Dkn8Vvd9QQ{fu
zJr)nJSJ!2`S>{s^qpn6nz6fr2qMJxXZmI$MYoT0$30Ax{YONt*t#gq>Z)x~X$HtNo
zU7jFap5BBQs!@yTsuq@L0`)@56=%9)T_S%35Ua$&3y)QjyNwG~#ey3w(TaMa8p5$k
zf<9Pj=jH{>8LFtbxPQ(^4R4wFeXB`97)mh)a~3PRwc>2}P=1XU_d$EoTYA}{ESNV%
z+vJvRJ%6I|9f~m4Sf#3_%rYDSAlIq($MOO4tv*x>3rhF+fb-GnW8Z2-mJ&zqukPJ<
z-CJ(fdI2POn2W2L1xFio*wqI89m>2D^)u|@yJjhyJE6y1;ixSfO>yIv<$A<YeF6aJ
z1Q^S9ZS1g;k+Pd0<*R-;r20T%iIhrn@bF&NR8uqKF?V-&dg}W6dI(+PEmR1y)kL#Z
z!8MM?yIegxn8Nn<^iCBh(rz@9VE@lS#-IkC(dE}w7o;Q$vUQP!#r6w(t<w}uCS1w{
z>7#UZJeRqGJ0bK$j)Ov0kWS9PfVQNx6au__`I4`-q9V$hmiaE)lPh)K{;|g|LO_5U
zx3J7asGNhutOeaGVNp%@A~!ZZNjcxGkPlrv#H~gp-9AP2KIc))#CWsGMG6!%SJ_KP
z2&XfB7q-;=<qH`JeoFU~h@+G3_XVEEk(eh@XNNf;hRKSRTu7E`L)GtREfkm$3+Zej
z6#SzXiDwIDxlrg3ucx7u571*JVxtJNjCdz>CY>ell#ne}DVX}36|UX*h9Z?r`Q`gn
zg}=tBoK6+Tge^Zf#+0}=G<0uER}Ne2sA(k_tc4NeYhA7VJQ(0U#9<BO(pJiRq-JBJ
zDef;)b3zmoMlj{$H@cydAC`TN9L&L!I{&5JXI)!;;;W$%Z3jaPr4f6Bv8j`qgt^C0
zN5V!EUi>HrX%*RPF(gcoFtTAltT4iwAItjeb;O6tUdkl}o~P~?s5TNCWYR3;$Jq4r
z*AD_lQ2q@~+y{3Y*X_n>hq(l7r7U^T@^H;dn#E$asi`SJNT?2+FrbXpe>>-)<UyxE
zq<qY($_~<pU1=?=QJPJor#7kAwRwR@8ZrXK7!d&NjXz?hwwx&>vKw%7sg>p&uu=vg
zN`WEC3IQCjtR;vl2SwS6be6_R#^D4Nhv%>-hzuboL`RVzP!=~(7L0l<N;)Zef69=r
zV6G#D8%xS*k}MaF{O7^~nOvD3=&k5`zynh5jK8~bP<?Ze*mwd<9>_icS=p<T7_uT+
zqvb8ipN^so3=Crv69Gv{G+!D03n15z*WcLMe#1PC*i>XAZ*X}swj*}%c=yZemEHiT
z8x@sp!Rs7!HXyLQR=Dtt-K4H9{)TOD2}p;A7Q{6Ij*Tzsk0-UE6h7|m4|kB`P}}kT
zzs#CRDAW0-_;qx<CU>4E?a}Y2AqtORT1CHp4$ABhT6C`u7PX?De}a?Oe-d~VsO~d<
zGj=3jx7e>8s#y-jj_b`$<MTG=t+aZZ5P}Y_*TqGumakoPmjWAF8n0T%(sP!U-qibQ
zAKr;<O;_SDT$Ev-+?meRxDL_Z09JSGg{m!O<#dL8DGMih5y20?KUI{4ED|KIukBE5
zVU{)@58rswJUjMJhH7qL`YJAe2M=4n>e=4j78;Uzjx(U)J|=n~W<Z?ljBSC}*V8-J
zkwu3!Jo+j2`_tOC+~Ekh%*Npn-#rLy+mhcuX1Pu3E0}n#&qlLk1ZZh!l#f-Hx>p1x
z!*I*!POmf6xzg3S(l*|I@#Lk@$~m(t-MlpdO*q;<JK7ku=sQ&I@L+X1C-m%^oSUAS
z3tib7V^UwIe5FHl2C-lVlYiP0XfSCz`=>a4u*B6fA?UvRB$3~5(?y&a;ftx;Zzayk
zcb&yZ(uRX|3e~GyE{!r8%KZ-_nPP3wS3qo`Lz?}UzD~)SNDg#t8n5lecgIHIJ`Llr
z7$-2jn>Eh=fD53YXYf4Lcg@UT7WJSW8z1kKi1xsLhHcRsbL9XNw+^y#J`%y&v7L*y
zE0>}%dSJ*$^ScTU3TZ$Oyf7ut?fvyW{|k3H8qJQrBmrZt{cwOcn9Is&5xt4B8XR3s
zG%$&M{WPE*d55Lb&R=800MeAe&LH_Rb_ppt67}{yXST?-OtzblyMrXlXw|zWk|+n9
zA&Y9kRAy%85-tA29^$O1g!ex3KZdI2cmI_E&sGOoHG5c^h{z|IY8O<iNhPgg<KtBY
z@)Wmnw1Lk{7<bp22eenDT)i+j{0IpaXDSl>hlxoBP=wdKDA_GmvRi`06t{4Nw(r<x
zY;G}g9o@o(I^a@Dv1ck_*)|c;SpoTxjG_aiq@)g?KB@|4x1D|(l_eb|8TRJq=U27O
z(YytY$m4NEP8a()s=yC+ZbQo7-nl7vt@Gn&`&K8Yiu*>SDRGEoAhZO*ybl&F^Cu<c
z<?@P(1a|iJ54S$n-4l3D&A&oPT7GrwOWfBBnB)?Dh%BlwbcB_#q_B`{Rmeh+uE(SK
z3udP}AKt#f9NwGEru7oMkeK^66(v$b1IFTgtOcxkT%@L@aeg7|GWGgpK%<+rsO;DA
zI1wzQXdfvnu!;#e>4Of4y<Qe@AX74nRr)}vT$c;pzfe76q9q(rw=tSknVJ;pTarfG
z26h&x&`(Op%B<_1g+Md)>~T&FsPFdiLdAVPe9S^cMFgb~yCr(^=TE+q<72_mjJo9O
zV^vP~&!6Ak!5cYwYYPG`7b1aLFe0+4HYB@+tEr<CI5%hXdBIVRjU4P2K6IOZuS?>^
z7Jqa+o!H`WdU=dpxd_q6Q+ShwSG1A$fIrdyU_E}p(V#pYvOM$s`w(<&4WYtLA=I9}
zT5p=ZDo+rlz>~O94!PQT6O1`(Pr~$Xkn{V|czbRXLRcryF$MHv(h<)%D7g9frt+V?
zM`F@6>-xJ#ZzSQm`jW##1z2qn2EE<ju%lcti%1D|-pc9XEEeYSOAbNuPO}&_W+N4j
z#XmOaSGeWyU<@t4pQ>q?zHlBH<<(0d#mB{a)O3c@gZSvmJalCrijB>7Cw&3S<2VyB
zw%4V&%FJZJd_-ITJuqKL5N@TS%={*8=LP;T|9p9RHDkvRh2_P1+;q_Q)KrG)`{QRK
z68f2A8r^bzO8Wy;QsL?eSV!GO+q?~B8OFo>EP-R>N@7q8(#Z4R#YzhvN9nhlk}#iW
zfcthq5{0$BQ$-Az6s-;rcU}Y;MXYHngx~hwsK2tC7!4V*>{xQf|0?j-R@~~+iM&UJ
z*&trgFAZ9^cd%tHr22aN&Zww?)BD`xqkLid&?pYsmh@r|`oFbg(t-uRrEN=U&+#V4
z{<!qnO>OSe<)AW;pCp!hzrAS!xYjO@Fam5tSil<Pm%f#H00F1;Th=ImIr#w66%k#%
zYauL+XcJt;0oOv?!_*c&!qR>|7sFV90VMYPhZBH+3?P{vj==fP4545GF8@pN>x_V9
zNA3toBYHVjadbg3B(LfHmo&dvA3!|0=;7Hj5imbmVj|~PEC&$Bmdsx`F?h+gDByoe
z4)(H-0LvYX1>oLa4<Neg*>v#iPt75tk3I8nJIyq${`O*l)-YUUanAk*j)`y>re_vz
zc1ij0LFFci-T3J58;n6M7%V7h(_l2G54)mZqO#g76vL>5o69ayMAhgQ4a+7NC%^pJ
zLol253gvh8=8d6CMlZppyw3rojTBUaN4n!$auw%~=qiq7-p<OGXjn(3++i3DaUDVr
z?}&hPOn_kgF92pt{{ukZKSf!;5+I=<vagxp|GxP5;Qt3F0K^JpHTy~cf@qug;6Lz!
zSU&u(oPWrL*$1bq<EWur%y~LQLW+S&rUIy{Yci4G@c%=g%fz=c9~_VhZno8EZ~0rY
zXYt1Ka3lEGL-L}#RQblJ(YIu4qn`4!)jG@Bg-2y?$C*ib(=lWM9SHdS63_p9rQ(rY
zRt0UBtllVb?<(N(y)ScUwI0xq;XGLn3o_MKpES9$8PwAW;O9O4w$xHjGGak{@pq8Y
z3v<;xQ?eLe3#&f;)YZ(@JIFICao2gLPes`FVE@34YCn_lTj`CfK460NmGq{&*}&2!
z@q0jk+inUEYA^1hycgq23vhEWqc5MWPCxGjIx;H@C@@`cv87VwaFSLWkN!pgunMBK
z-F_Lu6B2kbD!NyZOeWB$aXjER(XRNVxw_Rt6g@o2kwC4#R*oxvuOlhZ%aV<T-jhIn
z=^PiHe$~t~$}Hcw{O7T#->9gba@AIU)}TuM0cDS?!Gw};+>--R8o+Ecj|^~Dic(FX
zaCqLNm?`5$!%}95rnpW~fmdyKjFK*=H6}e!QBuZq{%A*wFK3a#uMxE<#c_U~l`IfP
zwERB=t2S!7i2m#>gzLaf`-^W}|3Z-QzIn}$*}b{H!+4W^MHj-*NcGnW=a#Zh;QXIM
z#j}Rwm(Bt^W~m>0?q!^@{5H-k<^DQ!&jxbfrhB4(H6EmH_9%u)>cjT<x|r)0jzi^a
zWWk<$e6DE1cAsVme4h6mdu9}yltfWM&^o;pGJgmU)ZhQugk-1&3Jg?{d^e1m(e~1P
z&(cuVd(XHtN8_;{afgxwp;@`Yo3m9z6#O^J`#xYcVkM8Ap1|8=l)MG}X==g90NgYy
zhNseiOghCm=uY}Z>(99iqDvm9pPT(SJUF_n=v3E@zON|B-0NK8r0rIWLXCXJl;;zF
z-SXf$hBp*lG!bVYx7L56qRWVu-!`oUCB6Om!b<?iZoPtu#VG&k{LXlwSK2kyzjn*S
zejyAmU;n4alJBqGsK)9s?c1LQITg|4&r;06$qjO6GW7CVEJ@ihy*W++emmFJ<iS9j
zFe4y%-Zvk^#AH6%aYsA=?&R&Myh&+7w4d}1rWAeqSN#;rG=a=Q1D<^gqv0ZWUy`iN
zS6h@TfpgwM;sIIp_*LLR_FGUxT0H>x8*GA`-#-0?682&`7pZ=4QA#wX7UTcy4-Qk*
z)oreLcCi$u&Xw7H-Pd`1IzjRM<bTtzIq(26FNxu{apC+hs{&|?s5-X99fF=D-$f|a
z1rjQ$X5CW1t2oPw1MK7yDJb$Tgc?X$)&nBv@mH;MN~9L9lkwPnu503nh?Lox61iW7
znkA~Rw6x3~*ZC~@lzghw>BaCyVc&>UQ5vIx>PmO6Js0UvSA(xXnM_Qb2I>ove=qM`
z`0Ob&BoqDtAq+}7>=y>|pO!M+PWM(Ep3!K00|62YX<rR*Km1(2`A+iY()HC<y<fgY
z50N}ttAG7%zn@TV42F?Wbk)gb)XZteWctS9G00waSQhX4Jb=N-PcPHGh8qQ7JEKzp
z?f|Zp$;M$d4GY$Xp_aY^d*!X70&k|!8owW2JtOkofaN;MOFepH*VXLg9qO@kPL}rQ
zVGc+-AAwuyn?-tb=WS8K1cE$NY?hiJme<W={d1~EH$lX-2aUBhW3!)Ao(E9u{30aG
zB8ybW2WKQJrk|b3{c`E1_FrzwdAgDP%Q^pe|H){oliHygTf8P9$-~z&y&*flI3HV@
z332nJ12m1^(JBw_1&F-5JF#V+WCHHuYX{mo-E_;%S3IdPZQV1`HHl(=+<><GaaHtI
ztm;+YJ3bx(Q9fa<P*-1C39ZIlmN<?(87vCpEf$8#AFFSM8%Q{9Nq1B0ZpInrIK#S@
zZmb#kID5HM4I;n;<2XPqTa^hL%6`Vj;|Zoi|G8jW<5yms4o0Vzkv4(nzvL3T{kua}
z|GXUPo{7~6?5!!4+_5|i-gl9{h4?`S0gT%Ks>`(PdD~8Trtp27Y*k8~8cI>dWEqKY
z!Yq8m={P!O{Xllw_43xArJ}Ak@{Jn7dH3%de-6!DRb(9$iVI{{x*dgxOZc5X*<JKP
zE4tyzDcjRcJgydIp17f@&-v{&y;4CI=I37<y`^4{2TPWM>D%4WjnbsR?EDv6zZ#fU
z{U0ADaWLw$J*8dGaR)VAF_v36h@U(;dk}f-f?{;;!#WjDi+I!fmxm4<1k{QeXTG=q
zXf*oL)}8f!BmeJ<CvRV^S|6XD<ZNKc6^J#H+Ba^_9+=FI^OgUt_{5xuSorAq$G4WW
zyZ>iWcCb#z=`_+xtH|LP^7(j0-uN7oYt4|&jr%+%%x@r5HR_);mLU;@*SZ$ZaS`OG
z?==^COZt+UA+6<JDW_8O=O5sgMTER8MLL9V;NKz4n-MvnIgt*-uK+5}O>rOGD{pUG
zho2D-?L}3SuT$$8MS^Z-Q~NakDY_Z462v?}eK<XKzxZNPD{r#f@BqPlL|P+j08zpc
zNT5}#z?T?GENY^rS?KUn(n1huy^<D?NU0yNUw$xfastblJ7IQ%JA|NXv@=!?@pf&1
zr~ze=pjf~2xTw<CR$E!q;w9)G$tm9an88+_kf-^$9`{>bJyEW*-o-x~3GyiVV7l%M
zjG11Ohc1EsUgjn;3Pr9Q5lDx?`VLB4@BF5nnvuaZL+usTajK-3yd6wx{%1mPD<^&E
z4&jaAs2AP!4#1R{2&SRPDb3X3CXru+Pm6sX!Q%p_ypOqQ7M}-u{ke$}T|`RRoPPjq
zRFj`aSDYil$2lPW)K2O7$HRgQ(+cWgUi|{@kicCHNi0VB&uld_;$2p#<f&R(YSn)I
zCkQKg1Sewvri7*bYPav1GN+EB*jJd;42H$1VLLu&zc18K)sg54vKoBJqY|Tbs|7>I
zaS1~EI?*P>f&ZnSWr?ZYh|w26aqlVm53i*5AE;!@n+|EPmc}zE3wJ)|;T`urF5-a`
zc7X}0j*suY$v5QE>D=IKU2)hw*+-#W2HV@#T{AC?KDJN~>);2NTo^rV=17EMy4ufv
zi;G?FJ$QN7m0nHv`ghvKS{~R&(7xF3vDnE-RVe|R1^2fSQe|`W4y3zr`d%}G_4n6L
z&-S@)QuPSGwX<qwfLIVYHIW9HW=7_|AJ}}Wt8XWP988*7M%YBW8KR;U==m}E8Y~ck
zoPu-N&%qKHk0}r5iTSf{^#<1uC*#5QCLCE8fS2CMMx)T>Itz{l-3d$?D@A3x-*JG8
zC0z?CYePQ+-&$B8j<1$C+RCJj>=e?&ZpqKI^FDgK@J86W<OdU+nrJiSG^T!Y$Dc}p
zH}V6ls4=S^bKH=n<j1CDL;>xXXLiETJb%P!ay2YX63KtCxm>vMxu!;NPM6}n4zew>
z*2Jz<ejqIe08i=sW=7$$gzf>PUCM|<V&_A-#za`B<B97wk48v#Np;1uYXGok68=4d
z+T0nA{};bU44(EPl@!r9#WQz?lfx>18htqOy<rUg@LGj<ZIEg)m&sX+S)na37Hab%
z*iOR#{wI|Jb+~ey%*yUi*mS&#xJ#N&X<$Jvv##O_e<Q???Hkkfc}v3Jh4$u2K>r?Q
zo#<K<|J%!0X@PZ-Q%LT3kw^l{R~zjsbYg6O&Zb-z?)&5fEL1mZ;ktXNeFV-;#xn`m
zZXsvgF|TjyKnlcF@sfWFQk$iA>-xREt%ir~{Tp)`zMC`3k&qf@A5QXL0y5sfv!$Om
zMH$l@q6~)du_I3>E&RE+U-->{kDvLkBjQA;<l<UlYNHhAzVA+>5Fp~@rTo{)TY)Xh
z@07IedPnN$M$Opt+bq%I&9u|H4BQ|}{pv+lERu7!VVNB0n2t55e$&ZLe{&|%in^r2
zNq*5e!;o6&e_cMR6!J@PHuTNnUn;NPc&e-`A4l(2_*!x!w6w_owx7IcDpMsyEH9l$
z;BqTtwz8sF0b+*h?-3gUOCjNSSJ-0>#WBONC~!#t@R0%x#B<|gg)P44(d?fM&CV%j
z7{MPJDB5U1x_f&(8)j6&O4ZoQ($Ft|glDVgCNn`%QPG|FtWlc%p`(}bU2_~w!WTO~
zdQJ${;AUoK2rImE)5Xuudul3Uq3?!TpEX6xoEFIcxjML8IVJX+Ys}*yWwF1w#Zyfv
z7A8{Ymz&G>-OJLlf2;v7+H6lPyb4q~n;LQ>4Kmr@I}L2pVUTJ}xPSos>prf}kj%0=
zkR*vx4)i?)ZadGi0S>A6aEXYk&enP0Uj7((!|zGX-LvT$Cel|o$MAs+cO!CRzD@Xz
zNp=G4vOAz0Nj+-Xrr|2k(No`@7ab@MGj${BXB*oTE$=u9N~i8<KcO$K&X(HoJvckK
z>!i?D`h%77th0q$a@c(FR_g!tivQ0|{+EFD71c8su8RFY3;r1fJd;<Kt9W7-@P7b3
CIcUQG