Botscript / Contact admin / helpdesk !help script

Release your script here.
State:
- Author
- What it does
- Perhaps a little guide.
- Also, if the snippet is of any use to the community, it has a chance of getting posted on the main page, so don't hesitate to submit/ask!

Botscript / Contact admin / helpdesk !help script

Postby Cristian » Thu Jan 03, 2008 11:34 am

;# When a user on the channel types !admin, then will Halfop,op,admin and owner (%,@,&,~) recieve a message.
;# The user will not be able to use the command in 10 minutes, and no one else will be able to use it in 20 seconds after last 'trigger' (flood prot).

;# Tested and works on version 6.15

Code: Select all
;# 
;# visit http://sp00fed.org for updates or support.
;# script by Sumsar
;#

;# Setup

;# Message to (%,@,&,~)
alias -l ::msg { return want contact with an administrator. Reason: $iif($1-,$ifmatch,no reason.) }

;# excluded nicknames
alias -l ::nicks { return S.Q.L.fishbot.catbot }

;# command will not be availible i X seconds after last trigger for anyone.
alias -l ::nospam.channel { return 20 }

;# command will not be availible i X seconds after last trigger for nick.
alias -l ::nospam.nick { return 600 }

;# Code

on *:TEXT:!help*:#:{

  if (!%variable.nospam. [ $+ [ $wildsite ] ] && !%variable.nospam. [ $+ [ $chan ] ]) {
    set $+(-u,$::nospam.nick) %variable.nospam. [ $+ [ $wildsite ] ] 1
    set $+(-u,$::nospam.channel) %variable.nospam. [ $+ [ $chan ] ] 1

    var %a = $nick($chan,0),%b
    while (%a) {
      if ($istok($+($chr(37),.,$chr(64),.,$chr(38),.,$chr(126)),$left($nick($chan,$nick($chan,%a)).pnick,1),46)) {
        if (!$istok($::nicks,$nick($chan,%a),46)) {
          var %b = $addtok(%b,$nick($chan,%a),44)
        }
      }
      if ($numtok(%b,44) == 6) {
        .msg %b $nick $::msg($2-)
        var %b
      }
      dec %a
    }
    .msg %b $nick $::msg($2-)
    var %b
  }
}
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Contact admin / helpdesk !help script

Postby Dandy » Sat Jan 05, 2008 2:21 pm

tcl geek
Dandy
 

Re: Contact admin / helpdesk !help script

Postby Cristian » Wed Jan 09, 2008 5:08 pm

you know I am ;)
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Botscript / Contact admin / helpdesk !help script

Postby Jerzy » Sun May 03, 2009 3:55 pm

lol is it not MSL? s:
Jerzy
 

Re: Botscript / Contact admin / helpdesk !help script

Postby Cristian » Sun May 03, 2009 4:06 pm

yeah, its msl, no worrys ;)
Cristian
proof of advance
proof of advance
 
Posts: 282
Joined: Sun Nov 04, 2007 3:02 pm
Location: Denmark
Authnick: Sumsar

Re: Botscript / Contact admin / helpdesk !help script

Postby Jerzy » Sun May 03, 2009 5:04 pm

oh okay :b.
just because one said tcl geek :P
Last edited by Jerzy on Sun May 03, 2009 6:34 pm, edited 1 time in total.
Jerzy
 

Re: Botscript / Contact admin / helpdesk !help script

Postby Futz0r » Sun May 03, 2009 5:10 pm

Jerzy wrote:oh okay :b.
just because on said tcl geek :P



haha :D
Futz0r
 


Return to Mirc Scripting Release

Who is online

Users browsing this forum: No registered users and 1 guest

cron