egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-07-23T12:11:50-04:00 https://forum.eggheads.org/app.php/feed/topic/10112 2005-07-23T12:11:50-04:00 2005-07-23T12:11:50-04:00 https://forum.eggheads.org/viewtopic.php?p=53081#p53081 <![CDATA[need some help with this simple script]]>

Code: 

if {($text == "") || ([llength $text] == 0) } {
These are the exact same, why would you be checking them both?

Statistics: Posted by metroid — Sat Jul 23, 2005 12:11 pm

]]> 2005-07-23T08:51:33-04:00 2005-07-23T08:51:33-04:00 https://forum.eggheads.org/viewtopic.php?p=53070#p53070 <![CDATA[need some help with this simple script]]>
I want when I write !deop bot deops me. :|
If I write nick after !deop bot will deop that nick.
Try FzCommands.
Thank You, nice script. :mrgreen:

Statistics: Posted by mrdr — Sat Jul 23, 2005 8:51 am

]]> 2005-07-23T04:46:34-04:00 2005-07-23T04:46:34-04:00 https://forum.eggheads.org/viewtopic.php?p=53068#p53068 <![CDATA[need some help with this simple script]]>
I want when I write !deop bot deops me. :|
If I write nick after !deop bot will deop that nick.
Try FzCommands.

Statistics: Posted by Sir_Fz — Sat Jul 23, 2005 4:46 am

]]> 2005-07-23T04:17:27-04:00 2005-07-23T04:17:27-04:00 https://forum.eggheads.org/viewtopic.php?p=53067#p53067 <![CDATA[need some help with this simple script]]> Statistics: Posted by Decl — Sat Jul 23, 2005 4:17 am

]]> 2005-07-23T02:07:10-04:00 2005-07-23T02:07:10-04:00 https://forum.eggheads.org/viewtopic.php?p=53063#p53063 <![CDATA[need some help with this simple script]]> Statistics: Posted by demond — Sat Jul 23, 2005 2:07 am

]]> 2005-07-23T02:03:49-04:00 2005-07-23T02:03:49-04:00 https://forum.eggheads.org/viewtopic.php?p=53062#p53062 <![CDATA[need some help with this simple script]]>
I want when I write !deop bot deops me. :|
If I write nick after !deop bot will deop that nick.

Code: 

proc pub:deop {nick uhost hand chan text} {   set who [lindex [split $text] 0] ;# who to deop?   if {$who == ""} {                ;# no argument given, deop command's issuer      if [isop $nick $chan] {pushmode $chan -o $nick}   } else {                         ;# deop $who      if [isop $who $chan] {pushmode $chan -o $who}   }}

Statistics: Posted by demond — Sat Jul 23, 2005 2:03 am

]]> 2005-07-22T20:20:54-04:00 2005-07-22T20:20:54-04:00 https://forum.eggheads.org/viewtopic.php?p=53058#p53058 <![CDATA[need some help with this simple script]]> (03:16:56) (@mrdr) !devoice
(03:16:57)  ›› [ egghelp (~buy@weed.lt) ] Please enter a nick to devoice.
(03:17:06) (@mrdr) !deop
(03:17:06)  ›› [ egghelp (~buy@weed.lt) ] Please enter a nick to deop.

I want when I write !deop bot deops me. :|
If I write nick after !deop bot will deop that nick.

Statistics: Posted by mrdr — Fri Jul 22, 2005 8:20 pm

]]> 2005-07-22T19:38:49-04:00 2005-07-22T19:38:49-04:00 https://forum.eggheads.org/viewtopic.php?p=53057#p53057 <![CDATA[need some help with this simple script]]>

Code: 

bind pub o|o !deop pub:op proc pub:op {nick uhost hand chan text} {   if {![botisop $chan]} {    putserv "NOTICE $nick :Im not oped on $chan."    return 0  }   if {![llength $text] >= 1} {    putserv "NOTICE $nick :Please enter a nick to deop."    } else {    set tnick [lindex [split $text] 0]    if {![onchan $tnick $chan]} {       putserv "NOTICE $nick :$tnick is not on $chan."      return 0    }    if {![isop $tnick $chan]} {      putserv "NOTICE $nick :$tnick is not oped on $chan."      } else {      pushmode $chan -o $tnick     }   }}     bind pub o|o !devoice pub:dv proc pub:dv {nick uhost hand chan text} {  if {![botisop $chan]} {    putserv "NOTICE $nick :Im not oped on $chan."    return 0  }   if {![llength $text] >= 1} {    putserv "NOTICE $nick :Please enter a nick to devoice."    } else {    set tnick [lindex [split $text] 0]    if {![onchan $tnick $chan]} {       putserv "NOTICE $nick :$tnick is not on $chan."      return 0    }    if {![isvoice $tnick $chan]} {      putserv "NOTICE $nick :$tnick is not voiced on $chan."      } else {      pushmode $chan -v $tnick     }   }}   putlog "*** test.tcl - LOADED!"
Try that...

Statistics: Posted by r0t3n — Fri Jul 22, 2005 7:38 pm

]]> 2005-07-22T19:21:19-04:00 2005-07-22T19:21:19-04:00 https://forum.eggheads.org/viewtopic.php?p=53056#p53056 <![CDATA[need some help with this simple script]]>

Well your script don't work. Or I made mistakes AGAIN. :)
Here's the code:

Code: 

bind pub o deop pub:opproc pub:op {nick uhost hand chan text} {  if {[botisop $chan] == 1} {     if {[llength $text] >= 1} { set tnick [lindex [split $text] 0]      set tnick [lindex [split $text] 0]      if {[onchan $tnick $chan]} {        if {[isop $tnick $chan]} { pushmode $chan -o $tnick }       } else { puthelp "NOTICE $nick :No such nick!" }    } else { puthelp "NOTICE $nick :Usage: deop <nick>" }  } else { puthelp "NOTICE $nick :I don't have ops!" } }}bind pub o devoice pub:dvproc pub:dv {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[llength $text] >= 1} { set tnick [lindex [split $text] 0]      set tnick [lindex [split $text] 0]      if {[onchan $tnick $chan]} {        if {[isvoice $tnick $chan]} { pushmode $chan -v $tnick }      } else { puthelp "NOTICE $nick :No such nick!" }    } else { puthelp "NOTICE $nick :Usage: devoice <nick>" }  } else { puthelp "NOTICE $nick :I don't have ops!" }}putlog "*** test.tcl - LOADED!"

Statistics: Posted by mrdr — Fri Jul 22, 2005 7:21 pm

]]> 2005-07-22T19:02:26-04:00 2005-07-22T19:02:26-04:00 https://forum.eggheads.org/viewtopic.php?p=53055#p53055 <![CDATA[need some help with this simple script]]>

Code: 

if {[string length $text] > 0} {
is incorrect, use

Code: 

if {[llength $text] >= 1} { set tnick [lindex [split $text] 0]

Code: 

set tnick [lindex $text 0]
should be

Code: 

set tnick [lindex [split $text] 0]
And are you saying if you type deop or devoice without any nick, you want the bot to deop/devoice yourself?

if yes:

Code: 

if {($text == "") || ([llength $text] == 0) } {set tnick $nickblah}
Also

Code: 

if {[isop $tnick $chan]} { pushmode $chan -v $tnick }
should be

Code: 

if {[isvoice $tnick $chan]} { pushmode $chan -v $tnick }
Also, im so tired, i may have missed something or did something wrong. Just warning you ;p. Hope it works!!

Statistics: Posted by r0t3n — Fri Jul 22, 2005 7:02 pm

]]> 2005-07-22T18:34:22-04:00 2005-07-22T18:34:22-04:00 https://forum.eggheads.org/viewtopic.php?p=53054#p53054 <![CDATA[need some help with this simple script]]>
I'm sure that you know what this script does. ;)
And I want to make that when I write "deop" or "devoice" I don't need to write "devoice <my nick>" or "deop <my nick>"
I think it's smth like "if {[$tnick == $me]}" or smth... I don't know. :D
Here is the code:

Code: 

bind pub o deop pub:opproc pub:op {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[isop $tnick $chan]} { pushmode $chan -o $tnick }       } else { puthelp "NOTICE $nick :Tokio nicko kanale nera!" }    } else { puthelp "NOTICE $nick :Naudojimas: deop <nick>" }  } else { puthelp "NOTICE $nick :As neturiu opo!" }}bind pub o devoice pub:dvproc pub:dv {nick uhost hand chan text} {  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[isop $tnick $chan]} { pushmode $chan -v $tnick }       } else { puthelp "NOTICE $nick :Tokio nicko kanale nera!" }    } else { puthelp "NOTICE $nick :Naudojimas: devoice <nick>" }  } else { puthelp "NOTICE $nick :As neturiu opo!" }}putlog "*** test.tcl - LOADED!"

Statistics: Posted by mrdr — Fri Jul 22, 2005 6:34 pm

]]>