This is an auto identifier for chatspace servers.
Created this for a friend so i figured i would post here :)

set nickpass "BotsPassHere"

bind raw - 512 identify:nick

proc identify:nick { from key arg } {
 putserv "PASS $::nickpass"
}