notice script from mirc to tcl

stevegarbz · Post by **stevegarbz** » Mon Jan 24, 2005 11:09 pm

on *:NOTICE:*:#compLexity: { if ($nick !isop $chan) { mode $chan +b $wildsite | kick $chan $nick Do not notice the channel } }

^DooM^ · Post by **^DooM^** » Tue Jan 25, 2005 5:03 am

There are channel administration scripts in our tcl archive that will do the job you require.

Click Me!

stevegarbz · Post by **stevegarbz** » Tue Jan 25, 2005 10:01 am

They are also longer scripts than that. I am looking for a short one.

avilon · Post by **avilon** » Tue Jan 25, 2005 2:29 pm

short hm?

Code: Select all

/mode #channel +N

stevegarbz · Post by **stevegarbz** » Tue Jan 25, 2005 5:42 pm

They don't have modes like that on GameSurge.

stevegarbz · Post by **stevegarbz** » Tue Jan 25, 2005 10:44 pm

Anyone :\

^DooM^ · Post by **^DooM^** » Wed Jan 26, 2005 4:01 am

You have been told where to find scripts if you dont like those maybe you should learn TCL and write your own scripts.

Post by **caesar** » Wed Jan 26, 2005 4:29 am

Code: Select all

bind notc - * notice:ban

proc notice:ban {nick uhost hand text dest} {
  if {![string equal -length 1 # $dest]} {
    return
  }
  if {[botisop $dest]} {
    putquick "KICK $dest $nick :Do not notice the channel!" -next
    pushmode $dest +b *!*@[lindex [split $uhost @] 1]
  }
}

Should do what you wanted.

YooHoo · Post by **YooHoo** » Wed Jan 26, 2005 11:17 am

someone could make a fortune here converting lame mirc code to tcl

if any of these dweebs had any money, that is.........

awyeah · Post by **awyeah** » Wed Jan 26, 2005 9:06 pm

Sorry for the delayed reply was a bit busy. 'caesar' tried todo good but missed a few things out, it should be like this:

Code: Select all

bind notc - "*" notice:ban

proc notice:ban {nick uhost hand text dest} {
  if {[string equal -nocase "#complexity" $dest] && ![isop $nick $dest] && [botisop $dest]} {
    putquick "MODE $dest +b *!*@[lindex [split $uhost @] 1]" -next
    putquick "KICK $dest $nick :Do not notice the channel!" -next
  }
}

I used todo alot of mIRC scripting in my earlier days, but kind of gave it up because its only for kiddies now, I guess. Since mIRC Scripting RIPPING is famous all over the internet, heh.

Post by **caesar** » Thu Jan 27, 2005 4:22 am

whoops!

forgot to add a 'channel check thing' and the 'isop'