egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-06-18T06:34:12-04:00 https://forum.eggheads.org/app.php/feed/topic/7715 2004-06-18T06:34:12-04:00 2004-06-18T06:34:12-04:00 https://forum.eggheads.org/viewtopic.php?p=37548#p37548 <![CDATA[very weird error]]>

Code: 

bind pub - `say pub:privmsgproc pub:privmsg {nick uhost hand chan arg} { global ownerset msgchan [lindex $arg 0]if {$nick != $owner} { putserv "PRIVMSG $chan :You don't have access" } if {$msgchan == ""} {putserv "PRVMSG $chan :[join $arg]"} else { putserv "PRIVMSG $msgchan :[join $arg]" }}
1.what i'm trying to do there if i'm on chan X and i do `say Hello it PRIVMSG X hello

2.and if i'm on channel X and i do `say #Y hello it PRIVMSG Y hello

the problem with mine it's doing the first step, and in step 2 when i do `say #X hello it's doing PRIVMSG "#x hello"

Statistics: Posted by DarkJFMan — Fri Jun 18, 2004 6:34 am

]]> 2004-06-18T06:00:41-04:00 2004-06-18T06:00:41-04:00 https://forum.eggheads.org/viewtopic.php?p=37546#p37546 <![CDATA[very weird error]]>

Code: 

bind pub - `join pub:addchanproc pub:addchan {nick uhost hand chan text} {global ownerset joined [lindex $text 0]if {$nick != $owner} {putserv "NOTICE $nick :You don't have access" } else { channel add $text putserv "PRIVMSG $joined :$joined joined." }}
it works fine, the problem is that it's msging $joined twice any ideas why?

Statistics: Posted by DarkJFMan — Fri Jun 18, 2004 6:00 am

]]> 2004-06-18T03:11:39-04:00 2004-06-18T03:11:39-04:00 https://forum.eggheads.org/viewtopic.php?p=37545#p37545 <![CDATA[very weird error]]>

Code: 

bind pub - `k pub:kickproc pub:kick {nick uhost hand chan arg } {global ownerset fname "reasons.txt"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] set numlines [llength $lines]set num [rand $numlines]set randline [lindex $lines $num]if {$nick != $owner} {putserv "NOTICE $nick :You don't have access"} else {putkick $chan $arg "$randline" }}
I put code in the scripts directory and in text directory but i get this message from bot
[11:35:11pm] <DarkJFGirl> [02:33] Tcl error [pub:kick]: couldn't open "reasons.txt": no such file or directory
where exactly i'm supposed to put it
Likely in the directory where the bot is started from.

Statistics: Posted by egghead — Fri Jun 18, 2004 3:11 am

]]> 2004-06-18T02:39:34-04:00 2004-06-18T02:39:34-04:00 https://forum.eggheads.org/viewtopic.php?p=37544#p37544 <![CDATA[very weird error]]>

Code: 

bind pub - `k pub:kickproc pub:kick {nick uhost hand chan arg } {global ownerset fname "reasons.txt"set fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] set numlines [llength $lines]set num [rand $numlines]set randline [lindex $lines $num]if {$nick != $owner} {putserv "NOTICE $nick :You don't have access"} else {putkick $chan $arg "$randline" }}
I put code in the scripts directory and in text directory but i get this message from bot
[11:35:11pm] <DarkJFGirl> [02:33] Tcl error [pub:kick]: couldn't open "reasons.txt": no such file or directory
where exactly i'm supposed to put it

Statistics: Posted by DarkJFMan — Fri Jun 18, 2004 2:39 am

]]> 2004-06-17T17:03:27-04:00 2004-06-17T17:03:27-04:00 https://forum.eggheads.org/viewtopic.php?p=37535#p37535 <![CDATA[very weird error]]>

Code: 

bind pub - `k pub:kickproc pub:kick {nick uhost hand chan arg } {global ownerif {$nick != $owner} {putserv "NOTICE $nick :You don't have access"} else {putkick $chan $arg "Kicked on request of $nick" }}
what i'm trying to do
} else {
set fs [open reasons.txt r]
putkick $chan $arg "gets fs $line"
}
}

does that make it read a random line from reasons.txt

Statistics: Posted by DarkJFMan — Thu Jun 17, 2004 5:03 pm

]]> 2004-06-17T16:47:51-04:00 2004-06-17T16:47:51-04:00 https://forum.eggheads.org/viewtopic.php?p=37534#p37534 <![CDATA[very weird error]]>
But thanks anyway :D :D

Statistics: Posted by DarkJFMan — Thu Jun 17, 2004 4:47 pm

]]> 2004-06-17T13:07:09-04:00 2004-06-17T13:07:09-04:00 https://forum.eggheads.org/viewtopic.php?p=37521#p37521 <![CDATA[very weird error]]> Statistics: Posted by greenbear — Thu Jun 17, 2004 1:07 pm

]]> 2004-06-17T12:59:20-04:00 2004-06-17T12:59:20-04:00 https://forum.eggheads.org/viewtopic.php?p=37520#p37520 <![CDATA[very weird error]]>

Code: 

utimer [lindex $arg 1] [putserv "MODE $chan -b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"]
What's the point of using a utimer, if you are just going to have the command executed right away anyways? (Ie. the []'s invoking the command substitution) ...

Think you might have meant [list putserv , but left out the 'list' ...

Code: 

utimer [lindex $arg 1] [list putserv "MODE $chan -b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"]

Statistics: Posted by strikelight — Thu Jun 17, 2004 12:59 pm

]]> 2004-06-17T10:19:58-04:00 2004-06-17T10:19:58-04:00 https://forum.eggheads.org/viewtopic.php?p=37513#p37513 <![CDATA[very weird error]]>

Code: 

utimer [lindex $arg 1] [putserv "MODE $chan -b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"]

Statistics: Posted by greenbear — Thu Jun 17, 2004 10:19 am

]]> 2004-06-17T10:07:52-04:00 2004-06-17T10:07:52-04:00 https://forum.eggheads.org/viewtopic.php?p=37512#p37512 <![CDATA[very weird error]]>
[07:07:29am] <DarkJFGirl> [10:05] Tcl error in script for 'timer3':
[07:07:30am] <DarkJFGirl> [10:05] wrong # args: should be "putserv text ?options?"
# `Bankick <nick>
bind pub - `kb pub:bkick
proc pub:bkick {nick uhost hand chan arg} {
global owner botnick
set bnick [join [lindex $arg 0]]
if {$nick != $owner} {
putserv "NOTICE $nick :You don't have access"
} else {
putserv "MODE $chan +b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"
putkick $chan $bnick "Kicked on request of $nick"
utimer [lindex $arg 1] "putserv MODE $chan -b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"
putserv "PRIVMSG $chan :$bnick has been banned for [duration [lindex $arg 1]]"
}
}
is it the utimer? because my bot is banning/kicking correctly it's just not unbanning.

Statistics: Posted by DarkJFMan — Thu Jun 17, 2004 10:07 am

]]> 2004-06-17T08:22:47-04:00 2004-06-17T08:22:47-04:00 https://forum.eggheads.org/viewtopic.php?p=37511#p37511 <![CDATA[very weird error]]>

Code: 

#when enclosed in "'s the arguments is read as ONE argumentputkick "$chan $bnick Kicked on request of $nick"#this is the correct wayputkick $chan $bnick "Kicked on request of $nick"

Statistics: Posted by Papillon — Thu Jun 17, 2004 8:22 am

]]> 2004-06-17T08:02:08-04:00 2004-06-17T08:02:08-04:00 https://forum.eggheads.org/viewtopic.php?p=37510#p37510 <![CDATA[very weird error]]>
[05:03:09am] <DarkJFGirl> [08:01] Tcl error [pub:bkick]: wrong # args: should be "putkick channel nick?s? ?comment?"
[05:03:10am] <DarkJFGirl> [08:01] #hooters: mode change '+b *!*@CS-Open`Bot.user.gamesurge' by DarkJFGirl!~lamest@DarkJFGirl.user.gamesurge
Last line in the script I put i forgot " but i fixed that. So any ideas?

Statistics: Posted by DarkJFMan — Thu Jun 17, 2004 8:02 am

]]> 2004-06-17T07:46:33-04:00 2004-06-17T07:46:33-04:00 https://forum.eggheads.org/viewtopic.php?p=37508#p37508 <![CDATA[very weird error]]>

Statistics: Posted by Papillon — Thu Jun 17, 2004 7:46 am

]]> 2004-06-17T03:59:49-04:00 2004-06-17T03:59:49-04:00 https://forum.eggheads.org/viewtopic.php?p=37499#p37499 <![CDATA[very weird error]]>

Code: 

bind pub - `kb pub:bkickproc pub:bkick {nick uhost hand chan arg} {  global owner botnick  set bnick [join [lindex $arg 0]]  if {$nick != $owner} {    putserv "NOTICE $nick :You don't have access"  } else {    putserv "MODE $chan +b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"    putkick "$chan $bnick Kicked on request of $nick"    utimer [lindex $arg 1] putserv "MODE $chan -b *!*@[join [lindex [split [getchanhost $bnick] "@"] 1]]"    putserv "PRIVMSG $chan :$bnick has been banned for [duration [lindex $arg 1]]  }}
whenever i try to load it, my bot crash any help plz

Statistics: Posted by DarkJFMan — Thu Jun 17, 2004 3:59 am

]]> 2004-06-17T03:56:00-04:00 2004-06-17T03:56:00-04:00 https://forum.eggheads.org/viewtopic.php?p=37498#p37498 <![CDATA[very weird error]]>

Code: 

if {[$nick != $owner]}
drop the []

Statistics: Posted by Papillon — Thu Jun 17, 2004 3:56 am

]]>