bind pub - !battle pub:battle
proc pub:battle {nick host hand chan text} {
set p1 "$nick"
if {![info exists p2]} {
putserv "PRIVMSG $chan You must select an opponent"
return
	}
set p2 [lindex [split $text] 0]
putserv "PRIVMSG $chan $p1 has initiated a battle with $p2!!!"
putserv "PRIVMSG $chan Type: !attack <nick>"
}

And in IRC:
<mid> !battle
<Frogger> You must select an opponent
###GOOD###

<mid> !battle DracZ
<Frogger> You must select an opponent
###Same thing happens :(