anchor.diff:  				name = usr.real_name
   				rank = "Silicon"
   			var/reason = ""
  -
  -			
  +			var/list/empty_turfs
  +			var/area/landingzone
   			var/datum/supply_order/SO = new(pack, name, rank, ckey, reason)
  -			if(SO.pack.cost* 2 <= SSshuttle.points) //If you can afford it, then begin the delivery
  -				SO.generateRequisition(get_turf(src))
  -				SSshuttle.points -= SO.pack.cost * 2//twice the normal cost
  -
  -				var/list/empty_turfs = list()
  -				var/area/landingzone
  -
  -				if (!emagged) 
  +			if(!emagged)
  +				if(SO.pack.cost * 2 <= SSshuttle.points)
   					landingzone = locate(/area/quartermaster/storage) in GLOB.sortedAreas
  -				else 
  +					for(var/turf/open/floor/T in landingzone.contents)
  +						if(is_blocked_turf(T))
  +							continue
  +						LAZYADD(empty_turfs, T)
  +						CHECK_TICK
  +					if(empty_turfs && empty_turfs.len)
  +						var/LZ = empty_turfs[rand(empty_turfs.len-1)]
  +						SSshuttle.points -= SO.pack.cost * 2
  +						new /obj/effect/BDPtarget(LZ, SO)
  +						. = TRUE
  +						update_icon()
  +			else
  +				if(SO.pack.cost * (1.2*MAX_EMAG_ROCKETS) <= SSshuttle.points) // bulk discount :^)
   					landingzone = locate(pick(GLOB.the_station_areas)) in GLOB.sortedAreas
  -
  -				for(var/turf/open/floor/T in landingzone.contents) //get all the turfs in cargo bay
  -					if(is_blocked_turf(T))//wont land on a blocked turf
  -						continue
  -					empty_turfs.Add(T)
  -
  -				if (empty_turfs.len != 0 )
  -					var/LZ = empty_turfs[rand(empty_turfs.len-1)]//pick a random turf
  -					new /obj/effect/BDPtarget(LZ, SO)//where the magic happens. this temp visual makes the actual droppod after a pause
  -				. = TRUE
  -				update_icon()+					for(var/turf/open/floor/T in landingzone.contents)
  +						if(is_blocked_turf(T))
  +							continue
  +						LAZYADD(empty_turfs, T)
  +						CHECK_TICK
  +					if(empty_turfs && empty_turfs.len)
  +						SSshuttle.points -= SO.pack.cost * (1.2*MAX_EMAG_ROCKETS)
  +						SO.generateRequisition(get_turf(src))
  +						for(var/i in 1 to MAX_EMAG_ROCKETS)
  +							var/LZ = empty_turfs[rand(empty_turfs.len-1)]
  +							LAZYREMOVE(empty_turfs, LZ)
  +							new /obj/effect/BDPtarget(LZ, SO)
  +							. = TRUE
  +							update_icon()
  +							CHECK_TICK
  
positive.code: /obj/machinery/computer/cargo/express
  	name = "express supply console"
  	desc = "This console allows the user to purchase a package for double the price,\
  
negative.code: 		message = "(&!#@ERROR: ROUTING_#PROTOCOL MALF(*CT#ON. $UG%ESTE@ ACT#0N: !^/PULS3-%E)ET CIR*)ITB%ARD."
  	
  	data["message"] = message
  	if(!meme_pack_data)
  		packin_up()
  		stack_trace("You didn't give the cargo tech good advice, and he ripped the manifest. As a result, there was no pack data for [src]")
  	data["supplies"] = meme_pack_data
  				
  	return data
  
  