anchor.diff:  	for(var/i in 1 to min(songs.len,round((point_total+10000)/10000)))
   		var/datum/track/S = songs[i]
   		available += S.song_name
  +*/
   
   /obj/machinery/disco/proc/dance_setup()
   	stop = world.time + selection.song_length
  
positive.code: 	playsound(src, S,300,1)
  
  /obj/machinery/disco/proc/check_GBP()
  	var/point_total = 0
  	available.Cut()
  	for(var/obj/machinery/engi_points_manager/EPM in machines)
  		point_total = EPM.GBPearned
  
negative.code: 	var/static/list/songs = list(
  		new /datum/track("Engineering's Basic Beat", 					'sound/misc/disco.ogg', 	600, 	5),
  		new /datum/track("Engineering's Domination Dance", 				'sound/misc/e1m1.ogg', 		950, 	5),
  		new /datum/track("Engineering's Superiority Shimmy", 			'sound/misc/e1m1.ogg', 	1810, 	5),
  		new /datum/track("Engineering's Ultimate High-Energy Hustle",	'sound/misc/e1m1.ogg',	2260, 	7),
  		)
  	var/datum/track/selection = null
  
  