anchor.diff:  			usr << "You have been charged [cost] karma."
   			message_admins("[key_name(usr)] has been charged [cost] karma.")
   			return
  -					
  +
   /client/proc/karmarefund(var/type,var/name,var/cost)
   	if(name == "Tajaran Ambassador")
   		cost = 30
  
positive.code: 				karmacharge(text2num(cost),1)
  		else
  			usr << "\red You have not bought [name]."
  		
  	else
  		usr << "\red Your ckey ([dbckey]) was not found."	
  		
  /client/proc/checkpurchased(var/name = null) // If the first parameter is null, return a full list of purchases
  	var/DBQuery/query = dbcon.NewQuery("SELECT * FROM whitelist WHERE ckey='[usr.key]'")
  	query.Execute()	
  	
  	var/dbjob
  	var/dbspecies
  	var/dbckey
  
negative.code: 		dbckey = query.item[2]
  		dbjob = query.item[3]
  		dbspecies = query.item[4]
  
  	if(dbckey)
  		var/list/joblist = text2list(dbjob,",")
  		var/list/specieslist = text2list(dbspecies,",")
  