alias rnd_slap_objects ["a rusty old nail" "an old boot" "a jar of jammeh"]
alias rnd_quotes ["If you see shotguns, run. - DES|Bukz" "YAIYAIYAIYAIYAI - V-Man"]

alias pubcommands [
  if_conline_has "!changeteam" and_also $curname [if (strstr (at $conline 0) $curname) [changeteam] []] []
  if_conline_has "!forceteam" and_also $curname [if (strstr (at $conline 0) $curname) [forceteam (findcn (at $conline 2))] []] []
  if_conline_has "!nick" and_also $curname [if (strstr (at $conline 0) $curname) [name (at $conline 2)] []] []
  if_conline_has "!kick" and_also $curname [if (strstr (at $conline 0) $curname) [kick (findcn (at $conline 2)) (at $conline 3)] []] []
  if_conline_has "!ban" and_also $curname [if (strstr (at $conline 0) $curname) [ban (findcn (at $conline 2)) (at $conline 3)] []] []
  if_conline_has "!giveadmin" and_also $curname [if (strstr (at $conline 0) $curname) [giveadmin (findcn (at $conline 2))] []] []
  if_conline_has "!reconnect" and_also $curname [if (strstr (at $conline 0) $curname) [connect (curserver 1) (curserver 3)] []] []
  if_conline_has "!disconnect" and_also $curname [if (strstr (at $conline 0) $curname) [disconnect] []] []
  if_conline_has "!quit" and_also $curname [if (strstr (at $conline 0) $curname) [say bb; sleep 10 [quit]] []] []
  if_conline_has "!swap" and_also $curname [if (strstr (at $conline 0) $curname) [forceteam (findcn (at $conline 2)); forceteam (findcn (at $conline 3))] []] []
  if_conline_has "!slap" and_also $curname [if (strstr (at $conline 0) $curname) [me (format "slaps %1 with %2" (at $conline 2) (at $rnd_slap_objects (rnd (listlen $rnd_slap_objects))))] []] []
  if_conline_has "!map" and_also $curname [if (strstr (at $conline 0) $curname) [map (at $conline 2)] []] []
  if_conline_has "!mode" and_also $curname [if (strstr (at $conline 0) $curname) [mode (at $conline 2)] []] []
  if_conline_has "!coop" and_also $curname [if (strstr (at $conline 0) $curname) [coop (at $conline 2)] []] []
  if_conline_has "!tdm" and_also $curname [if (strstr (at $conline 0) $curname) [tdm (at $conline 2)] []] []
  if_conline_has "!dm" and_also $curname [if (strstr (at $conline 0) $curname) [dm (at $conline 2)] []] []
  if_conline_has "!tsurv" and_also $curname [if (strstr (at $conline 0) $curname) [ts (at $conline 2)] []] []
  if_conline_has "!surv" and_also $curname [if (strstr (at $conline 0) $curname) [lms (at $conline 2)] []] []
  if_conline_has "!ctf" and_also $curname [if (strstr (at $conline 0) $curname) [ctf (at $conline 2)] []] []
  if_conline_has "!htf" and_also $curname [if (strstr (at $conline 0) $curname) [htf (at $conline 2)] []] []
  if_conline_has "!ktf" and_also $curname [if (strstr (at $conline 0) $curname) [ktf (at $conline 2)] []] []
  if_conline_has "!tktf" and_also $curname [if (strstr (at $conline 0) $curname) [tktf (at $conline 2)] []] []
  if_conline_has "!pf" and_also $curname [if (strstr (at $conline 0) $curname) [pf (at $conline 2)] []] []
  if_conline_has "!lss" and_also $curname [if (strstr (at $conline 0) $curname) [lss (at $conline 2)] []] []
  if_conline_has "!osok" and_also $curname [if (strstr (at $conline 0) $curname) [osok (at $conline 2)] []] []
  if_conline_has "!tosok" and_also $curname [if (strstr (at $conline 0) $curname) [tosok (at $conline 2)] []] []
  if_conline_has "!autoteam" and_also $curname [if (strstr (at $conline 0) $curname) [autoteam (at $conline 2)] []] []
  if_conline_has "!mastermode" and_also $curname [if (strstr (at $conline 0) $curname) [mastermode (at $conline 2)] []] []
  if_conline_has "!quote" and_also $curname [if (strstr (at $conline 0) $curname) [me (at $rnd_quotes (rnd (listlen $rnd_quotes)))] []] []
  if_conline_has "!version" and_also $curname [if (strstr (at $conline 0) $curname) [say (concat version = $version)] []] []
  if_conline_has "!serverdesc" and_also $curname [if (strstr (at $conline 0) $curname) [if (currole) [serverdesc (at $conline 2)] []] []] []
  if_conline_has "!sendmap" and_also $curname [if (strstr (at $conline 0) $curname) [sendmap (at $conline 2)] []] []
  if_conline_has "!getmap" and_also $curname [if (strstr (at $conline 0) $curname) [getmap] []] []
  if_conline_has "!getdemo" and_also $curname [if (strstr (at $conline 0) $curname) [getdemo (at $conline 2)] []] []
  if_conline_has "!listdemos" and_also $curname [if (strstr (at $conline 0) $curname) [listdemos] []] []
  if_conline_has "!ratio" and_also $curname [if (strstr (at $conline 0) $curname) [say (format "My ratio is %1" (curratio $curname))] []] []
  if_conline_has "!connect" and_also $curname [
    if (strstr (at $conline 0) $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 [
    if (strstr (at $conline 0) $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