This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 3735 matches

by caesar
Thu Feb 09, 2023 1:40 pm
Forum: Script Requests
Topic: is it posiable someone help me with SAMODE?
Replies: 5
Views: 2070

You are right, in this case here's a more traditional approach: bind join - * join:opbot proc join:opbot { nick host hand chan } { if {![isbotnick $nick]} return if {[string equal -nocase $chan "#opers"]} { set mode "+v" } else { set mode "+o" } putserv "SAMODE $ch...
by caesar
Thu Feb 09, 2023 5:33 am
Forum: Script Requests
Topic: is it posiable someone help me with SAMODE?
Replies: 5
Views: 2070

You scared of the expr line? :)

It's basically if condition do this else do something else just wrapped up nicely.
by caesar
Wed Feb 08, 2023 2:25 am
Forum: Script Requests
Topic: is it posiable someone help me with SAMODE?
Replies: 5
Views: 2070

bind join - * join:opbot proc join:opbot { nick host hand chan } { if {![isbotnick $nick]} return set mode [expr {[string equal -nocase $chan "#opers"] ? "+o" : "++"}] putserv "SAMODE $chan $mode $::botnick" } Replace the second '+' in '++' with whatever mode...
by caesar
Mon Jan 16, 2023 12:58 pm
Forum: Script Requests
Topic: BlackWeather.tcl - display metric+fahrenheit in the output
Replies: 6
Views: 2620

You should consider getting the Standard package if you do more than the 250 requests / month that are in the free plan.
by caesar
Tue Jan 10, 2023 12:49 pm
Forum: Script Requests
Topic: check if nick is still on channel before kicking
Replies: 10
Views: 2506

If for whatever reason lsort doesn't work for you then try with dict , here's an example: foreach ele $myList {dict set tmp $ele myList} set unique [dict keys $tmp] I would switch back to the original 'enforce:kick' and use a helper function instead: proc filter:kick {chan} { if {![botisop $chan] ||...
by caesar
Sun Sep 11, 2022 3:56 am
Forum: Scripting Help
Topic: detect bad word hidden in long nicks
Replies: 20
Views: 4984

Would be a good idea to stop the loop once you found a match, cos that's the intended purpose, right? I mean after: set temp 1 just add a 'break' to stop the loop. Also you don't need the if .. else part in this: if {!$temp} { return } { pushmode $chan +b *$badpart*!*@* } just go directly with if : ...
by caesar
Wed Mar 23, 2022 12:29 pm
Forum: Scripting Help
Topic: Accessing a [namespace current] variable
Replies: 3
Views: 2028

namespace eval myns { variable v proc doit {} { incr [namespace current]::v } proc readit {} { variable v putlog "v is now $v" } } Or you can use upvar : namespace eval myns { variable v proc doit {} { incr [namespace current]::v 1 } proc readit {} { upvar 1 [namespace current]::v v putlo...
by caesar
Sun Jan 09, 2022 12:38 pm
Forum: Scripting Help
Topic: custom banmask
Replies: 6
Views: 2407

String map it?

Code: Select all

% set text "*!*@host-???-net-??-???-???.mobilinkinfinity.net.pk"
% string map {? *} $text
*!*@host-***-net-**-***-***.mobilinkinfinity.net.pk
Edit: Nvm, doesn't seem to get as you wanted.
by caesar
Thu Jan 06, 2022 12:40 pm
Forum: Scripting Help
Topic: wont let me set maxbans on dalnet
Replies: 9
Views: 3112

In your code you have: putnow "MODE $chan :+$modex $masks" do you notice the : in front of the $modex? It shouldn't be there. Our guess is that it might be the cause of the issues you are experiencing. Btw, why not stick with pushmode and why bother changing the function name and variables...
by caesar
Fri Dec 17, 2021 2:26 pm
Forum: Script Requests
Topic: .chanset or .set on channel/pm
Replies: 14
Views: 8539

A little bit of forum search and could have seen this from yours truly that accepts whatever you want to throw at it to set: namespace eval ChanSet { bind pub n|n .set [namespace current]::chanset proc chanset {nick uhost hand chan text} { set pos [string first # $text] if {!$pos} { scan $text {%s%s...
by caesar
Sat Nov 13, 2021 3:55 pm
Forum: Scripting Help
Topic: Drone score system
Replies: 10
Views: 3566

A bit of nitpicking: 1. don't use return in a loop. want to stop? just break it, I mean literally, use break not return. foreach phx $exchost { if {[string match -nocase $phx $uhost]} { return 0 } } 2. I would move this like: if [matchattr $hand of|of $chan] return somewhere higher like after isbotn...
by caesar
Sat Sep 11, 2021 1:35 pm
Forum: Scripting Help
Topic: BlaCkSHaDow's GsmArena.tcl Version 1.1
Replies: 17
Views: 9452

Based on the message he gets:
.set errorinfo
What? You need '.help'
he didn't follow CrazyCat's instructions to activate .set in the console.
by caesar
Sun Aug 29, 2021 2:40 pm
Forum: Script Requests
Topic: After X mins Bot op himself if deopd
Replies: 5
Views: 2669

Isn't after a synchronous process? I mean won't it block until after is processed?
by caesar
Wed Jul 14, 2021 3:03 am
Forum: Script Requests
Topic: CTCP VERSION
Replies: 5
Views: 2845

Please change:

Code: Select all

if {[string tolower $nick] eq [string tolower $::botnick]} { return 0 } 
to:

Code: Select all

if {[isbotnick $nick]} return
cos bothers my OCD. :lol:
by caesar
Mon Jul 12, 2021 5:41 am
Forum: Scripting Help
Topic: Solbu's Slowvoice
Replies: 16
Views: 8447

No, i meant I was working on something else where had implemented something similar and did a copy/paste without actually thinking. :roll:

Anyway, how do you check if someone has his nickname registered/logged in with NickServ?