need help with split the realname

[skywalker]

i use my realname field to fill in the a/s/l
now i want to strip that into 3 seperate things.
and be displayed like belowe
i need help with the what to write here sections in the script

Code: Select all

bind join - *  whoisjoin
bind raw * 311 realname

# nicks to be exempted from asl
set aslexclude_nicks ""

proc whoisjoin {nick uhost hand chan} {
   global aslexclude_nicks botnick
   if {$nick==$botnick} { return }
   if {[string match "*$nick;*" $aslexclude_nicks]} { return }
   set ::jchan $chan
     putquick "whois $nick"
}

proc realname {from key arg} {
global botnick nick
   set argst [clone_stripcodes [string trim $arg]]
   putlog "arg is $arg"
   set cchan $::jchan
   set realname [string range $argst [expr [string first : $argst] +1] end]
   set age WHAT TO WRITE HERE
   set sex WHAT TO WRITE HERE
   set location WHAT TO WRITE HERE
   putlog "$nick is a $age years old $sex from $location"
}

[CrazyCat]

Just split your realname on the "/" character, you'll have an usable list.

Code: Select all

proc realname {from key arg} {
global botnick nick
   set argst [clone_stripcodes [string trim $arg]]
   putlog "arg is $arg"
   set cchan $::jchan
   set realname [split [string range $argst [expr [string first : $argst] +1] end] "/"]
   set age [lindex $realname 0]
   set sex [lindex $realname 1]
   set location [join [lrange $realname 2 end]]
   putlog "$nick is a $age years old $sex from $location"
}

[skywalker]

thx mate