Anonymous

bind pub - !setpcw setw
proc setw { nick host handle chan text } {
global pcw pcn
  set pcw [lindex $text 0]
  set pcn $nick
  putserv "PRIVMSG $chan :$nick has set $world as the new world!"
}
bind pub - !world vieww
proc vieww { nick host handle chan text } {
global pcw pcn
if {[info exists pcn]} {
    putserv "PRIVMSG $chan :The current world is $pcw set by $pcn"
  }
  else {
    putserv "PRIVMSG $chan :There is no world set yet!"
  }
}