egghelp/eggheads community

bots personal protection

2003-06-25T12:39:12-04:00

ok try using $::botnick instead of $botnick

Statistics: Posted by Sir_Fz — Wed Jun 25, 2003 12:39 pm

bots personal protection

2003-06-25T11:25:38-04:00

Code:

    "op" {       putserv "msg chanserv@services.dal.net :op $channel $botnick"       return 1     }     "unban" {       putserv "MSG ChanServ@services.dal.net :unban $channel"       return 1     }     "invite" {       putserv "MSG ChanServ@services.dal.net :invite $channel $botnick"       return 1     }     "limit" {       putserv "MSG ChanServ@services.dal.net :invite $channel $botnick"       return 1     }   } }

Tcl error [cs:my:needs]: can't read "botnick": no such variable hmmmm??

Statistics: Posted by Doom — Wed Jun 25, 2003 11:25 am

bots personal protection

2003-06-25T11:23:26-04:00

Well on DALnet in order to use chanserv for :
1. INVITE : "msg chanserv@services.dal.net :invite $channel $botnick"
2. UNBAN : "msg chanserv@services.dal.net :unban $channel"
3. OP : "msg chanserv@services.dal.net :op $channel $botnick"

as for need-limit, we also use invite on DALnet.
so fix this in caesar's Code and it should work, I think

Statistics: Posted by Sir_Fz — Wed Jun 25, 2003 11:23 am

bots personal protection

2003-06-25T11:11:47-04:00

If Chanserv is not on channel then nothing should happen.. remove that if in case the ChanServ is invisible or something..

Statistics: Posted by caesar — Wed Jun 25, 2003 11:11 am

bots personal protection

2003-06-25T10:46:46-04:00

# What user and password should the eggdrop use to loign to NickServ?
set dalnet(stuff) "user password"

yeah i've set "set dalnet(stuff) "user password" " to my bots passwd

# ChanServ needs
proc cs:my:needs {channel type} {
switch -- [strlwr $type] {
"op" {
if {![onchan ChanServ $channel]} {
return 1

Can you explain this? should this be set to " if {![onchan ChanServ $channel]} {
PRIVMSG ChanServ@services.dal.net :op $chan } "

Statistics: Posted by Doom — Wed Jun 25, 2003 10:46 am

bots personal protection

2003-06-25T10:13:49-04:00

Oups, I've forgot the my: thing.. replace from:

Code:

proc channel:ban {nick uhost hand chan mc ban} {

to:

Code:

proc my:channel:ban {nick uhost hand chan mc ban} {

Have you changed the "dalnet(stuff)" to "user password"? he should aks for his needs only if the user and password are set in the dalnet(stuff) thing. It should ask for what he needs, just wait a bit longer and see what happens.

Statistics: Posted by caesar — Wed Jun 25, 2003 10:13 am

bots personal protection

2003-06-25T10:06:24-04:00

[15:52:47] *** Doom sets mode: -o Bot
[15:53:00] *** Doom sets mode: +o Bot
-
[15:53:26] *** Bot was kicked by Doom
[15:53:26] *** Doom sets mode: +b *!*identd@free.host.org
[15:53:40] *** Doom sets mode: -b *!*identd@free.host.org
-
[15:54:19] *** Doom sets mode: +l 5
[15:54:23] *** Bot was kicked by Doom
[15:54:40] *** Doom sets mode: -l
-
[16:01:35] *** Doom sets mode: +i
[16:01:48] *** Bot was kicked by Doom
[16:02:14] *** Doom sets mode: -i

1) when I Deoped Him he didn't oped him self again using Chanserv
2) when i Kick banned him , he didnt Unban and him and Join Channel agaun
3) when i set +l he didn't Invite him into Chan again
4) When i set mode +i he didn't invite him self in the channel.
-

[15:50:14] <(Sandzak> [06:40] Tcl error [my:channel:ban]: invalid command name "my:channel:ban"
[15:53:06] <(Sandzak> [06:42] Tcl error [my:channel:ban]: invalid command name "my:channel:ban"

This was the errors i got in Dcc Chat when i was testing bot
--

Thanks for all help before i hope you'll help me again [/quote]

Statistics: Posted by Doom — Wed Jun 25, 2003 10:06 am

bots personal protection

2003-06-25T09:21:02-04:00

Here is my version of the script:

Code:

# What user and password should the eggdrop use to loign to NickServ?set dalnet(stuff) "user password"######## Done with configurations, do not edit past here unless you know TCL!##### binds #bind mode - "* +b" my:channel:ban### user/pass?if {[llength $dalnet(stuff)] == 2} {  bind evnt - init-server my:connect  bind notc f "*is incorrect." oups:no:access  bind notc f "This nick is owned by someone else. Please choose another." ns:my:login  bind need - * cs:my:needs}### services?if {![validuser Services]} {  adduser Services  setuser Services HOSTS NickServ!service@dal.net   setuser Services HOSTS ChanServ!service@dal.net   chattr Services -hp+f  putlog "Added ChanServ and NickServ to user Services."}### connect loginproc my:connect init-server {  putquick "PRIVMSG X@channels.undernet.org :login [lindex $::x(stuff) 0] [lindex $::x(stuff) 1]" -next  putquick "MODE $::botnick +x" -next}### reloginproc ns:my:login {nick uhost hand text dest} {  if {[lindex [split $dest "@"] 0] != $::botnick} {    return  }  putquick "PRIVMSG NickServ@services.dal.net :identify [lindex $::dalnet(stuff) 0] [lindex $::dalnet(stuff) 1]" -next}### something wrongproc oups:no:access {nick uhost hand text dest} {  if {[lindex [split $dest "@"] 0] != $::botnick} {    return  }  putlog "\002Warning!\002 There is something wrong with my user/password cos I can't login to NickServ.. ;("}### channel banproc channel:ban {nick uhost hand chan mc ban} {  if {![botisop $chan] || ![string match "$ban" "$::botname"]} {    return  }  putquick "MODE $chan -bo $ban $nick" -next}### ChanServ needsproc cs:my:needs {channel type} {   switch -- [strlwr $type] {    "op" {      if  {![onchan ChanServ $channel]} {        return 1      }      putserv "PRIVMSG ChanServ@services.dal.net :op $channel"      return 1    }    "unban" {      putserv "PRIVMSG ChanServ@services.dal.net :unban $channel"      return 1    }    "invite" {      putserv "PRIVMSG ChanServ@services.dal.net :invite $channel"      return 1    }    "limit" {      putserv "PRIVMSG ChanServ@services.dal.net :invite $channel"      return 1    }  }}putlog "dalnet.tcl.. loaded."

Just tell me if something is wrong. Also, please do change the user and password in the cs(stuff) thing.

Statistics: Posted by caesar — Wed Jun 25, 2003 9:21 am

bots personal protection

2003-06-25T07:07:34-04:00

### bot unbans him self if he is op
bind mode -|- "* +b" ban:check
# Catches all bans

proc ban:check { nick address handle channel mode victim } {
if { [string match [string tolower $victim] [string tolower "$botnick!$botname"]] } {
# If the bot was banned...
pushmode $channel -o $nick
pushmode $channe -b $victim
# Deop the user & unban
}
}

ok i see, that one is more advanced and probably better...but there is no protection for the code up there...but like you said there is some bugs..can you fix the bugs pls.

Statistics: Posted by Doom — Wed Jun 25, 2003 7:07 am

bots personal protection

2003-06-25T01:01:40-04:00

I sugest you get another script for this cos this is a little (more?) buggy.. Something like IRC Services by MC8.

Statistics: Posted by caesar — Wed Jun 25, 2003 1:01 am

bots personal protection

2003-06-24T21:22:31-04:00

proc azzurra:invite {chan type} {
global identified
if {$identified == 1} {
putlog "Pokusavam da invajtujem sebe na $chan preko Chanserv-a."
putquick "PRIVMSG ChanServ@services.dal.net :invite $chan"
putserv "JOIN $chan"
} else {NS:id}
}

if it is mode +i the bot cant join chan...he just Identify him self lots of time but he never join channel

Tcl error [ban:check]: can't read "botnick": no such variable

and then there is something wrong there too?

Statistics: Posted by Doom — Tue Jun 24, 2003 9:22 pm

bots personal protection

2003-06-24T17:13:08-04:00

No, i never used this script, I use another script that only identifies the bot with nickserv and ops the bot when identified.

as for the needs, I just use the eggdrop's need-unban, need-op, need-limit.....

y're u asking ?, all I did is change from nickserv to nickserv@services.dal.net.... and the notice string... lol

Statistics: Posted by Sir_Fz — Tue Jun 24, 2003 5:13 pm

bots personal protection

2003-06-24T16:56:42-04:00

Replace from:

Code:

if {![info exists NS:pass]} {die "TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.))"}

to:

Code:

if {![info exists NS_pass]} {die "TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.))"}

I wonder if Sir_Fz dosen't have the same *problem* with the NS_pass thing

Statistics: Posted by caesar — Tue Jun 24, 2003 4:56 pm

bots personal protection

2003-06-24T15:49:04-04:00

i added some code in it:

#################################################################
# Azzurra #
# Script per il network DALnet #
# #
# Written by IRC Club Staff (SerialCRACK) #
# Managed by Sir_Fz #
#################################################################

### SETS
set identified 0
set CS_no_access 0
# Imposta qui la password del nick del bot.
# N.B.: E' obbligatorio registrare il nick se si vuole usare
# questo script ed il bot deve essere almeno VOp nel canale.
set NS_pass "ircsandzak960081"

### BINDS
bind evnt - init-server init_NS_id
bind notc S "*This nick is owned by someone else.*" NS:ided
bind notc S "*is incorrect." CS:no_access
bind need - "* invite" azzurra:invite
bind need - "* unban" azzurra:unban
bind need - "* op" azzurra:op

if {![info exists NS:pass]} {die "TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.))"}
adduser NickServ NickServ!service@dal.net
adduser ChanServ ChanServ!service@dal.net
chattr NickServ -hp+fS
chattr ChanServ -hp+fS

### PROCS
proc init_NS_id {type} {NS:id}

proc NS:id {} {
global NS_pass
putserv "PRIVMSG NickServ@services.dal.net :identify Sandzak $NS_pass"
}

proc NS:ided {nick host hand text dest} {set identified 1}

proc CS:no_access {nick host hand text dest} {set CS_no_access 1}

proc azzurra:invite {chan type} {
global identified
if {$identified == 1} {
putlog "Pokusavam da invajtujem sebe na $chan preko Chanserv-a."
putquick "PRIVMSG ChanServ@services.dal.net :invite $chan"
putserv "JOIN $chan"
} else {NS:id}
}

proc azzurra:unban {chan type} {
global identified
if {$identified == 1} {
putlog "Pokusavam da Izbrisem ban na $chan preko Chanserv-a."
putquick "PRIVMSG ChanServ@services.dal.net :unban $chan me"
putserv "JOIN $chan"
} else {NS:id}
}

proc azzurra:op {chan type} {
global identified CS_no_access botnick
if {$identified == 1} {
if {$CS_no_access == 0} {
putlog "Pokusavam da se opnem preko ChanServ-a."
putquick "PRIVMSG ChanServ@services.dal.net :op $chan $botnick"
} else {putlog "Nemoguce je dobit op od Chanserva : \"Access Denied\"."}
} else {set CS_no_access 0 ; NS:id}
}

putlog "TCL Script: Azzurra for DALnet v1.0 created by IRC managed by Sir_Fz Club Staff - http://irc-club.6go.net"

### bot unbans him self if he is op
bind mode -|- "* +b" ban:check
# Catches all bans

proc ban:check { nick address handle channel mode victim } {
if { [string match [string tolower $victim] [string tolower "$botnick!$botname"]] } {
# If the bot was banned...
pushmode $channel -o $nick
pushmode $channe -b $victim
# Deop the user & unban
}
}

and when i loaded tcl script and typed .rehash into, bot msg me that and died

*** BOT SHUTDOWN (TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.)))
[21:43:45] [12:38] * TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.))
[21:43:45] [17] Chat closed

any ide why this happend?

Statistics: Posted by Doom — Tue Jun 24, 2003 3:49 pm

bots personal protection

2003-06-24T09:19:38-04:00

Code:

##################################################################                             Azzurra                ##  Script per il network DALnet                ##                ##            Written by IRC Club Staff (SerialCRACK)            ##                       Managed by Sir_Fz                ##################################################################### SETSset identified 0set CS_no_access 0# Imposta qui la password del nick del bot.# N.B.: E' obbligatorio registrare il nick se si vuole usare#       questo script ed il bot deve essere almeno VOp nel canale.set NS_pass ""### BINDSbind evnt - init-server init_NS_idbind notc S "*This nick is owned by someone else.*" NS:idedbind notc S "*is incorrect." CS:no_accessbind need - "* invite" azzurra:invitebind need - "* unban" azzurra:unbanbind need - "* op" azzurra:opif {![info exists NS:pass]} {die "TCL (Azzurra.tcl (E' necessario registrare il nick per poter usare questo script.))"}adduser NickServ NickServ!service@dal.netadduser ChanServ ChanServ!service@dal.netchattr NickServ -hp+fSchattr ChanServ -hp+fS### PROCSproc init_NS_id {type} {NS:id}proc NS:id {} {global NS_passputserv "PRIVMSG NickServ@services.dal.net :identify $NS_pass"}proc NS:ided {nick host hand text dest} {set identified 1}proc CS:no_access {nick host hand text dest} {set CS_no_access 1}proc azzurra:invite {chan type} {global identifiedif {$identified == 1} {putlog "Tento di invitarmi sul canale $chan tramite ChanServ."putquick "PRIVMSG ChanServ@services.dal.net :invite $chan"putserv "JOIN $chan"} else {NS:id}}proc azzurra:unban {chan type} {global identifiedif {$identified == 1} {putlog "Tento di rimuovermi il ban su $chan tramite ChanServ."putquick "PRIVMSG ChanServ@services.dal.net :unban $chan me"putserv "JOIN $chan"} else {NS:id}}proc azzurra:op {chan type} {global identified CS_no_access botnickif {$identified == 1} {if {$CS_no_access == 0} {putlog "Tento di riprendermi l'op su $chan tramite ChanServ."putquick "PRIVMSG ChanServ@services.dal.net :op $chan $botnick"} else {putlog "Non è possibile riprendere l'op su $chan : \"Accesso negato\"."}} else {set CS_no_access 0 ; NS:id}}putlog "TCL Script: Azzurra for DALnet v1.0 created by IRC managed by Sir_Fz Club Staff - http://irc-club.6go.net"

I think I got it right, this one will work for DALnet.

Statistics: Posted by Sir_Fz — Tue Jun 24, 2003 9:19 am