Oh dear lord..
mode $chan $+(+,$str(q,$modespl)) $1-
And use the same code for all modes... It would make it a lot easier.