egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2010-12-26T22:05:28-04:00 https://forum.eggheads.org/app.php/feed/topic/18206 2010-12-26T16:16:26-04:00 2010-12-26T16:16:26-04:00 https://forum.eggheads.org/viewtopic.php?p=95482#p95482 <![CDATA[Modify tcl by bind willyw]]>
Part of it, I offered something for you to try.

Unfortunately, most of it - I was unsure of exactly what it is that you are requesting.

Maybe it would be better if we kept it here in the forum, and not in PM. Perhaps some others could help too, not just with the TCL itself, but with getting the point across clearly.
Whatever anyone can offer, will be good.

Statistics: Posted by willyw — Sun Dec 26, 2010 4:16 pm

]]> 2010-12-26T22:05:28-04:00 2010-12-24T12:08:14-04:00 https://forum.eggheads.org/viewtopic.php?p=95457#p95457 <![CDATA[Modify tcl by bind willyw]]> Sorry for my bad English, greetings from peru

I want to do it for private notice and not by the channel

Code: 

 putserv "privmsg $mainchan :$nick will help in seconds"
in private msg to <imnick>
<eggdrop> admin1 will help in secods
---------------------------------------------------------------------------------
and also inform once

Code: 

       putserv "privmsg $nick :To enable a short window of time for you to send help requests via /msg to the bot, you must first send !helpme       in $mainchan "       }    }
thus:
in private msg bot:
<imnick> hello I can help
<eggdrop> I am a bot if you need help write: !helpme
<imnick> dasda
<imnick> ghjgh
<imnick> asdas
----------------------------------------------------------------------------------
and also that the !helpme either by private

Code: 

bind pub - "!helpme" do:helpme
thus:
in private msg bot:
<imnick> asfasd
<eggdrop> I am a bot if you need help write: !helpme
<imnick> !helpme
<eggdrop> Please describe your problem, in a single line
<imnick> my problem asdasd
-----------------------------------------------------------------------------------
in the channel: $helpchan
if someone already wrote !helper Nick, reply bot:
<eggdrop> <imnick> has the following problem: my problem asdasd
<eggdrop> If you want to help <imnick> write !Helper <imnick>
<admin1> !helper <imnick>
<eggdrop> notifying <imnick>
<admin2> !helper <imnick>
<eggdrop> admin1 is helping <imnick>


Full code by: willyw
in chan #123
andrec has joined #123
<andrec> !helpme
// in private msg //
<bothelper> Please describe your problem, in a single line:
<andrec> my pc has virus.

in chan #help
<bothelper> <andrec> has the following problem: my pc has virus.
<bothelper> If you want to help <andrec> write !Helper <andrec>
<@othernick> !helper andrec
<bothelper> notifying <andrec>...

in chan #123 Private msg <andrec>.
<bothelper> <@othernick> will help in seconds.

Code: 

### begin configuration #### # set main channel here set mainchan "#123" # set help channel here set helpchan "#help" # set time window here ( in seconds ) # this is the amount of time that a user has, after sending !helpme, to then reply to the /msg sent to user by the bot set timewindow "45" # set repy window time here ( in seconds ) # this is the amount of time that a helper has in which to send !helper <nick> set replywindow "120" #### end configuration ### ###  script starts here bind pub - "!helpme" do:helpme bind msgm - * do:prob bind pub - "!helper" do:helpchanreply set nick2help "0" set replytime "0" proc do:helpme {nick uhost handle chan text} { global nick2help timewindow mainchan replywindow replytime helpchan   if {![botonchan $helpchan]} {    putserv "privmsg $chan : Sorry, help function is temporarily Off"    return 0      }   if {"$chan"=="$mainchan"} {    putserv "privmsg $nick :Please describe your problem, in a single line:"    set nick2help $nick    set replytime $replywindow    utimer $timewindow [list set nick2help 0]    utimer $replywindow [list set replytime 0]   } } proc do:prob {nick uhost handle text} { global nick2help helpchan mainchan    if {![botonchan $helpchan]} {       putserv "privmsg $nick :Sorry, help function is temporarily Off"       return 0          }    if {"$nick"=="$nick2help"} {       putserv "privmsg $helpchan :$nick has the following problem: $text "       putserv "privmsg $helpchan : If you want to help $nick write !Helper $nick"       putserv "privmsg $nick :Your text describing your problem has been sent"       putserv "privmsg $nick :Please stand by a few minutes. If help is available now, you will be notified shortly."       return 0          } else {       putserv "privmsg $nick :To enable a short window of time for you to send help requests via /msg to the bot, you must first send   !helpme       in $mainchan "       }    }       proc do:helpchanreply {nick uhost handle chan text} { global helpchan mainchan nick2help replytime    if {![botonchan $mainchan]} {       putserv "privmsg $chan :Sorry, bot is not in $mainchan"       return        }    if {"$replytime"=="0"} {       putserv "privmsg $chan :Sorry, no one has recently asked for help"       return       }    if {"$chan"=="$helpchan"} {        putserv "privmsg $chan :notifying $text"       putserv "privmsg $mainchan :$nick will help in seconds"      } }

Statistics: Posted by irclove — Fri Dec 24, 2010 12:08 pm

]]>