Code:

putquick "PRIVMSG [join $post ","] PCW !! Team : $team Map : $map $server : Skill : $skill : Extra info : $information :.: /q $nickname $channel"

Code:

set available(maps) {   "de_dust" "de_dust2" "de_aztec" "de_nuke" "de_inferno"   "de_cbble" "de_cpl_mill" "de_cpl_fire" "de_any" "de_?"   "de_only" "de_prodigy" "de_train" "de_storm"   "de_piranesi" de_cpl_strike"}set available(serverstatus) {   "on" "off" "serveron" "serveroff" "yes" "no"}set except(channels) {   ""}set available(skill) {   "low" "low/med" "med"  "med/high" "high" }bind PUB -|- "!pcw" create:newgameproc create:newgame { nickname hostname handle channel arguments } {   global lastbind available except   set arguments [split $arguments " "]   set team        [lindex $arguments 0]   set map         [string tolower [lindex $arguments 1]]   set server      [string tolower [lindex $arguments 2]]   set skill       [string tolower [lindex $arguments 3]]   set information [join [lrange $arguments 4 end]]   if {[llength $information] == "0"} {      set information n/a   }   if {[llength $arguments] < 3} {      putserv "NOTICE $nickname :Wrong Syntax, please use: $lastbind  \037team\037 \037map\037 \037server status\037 \037Skill\037 \037information?\037"   } elseif {[lsearch [string tolower $available(maps)] $map] == "-1"} {      putserv "NOTICE $nickname :Unkwown Counterstrike Map, Plz use one of the maps in the list"      putserv "NOTICE $nickname :[join [string tolower $available(maps)] ", "]"   } elseif {[lsearch [string tolower $available(serverstatus)] $server] == "-1"} {      putserv "NOTICE $nickname :Invalid server status specified, use: [join $available(serverstatus) ", "]"   } elseif {[lsearch [string tolower $available(skill)] $skill] == "-1"} {      putserv "NOTICE $nickname : Unkwown Skills : try these [join $available(skill) ", "]"   } else {      set nopost ""      set post   ""      foreach post-channel [channels] {         if {[lsearch [string tolower $except(channels)] [string tolower ${post-channel}]] == "-1"} {            lappend post ${post-channel}         } else {            lappend nopost ${post-channel}         }      }      if {[llength $nopost] == "0"} {         set nopost n/a      }      putserv "NOTICE $nickname :Done. Message was relayed succesfully, have a nice day"      putquick "PRIVMSG [join $post ","] PCW !! Team : $team Map : $map $server : Skill : $skill : Extra info : $information :.: /q $nickname"   } }putlog "PCW Script Loaded"