mob/proc/GiveMedal(var/medal)
    if(medals.Find(medal))
        return
    else
        world.SetMedal(medal,usr)
        world.GetMedal(medal,usr)
        world << "<font size=1><font color=blue><b>[usr] has earned the medal : [medal]"
        medals.Add(medal)

mob
    Login()
        MedalLoad()
        GiveMedal("Hope Is Alive", src)

var
    list
        medals = list()

mob/proc
        MedalSave()
           var/firstletter=copytext(src.ckey, 1, 2)
           var/savefile/F = new("Medals/[firstletter]/[src.key].sav")
           F["Medals"]<<medals

        MedalLoad()
           var/firstletter=copytext(src.ckey, 1, 2)
           if(fexists("Medals/[firstletter]/[src.key].sav"))
                 var/savefile/F = new("Players/[firstletter]/[src.key].sav")
                 F["Medals"]>>medals
           else
               return