Paradise/code/modules/vehicle/vehicle.dm

/obj/vehicle
	name = "vehicle"
	desc = "A basic vehicle, vroom!"
	icon = 'icons/obj/vehicles.dmi'
	icon_state = null
	density = TRUE
	appearance_flags = LONG_GLIDE
	can_buckle = TRUE
	buckle_lying = FALSE
	max_integrity = 300
	armor = list(MELEE = 30, BULLET = 30, LASER = 30, ENERGY = 0, BOMB = 30, RAD = 0, FIRE = 60, ACID = 60)
	var/key_type
	var/held_key_type //Similar to above, but the vehicle needs the key in hands as opposed to inserted into the ignition
	var/obj/item/key/inserted_key
	var/key_type_exact = TRUE		//can subtypes work
	var/last_vehicle_move = 0 //used for move delays
	var/last_move_diagonal = FALSE
	var/vehicle_move_delay = 2 //tick delay between movements, lower = faster, higher = slower
	var/auto_door_open = TRUE
	var/needs_gravity = FALSE //To allow non-space vehicles to move in no gravity or not, mostly for adminbus
	//Pixels
	var/generic_pixel_x = 0 //All dirs show this pixel_x for the driver
	var/generic_pixel_y = 0 //All dirs shwo this pixel_y for the driver
	var/spaceworthy = FALSE

	/// Did we install a vtec?
	var/installed_vtec = FALSE

	new_attack_chain = TRUE


/obj/vehicle/Initialize(mapload)
	. = ..()
	handle_vehicle_layer()

/obj/vehicle/Destroy()
	QDEL_NULL(inserted_key)
	return ..()

// So that beepsky can't push the janicart
/obj/vehicle/CanPass(atom/movable/mover, border_dir)
	if(istype(mover) && mover.checkpass(PASSMOB))
		return TRUE
	else
		return ..()

/obj/vehicle/examine(mob/user)
	. = ..()
	if(key_type)
		if(!inserted_key)
			. += SPAN_NOTICE("Put a key inside it by clicking it with the key.")
		else
			. += SPAN_NOTICE("Alt-click [src] to remove the key.")
	if(resistance_flags & ON_FIRE)
		. += SPAN_WARNING("It's on fire!")
	var/healthpercent = obj_integrity/max_integrity * 100
	switch(healthpercent)
		if(50 to 99)
			. += "It looks slightly damaged."
		if(25 to 50)
			. += "It appears heavily damaged."
		if(0 to 25)
			. += SPAN_WARNING("It's falling apart!")

/obj/vehicle/proc/install_vtec(obj/item/borg/upgrade/vtec/vtec, mob/user)
	if(installed_vtec)
		return FALSE
	if(vehicle_move_delay <= 1)
		to_chat(user, SPAN_WARNING("[src] is too fast for [vtec] to have any effect."))
		return FALSE

	installed_vtec = TRUE
	vehicle_move_delay = max(1, vehicle_move_delay - 1)
	qdel(vtec)
	to_chat(user, SPAN_NOTICE("You upgrade [src] with [vtec]."))
	return TRUE

/obj/vehicle/item_interaction(mob/living/user, obj/item/used, list/modifiers)
	if(key_type && !is_key(inserted_key) && is_key(used))
		if(user.drop_item())
			used.forceMove(src)
			to_chat(user, SPAN_NOTICE("You insert [used] into [src]."))
			if(inserted_key)	//just in case there's an invalid key
				inserted_key.forceMove(drop_location())
			inserted_key = used
		else
			to_chat(user, SPAN_WARNING("[used] seems to be stuck to your hand!"))
		return ITEM_INTERACT_COMPLETE

	if(istype(used, /obj/item/borg/upgrade/vtec) && install_vtec(used, user))
		return ITEM_INTERACT_COMPLETE

/obj/vehicle/AltClick(mob/user)
	if(inserted_key && user.Adjacent(user))
		if(!(user in buckled_mobs))
			to_chat(user, SPAN_WARNING("You must be riding [src] to remove [src]'s key!"))
			return
		to_chat(user, SPAN_NOTICE("You remove [inserted_key] from [src]."))
		inserted_key.forceMove(drop_location())
		user.put_in_hands(inserted_key)
		inserted_key = null
	return ..()

/obj/vehicle/proc/is_key(obj/item/I)
	return I ? (key_type_exact ? (I.type == key_type) : istype(I, key_type)) : FALSE

/obj/vehicle/proc/held_keycheck(mob/user)
	if(held_key_type)
		if(istype(user.l_hand, held_key_type) || istype(user.r_hand, held_key_type))
			return TRUE
	else
		return TRUE
	return FALSE

//APPEARANCE
/obj/vehicle/proc/handle_vehicle_layer()
	if(dir != NORTH)
		layer = MOB_LAYER+0.1
	else
		layer = OBJ_LAYER


//Override this to set your vehicle's various pixel offsets
//if they differ between directions, otherwise use the
//generic variables
/obj/vehicle/proc/handle_vehicle_offsets()
	if(has_buckled_mobs())
		for(var/m in buckled_mobs)
			var/mob/living/buckled_mob = m
			buckled_mob.setDir(dir)
			buckled_mob.pixel_x = generic_pixel_x
			buckled_mob.pixel_y = generic_pixel_y


/obj/vehicle/update_icon_state()
	return

/obj/item/key
	name = "key"
	desc = "A small grey key."
	icon = 'icons/obj/vehicles.dmi'
	icon_state = "key"
	w_class = WEIGHT_CLASS_TINY


//BUCKLE HOOKS
/obj/vehicle/unbuckle_mob(mob/living/buckled_mob, force = FALSE)
	if(istype(buckled_mob))
		buckled_mob.pixel_x = 0
		buckled_mob.pixel_y = 0
	. = ..()


/obj/vehicle/user_buckle_mob(mob/living/M, mob/user)
	if(user.incapacitated())
		return
	for(var/atom/movable/A in get_turf(src))
		if(A.density)
			if(A != src && A != M)
				return
	M.forceMove(get_turf(src))
	..()
	handle_vehicle_offsets()

/obj/vehicle/bullet_act(obj/projectile/Proj)
	if(!has_buckled_mobs())
		return ..()
	for(var/m in buckled_mobs)
		var/mob/living/buckled_mob = m
		buckled_mob.bullet_act(Proj)

//MOVEMENT
/obj/vehicle/relaymove(mob/user, direction)
	if(key_type && !is_key(inserted_key))
		to_chat(user, SPAN_WARNING("[src] has no key inserted!"))
		return

	if(user.incapacitated())
		unbuckle_mob(user)
		return

	var/delay = (last_move_diagonal? 2 : 1) * (vehicle_move_delay + GLOB.configuration.movement.human_delay)
	if(world.time < last_vehicle_move + delay)
		return
	last_vehicle_move = world.time

	if(held_keycheck(user))
		var/turf/next = get_step(src, direction)
		if(!Process_Spacemove(direction) || !isturf(loc))
			return
		Move(get_step(src, direction), direction)

		if((direction & (direction - 1)) && (loc == next))		//moved diagonally
			set_glide_size(MOVEMENT_ADJUSTED_GLIDE_SIZE(vehicle_move_delay + GLOB.configuration.movement.human_delay, 1) * 0.5)
			last_move_diagonal = TRUE
		else
			set_glide_size(MOVEMENT_ADJUSTED_GLIDE_SIZE(vehicle_move_delay + GLOB.configuration.movement.human_delay, 1))
			last_move_diagonal = FALSE

		if(has_buckled_mobs())
			if(issimulatedturf(loc))
				var/turf/simulated/T = loc
				if(T.wet == TURF_WET_LUBE)	//Lube! Fall off!
					playsound(src, 'sound/misc/slip.ogg', 50, TRUE, -3)
					for(var/m in buckled_mobs)
						var/mob/living/buckled_mob = m
						buckled_mob.KnockDown(10 SECONDS)
					unbuckle_all_mobs()
					step(src, dir)

		handle_vehicle_layer()
		handle_vehicle_offsets()
	else
		to_chat(user, SPAN_WARNING("You'll need the keys in one of your hands to drive [src]."))


/obj/vehicle/Move(NewLoc, Dir = 0, movetime)
	. = ..()
	handle_vehicle_layer()
	handle_vehicle_offsets()


/obj/vehicle/Bump(atom/movable/M)
	if(!spaceworthy && isspaceturf(get_turf(src)))
		return FALSE
	. = ..()
	if(auto_door_open)
		if(isairlock(M) && has_buckled_mobs())
			for(var/m in buckled_mobs)
				M.Bumped(m)

/obj/vehicle/proc/RunOver(mob/living/carbon/human/H)
	return		//write specifics for different vehicles


/obj/vehicle/Process_Spacemove(movement_dir = 0, continuous_move = FALSE)
	if(has_gravity(src))
		return TRUE

	if(pulledby && (pulledby.loc != loc))
		return TRUE

	if(needs_gravity)
		return TRUE

	return FALSE

/obj/vehicle/space
	pressure_resistance = INFINITY
	spaceworthy = TRUE

/obj/vehicle/space/Process_Spacemove(movement_dir = 0, continuous_move = FALSE)
	return TRUE

/obj/vehicle/zap_act(power, zap_flags)
	zap_buckle_check(power)
	return ..()