alias rnd_slap_objects ["rusty old nail" "old boot" "jar of jammeh" "brick" "Britney Spears" "white sticky liquid" "pokeball" "mousepad" "Snorlax" "Gibstick" "buke" "keyboard" "piano" "lint roller" "tissue" "glue stick" "pen"]

alias pubcommands [
  if_conline_has "!changeteam" and_also $curname [changeteam] []
  if_conline_has "!forceteam" and_also $curname [forceteam (findcn (at $conline 2))] []
  if_conline_has "!nick" and_also $curname [name (at $conline 2)] []
  if_conline_has "!kick" and_also $curname [kick (findcn (at $conline 2)) (at $conline 3)] []
  if_conline_has "!ban" and_also $curname [ban (findcn (at $conline 2)) (at $conline 3)] []
  if_conline_has "!giveadmin" and_also $curname [giveadmin (findcn (at $conline 2))] []
  if_conline_has "!reconnect" and_also $curname [connect (curserver 1) (curserver 3)] []
  if_conline_has "!disconnect" and_also $curname [disconnect] []
  if_conline_has "!quit" and_also $curname [say bb; sleep 10 [quit]] []
  if_conline_has "!swap" and_also $curname [forceteam (findcn (at $conline 2)); forceteam (findcn (at $conline 3))] []
  if_conline_has "!ctf" and_also $curname [ctf (at $conline 2)] []
  if_conline_has "!slap" and_also $curname [me (format "slaps %1 with a %2" (at $conline 2) (at $rnd_slap_objects (rnd (listlen $rnd_slap_objects))))] []
  if_conline_has "!connect" and_also $curname [
    if (< (listlen $conline) 4) [
      tmp_conline_ip = (at $conline 2)
      tmp_conline_port = (at $conline 3)
      say (format "To follow me use: /connect %1 %2" (at $conline 2) (at $conline 3))
      connect $tmp_conline_ip $tmp_conline_port
    ] [
      tmp_conline_ip = (at $conline 2)
      tmp_conline_port = (at $conline 3)
      tmp_conline_pw = (at $conline 4)
      say (format "To follow me use: /connect %1 %2 %3" (at $conline 2) (at $conline 3) (at $conline 4))
      connect $tmp_conline_ip $tmp_conline_port $tmp_conline_pw
    ]
  ] []
  if_conline_has "!command" and_also $curname [
    tmp_args = []
    tmp_cmd = (at $conline 2)
    loop cmdloop (listlen $conline) [
      if (< $cmdloop 3) [] [add2list tmp_args (at $conline $cmdloop)]
    ]
    $tmp_cmd $tmp_args
  ] []
]

add2conloop pubcommands