speed
    verb
        Speed_Slash()
            set category = "Techniques"
            var/mob/user = usr
            if(user.Slash_Delay==1) //this is probably intensely unsafe
                var/list/Players = new()
                var/mob/M
                for(M in oview(5,user))
                    if(M.client)
                        Players += M
                M = input("What player would you like to Slash to?","Teleport") as mob in Players
                if(user.loc&&user.z==M.z&&get_dist(M,user)<=5)
                var/damage = usr.speed - M.defense
                M.power -= damage
                user.loc = locate(M.x+rand(1,5),M.y+rand(1,5),M.z) //setting loc manually is unsafe. You should create a ForceMove() function
                M<<{"<font size="-1" color="#F0AF23">[user] slashed you with his speed for [damage] damage!."}
                usr<<{"<font size="-1" color="#F0AF23">You slash [M] for [damage] damage!"}
                M.deathcheck()
                user.Levelup()
                sleep(3)
                user.icon_state=""
                if(user.value != 1) //this is probably intensely unsafe
                    user.Slash_Delay=0
                    user.value = 1
                    spawn() Cooldown() //this is probably broken
                    user.valueCD = world.timeofday + 100 //this is definitely broken

speed
    verb
        Ultra_Buff()
            set category = "Techniques"
            set name = "Acceleration"
            var/mob/user = usr
            user.overlays += /obj/aura
            user<<"Your speed has been boosted for a short duration!"
            var/cspeed = user.speed * 0.5
            user.speed += cspeed
            sleep(60*2.5)
            user<<"Your speed has reverted to normal!"
            user.speed -= cspeed

CreateNewCharacter()
            var/char_name
            do
                char_name = input(src, "What is your name?","New Character") as null|text
                if(!char_name)
                    return
                if (ckey(char_name) in characters)
                    alert("This name isn't good enuff.")
                    char_name = null
            while(!char_name)

            var/char_race = input(src, "What race do you wish to be?", "New Character", "Human", "Mage") in _races
            var/rtype = _races[char_race]
            var/mob/new_mob = new rtype()
            if(prob(10))
                src<<"You were born with some of saitamas bloos inside of you, giving you the potential to be like him!"
                usr.potential = "All"
            else
                src<<"You were born as a commoner, tough luck!"
                usr.potential = "???"
            play_cutscene()
            new_mob.client = client //after creating the new character, you need to set the new mob's client to end the character creation process and suspend the loop.
            new_mob.savable = 1
            new_mob.name = char_name
            savefile[ckey(char_name)] << new_mob //save the character in the savefile before this mob is garbage collected.

//This is like Move(), except it forces the movement to succeed. Enter()/Exit()/Cross()/Uncross() are not called. However, Entered()/Exited()/Crossed()/Uncrossed() are called.
atom
    movable
        proc
            ForceMove(atom/NewLoc,Dir=0,Step_x=0,Step_y=0)
                var/oDir = dir
                var/oSx = step_x
                var/oSy = step_y
                var/oz = z, nz
                var/ox = (x-1)*TILE_WIDTH+bound_x+step_x, nx
                var/oy = (y-1)*TILE_HEIGHT+bound_y+step_y, ny
                if(NewLoc)
                    nx = (NewLoc.x-1)*TILE_WIDTH+bound_x+Step_x
                    ny = (NewLoc.y-1)*TILE_HEIGHT+bound_y+Step_y
                    nz = NewLoc.z
                if(oz!=nz||ox!=nx||oy!=ny) //if this is an actual movement
                    //get the old objects, turfs, and areas that this object is overlapping
                    var/list/ol = locs, list/om = obounds(src) - ol, list/oa = get_areas(ol)

                    //actually turn and move the player
                    var/atom/OldLoc = loc
                    if(Dir&&dir!=Dir) dir = Dir
                    loc = NewLoc
                    step_x = Step_x
                    step_y = Step_y

                    //get the object's we've entered, crossed, etc and those that we are no longer standing over
                    var/list/nl = locs, list/nm = obounds(src) - nl, list/na = get_areas(nl)
                    var/list/xl = ol - nl, list/xm = om - nm, list/xa = oa - na

                    nl = nl - ol
                    nm = nm - om
                    na = na - oa

                    //loop through and call the movement notifiers
                    var/atom/t, atom/movable/o, area/a
                    for(o in xm)
                        o.Uncrossed(src)
                    for(t in xl)
                        t.Exited(src,NewLoc)
                    for(a in xa)
                        a.Exited(src,NewLoc)
                    for(a in na)
                        a.Entered(src,OldLoc)
                    for(t in nl)
                        t.Entered(src,OldLoc)
                    for(o in nm)
                        o.Crossed(src)
                    return 1
                else if(Dir&&dir!=Dir) //otherwise, just turn the mob.
                    dir = Dir
                    return 1
                return 0