You can do the mode settings as such:
mode $active $+(+,$str(q,3)) $1-3
mode $active $+(-,$str(q,3)) $1-3 | msg $active 11,1 Granted $1-3 blah blah...
mode $active $+(+,$str(a,3)) $1-3 | ...
mode $active $+(-,$str(a,3)) $1-3 | ...
etc...
OR just replace $1 $2 $3 with $1-3, much shorter and does the same thing.