Haudrauf's non-blocking quakeworld weapon script

set weaponstack ""

proc lremove {thelist value} {
  set idx [lsearch -exact $thelist $value]
  set var [lreplace $thelist $idx $idx]
  return $var
}

alias +h_quick {weapon} {
  global weaponstack


  lappend weaponstack $weapon

  cmd h_weapon$weapon
  if {$::h_debug == 1} {
    cmd echo w: $weapon stack: $weaponstack
  }
  cmd +attack
}

alias -h_quick {weapon} {
  global weaponstack

  set weaponstack [lremove "$weaponstack" "$weapon"]

  if {$::h_debug == 1} {
    cmd echo "released w: $weapon stack: $weaponstack"
  }

  set itemcnt [llength $weaponstack]
  if {$itemcnt == 0} {
    cmd -attack
  } else {
    set next_in_stack [lindex $weaponstack end]
    if {$::weaponnum != $next_in_stack} {
      cmd h_weapon$next_in_stack
    }
  }
}

# SNG, NG .. see h_weapon5 above.
cmd bind alt    "+h_quick 5"

# RL .. see h_weapon7 above.
cmd bind mouse1 "+h_quick 7"

# GL h_weapon6
cmd bind space  "+h_quick 6"

# LG h_weapon8
cmd bind ctrl   "+h_quick 8"

# SG, SSG h_weapon 3
cmd bind shift  "+h_quick 3"