Jump to content

coders-irc_Bot

Administrators
  • Posts

    395
  • Joined

  • Last visited

  • Days Won

    7

coders-irc_Bot last won the day on November 24

coders-irc_Bot had the most liked content!

About coders-irc_Bot

Profile Information

  • Gender
    Not Telling

Recent Profile Visitors

5,849 profile views

coders-irc_Bot's Achievements

Enthusiast

Enthusiast (6/14)

  • First Post Rare
  • Collaborator Rare
  • Dedicated Rare
  • Conversation Starter Rare
  • Week One Done

Recent Badges

7

Reputation

  1. ;remotes ;usage: /agreet <nick> <message> ;will only activate one every 5 seconds for each nick. remove the set line to disable it. on *:join:#coders-irc-lounge: { var %e $+($nick,.txt) if ($read(%e) && !%flood. [ $+ [ $nick ] ]) { echo -a $readn msg # $read(%e, $rand(1,$readn)) set -u5 $+(%,flood,.,$nick) 1 } } alias agreet { write -a $+($1,.txt) $2- }
  2. IRC × OAuth 2.0 2022-09-13 In the past few days I’ve been working on better integrating IRC with OAuth 2.0. In a nutshell, my goal is to make IRC clients obtain a token by interacting with an OAuth 2.0 server, and then use that token to authenticate with the IRC server. This effort has resulted in various patches for meta.sr.ht’s OAuth 2.0 server, for the soju IRC bouncer and for the gamja & goguma IRC clients. Read more here
  3. I've been playing with Bot Manager v2.2 by entropy Its amazing all what you need for a bot control in your room and server. I congradulate him on a well done job on this. I have it running on my server and in my room #coders-irc-lounge 0n irc.coders-irc.net 6667 This addon has many exceptiona l feature and commands if you looking to download it get it here or mircscripts
  4. Beta v7.71.1275 changes: 1.Item 1, https://forums.mirc.com/ubbthreads.php/topics/270820 2.Item 2, changed. 3.Item 3, https://forums.mirc.com/ubbthreads.php/topics/270870 These test scripts have been added to my if/while/bracket/ separator unit tests. 4.Item 4, https://forums.mirc.com/ubbthreads.php/topics/270870 5.Item 5, https://forums.mirc.com/ubbthreads.php/topics/270870 6.Item 6, https://forums.mirc.com/ubbthreads.php/topics/270888 7.Item 7, https://forums.mirc.com/ubbthreads.php/topics/270837 https://forums.mirc.com/ubbthreads.php/topics/270785 8.Item 8, updated. 9.Item 9, https://forums.mirc.com/ubbthreads.php/topics/270754 Experimental. See forum post for details. 10.Item 10, https://forums.mirc.com/ubbthreads.php/topics/270754 Now automatically detects an overflow and switches to big float for large numbers. Changes: 1.Changed /nick, /mnick, /anick, to override /server -i local settings when not connected to a server. 2.Changed $wrap() to allow an empty switch parameter. 3.Fixed script parser bug when handling non-while/if { } brackets. 4.Fixed /var parsing bug in single-line scripts split across multiple lines using combinations of {} and |. 5.Fixed nested single-line if/while bug. 6.Fixed scripts editor not allowing multiple empty alias files. 7.Fixed scripts editor Listen and View menu bugs when in the users/variables sections. 8.Updated zlib library to v1.2.13. 9.Added support for big float calculations using MAPM library. This can be enabled with the command /bigfloat [on|off] for the whole script or by using a %var.bf variable name to enable it for a command/identifier. The $bigfloat identifier can be used to check the current bigfloat state. 10.Extended $base() to handle big numbers. download here
  5. This is a forum request made by toclafane1 who wants a script to be able to report the info about a snippet or script's title, likes, average score, date added, and last updated via its link when posted.> check out www.hawkee.com/snippet/9097/ Title: RottenTomato Movie Search Likes: 2 like(s) Average Score: 6.5 (of 2 scores) Date Added: Oct 23, 2011 Last Updated: Oct 24, 2011> let's see about this link: http://www.hawkee.com/scripts/23905971/ Title: Password Character Picker Developer: Jonesy44 Likes: 0 like(s) Date Added: Nov 12, 2011 ```mirc on *:exit: if ($isfile(hawkee)) .remove hawkee on *:sockclose:hawkeesnippet_*:{ .play -c $token($sock($sockname).mark,4,32) hawkee 2000 } on *:sockopen:hawkeesnippet_*:{ if (!$sockerr) { write -c hawkee tokenize 32 $sock($sockname).mark var %hawkee = sockwrite -nt $sockname %hawkee GET $2 HTTP/1.0 %hawkee Host: $+($sock($sockname).addr,$str($crlf,2)) %hawkee Connection: close } else $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. } on $*:text:/(http\072\/\/)?w{3}\.hawkee\.com(\/s(nippet|cripts).*\/)/:#:{ if (!$play(#)) { var %hawkeee = $+(hawkeesnippet_script,$site,$str($ticks,3)) var %hawkeeinfo = $remove($+($regml(1),$regml(2)),http://) sockopen %hawkeee www.hawkee.com 80 sockmark %hawkeee $!bvar(&hawkee,1-).text %hawkeeinfo .msg # } } on *:sockread:hawkeesnippet_*:{ tokenize 32 $sock($sockname).mark | sockread &hawkee if (!$sockerr) { var %d = /(?s)(Description)(\s*\K.+?(?=\s*).*)/ var %t = /(.*)-/, %l = /(\d+)<\/b>( like\(s\))<\/span>/ var %s = /px">(.*)<\/b>.*(\(.*\))<\/span>/, %a = /(.*)/ var %lu = /(?s)Last Updated <\/td>(\s*\K.+?(?=\s*).*)/ if ($regex([ [ $1 ] ],%t)) { write hawkee $3-4 $+($chr(2),Title:,$chr(2)) $regml(1) } if ($regex([ [ $1 ] ],/-bottom: 6px;">(.*) on *:sockclose:hawkeesnippet_*:{ .msg %HawkeeC [14TiTLE] $+(7,%Hawkee_Title,) $+($iif(%Hawkee_Score,$+(15,$chr(40),,$v1)),$iif(%Hawkee_Likes,$+($chr(32),14-4#14-) $v1 $+(3like,$iif($v1 > 1,s),15,$chr(41),))) 14Added: $iif(%Hawkee_DateA != %Hawkee_DateU,$v1 5Updated: $v2,$v1) $iif(%Hawkee_Devl,14by: $v1) | unset %Hawkee* } on *:sockopen:hawkeesnippet_*:{ if ($sockerr) { $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. | return } tokenize 32 $sock($sockname).mark var %hawkee = sockwrite -nt $sockname %hawkee GET $2 HTTP/1.0 %hawkee Host: $+($sock($sockname).addr,$str($crlf,2)) %hawkee Connection: close } on $*:text:/(http\072\/\/)?w{3}\.hawkee\.com(\/s(nippet|cripts).*\/)/:#:{ if (!%Hawkee) { set -u30 %HawkeeC # var %hawkeee = $+(hawkeesnippet_script,$site,$str($ticks,3)) var %hawkeeinfo = $remove($+($regml(1),$regml(2)),http://) sockopen %hawkeee www.hawkee.com 80 sockmark %hawkeee $!bvar(&hawkee,1-).text %hawkeeinfo .msg # } } on *:sockread:hawkeesnippet_*:{ tokenize 32 $sock($sockname).mark | sockread &hawkee if ($sockerr) { $3-4 $sock($sockname).addr is having a technical difficulty. Try again later. | return } ;******************************************************************************************************** var %d = /(?s)(Description)</h1>(\s*\K.+?(?=\s*).*)/ var %t = /<title>(.*)-/, %l = /<b>(\d+)<\/b>( like\(s\))<\/span>/ var %s = /px"><b>(.*)<\/b>.*(\(.*\))<\/span>/, %a = /(.*)</b></td>/ var %lu = /(?s)Last Updated&nbsp;<\/td>(\s*\K.+?(?=\s*).*)/ ;******************************************************************************************************** if ($regex([ [ $1 ] ],%t)) { set %Hawkee_Title $regml(1) } if ($regex([ [ $1 ] ],/-bottom: 6px;">(.*)</div>/)) { set %Hawkee_Devl $regml(1) } if ($regex([ [ $1 ] ],%l)) { set %Hawkee_Likes $regml(1) } if ($regex([ [ $1 ] ],%s)) { set %Hawkee_Score $+($regml(1),14/10) } if (date added isin [ [ $1 ] ]) && ($regex($v2,%a)) { set %Hawkee_DateA $token($regml(1),-1,62) } if ($regex([ [ $1 ] ],%lu)) { set %Hawkee_DateU $token($token($regml(1),3,62),1,60) } if ($regex([ [ $1 ] ],/6px;"><b>(\S+ \d+, \d{4})/)) { set %Hawkee_DateA $regml(1) } if ($regex([ [ $1 ] ],/center;">(\S+ \d+, \d{4})/)) { set %Hawkee_DateU $regml(1) } ;******************************************************************************************************** }
  6. This is a forum request made by maria who wishes to have the latest comment checked via reddit.com. The script will then send the info to a channel with its title, short link and by whom. I thought I'd make this a snippet submission to benefit those who find it useful or usable. Usage: right-click on your channel or nick list to toggle "Reddit On" and "Reddit Off" to get started. Edit: I've updated the script to include the latest post as requested by maria previously. alias -l reddit { var %i = 1, %socks = reddit reddit2 while ($gettok(%socks,%i,32)) { var %v1 = $v1 if ($sock(%v1)) sockclose $v1 sockopen %v1 www.reddit.com 80 sockmark %v1 msg $1 inc %i } } alias -l trans { return $replace($1,&lt;,<,&gt;,>,&quot;,",&nbsp;,$chr(160),&amp;,&,&amp;#39;,') } on *:sockclose:reddit*:{ if ($sock($sockname).name == reddit) { if ($hget(data2)) && ($hget(data3)) && ($hget(data4)) { $sock($sockname).mark $+($chr(2),Latest Comment:,$chr(2)) $& [ [ $remove($+($hget(data2,1).item,$chr(32),$hget(data2,1).data),r/) ] ] $sock($sockname).mark $+($chr(2),Latest Post:,$chr(2)) $& $+($hget(data3,1).item,$chr(32),$hget(data3,1).data) - $& $hget(data4,1).item by $hget(data5,1).item hfree -w data* } } else { if ($sock(reddit2)) sockclose $v1 sockopen reddit2 www.reddit.com 80 sockmark reddit2 msg $1 } } menu channel,nicklist { Reddit .ON { if (!%reddits) { set -e %reddits $$?"Which Reddit to Watch?" set -e %reddittime $$?"How often do you want the latest post checked $& and sent to the channel in seconds?" $+(.timer,#,$network) 0 %reddittime reddit # echo 2 # * Reddit Set for: $+($chr(2),%reddits) echo 2 # * Time Interval in Seconds: $+($chr(2),%reddittime) if (%true) unset $v1 } else echo 4 # * Reddit is Already Switched On! } .OFF { if (%reddits) { $+(.timer,#,$network) off echo 2 * Reddit Has Been Turned Off! unset %reddit* %true } else echo 4 # * Reddit is Already Switched Off! } } on *:sockopen:reddit*:{ if ($sockerr) { echo 4 $gettok($sock(reddit).mark,2,32) Error Connecting to $sock(reddit).addr sockclose reddit } if ($sock($sockname).name == reddit) { var %reddit = sockwrite -nt reddit %reddit GET $+(/r/,%reddits,/comments?limit=1) HTTP/1.0 %reddit Connection: close %reddit Host: $+($sock(reddit).addr,$str($crlf,2)) } else { var %reddit2 = sockwrite -nt reddit2 %reddit2 GET $+(/r/,%reddits,/new.json?sort=new) HTTP/1.0 %reddit2 Connection: close %reddit2 Host: $+($sock(reddit).addr,$str($crlf,2)) } } on *:sockread:reddit*:{ if ($sockerr) { echo 4 $gettok($sock(reddit).mark,2,32) Error Reading $sock(reddit).addr sockclose reddit } if ($sock($sockname).name == reddit) { sockread &reddit var %g = $regsubex($bvar(&reddit,1-).text,/\/r\/|&#\d+;/g,) if ($regex(%g,/<\/div><\/form><ul class="flat-list buttons">(.*)/)) { hadd -m data $+($sock(reddit).addr,/tb/,$gettok($iif($regex($regml(1),$& /\/comments\/(\S+)\//),$trans($regml(1))),1,47)) } if ($regex(%g,/class="title" rel="nofollow" >(.*)class="author/)) { hadd -m data2 $gettok($trans($regml(1)),1,60) - $& $!+($chr(3),12,$hget(data,1).item,$chr(3)) by $+($chr(3),05,$& $iif($regex($regml(1),/\/user\/(\S+)"/),$regml(1))) } } else { sockread &reddit2 var %g2 = $bvar(&reddit2,1-).text if ($regex(%g2,/"title"\: "(.*)"/)) { hadd -m data3 $gettok($trans($regml(1)),1,34) } if ($regex(%g2,/"id"\: "(.*)"/)) { hadd -m data4 $+($chr(3),12,$gettok($+(http://redd.it/,$& $trans($regml(1))),1,34),$chr(3)) sockclose $sockname } if ($regex(%g2,/"author"\: "(.*)"/)) { hadd -m data5 $+($chr(3),05,$gettok($regml(1),1,34)) } } } on me:*:join:#:{ if (%true) notice $me Reddit has been toggled off. Right-click on $& the nicklist or channel to toggle it on. | unset %true } on *:disconnect: if (%reddits) $+(.timer,#,$network) off | set -e %true 1 on me:*:part:#: if (%reddits) $+(.timer,#,$network) off | set -e %true 1 on *:kick:#:{ if ($knick == $me) && (%reddits) $+(.timer,#,$network) off set -e %true 1 } on *:quit:{ if ($nick == $me) && (%reddits) { var %c = 1 while ($comchan($me,%c)) { $+(.timer,$v1,$network) off set -e %true 1 inc %c } } }
  7. This work below is yet another forum request that I've decided to submit as a part of my snippet collection. For those who find this snippet useful, It's for the bot client, and the trigger is either !facts, @facts, .facts or !jokes, @jokes, .jokes. on $*:text:/^[!@.](fact|joke)s$/iS:#:{ if (!%f) { inc -u3 %f var %s = $+(rjf,$str($ticks,2),$site) if ($sock(%s)) sockclose $v1 sockopen %s www.randomfunfacts.com 80 sockmark %s .msg # $regml(1) } } on *:sockclose:rjf*:{ tokenize 32 $sock($sockname).mark var %s = $+(rjf,$str($ticks,2),$site) if ($sock(%s)) sockclose $v1 sockopen %s www.jokesclean.com 80 sockmark %s $1-2 } on *:sockopen:rjf*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $1-2 Error: Connection Issue... sockclose $sockname } else { if ($3 == fact) { var %rjf = sockwrite -nt $sockname %rjf GET / HTTP/1.1 %rjf Connection: close %rjf Host: $+($sock($sockname).addr,$str($crlf,2)) } else { var %rjf = sockwrite -nt $sockname %rjf GET /OneLiner/Random/ HTTP/1.0 %rjf Host: $+($sock($sockname).addr,$str($crlf,2)) } } } on *:sockread:rjf*:{ tokenize 32 $sock($sockname).mark if ($sockerr) { $1-2 Error: Issues in Reading... sockclose $sockname halt } goto $iif($3 == fact,fact,joke) :fact sockread &rjf var %info = $regsubex($bvar(&rjf,1-).text,/<[^>]*>|\t$& $+ RLOpenInNewWindow|"1";|var RLRepeatKeywords/g,$chr(32)) if ($gettok($replace(%info,&nbsp;,$chr(94)),2,94)) { $1-2 $remove($gettok($v1,11-,32),24c6) sockclose $sockname | halt :joke var %jokes sockread %jokes if ($regex(%jokes,/(.*)<\/font><\/p>/)) { $sock($sockname).mark $replace($gettok($regml(1),3-,62),&nbsp;,$chr(32)) sockclose $sockname } halt } }
  8. Version 1.7.0

    1 download

    Basically its like a table top RPG for mIRC. It also has a feature so that you can download addons (addons still in production as of 7/03/2010) to customize your RPGenerator to suit the needs of your RPG character. Right now its current motive is to promote my RPG DarkCastle RPG ( http://darkcastle.darkbb.com ) and to bring a new level of RPG to IRC. Please enjoy. Addons will be available soon! Also PLEASE read the ReadMe file! It contains loading instructions that MUST be followed for proper installation of the RPGenerator. Also, requires two players! If you'd like to play me I can be found in my RPG (link above.) NOTE: Please do not hack, edit, or mod this game. If you mod it I will remove it.
  9. MASS JOIN KICKER II Stomps out large amounts of clones/spam bots from entering your channel. Triggered at 7 joins in 5 seconds, it automatically locks down the channel and kicks out all the clones/spam bots that come in. Just copy and paste to your remotes After loading if it asks to run initialization commands, click "Yes". Then right click and go down to MASS JOIN KICKER II and it can be toggled on and off. ;MASS JOIN KICKER II ;By Neo Nemesis ;Contributors: Jethro_ ;Thanks to: Hawkee Forums on *:START: { massjoin } on *:LOAD: { massjoin } on *:CONNECT: { massjoin } alias -l massjoin { if ($hget(massjoin) == $null) { hmake massjoin 750 } } alias -l abmj { echo -a 12,1*!14 MASS JOIN KICKER II 12!* echo -a 12,1*!14 By Neo Nemesis 12!* echo -a 12,1*!14 http://mirc-deluxe.webs.com 12!* } on @*:JOIN:#: { if (%massjoin == $true) { set -u15 %mj1 $addtok(%mj1,$nick,44) hinc -mu5 massjoin JOIN 1 if ($hget(massjoin,JOIN) >= 7) { if (%modechan != $true) { mode $chan +im set -u15 %modechan $true set -u15 %mj2 1 notice $chan 12*! 4MASS JOIN DETECTED12 !* 2- 12channel locked down for4 5-7 minuets.12 Sorry for any inconvenience this may cause. .timermjs 1 300 mode $chan -im } while (%mj2 <= $numtok(%mj1,44)) { if ($gettok(%mj1,%mj2,44) ison $chan) && ($gettok(%mj1,%mj2,44) !isreg $chan) { if (%mj2 <= 8) { .timermj $+ %mj2 -m 1 $calc(780 * %mj2 kick $chan $gettok(%mj1,%mj2,44) 2MASS JOIN KICKER II - By Neo Nemesis } elseif (%mj2 > 8) { .timermj $+ %mj2 -m 1 $calc(897 * %mj2) kick $chan $gettok(%mj1,%mj2,44) 2MASS JOIN KICKER II - By Neo Nemesis } } inc %mj2 } } } } menu status,query,nicklist,channel { MASS JOIN KICKER II - $iif(%massjoin = $true,ON,OFF) .ON:/set %massjoin $true .OFF:/set %massjoin $false .About:/abmj }
  10. Using mIRC's raw numeric events, this script modifies the information that is shown when you do /whois or /whowas. Shows more info on the user. DeluXe Whois II - By Neo Nemesis ;whois script raw 311:*: { echo -a $+ $color(whois) $+ - | echo -a 12*!*14 DeluXe Whois II 12*!*4 ( $+ $2 $+ )12 *!* | echo -a 4Hostmask: $+ $color(whois) *!*@ $+ $4 $+ | echo -a 4E-mail: $+ $color(whois) $3 $+ | echo -a 4Fullname: $+ $color(whois) $6- $+ | halt } raw 307:*: { echo -a 4Registered: $+ $color(whois) $4- $+ | halt } raw 319:*: { echo -a 4Channels: $+ $color(whois) $3- $+ | halt } raw 312:*: { if (%whowas != $true) { echo -a 4Server: $+ $color(whois) $3 $+ | echo -a 4IRCd: $+ $color(whois) $4- $+ | halt } | elseif (%whowas == $true) { echo -a 4Server: $+ $color(whois) $3 | echo -a 4Date: $+ $color(whois) $4- | unset %whowas | halt } } raw 317:*: { echo -a 4Idle time: $+ $color(whois) $duration($3) $+ | echo -a 4Sign on: $+ $color(whois) $asctime($4) $+ | halt } raw 313:*: { echo -a 4IRCop: $+ $color(whois) $5- $+ | halt } raw 310:*: { echo -a 4Helpful: $+ $color(info) $3- $+ | halt } raw 309:*: { echo -a 4Language: $+ $color(info) $3- $+ | halt } raw 325:*: { echo -a 4Language Filter: $+ $color(info) $3- $+ | halt } raw 301:*: { echo -a 4Away: $+ $color(info) $3- $+ | halt } raw 318:*: { echo -a 12*!*14 End of /whois 12*!* | echo -a $+ $color(whois) $+ - | halt } raw 314:*: { %whowas = $true | echo -a $+ $color(whois) $+ - | echo -a 12*!*14 DeluXe Whowas 12*!*4 ( $+ $2 $+ )12 *!* | echo -a 4Hostkmask: $+ $color(whois) *!*@* $+ $4 $+ | echo -a 4E-mail: $+ $color(whois) $3 $+ | echo -a 4Fullname: $+ $color(whois) $6- | halt } raw 406:*: { echo -a $+ $color(whois) $+ - | echo -a 12*!*14 $2 there was no such nickname. 12*!* | halt } raw 369:*: { echo -a 12*!*14 End of /whowas 12*!* | echo -a $+ $color(whois) $+ - | halt } raw 344:*: { echo -a 4SSL: $+ $color(whois) $4- $+ | halt } raw 334:*: { if (interests isin $1-) { echo -a 4Interests: $+ $color(whois) $4- $+ } | elseif (location isin $1-) { echo -a 4Location: $+ $color(whois) $4- $+ } | elseif (occupation isin $1-) { echo -a 4Occupation: $+ $color(whois) $4- $+ } | halt } raw 379:*: { echo -a 4User Modes: $+ $color(whois) $6- | halt } raw 671:*: { echo -a 4Secure Connection: $+ $color(whois) $3- | halt } raw 320:*: { echo -a 4Info: $+ $color(whois) $3- | halt } raw 338:*: { echo -a 4IP: $+ $color(whois) $3- | halt } raw 340:*: { echo -a 4IP: $+ $color(whois) $2- | halt }
  11. Updated to version 1.81, fixed the bugs from 1.76 DeluXe MP3 1.81 is a nice MP3 player for your mIRC. It works nicely and doesn't require you moving any MP3 files into a certain directory, and can play mp3 files that are stored anywhere on your computer! It can play only .mp3 format sound files. Has a customizable colour pop-up (for music info) As well as a built in volume control and iconic buttons. It also has a nice "size efficient" look and fits nicely right at the top of your screen, under the toolbar or wherever you want to put it! Much more better than its built-into-the-custom-toolbar counter-part version 1.5 which will be featured in mIRC-DeluXe 1.5.5 (Hopefully to be released soon). Made by request for Shizuma ❤️ Available to everyone, try it out let me know what you think. PLEASE READ THE README!!! FILE LOCATED IN THE ZIP FILE IT CONTAINS SPECIAL LOADING INSTRUCTIONS THAT MUST BE FOLLOWED IN ORDER FOR THE SCRIPT INITIATE PROPERLY. WORKS THE BEST IN C:\mIRC\ Works best on mIRC 6.35 and Windows XP. As for Windows Vista and Windows 7 I am unsure how they will work. Version 1.76 had compatibility problems with Windows Vista for some reason, hopefully those problems were eliminated in 1.81 DeluXeMP3181.zip
  12. ntended for a channel bot. Just copy and paste into remotes. mIRC 6.35+ Gives information on youtube links when posted in the channel, and can now also do YOUTBUE SEARCHES! Triggered when YouTube link is posted in chat.... YouTube Link Info: [15:42] <@Neo-Nemesis> http://www.youtube.com/watch?v=rwY3Ftfdy6M [15:42] <@Boris_III> YouTube Title: Iron Maiden - Killers [15:42] <@Boris_III> YouTube Info: Iron Maiden - Killers Members: Paul Di'Anno - vocals Steve Harris - bass guitar Dave Murray - guitar Adrian Smith - guitar Clive Burr - drums Iron Maiden's o... Triggered when user types !youtube YouTube Search: [15:43] <@Neo-Nemesis> !youtube Iron Maiden [15:43] <@Boris_III> YouTube Search - About 105,000 results - http://www.youtube.com/results?search_query=Iron+Maiden&aq=f [15:43] <@Boris_III> YouTube Official YouTube Channel Link http://www.youtube.com/user/ironmaiden?blend=1 [15:43] <@Boris_III> YouTube Iron Maiden Wasted Years Link: http://www.youtube.com/watch?v=SwB9zg7Tbx8 [15:43] <@Boris_III> YouTube Iron Maiden, ACDC and Guns N Roses 4 LIFE Link http://www.youtube.com/user/benoitiginla12?blend=3 [15:43] <@Boris_III> YouTube aces high Link: http://www.youtube.com/watch?v=4Sam5omG0v0 ;YouTube Info 2.0 ;By Neo Nemesis on *:TEXT:*youtube*:#: { if ($1 == !youtube) { %c.ytb = $chan YouTube search $2- } else { %c.ytb = $chan YouTube $1 } } alias s.YTB.Parse { if (&amp; isin $remove($gettok($1-,2,32),href=",$chr(34))) { return $replace($remove($gettok($remove($1-,<h3>,<b>,</b>,</h3>),2,62),</a),&quot;,$chr(34),&#39;,$chr(39),&amp;,$chr(38)) 4Link15 http://www.youtube.com $+ $gettok($remove($gettok($1-,2,32),href=",$chr(34)),1,38) } else { return $replace($remove($gettok($remove($1-,<h3>,<b>,</b>,</h3>),2,62),</a),&quot;,$chr(34),&#39;,$chr(39),&amp;,$chr(38)) 4Link:15 http://www.youtube.com $+ $remove($gettok($1-,2,32),href=",$chr(34)) } } alias YouTube { if ($1 == search) { ;search unset %ysrc* sockclose s.ytb %ysrch = /results?search_query= $+ $replace($2-,$chr(32),$chr(43)) $+ &aq=f sockopen s.ytb www.youtube.com 80 } else { unset %ytb* sockclose ytb %ytb1 = $remove($1,http://,www.,youtube,.com) sockopen ytb www.youtube.com 80 } } on *:SOCKOPEN:s.ytb: { sockwrite -n $sockname GET %ysrch HTTP/1.1 sockwrite -n $sockname Host: www.youtube.com sockwrite -n $sockname Connection: Close sockwrite -n $sockname Content-Type: text/html sockwrite -n $sockname $crlf } on *:SOCKREAD:s.ytb: { sockread %ysrc.1 if (About <strong> isin %ysrc.1) { .timerYTB6 1 1 msg %c.ytb 1,0You0,4Tube15,1 Search - $remove(%ysrc.1,<strong>,</strong>) - http://www.youtube.com $+ %ysrch %ysrc.3 = $true } if (dir="ltr" title=" isin %ysrc.1) && (%ysrc.3 == $true) { if (%ysrc.2) { inc %ysrc.2 } else { %ysrc.2 = 1 } if (%ysrc.2 <= 4) { .timerYTBb $+ %ysrc.2 1 $calc(%ysrc.2 + $rand(1,2)) msg %c.ytb 1,0You0,4Tube15,1 $s.YTB.Parse(%ysrc.1) } else { sockclose s.ytb } } } on *:SOCKOPEN:ytb: { sockwrite -n $sockname GET %ytb1 HTTP/1.1 sockwrite -n $sockname Host: www.youtube.com sockwrite -n $sockname Connection: Close sockwrite -n $sockname Content-Type: text/html sockwrite -n $sockname $crlf } on *:SOCKREAD:ytb: { sockread %ytb2 if (<meta name=" isin %ytb2) { if (="title" content=" isin %ytb2) { %ytb.title = $remove(%ytb2,<meta name="title" content=",">) .timerYTB1 1 1 msg %c.ytb 1,0You0,4Tube15,1 Title: $replace(%ytb.title,&#39;,$chr(39),&quot;,$chr(34),&amp;,$chr(38)) $+ } if (="description" content=" isin %ytb2) { %ytb.desc = $remove(%ytb2,<meta name="description" content=",">) .timerYTB2 1 2 msg %c.ytb 1,0You0,4Tube15,1 Info: $replace(%ytb.desc,&#39;,$chr(39),&quot;,$chr(34),&amp;,$chr(38)) $+ } if (%ytb.title) && (%ytb.desc) { sockclose ytb } } }
  13. Simple LAZOR script. Variation of the FIRIN' MAH LAZOR snippet. Contributors: Maximus Commands /minilazor Examples: /minilazor This fires the mini lazor at the active window. /minilazor napa182 This fires the mini lazor at napa182 /minilazor #channel This fires the mini lazor at #channel Paste in remotes or in aliases file. If your going to paste in the aliases file, remove the "alias" infront of MiniLazor in the code snippet below. alias MiniLazor { if ($1 == $null) && ($active != status window) { %minilazor = $active } elseif ($1 != $null) { %minilazor = $1 } .timermlzr -m 10 1000 msg %minilazor 7,4./¯/_____________________________\ .timermlzr1 -m 10 1050 msg %minilazor 7,4| 4,7D7,4R4,7. 7,4O4,7C7,4T4,7O7,4G4,7O7,4N4,7A7,4P4,7U7,4S4,7! 7,4B7,4L4,7A7,4R4,7R7,4R4,7R7,4G4,7G7,4G7,4H4,7H7,4!4,4***7,4| .timermlzr2 -m 10 1075 msg %minilazor 7,4.\_\¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯/
  14. Version 1.6.0

    3 downloads

    This is a nice mIRC with many features. Emoticons, Media player, favorite channels manager, notify list manager, query blocker (gate keeper), YouTube support, channel protections, flood protections, custom toolbar/menubar, OP Control Panel, Troll Smasher, Color Cut Script, CD Tray opener and more! mIRC DeluXe has a extensive online help center, and can be accessed with the /dxhelp command. THIS SCRIPT REQUIRES: mIRC v6.35+ Windows XP+ and DirectX 9.0+ without ALL THREE of these items the program will not work. PLEASE READ THE "READ ME 1ST!!!.txt FILE CONTAINED IN THE .rar FILE IT CONTAINS IMPORTANT INSTALLATION INSTRUCTIONS THAT MUST BE FOLLOWED. 1.6.00 Changes: First public release! 3 different editions will shortly be available. Final Fantasy Edition (Special Edition), Professional Killer Edition (Special Edition), DeluXe Lite 1.6 (normal edition). Visit website for more info on editions. Fixed a few more bugs, recoded new Troll Smasher II, recoded black list, added SpamGuard 1.0 (non-lite versions only) added Google Search (non-lite versions only), added new online help center. New graphics! Also added a check for updates feature, that will check for patches or new versions of mIRC DeluXe! 1.5.84 Changes: Fixed the last of the quirks in the favorite channels auto-join (hopefuly), small media player bug fixes, another emoticon bug fix (from error in 1.5.83). And squashed a couple quirks here and there. 1.5.83 Changes: Fixed many media player bugs now DeluXe Media Player 1.05 beta. Fixed menubar bug when selecting mIRC options. Turned on show mode prefix. Fixed YouTube scanner bug. Fixed server notice event. Fixed a few typos. Recoded away system and changed it to DCX.dll instead of MDX.dll. Modified IAL Checker. Recoded Favorite Channels list with DCX instead of MDX. Fixed a feq quirks here and there. 1.5.82 Changes: Fixed emoticon bug, Fixed right click on nick list bug, fixed server list bug in options menu, added YouTube scanner, added multiple file uploader to the Media player, recoded whois script, updated help file, fixed YouTube and Join "nothing on enter" bug, added /j command, fixed (hopefuly) server notice bug, fixed favorite channel auto join bug added CD Tray opener 1.5.81 Changes: Fixed user interface auto-rename bug added enable feature to user interface, set away dialog on desktop, added DNS to active window, added emoticons, fixed OPCP bugs, fixed ¯°º·º°¯ DeluXe Lite ¯°º·º°¯ fullname bug, modified nick list colors, updated help file. 1.5.8 Changes: Fixed Troll Smasher colors bug, fixed user interface auto identify bug. 1.5.7 Changes: Made it "lite" removed RPGenerator added Troll Smasher, fix a few small bugs and removed need for loading screen on start up.
  15. A nice protection script, has channel protections from Deop, Ban, Kick and also has flood protections. ;Protection Script Z31 ;Made for mIRC Script Z31 ;By Neo Nemesis ;Version 1.1 on *:LOAD: { writeini z31.ini main protect on,on,on,on,on,on,2,5,on echo -a $+ $color(info) $+ * Protection Script Z31 Loaded successfuly! Use /protection for the options menu! } menu channel,nicklist,query,status { Protection Script Z31:/protection } alias protection { if (!$1) { dialog -m protect protect } if ($1 == op) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,1,44) } elseif (!$2) { return $gettok($protect.file,1,44) } } if ($1 == kick) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,2,44) } elseif (!$2) { return $gettok($protect.file,2,44) } } if ($1 == ban) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,3,44) } elseif (!$2) { return $gettok($protect.file,3,44) } } if ($1 == massjoin) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,4,44) } elseif (!$2) { return $gettok($protect.file,4,44) } } if ($1 == flood) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,5,44) } elseif (!$2) { return $gettok($protect.file,5,44) } } if ($1 == iflood) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,6,44) } elseif (!$2) { return $gettok($protect.file,6,44) } } if ($1 == timer) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,7,44) } elseif (!$2) { return $gettok($protect.file,7,44) } } if ($1 == num) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,8,44) } elseif (!$2) { return $gettok($protect.file,8,44) } } if ($1 == pmflood) { if ($2) { writeini z31.ini Main Protect $puttok($protect.file,$2,9,44) } elseif (!$2) { return $gettok($protect.file,9,44) } } } alias protect.file { return $readini(z31.ini,Main,Protect) } alias z31.file { return $readini(z31.ini,$1,$2) } alias exempt { if ($1 == chan) { if (!$2) { return $z31.file(exempt,01) } if ($2 == add) { writeini z31.ini exempt 01 $addtok($z31.file(exempt,01),$3,44) } if ($2 == del) { if ($z31.file(exempt,01) == $3) { remini z31.ini exempt 01 } elseif ($z31.file(exempt,01) != $3) { writeini z31.ini exempt 01 $remtok($z31.file(exempt,01),$3,1,44) } } elseif ($2) { if ($z31.file(exempt,01)) { %Z31.1 = 1 while (%Z31.1 <= $numtok($z31.file(exempt,01),44)) { if ($gettok($z31.file(exempt,01),%Z31.1,44) == $2) { return $true } else { inc %Z31.1 } } } return $false } } if ($1 == user) { if (!$2) { return $z31.file(exempt,02) } if ($2 == add) { writeini z31.ini exempt 02 $addtok($z31.file(exempt,02),$3,44) } if ($2 == del) { if ($z31.file(exempt,02) == $3) { remini z31.ini exempt 02 } elseif ($z31.file(exempt,02) != $3) { writeini z31.ini exempt 02 $remtok($z31.file(exempt,02),$3,1,44) } } elseif ($2) { if ($z31.file(exempt,02)) { %Z31.2 = 1 while (%Z31.2 <= $numtok($z31.file(exempt,02),44)) { if ($gettok($z31.file(exempt,02),%Z31.2,44) == $2) { return $true } else { inc %Z31.2 } } } return $false } } if ($1 == host) { if (!$2) { return $z31.file(exempt,03) } if ($2 == add) { writeini z31.ini exempt 03 $addtok($z31.file(exempt,03),$3,44) } if ($2 == del) { if ($z31.file(exempt,03) == $3) { remini z31.ini exempt 03 } elseif ($z31.file(exempt,03) != $3) { writeini z31.ini exempt 03 $remtok($z31.file(exempt,03),$3,1,44) } } elseif ($2) { if ($z31.file(exempt,03)) { %Z31.3 = 1 while (%Z31.3 <= $numtok($z31.file(exempt,03),44)) { if ($gettok($z31.file(exempt,03),%Z31.3,44) == $2) { return $true } else { inc %Z31.3 } } } return $false } } } dialog protect { size -1 -1 445 272 title Protection box "Protections"1, 5 5 140 205 check "DeOP Protection"2, 10 20 98 15 check "Kick Protection"3, 10 35 90 15 check "Ban Protection"4, 10 50 88 15 check "Mass Join Protection"5, 10 65 115 15 check "Flood Protection"6, 10 80 95 15 check "Invite Flood Protection"7, 10 95 128 15 text "Flood trigger:"8, 10 110 80 15 edit ""9, 20 125 40 23 text "Joins/Messages"10, 65 130 75 15 text "in"11, 23 150 15 15 edit ""12, 20 165 40 23 text "seconds."13, 65 170 50 15 check "PM Flood Protection"28, 10 190 113 15 box "Exceptions"14, 150 5 293 265 tab "Channels"15, 155 20 280 245 tab "Users"16 tab "Hostmasks"17 ;tab 15 list 18, 160 45 270 200,vsbar,tab 15 button "Add"19, 160 235 80 23,tab 15 button "Remove"20, 245 235 80 23,tab 15 ;tab 16 list 21, 160 45 270 200,vsbar,tab 16 button "Add"22, 160 235 80 23,tab 16 button "Remove"23, 245 235 80 23,tab 16 ;tab 17 list 24, 160 45 270 200,vsbar,tab 17 button "Add"25, 160 235 80 23,tab 17 button "Remove"26, 245 235 80 23,tab 17 button "Close"27, 35 225 80 23,ok } on *:DIALOG:protect:init:*: { if ($protection(op) == on) { did -c protect 2 } if ($protection(kick) == on) { did -c protect 3 } if ($protection(ban) == on) { did -c protect 4 } if ($protection(massjoin) == on) { did -c protect 5 } if ($protection(flood) == on) { did -c protect 6 } if ($protection(iflood) == on) { did -c protect 7 } did -a protect 9 $protection(num) did -a protect 12 $protection(timer) if ($exempt(chan)) { %Z31.4 = 1 while (%Z31.4 <= $numtok($exempt(chan),44)) { did -a protect 18 $gettok($exempt(chan),%Z31.4,44) inc %Z31.4 } } if ($exempt(user)) { %Z31.5 = 1 while (%Z31.5 <= $numtok($exempt(user),44)) { did -a protect 21 $gettok($exempt(user),%Z31.5,44) inc %Z31.5 } } if ($exempt(host)) { %Z31.6 = 1 while (%Z31.6 <= $numtok($exempt(host),44)) { did -a protect 24 $gettok($exempt(host),%Z31.6,44) inc %Z31.6 } } if ($protection(pmflood) == on) { did -c protect 28 } unset %Z31.* } on *:DIALOG:protect:sclick:*: { if ($did == 2) { if ($did(2).state == 1) { protection op on } else { protection op off } } if ($did == 3) { if ($did(3).state == 1) { protection kick on } else { protection kick off } } if ($did == 4) { if ($did(4).state == 1) { protection ban on } else { protection ban off } } if ($did == 5) { if ($did(5).state == 1) { protection massjoin on } else { protection massjoin off } } if ($did == 6) { if ($did(6).state == 1) { protection flood on } else { protection flood off } } if ($did == 7) { if ($did(7).state == 1) { protection iflood on } else { protection iflood off } } if ($did == 19) { %z31.7 = $input(Please enter the channel you wish to add to the exception list.,oe,Protection) if ($chr(35) !isin %z31.7) { %z31.dump = $input(You must enter the # symbol before the channel name.,oh,Protection) } elseif ($chr(35) isin %z31.7) { exempt chan add %z31.7 did -a protect 18 %z31.7 } } if ($did == 20) { if (!$did(18).sel) { %z31.dump = $input(Please select the channel you wish to remove from the exception list first.,oh,Protection) } elseif ($did(18).sel) { %z31.dump = $input(Are you sure you want to remove $did(18).seltext from the exception list?,yw,Protection) if (%z31.dump == $true) { exempt chan del $did(18).seltext did -r protect 18 if ($exempt(chan)) { %Z31.4 = 1 while (%Z31.4 <= $numtok($exempt(chan),44)) { did -a protect 18 $gettok($exempt(chan),%Z31.4,44) inc %Z31.4 } } } } } if ($did == 22) { %z31.8 = $input(Please enter the user name you wish to add to the exception list.,oe,Protection) if (%z31.8 != $false) && (%z31.8 != $null) { exempt user add %z31.8 did -a protect 21 %z31.8 } } if ($did == 23) { if (!$did(21).sel) { %z31.dump = $input(Please select the user name you wish to remove from the exception list first.,oh,Protection) } elseif ($did(21).sel) { %z31.dump = $input(Are you sure you want to remove $did(21).seltext from the exception list?,yw,Protection) if (%z31.dump == $true) { exempt user del $did(21).seltext did -r protect 21 if ($exempt(user)) { %Z31.5 = 1 while (%Z31.5 <= $numtok($exempt(user),44)) { did -a protect 21 $gettok($exempt(user),%Z31.5,44) inc %Z31.5 } } } } } if ($did == 25) { %z31.9 = $input(Please enter the hostmask you wish to add to the exception list. NOTE: It must be a valid hostmask!,oe,Protection) if ($chr(46) !isin %z31.9) || ($chr(64) !isin %z31.9) || ($chr(33) !isin %z31.9) { %z31.dump = $input(%z31.9 is not a valid host mask.,oh,Protection) } elseif ($chr(46) isin %z31.9) && ($chr(64) isin %z31.9) && ($chr(33) isin %z31.9) { exempt host add %z31.9 did -a protect 24 %z31.9 } } if ($did == 26) { if (!$did(24).sel) { %z31.dump = $input(Please select the hostmask you wish to remove from the exception list first.,oh,Protection) } elseif ($did(24).sel) { %z31.dump = $input(Are you sure you want to remove $did(24).seltext from the exception list?,yw,Protection) if (%z31.dump == $true) { exempt host del $did(24).seltext did -r protect 24 if ($exempt(host)) { %Z31.6 = 1 while (%Z31.6 <= $numtok($exempt(host),44)) { did -a protect 24 $gettok($exempt(user),%Z31.6,44) inc %Z31.6 } } } } } if ($did == 28) { if ($did(28).state == 1) { protection pmflood on } else { protection pmflood off } } :end unset %z31.* } on *:DIALOG:protect:edit:9: { if ($did(9).text) { protection num $did(9).text } } on *:DIALOG:protect:edit:12: { if ($did(12).text) { protection timer $did(12).text } } alias IsExempt { if ($1) { if ($exempt(chan,$1) == $true) { return $true } if ($exempt(user,$1) == $true) { return $true } if ($exempt(host,$address($1,0)) == $true) { return $true } if ($exempt(host,$address($1,1)) == $true) { return $true } if ($exempt(host,$address($1,2)) == $true) { return $true } if ($exempt(host,$address($1,3)) == $true) { return $true } if ($exempt(host,$address($1,4)) == $true) { return $true } if ($exempt(host,$address($1,5)) == $true) { return $true } if ($exempt(host,$address($1,6)) == $true) { return $true } if ($exempt(host,$address($1,7)) == $true) { return $true } if ($exempt(host,$address($1,8)) == $true) { return $true } if ($exempt(host,$address($1,9)) == $true) { return $true } else { return $false } } } on *:DEOP:#: { if ($protection(op) == on) { if ($nick == $me) || ($nick == ChanServ) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } if ($opnick == $me) { %z31-op = $true %z31-chan = $chan %z31-nick = $nick .timerZ31.1 1 1 chanserv op $chan $me } } :end } on *:OP:%z31-chan: { if (%z31-op == $true) || (%z31-kick == $true) || (%z31-ban == $true) { if (%z31-nick ison $chan) { mode $chan -ob %z31-nick %z31-banmask .timerZ31.3 -m 1 1500 kick $chan %z31-nick Kicked by $me 4(OP Abuse) } } unset %z31-* } on @*:KICK:#: { if ($protection(kick) == on) { if ($nick == $me) || ($nick == ChanServ) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } if ($knick == $me) { %z31-kick = $true %z31-chan = $chan %z31-nick = $nick .timerZ31.4 1 1 join %z31-chan } } :end } alias IsBanned { if ($me isin $1) { return $true } if ($address($me,0) == $1) { return $true } if ($address($me,1) == $1) { return $true } if ($address($me,2) == $1) { return $true } if ($address($me,3) == $1) { return $true } if ($address($me,4) == $1) { return $true } if ($address($me,5) == $1) { return $true } if ($address($me,6) == $1) { return $true } if ($address($me,7) == $1) { return $true } if ($address($me,8) == $1) { return $true } if ($address($me,9) == $1) { return $true } if ($gettok($host,4,46) isin $1) { return $true } else { return $false } } on @*:BAN:#: { if ($protection(ban) == on) { if ($nick == $me) || ($nick == ChanServ) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } if ($IsBanned($banmask) == $true) { set -u8 %z31-ban $true set -u8 %z31-banmask $banmask set -u8 %z31-chan $chan set -u8 %z31-nick $nick .timerZ31.6 1 1 mode $chan -bo $banmask $nick .timerZ31.7 1 2 kick $chan $nick Kicked by $me 4(OP Abuse) } } :end } raw *:*: { if (%z31-kick == $true) { if ($numeric == 471) || ($numeric == 473) || ($numeric == 474) || ($numeric == 475) { .timerZ31.5 1 1 chanserv invite %z31-chan halt } } } on ^*:NOTICE:*:*: { if (%z31-op == $true) || (%z31-kick == $true) || (%z31-ban == $true) && ($nick == ChanServ) { %chanserv = $strip($1-) if (access denied isin %chanserv) || (permission denied isin %chanserv) || (You do not have access isin %chanserv) { echo -a $+ $color(info) $+ * ChanServ could not complete the operation on %z31-chan $+ . (Access Denied) unset %z31-* } if (not registered isin %chanserv) { echo -a $+ $color(info) $+ * ChanServ could not complete the operation on %z31-chan $+ . (Channel not registered) unset %z31-* } unset %chanserv halt } } on @*:JOIN:#: { if ($protection(massjoin) == on) { if ($IsExempt($chan) == $true) || ($nick isreg $chan) { goto end } inc % [ $+ [ $chan ] ] %clones. [ $+ [ $chan ] ] = $addtok(%clones. [ $+ [ $chan ] ],$nick,44) .timerJOINS1 1 $protection(timer) unset % [ $+ [ $chan ] ] .timerJOINS2 1 $protection(timer) unset %clones. [ $+ [ $chan ] ] if (% [ $+ [ $chan ] ] >= $protection(num)) { mode $chan +dim .timerJOINS* off .timerMODE 1 300 mode $chan -dim clonek $chan } } :end } alias clonek { %kick = 1 while (%kick <= $numtok(%clones. [ $+ [ $1 ] ],44)) { if ($gettok(%clones. [ $+ [ $1 ] ],%kick,44) ison $1) { .timerCK $+ %kick -m 1 $calc(1300 * %kick + 660) kick $chan $gettok(%clones. [ $+ [ $1 ] ],%kick,44) Mass Join 4(Clone) } inc %kick } if (!$timerKICK*) { .timerKICK $+ $rand(1,999) 1 $calc($numtok(%clones. [ $+ [ $1 ] ],44) + 2) ck.us $1 } } alias ck.us { unset % [ $+ [ $1 ] ] unset %clones. [ $+ [ $1 ] ] unset %kick } on *:TEXT:*:#: { if ($protection(flood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { if ($me isop $chan) { .timer $+ $nick $+ 1 1 1 kick $chan $nick Slow down! 4(Flooding) } elseif ($me !isop $chan) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) $chan by $nick - Ignored for 3 minutes. } unset % [ $+ [ $nick ] ] } } :end } on *:NOTICE:*:#: { if ($protection(flood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { if ($me isop $chan) { .timer $+ $nick $+ 1 1 1 kick $chan $nick Slow down! 4(Flooding) } elseif ($me !isop $chan) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) $chan by $nick - Ignored for 3 minutes. } unset % [ $+ [ $nick ] ] } } :end } on *:ACTION:*:#: { if ($protection(flood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { if ($me isop $chan) { .timer $+ $nick $+ 1 1 1 kick $chan $nick Slow down! 4(Flooding) } elseif ($me !isop $chan) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) $chan by $nick - Ignored for 3 minutes. } unset % [ $+ [ $nick ] ] } } :end } on *:TEXT:*:?: { if ($protection(pmflood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) Private Message by $nick - Ignored for 3 minutes. close -m $nick unset % [ $+ [ $nick ] ] } } :end } on *:ACTION:*:?: { if ($protection(pmflood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) Private Message by $nick - Ignored for 3 minutes. close -m $nick unset % [ $+ [ $nick ] ] } } :end } on *:NOTICE:*:?: { if ($protection(flood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc % [ $+ [ $nick ] ] if (!$timer($nick)) { .timer $+ $nick 1 $protection(timer) unset % $+ $nick } if (% [ $+ [ $nick ] ] >= $protection(num)) { .ignore -u180 $nick $+ !*@* .echo -a $+ $color(info) $+ * 4Flooding Detected: $+ $color(info) Notice by $nick - Ignored for 3 minutes. close -m $nick unset % [ $+ [ $nick ] ] } } :end } on *:INVITE:#: { if ($protection(iflood) == on) { if (Serv isin $nick) || ($IsExempt($chan) == $true) || ($IsExempt($nick) == $true) { goto end } inc %invites if (!$timer(invite)) { .timerinvite 1 $protection(timer) unset %invites } if (%invites >= $calc($protection(num) - 1)) { ignore -iu240 *!*@* echo -a $+ $color(info) $+ * - 4Flooding Detected: $+ $color(info) Invite Flood - All invites ignored for 4 minutes. } } :end }
×
×
  • Create New...