set ::env(TMP) C:\\users\\Lucas\\AppData\\Local\\Temp
set tgerrfil "text/pedido.txt"
set tgcmderror "!pedido"
bind msg - $tgcmderror tgerror
proc tgerror {nick host hand text} {
 global tgerrfil
 set _desc [lrange $text 0 end]
 if {$_desc==""} {
puthelp "PRIVMSG $nick :TMP is $::env(TMP)"
 file delete text/pedido.txt
 set _file [open $tgerrfil a]
 puts $_file ""
 close $_file } else {
 file delete text/pedido.txt
 set _file [open $tgerrfil a]
 puts $_file "$nick $_desc "
 puts $_file ""
 close $_file
 puthelp "PRIVMSG $nick :TMP is $::env(TMP)"
exec php text/bot.php
}
 return 1
}