set %remainder [ $+ [ $1 ] ] $calc(%xptonext [ $+ [ $1 ] ] - %xp [ $+ [ $1 ] ] )
    if (%skill [ $+ [ $name ] ] == overall) || (%skill [ $+ [ $name ] ] == total) { goto end }
    $(% $+ $1 $+ .return,2) 4Xp to level %lv [ $+ [ $1 ] ] $+ :1 $+ $chr(32) $+ %remainder [ $+ [ $1 ] ]
    :end
    cleanup $1