showstats()
            var/expp = (exp/maxexp)* 100
            var/ninp = (ninexp/mninexp)* 100
            var/genp = (genexp/mgenexp)* 100
            var/taip = (taiexp/mtaiexp)* 100
            var/stamp = (stamina/maxstamina)* 100
            var/ccp = 6-cspeeed
            var/gwounds = "[wounds]%"
            var/gcontrol = "[ccontrol]%"
            var/gspeed = "0.[ccp](secs)"
            var/gseals = "0.[sealsp](secs)"
            var/ghp="[hp]/[maxhp]"
            var/gck="[chakra]/[maxchakra]"
            var/glevel = "[level] ([expp])"
            var/gnin = "[ninjutsu] ([ninp]%)"
            var/ggen = "[genjutsu] ([genp]%)"
            var/gtai = "[taijutsu] ([taip]%)"
            src<<output(name,"gname")
            src<<output(glevel,"glvl")
            src<<output(clan,"gclan")
            src<<output(rank,"grank")
            src<<output(village,"gvillage")
            src<<output(ghp,"ghp")
            src<<output(gck,"gchakra")
            src<<output(stamp,"gstamina")
            src<<output(gwounds,"gwounds")
            src<<output(gcontrol,"gcontrol")
            src<<output(gspeed,"gspeed")
            src<<output(gnin,"gnin")
            src<<output(ggen,"ggen")
            src<<output(gtai,"gtai")
            src<<output(gseals,"gseals")
            if(head)
                winset(src,"Equip.ihead","cells=0x0")
                src<<output("","ihead:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Head"&&O.worn)
                        src << output(O,"ihead:1,1")
            if(body)
                winset(src,"Equip.ibody","cells=0x0")
                src<<output("","ibody:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Shirt"&&O.worn)
                        src << output(O,"ibody:1,1")
            if(legs)
                winset(src,"Equip.ilegs","cells=0x0")
                src<<output("","ilegs:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Legs"&&O.worn)
                        src << output(O,"ilegs:1,1")
            if(feet)
                winset(src,"Equip.ifeet","cells=0x0")
                src<<output("","ifeet:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Feet"&&O.worn)
                        src << output(O,"ifeet:1,1")
            if(weapon)
                winset(src,"Equip.iweapon","cells=0x0")
                src<<output("","iweapon:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Weapon"&&O.worn)
                        src << output(O,"iweapon:1,1")
            if(gloves)
                winset(src,"Equip.igloves","cells=0x0")
                src<<output("","igloves:1,1")
                for(var/obj/O in contents)
                    if(O.clothestype=="Gloves"&&O.worn)
                        src << output(O,"igloves:1,1")