floatspeedsnap

.floatspeedsnap = [
    local i prev break presets vmax vmin
    presets = [25 100 250 750 2000]
    break = 0

    do [
        vmax = (max @presets)
        vmin = (min @presets)
    ]

    if (>f $floatspeed $vmax) [ floatspeed $vmax ; break = 1 ]
    if (<f $floatspeed $vmin) [ floatspeed $vmin ; break = 1 ]

    looplist v $presets [
        if (! $break) [
            if ((? (< $arg1 0) "<=f" "<f") $floatspeed $v) [
                floatspeed (? (&& [< $arg1 0] $i) $prev $v)
                break = 1
            ] [ prev = $v ]
            i = (+ $i 1)
        ]
    ]
    if (!=f $floatspeed @floatspeed) [ echo (concat "Floatspeed set to^fc" $floatspeed) ]
]

editbind "LEFTBRACKET"  [ .floatspeedsnap -1 ]
editbind "RIGHTBRACKET" [ .floatspeedsnap  1 ]