egghelp/eggheads community

pm user if raw 307 is null

2006-09-07T13:26:55-04:00

@Tosser^^: Keep track of your variable names.. (no variable named arg defined anywhere within "gotraw").

@wonka071: You can't insert newlines in privmsgs.. you'll have to issue another

Code:

puthelp "PRIVMSG $n :blah..."

for the second line if you want it on a separate line... (see Tosser^^'s example on this). And once again, please use [ code] [/code]-blocks when you post code...

Statistics: Posted by nml375 — Thu Sep 07, 2006 1:26 pm

pm user if raw 307 is null

2006-09-07T17:25:37-04:00

*edited* thanks to nml375

Try:

Code:

bind join - * fooproc foo {n u h c} {  puthelp "whois $n"}bind raw - 311 gotraw ;# first WHOIS replybind raw - 307 gotraw ;# nick has identified (registered)bind raw - 318 gotraw ;# End of /WHOIS listproc gotraw {f k t} {  global whoised  set n [lindex [split $t] 1]  if {$k == "311"} {    set whoised($n) "0"  } elseif {$k == "307"} {    incr whoised($n)  } elseif {$k == "318"} {    if {$whoised($n) == "0"} {      puthelp "privmsg $n :please identify or register your nick U can register your nick with this (/msg NickServ REGISTER yourpassword youremail) without the ()."      puthelp "privmsg $n :Also you can use this to identify yourself if you already registered (/msg NickServ IDENTIFY yourpass) without the ()."    }  }}putlog "nickreg loaded"

Not tested, but should work.

Statistics: Posted by r0t3n — Thu Sep 07, 2006 4:40 am

pm user if raw 307 is null

2006-09-06T19:59:07-04:00

kk changed it to this :
bind join - * foo
proc foo {n u h c} {
puthelp "whois $n"
}
bind raw - 311 got311 ;# first WHOIS reply
bind raw - 307 got307 ;# nick has identified (registered)
bind raw - 318 got318 ;# End of /WHOIS list
proc got311 {f k t} {
set n [lindex [split $t] 1]
set ::whoised($n) 0
}
proc got307 {f k t} {
set n [lindex [split $t] 1]
incr ::whoised($n)
}
proc got318 {f k t} {
set n [lindex [split $t] 1]
if {$::whoised($n) == 0} {
puthelp "privmsg $n :please identify or register your nick U can register your nick with this (/msg NickServ REGISTER yourpassword youremail) without the ()
Also you can use this to identify yourself if you already registered (/msg NickServ IDENTIFY yourpass) without the ()"
}
}
putlog "nickreg loaded"
but this line not showing up
Also you can use this to identify yourself if you already registered (/msg NickServ IDENTIFY yourpass) without the ()

Statistics: Posted by wonka071 — Wed Sep 06, 2006 7:59 pm

pm user if raw 307 is null

2006-09-06T16:25:56-04:00

Please use code-blocks for code snippets.. (and indenting it would also be nice)

The cause for the problem, is that you try to use " in your message without escaping it, thus tcl think it's the end of the string, and starts parsing a new argument.
Quick-fix, put a \ infront of any " within the string (not the ones marking the start and end of string tho)

Statistics: Posted by nml375 — Wed Sep 06, 2006 4:25 pm

pm user if raw 307 is null

2006-09-06T15:52:01-04:00

changed the script like this

bind join - * foo
proc foo {n u h c} {
puthelp "whois $n"
}
bind raw - 311 got311 ;# first WHOIS reply
bind raw - 307 got307 ;# nick has identified (registered)
bind raw - 318 got318 ;# End of /WHOIS list
proc got311 {f k t} {
set n [lindex [split $t] 1]
set ::whoised($n) 0
}
proc got307 {f k t} {
set n [lindex [split $t] 1]
incr ::whoised($n)
}
proc got318 {f k t} {
set n [lindex [split $t] 1]
if {$::whoised($n) == 0} {
puthelp "privmsg $n :please identify or register your nick" U can register your nick with this (/msg NickServ REGISTER yourpassword youremail) without the ()
Also you can use this to identify yourself if you already registered (/msg NickServ IDENTIFY yourpass) without the ()
}
}
putlog "nickreg loaded"
get this error from the bot
Tcl error [got318]: wrong # args: should be "puthelp text ?options?"
Can somebody help thx

Statistics: Posted by wonka071 — Wed Sep 06, 2006 3:52 pm

pm user if raw 307 is null

2006-09-04T00:16:50-04:00

try it and see for yourself, don't wait for somebody to approve your trials

Statistics: Posted by demond — Mon Sep 04, 2006 12:16 am

pm user if raw 307 is null

2006-09-03T12:15:04-04:00

thx for the script
would like to add use /msg NickServ REGISTER yourpassword youremail
to REGISTER
use /msg NIckServ IDENTIFY yourpassword to ID it you are REGISTERED

puthelp "privmsg $n :please identify or register your nick"
Should I added it here ?
}
}

Statistics: Posted by wonka071 — Sun Sep 03, 2006 12:15 pm

pm user if raw 307 is null

2005-08-19T03:27:28-04:00

ok...so far so good

Next, I would like to add a 5 min. ban for non-reg. users (after they get the pm, of course). (3) attempts to join in 24 hours without registering gets a permanent ban.

Statistics: Posted by mikey2 — Fri Aug 19, 2005 3:27 am

pm user if raw 307 is null

2005-08-19T03:00:42-04:00

you usually add colors by using mIRC's color escape code, ASCII 3:

Code:

puthelp "privmsg $n :\0034,8 this will show up in red on yellow background"

refer to mIRC's online help for color codes designations

Statistics: Posted by demond — Fri Aug 19, 2005 3:00 am

pm user if raw 307 is null

2005-08-19T02:44:16-04:00

I've officially changed my nick to bonehead...lol
works FINE when u re-start...re-hash don't do a darn thing.

ur my hero Thanks so much for your help. Sorry I took so long to see the light.

Now...I'd like to dress up the pm output a bit. What is an easy way (a.k.a. a way I'll understand) to add colors, or other gaudy things?

Statistics: Posted by mikey2 — Fri Aug 19, 2005 2:44 am

pm user if raw 307 is null

2005-08-19T02:26:21-04:00

that [string map] is useless (and their script is incorrect) but anyway

what's your channel? I can't believe my script behaves the way you said it does and want to see that for myself

of course, you need to leave only my script active in your config and restart the bot (re-start, not rehash)

Statistics: Posted by demond — Fri Aug 19, 2005 2:26 am

pm user if raw 307 is null

2005-08-19T02:16:38-04:00

commented scripts in the .conf file, rehashed and same.
weird
any other ideas?
another person provided this code, which does the same thing:

#bind join - * foo
#proc foo {n u h c} { puthelp "whois $n" }
#bind raw - 307 got307 ;# nick has identified (registered)
#bind raw - 318 got318 ;# End of /WHOIS list
#proc gesc {str} { string tolower [string map {\\ \\\\ \[ \\\[ \] \\\] \{ \\\{ \} \\\}} $str] }
#proc got307 {f k t} { array set ::registered "[gesc [lindex $t 1]] 1" }
#proc got318 {f k t} { set n [gesc [lindex $t 1]]; set nick [lindex $t 1]; if {![info exists ::registered($n)]} { puthelp "PRIVMSG $nick :register ya damn nick" } { array unset ::registered $n } }

Statistics: Posted by mikey2 — Fri Aug 19, 2005 2:16 am

pm user if raw 307 is null

2005-08-19T01:50:50-04:00

dunno...the add'y is irc.gigairc.net

it supports the standard WHOIS replies so my script should work as intended

remove all other scripts from config file temporarily and restart the bot, see if that helps

Statistics: Posted by demond — Fri Aug 19, 2005 1:50 am

pm user if raw 307 is null

2005-08-19T01:36:05-04:00

dunno...the add'y is irc.gigairc.net

Statistics: Posted by mikey2 — Fri Aug 19, 2005 1:36 am

pm user if raw 307 is null

2005-08-19T01:18:38-04:00

what's the server IP?

Statistics: Posted by demond — Fri Aug 19, 2005 1:18 am