Evaluated proc mitsuku {str {sess {}}} { if { $sess == {} } { set sess $::botcust2 }; set ::mitsuku_last [. [trim [strip_html [string map {{  } { } {xloadswf.} {} {xgallery.} {}} [string tolower [last [regexp -inline {<B> Mitsuku:</B> (.+?)<br>} [http post http://fiddle.pandorabots.com/pandora/talk?botid=def8d27a6e345a36&skin=mobile "botcust2=$sess&message=[urlencode $str]" "Cookie: botcust2=$sess"]]]]]]]]; set ::mitsuku_$sess $::mitsuku_last; . [^C]13$::mitsuku_last}