set [KeyDirection v] to (<key [right arrow v] pressed?> - <key [left arrow v] pressed?>)
change [xv v] by ((((max_speed) * ((1) - (slidiness))) / (slidiness)) * (KeyDirection))
set [xv v] to ((slidiness) * (xv))