egghelp/eggheads community

Invite Script - Multi Channel ?

2008-05-09T09:49:14-04:00

Code:

proc add_1 { nick uhost hand args } {   global chan_1 db   set args [split $args " "]   set user [lindex $args 0]   set user [string range $user 1 end]   set pass [lindex $args 1]   set pass [string range $pass 0 end-1]...snipped irrelevant sections...proc inv_1 { nick uhost hand arg } {   global chan_1 db   set arg [split $arg " "]   set user1 [lindex $arg 0]   set user1 [string range $user1 0 end]   set pass1 [lindex $arg 1]   set pass1 [string range $pass1 0 end]

HAW.. Do you see the problem here?
The top proc incorrectly uses the special variable $args (you aren't using multiple binds with different sets of parameters to trigger this proc meaning args is used for no reason) and needs to do string range tricks ('1' and 'end-1' rather than '0' and 'end') to keep curly bracings out of the output.. lmao

Notice the bottom proc needlessly uses string range for no apparent reason (using it with 0-end range is equivalent to not using it at all), this is because the scripter probably couldn't figure out why they had to use it in the top proc (they used args, they had to to keep curly bracings from leading and ending the output..HAW) and not in the bottom.. lmao

why are curly braces showing up?
oh well, some bitching string ranges will clean that up

LMAO! I'm sure all of us have used kludges such as this to fix issues that were out of our tcl scope (as you learn more, of course, you too can spot these things easily and fix them correctly).

Statistics: Posted by speechles — Fri May 09, 2008 9:49 am

Invite Script - Multi Channel ?

2008-05-09T09:32:13-04:00

Works perfect now ! Thank you very much !

Statistics: Posted by Elfriede — Fri May 09, 2008 9:32 am

Invite Script - Multi Channel ?

2008-05-09T09:22:05-04:00

hmm.. made a small modification, try it now

Statistics: Posted by Papillon — Fri May 09, 2008 9:22 am

Invite Script - Multi Channel ?

2008-05-09T08:05:38-04:00

Thx, but on doing the invite command, nothing happens

Hopefully you'll help me out

Statistics: Posted by Elfriede — Fri May 09, 2008 8:05 am

Invite Script - Multi Channel ?

2008-05-09T09:21:37-04:00

Code:

############################################                     # Channel invite 0.1 BETA         # Scripted by Dreamer            #                      ############################################   # Type /msg  @add  # to add someone to the database# Type /msg  @invite  # to get invited in to channel## History:# 0.1: First version############################################# EDIT FROM HERE# Channel where the bot wil inviteset chan_1 "#chav #chan2 #chan3"# Name of the databaseset db scripts/chan.invite# STOP EDITING FROM HEREset ver "0.1"bind msg - @add add_1bind msg - @invite inv_1putlog "Channel invite $ver by Dreamer loaded"# Script starts nowproc add_1 { nick uhost hand args } {   global chan_1 db   set args [split $args " "]   set user [lindex $args 0]   set user [string range $user 1 end]   set pass [lindex $args 1]   set pass [string range $pass 0 end-1]   if { $user == "" || $pass == "" } {         putserv "PRIVMSG $nick :Please instert a Nickname and a password"         return 0   }   set up $user|$pass   set wfile [open $db a+]   puts $wfile $up   close $wfile   putserv "PRIVMSG $chan_1 :\[\00314DB UPDATE\003\] $user is added to Database by $nick"}proc inv_1 { nick uhost hand arg } {   global chan_1 db   set arg [split $arg " "]   set user1 [lindex $arg 0]   set user1 [string range $user1 0 end]   set pass1 [lindex $arg 1]   set pass1 [string range $pass1 0 end]   set up1 $user1|$pass1   set found 0   set fs [open $db r]   while {![eof $fs]} {   gets $fs line   if {$line == $up1} { set found 1 }   }   close $fs   if {$found} {foreach ch [split $chan_1 " "] {putserv "PRIVMSG $ch :\[\00314INVITE\003\] $user1 invited him/herself as $nick"putserv "invite $nick $ch"}   } else {   putserv "PRIVMSG $nick :Wrong pass or username !!!!"   putserv "PRIVMSG $chan_1 :\[\0034INTRUDER\003\] $nick tried to get in the channel"   }}

this should do the trick

Statistics: Posted by Papillon — Fri May 09, 2008 7:06 am

Invite Script - Multi Channel ?

2008-05-09T06:22:17-04:00

Hi everybody

I've got the following of the tcl archive. No way to reach the author. Can someone help to make this script multichannel ?

Code:

############################################# Channel invite 0.1 BETA# Scripted by Dreamer# ############################################# Type /msg  @add   # to add someone to the database# Type /msg  @invite  # to get invited in to channel## History:# 0.1: First version############################################# EDIT FROM HERE# Channel where the bot wil inviteset chan_1 "#chav"# Name of the databaseset db scripts/chan.invite# STOP EDITING FROM HEREset ver "0.1"bind msg - @add add_1bind msg - @invite inv_1putlog "Channel invite $ver by Dreamer loaded"# Script starts nowproc add_1 { nick uhost hand args } {global chan_1 dbset args [split $args " "]set user [lindex $args 0]set user [string range $user 1 end]set pass [lindex $args 1]set pass [string range $pass 0 end-1]if { $user == "" || $pass == "" } { putserv "PRIVMSG $nick :Please instert a Nickname and a password" return 0}set up $user|$passset wfile [open $db a+]puts $wfile $upclose $wfileputserv "PRIVMSG $chan_1 :\[\00314DB UPDATE\003\] $user is added to Database by $nick"}proc inv_1 { nick uhost hand arg } {global chan_1 dbset found 0set arg [split $arg " "]set user1 [lindex $arg 0]set user1 [string range $user1 0 end]set pass1 [lindex $arg 1]set pass1 [string range $pass1 0 end]set up1 $user1|$pass1set found 0 set fs [open $db r] while {![eof $fs]} { gets $fs line if {$line == $up1} { set found 1 } } close $fs if {$found} { putserv "PRIVMSG $chan_1 :\[\00314INVITE\003\] $user1 invited him/herself as $nick" putserv "invite $nick $chan_1"} else {putserv "PRIVMSG $nick :Wrong pass or username !!!!"putserv "PRIVMSG $chan_1 :\[\0034INTRUDER\003\] $nick tried to get in the channel"} }

Thx 4 help !

Statistics: Posted by Elfriede — Fri May 09, 2008 6:22 am