shaft awesome

alias +shaftfire          "if ('lg' isin '$weapons') and ($cells != 0) then shaft_fire else {set shafting 0;}"
alias -shaftfire          "if ('$shafting' != '0') then shaft_stop;"
alias shaft_fire          "set shafting 1; if ($weapon != 'lg') then {set oldwep $weaponnum}; weapon 8; +accfire"
alias shaft_stop          "set shafting 0; weapon $oldwep; -accfire"