egghelp/eggheads community

[Solved]Need Help with dccsimul

2020-04-24T06:27:28-04:00

Now this looks yummy

Statistics: Posted by Zohaib — Fri Apr 24, 2020 6:27 am

[Solved]Need Help with dccsimul

2020-04-24T04:37:09-04:00

Here's a quick fix for the previous code to work with 'ap:cjoin 3:2 120 kb 2' or whatever you want to throw at it:

Code:

namespace eval ChanSet {bind pub n|n .set [namespace current]::chansetproc chanset {nick uhost hand chan text} {set pos [string first # $text]if {!$pos} {scan $text {%s%s} chan mode} else {scan $text {%s} mode}if {![info exists mode]} {puthelp "NOTICE $nick :Error, usage: $::lastbind \[channel\]  \[value\]. For example $::lastbind #foo +enforcebans, $::lastbind $chan blah 1 2 3, $::lastbind foo 2:5" return}if {![string last - $mode]} {set what [string map {- ""} $mode]} else {set what [string map {+ ""} $mode]}if {![validchan $chan]} {puthelp "NOTICE $nick :Error, I'm not on $chan channel."return}if {[string equal $mode $what]} {set value [lrange $text [expr $pos +2] end]}if {[catch {set now [channel get $chan $what]} err]} {puthelp "NOTICE $nick :Error, \002$what\002 is an unkown channel setting."return}if {[info exists value]} {if {[string equal -nocase $now $value]} {puthelp "NOTICE $nick :Channel mode $what is already set to $now."return}channel set $chan $mode $valueputhelp "NOTICE $nick :Channel mode $what has been set to $value for $chan cahnnel."} else {scan [string map {+ 1 - 0} $mode] {%d} changeif {[string equal $now $change]} {puthelp "NOTICE $nick :Error, channel mode $what is already [expr {$now ? "enabled" : "disabled"}] for $chan channel"return}channel set $chan $modeputhelp "NOTICE $nick :Channel mode $what has been [expr {[string first + $mode] > -1 ? "enabled" : "disabled"}] for $chan channel."}}}

Edit: Added some extra stuff.

Statistics: Posted by caesar — Fri Apr 24, 2020 4:37 am

[Solved]Need Help with dccsimul

2020-04-24T03:29:31-04:00

snip

thanks for your help.
there was a small problem for me as it was working for mode value of 2 digits only

<@Zohaib> .set #me ap:limit +3
-XmIRC- Channel mode for #me ap:limit has been set to +3

But when i tried it for a bigger value command i.e

<@Zohaib> .set #me ap:cjoin 3:2 120 kb 2
-XmIRC- Channel mode for #me ap:cjoin has been set to 3:2

it was not reading and setting the whole value for it so i modified it a bit

Code:

namespace eval ChanSet {   bind pub n|n .set [namespace current]::chanset      proc chanset {nick uhost hand chan text} {set chan [lindex $text 0]set mode [lindex $text 1]set value [lrange [split $text] 2 end]      if {![string last - $mode]} {         set what [string map {- ""} $mode]      } else {         set what [string map {+ ""} $mode]      }      if {[catch {channel get $chan $what} err]} {         puthelp "NOTICE $nick :Error, \002$what\002 is an unkown channel setting."         return      }      if {[info exists value ]} {         channel set $chan $mode $value         puthelp "NOTICE $nick :Channel mode for $chan $what has been set to $value"      } else {         channel set $chan $mode         puthelp "NOTICE $nick :Channel mode for $chan $what has been set to [expr {[string first + $mode] > -1 ? "enabled" : "disabled"}]."      }   }}

And now it is working like a Charm

thanks a lot for your help. Now problem is with the enable disable option and i m trying to fix it. i will post the next update as i fix it thanks once again

Statistics: Posted by Zohaib — Fri Apr 24, 2020 3:29 am

[Solved]Need Help with dccsimul

2020-04-24T01:40:35-04:00

Thanks a lot guys. I m going to give it a go. I really appreciate you guys your help means a lot to us. Thanks once again

Statistics: Posted by Zohaib — Fri Apr 24, 2020 1:40 am

[Solved]Need Help with dccsimul

2020-04-23T05:41:12-04:00

Here's something i threw together really quick:

Code:

namespace eval ChanSet {bind pub n|n .chanset [namespace current]::chansetproc chanset {nick uhost hand chan text} {if {[scan $text {%s%s} mode value] < 1} {puthelp "NOTICE $nick :Error, usage: $::lastbind +/- \[value\]"return}if {![string last - $mode]} {set what [string map {- ""} $mode]} else {set what [string map {+ ""} $mode]}if {[catch {channel get $chan $what} err]} {puthelp "NOTICE $nick :Error, \002$what\002 is an unkown channel setting."return}if {[info exists value]} {channel set $chan $mode $valueputhelp "NOTICE $nick :Channel mode $what has been set to $value"} else {channel set $chan $modeputhelp "NOTICE $nick :Channel mode $what has been set to [expr {[string first + $mode] > -1 ? "enabled" : "disabled"}]."}}}

Statistics: Posted by caesar — Thu Apr 23, 2020 5:41 am

[Solved]Need Help with dccsimul

2020-04-23T04:50:14-04:00

the ap:reset is not a known value, so it's normal you got an error. (.chaninfo #yourchan to list the available values).
Try your dcc_enable proc with a standard value, like seen or greet.

For your use of dccsimul, the error message seems clear:

Code:

dccsimul $host $idx ".chanset $chan1 $cmdschar"

Statistics: Posted by CrazyCat — Thu Apr 23, 2020 4:50 am

[Solved]Need Help with dccsimul

2020-04-23T04:34:46-04:00

any body?

Statistics: Posted by Zohaib — Thu Apr 23, 2020 4:34 am

[Solved]Need Help with dccsimul

2020-05-10T11:39:26-04:00

Hello Everyone,
I am trying to make public commands for changing settings for Allprotection without DCC chat As now a days most of the time I dont have access to my Laptop and cannot use DCC chat directly from phone.
here are few things i have tried but they didnt work.

I was Using this Code to Enable Disable Scripts using Public Command
for example !enable/disable gseen youtube and other scripts

Code:

proc dcc_enable {nick uhost hand chan text} {set chan1 [lindex $text 0]set cmdschar [lindex $text 1]channel set $chan1 +$cmdscharputhelp "privmsg $chan : Enabled $cmdschar on Channel $chan1 ."  }

so i tried editing it for All Protection stuff

Code:

proc dcc_chanset {nick uhost hand chan text} {set chan1 [lindex $text 0]set cmdschar [lrange [split $text] 1 end]]channel set $chan1 $cmdscharputhelp "Notice $nick : Channel $chan1 Settings Changed to $cmdschar"  }

But i m getting this error

Tcl error [dcc_chanset]: illegal channel option: ap:reset"

so instead using

channel set $chan1 $cmdschar

I changed it to

Code:

proc dcc_chanset {host idx text} {set chan1 [lindex $text 0]set cmdschar [lrange $text 1 end]dccsimul $idx ".chanset $chan1 $cmdschar"puthelp "privmsg $chan : Channel $chan1 Settings Changed to $cmdschar"  }

but i am getting this error

Tcl error [dcc_chanset]: wrong # args: should be "dcc_chanset host idx text"

Can anyone guide me how I achieve my goal here

P.S i m noob in scripting.

Thanks in Advance

Statistics: Posted by Zohaib — Tue Apr 21, 2020 6:13 am