egghelp/eggheads community

Public command script

2006-03-24T21:08:53-04:00

MeTroiD, how would one go about for adding more commands like .op .deop .voice .devoice etc.?
Im very new at this, but im trying to learn.

Statistics: Posted by starpossen — Fri Mar 24, 2006 9:08 pm

Public command script

2006-03-05T12:48:45-04:00

well, it doens't matter, or does it?

Statistics: Posted by GeeX — Sun Mar 05, 2006 12:48 pm

Public command script

2006-03-02T08:29:51-04:00

As stated in the piece of script i made, you don't need to set it if you set your triggers properly.

Statistics: Posted by metroid — Thu Mar 02, 2006 8:29 am

Public command script

2006-03-02T05:23:08-04:00

The "\" is for users that want user this trigger: "$"

Statistics: Posted by GeeX — Thu Mar 02, 2006 5:23 am

Public command script

2006-02-28T05:27:35-04:00

this script is worthless in my opinion because you do no checking for anything at all.

You don't split any arguments at all so it won't work with special characters such as {}[]\.

Furthermore the fact that you escape '!' as trigger tells me you don't know what placing an \ before it does.

Here is a proper script..

(yes i know it's just a good version of what he made)

Code:

# you can set any trigger, setting $ won't make a difference and you don't have to escape it.set trigger "!"# i left out things i found utterly useless. add them yourself if you still want itbind PUB n|-  ${trigger}join  pub:joinbind PUB n|-  ${trigger}part  pub:partbind PUB n|-  ${trigger}hop   pub:hopbind PUB n|-  ${trigger}nick  pub:nickbind PUB n|-  ${trigger}bc    pub:bcproc pub:part {nickname hostname handle channel arguments} {  if {![llength [split $arguments]]} {    channel remove $channel  } elseif {![validchan [set channel [lindex [split $arguments] 0]]]} {    putserv "NOTICE $nickname :Unknown channel '$channel'"  } else {    channel remove $channel  }}proc pub:join {nickname hostname handle channel arguments} {  if {![llength [split $arguments]] || [validchan [set channel [lindex [split $arguments] 0]]]} {    putserv "NOTICE $nickname :Please use $::lastbind #channel"  } else {    channel add $channel  }}proc pub:hop {nickname hostname handle channel arguments} {  if {![llength [split $arguments]]} {    putquick "PART $channel"  } elseif {![validchan [set channel [lindex [split $arguments] 0]]]} {    putserv "NOTICE $nickname :Unknown channel '$channel'"  } else {    putquick "PART $channel"  }}proc pub:nick {nickname hostname handle channel arguments} {  if {![llength [split $arguments]]} {    putserv "NOTICE $nickname :Please use $::lastbind "  } else {    set ::nick [lindex [split $arguments] 0]  }}proc pub:bc {nickname hostname handle channel arguments} {  if {![llength [split $arguments]]} {    putserv "NOTICE $nickname :Please use $::lastbind "  } else {    # i think most ircd's support this way of messaging but incase yours doesn't    # remove the comment from the next line and comment the other one    # foreach c [channels] { puthelp "PRIVMSG $c :[join [split $arguments]]" }    putquick "PRIVMSG [join [channels] ,] :(Broadcast) [join [split $arguments]]"  }}

Statistics: Posted by metroid — Tue Feb 28, 2006 5:27 am

Public command script

2006-02-27T11:28:16-04:00

Lil Update:

Code:

#  __                __      __    # /\ \              /\ \  __/\ \   # \ \ \         __  \ \ \/\ \ \ \  #  \ \ \  __  /'__`\ \ \ \ \ \ \ \ #   \ \ \_\ \/\ \_\ \_\ \ \_/ \_\ \#    \ \____/\ \__/ \_\\ `\___ ___/#     \/___/  \/__/\/_/ '\/__//__/ ## Commands Script by LaW.## Don't change anything.# Report bugs to #GeeX on Quakenet.#  Join/Part/Hop/Say/Nick/Broadcast/Msg/Jump  #  configuration     #  variables          set cmd(trigger) "\!"          set cmd(author)  "LaW (#GeeX on Quakenet)"          set cmd(version) "1.1"     #  bindings          bind PUB n|- "$cmd(trigger)join" pub:join          bind PUB n|- "$cmd(trigger)part" pub:part          bind PUB n|- "$cmd(trigger)hop"  pub:hop          bind PUB n|- "$cmd(trigger)say"  pub:say          bind PUB n|- "$cmd(trigger)nick" pub:nick          bind PUB n|- "$cmd(trigger)bc"   pub:bc          bind PUB n|- "$cmd(trigger)msg"  pub:msg     #  copyright          putlog "Commands Script version $cmd(version) scripted by $cmd(author)"     #  source (again DO NOT change anything if you are not 100% sure)          proc pub:part { nick uhost hand chan text } {           if {$text == ""} {             channel remove $chan            } else {             channel remove $text }          }          proc pub:join { nick uhost hand chan text } {            channel add $text           }          proc pub:hop { nick uhost hand chan text } {            if {$text == ""} {             putserv "PART $chan" }            else {             putserv "PART $text" }          }          proc pub:say { nick uhost hand chan text } {            putserv "PRIVMSG $chan :$text"          }          proc pub:nick { nick uhost hand chan text } {            set ::nick $text          }          proc pub:bc { nick host hand chan text } {           foreach chan [channels] { puthelp "privmsg $chan :$text" }          }                    proc pub:msg { nick host hand chan text } {           set chan [lindex $text 0]           set msg [lrange $text 1 end]           putserv "PRIVMSG $chan :$msg"          }                    proc pub:jump {nick host hand chan text} {           set server [lindex $text 0]           set port [lindex $text 1]           jump $server $port          }

Statistics: Posted by GeeX — Mon Feb 27, 2006 11:28 am

Public command script

2006-02-16T09:43:20-04:00

thx for all replys
@sir_fz now all works without errors
@highlander

for me as noob its very difficult to understand this maybe changes in a few weeks ;> and your right its not very secure but its secure enouth for me

so thx guys every question done

Statistics: Posted by mAxP — Thu Feb 16, 2006 9:43 am

Public command script

2006-02-16T08:35:52-04:00

The only thing to bear in mind is that written that way that script is completely insecure, anyone could spoof an owners hostmask and have full access to all the commands built into that and any scripts like it.

One of the reasons The_Quickening is as "complicated" as it is (I didnt think it actually was particularly complicated) is that when I wrote it I deliberately tried to make it as secure as I could because I'd seen the results of insecure public commands scripts, thats why it has the extra protection of a password protected authentication system built in.

Of course you are completely free to do what you want but it wouldnt be right to let you do so without letting you know the implications of it first.

Statistics: Posted by Ian-Highlander — Thu Feb 16, 2006 8:35 am

Public command script

2006-02-15T19:21:18-04:00

Code:

}else {

is incorrect syntax. Use:

Code:

} else {

Code:

} {

Statistics: Posted by Sir_Fz — Wed Feb 15, 2006 7:21 pm

Public command script

2006-02-15T13:09:04-04:00

thx works all fine

but ".hop"
bot parts chan but doesnt rejoin

[17:50] Tcl error [pub:part]: invalid command name "else"

some one got a sollution?

same error, but commad works
[17:50] Tcl error [pub:part]: invalid command name "else"

and another question

is it possible to ".part #chan" because part only works on the channel you want to part with ".part"

THX GUYZ :]

Statistics: Posted by mAxP — Wed Feb 15, 2006 1:09 pm

Public command script

2006-02-15T11:15:44-04:00

Here, is mine:

Code:

#  __                __      __    # /\ \              /\ \  __/\ \   # \ \ \         __  \ \ \/\ \ \ \  #  \ \ \  __  /'__`\ \ \ \ \ \ \ \ #   \ \ \_\ \/\ \_\ \_\ \ \_/ \_\ \#    \ \____/\ \__/ \_\\ `\___ ___/#     \/___/  \/__/\/_/ '\/__//__/ ## Commands Script by LaW.## Don't change anything.# Report bugs to #GeeX on Quakenet.#  Join/Part/Hop/Say/Nick/Broadcast  #  configuration     #  variables          set cmd(trigger) "\."          set cmd(author)  "LaW (#GeeX on Quakenet)"          set cmd(version) "1.0"     #  bindings          bind PUB n|- "$cmd(trigger)join" pub:join          bind PUB n|- "$cmd(trigger)part" pub:part          bind PUB n|- "$cmd(trigger)hop"  pub:hop          bind PUB n|- "$cmd(trigger)say"  pub:say          bind PUB n|- "$cmd(trigger)nick" pub:nick          bind PUB n|- "$cmd(trigger)bc"   pub:bc     #  copyright          putlog "Commands Script version $cmd(version) scripted by $cmd(author)"     #  source (again DO NOT change anything if you are not 100% sure)          proc pub:part { nick uhost hand chan text } {           if {$text == ""} {             channel remove $chan }            else {             channel remove $text }          }          proc pub:join { nick uhost hand chan text } {            channel add $text           }          proc pub:hop { nick uhost hand chan text } {            if {$text == ""} {             putserv "PART $chan" }            else {             putserv "PART $text" }          }          proc pub:say { nick uhost hand chan text } {            putserv "PRIVMSG $chan :$text" }          proc pub:nick { nick uhost hand chan text } {            set ::nick $text }          proc pub:bc {nick host hand chan text} {           putquick "PRIVMSG [join [channels] ","] :[join [split $text]]"          }

Statistics: Posted by GeeX — Wed Feb 15, 2006 11:15 am

Public command script

2006-02-15T08:10:01-04:00

hu experts helo again

im a total noob and want to write my own script
for !join #chan !part #chan !kick !kickbann !voice !unbann !op

i found the The_Quickening script for that but i want to write my own script

can somebody give me an example for a easy !join #chan script not that complicated like in The_Quickening. the rest i want to do alone

thx 2 all helpers :>

Statistics: Posted by mAxP — Wed Feb 15, 2006 8:10 am