Jump to content

chain

Administrators
  • Posts

    6034
  • Joined

  • Last visited

  • Days Won

    17

Everything posted by chain

  1. Tye (tye at mirc . net) DALnet #mIRC / Undernet #mirc.net, #hawkee.com ; ; This collection of snippets does a few things: ; - Displays all clones in a channel ; - Displays a user's clones when they join a channel ; - Kick/Ban clones when they join a channel (enabled per channel) ; - Kick/Ban clones in a channel ; ; These scripts are public domain. You can do whatever you want with them. ; ; If you need help with with these snippets please ask your question on the www.hawkee.com ; forums. ; To install simply paste the code in your remotes ; The snippets can be used/configured from the channel/nicklist popups ; The 'clone threshold' setting is how many _clones_ are allowed in the channel (not how many users from the same host). A threshold of 0 means no clones are allowed (only 1 user per host) ; /showclones #channel [-k] ; Will display all clones in #channel ; If you give the -k parameter all clones above the channel's threshold will be kicked/banned alias showclones { if ($hget(clones)) hfree clones hmake clones 10 var %x = $nick($1,0) while (%x) { var %addr = $address($nick($1,%x),2) ; Get user's clones var %g = $clones(%addr,$1) var %n = $gettok(%g,2-,32), %g = $gettok(%g,1,32) if (%n) && (!$hget(clones,%addr)) { ; If we haven't already shown clones from this host then do that now echo $colour(info) $1 *** %g clones from %addr $+ : %n ; If there are more clones than the threshold, and the user is not protected, start kicking if ($2 = -k) && (%g > $thresh($1)) && (!$is_clone_prot($address($nick($1,%x),5))) { mode $chan +b %addr .timer 1 600 mode $chan -b %addr var %xx = $ialchan(%addr,$1,0) while (%xx) { if ($ialchan(%addr,$1,%xx).nick isreg $1) { kick $chan $ifmatch Clones from %addr } dec %xx } } hinc clones %addr } dec %x } hfree clones } ; $clones(*!*@site,#channel) ; Returns the number of clones matching *!*@site and their nicknames in this format: ; N nicknames ; where N is the number of clones and nicknames is a space delimited list of the users. alias clones { var %x = $ialchan($1,$2,0) if (%x = 1) { return 1 } if (%x > 80) { return %x Too many to list } var %r while (%x) { %r = %r $ialchan($1,$2,%x).nick dec %x } return $ialchan($1,$2,0) %r } ; The options below the seperator are per channel settings. menu channel { Clone Utilities .Show clones in $chan:showclones # .Kick/Ban current clones:if ($input(Are you sure you want to kick/ban all clones in $chan $+ ?,y)) { showclones # -k } .$iif($($+(%,clones.join),2),$style(1)) Show clones on join:if ($($+(%,clones.join),2)) { set $+(%,clones.join) 0 } | else { set $+(%,clones.join) 1 } .- .$iif($($+(%,clones.kick.,$chan),2),$style(1)) Kick/Ban clones on join:if ($($+(%,clones.kick.,$chan),2)) { set $+(%,clones.kick.,$chan) 0 } | else { set $+(%,clones.kick.,$chan) 1 } .Clone threshold - $thresh($chan).1:set $+(%,clones.th.,$chan) $input(Enter how many clones a site is allowed in the channel [0 means only 1 user/host $+ $chr(44) 1 means 2 users/host]:,e) } menu nicklist { $iif(!$is_clone_prot($address($$1,5)),Clone Utilities) .Protect User ..$submenu($getmasks($1)) $iif($is_clone_prot($address($$1,5)),Clone Utilities) .Unprotect $is_clone_prot($address($$1,5)).addr:ruser $is_clone_prot($address($$1,5)).addr } alias -l getmasks { if ($1 > 19) { return } return $1 $address($snick($active,1),$1) $+ :auser cloneprotect $address($snick($active,1),$1) } ; $is_clone_prot(nick!user@host) ; Returns $true of user is protected from clone kick alias is_clone_prot { var %x = $ulist(*,cloneprotect,0) while (%x) { var %a = $ulist(*,cloneprotect,%x) if (%a iswm $1) { return $iif($prop = addr,%a,$true) } dec %x } return $false } ON *:JOIN:#: { ; Show users clones var %n = $clones($wildsite,$chan) if ($($+(%,clones.join),2)) { if ($gettok(%n,2-,32)) { echo -tc info2 $chan * $gettok(%n,1,32) clones from $wildsite $+ : $gettok(%n,2-,32) } } ; If you are opped, there are more clones from the host than the threshold allows, kicking clones has been enabled for this channel and the user is not protected, kick/ban the clones if ($me isop $chan) && ($gettok(%n,1,32) > $thresh($chan)) && ($($+(%,clones.kick.,$chan),2)) && (!$is_clone_prot($fulladdress)) { ; Ban the host if we haven't already if (!$($+(%,clonekicking,$cid,$chan,$wildsite),2)) { mode $chan +b $wildsite .timer 1 600 mode $chan -b $wildsite set -u10 $+(%,clonekicking,$cid,$chan,$wildsite) 1 } var %x = $ialchan($wildsite,$chan,0) while (%x) { ; Kick this user is we haven't already if ($ialchan($wildsite,$chan,%x).nick isreg $chan) && (!$($+(%,clonekicking,$cid,$chan,$ifmatch),2)) { var %nick = $ialchan($wildsite,$chan,%x).nick kick $chan %nick Clones from $wildsite set -u10 $+(%,clonekicking,$cid,$chan,%nick) 1 } dec %x } } } ; Returns the clone threshold for a channel ; $thresh(#channel).N ; If you give the N parameter that value will be subtratced from the threshold. ; The threshold returns the maximum number of users a host can have in #channel, ; not the number of clones a host can have. Use $thresh(#channel).1 to get the ; number of clones a host can have. alias -l thresh { if ($($+(%,clones.th.,$1),2) != $null) { return $calc($ifmatch + 1 - $prop) } return $calc(1 - $prop) }
  2. In the next few days we will be adding more snippets and IRC scripts and other chat network scripts. Some of the scripts will be in various languages along with some snippets. I will also be adding archive snippets so that they remain and not lost. We belive all work that has been done in the past should be kepted as guides to improve scripting skills and vice versa. So if anyone has old scripts by all means let me know and I'll add them.
  3. Version 1.0.0

    5 downloads

    is a mIRC script that allows you to manage the graphics of the mIRC client in many aspects. Can change the look and feel of mIRC has never been so easy 100% customizable This Script is evolving to enable any combination of style, color and aspects of graphic display effect to your dialog window with DCX.dll and other notes Dlls combined with each other. Is possible to update the script with update system for all versions or addons that will be introduced later. Latest version Ver 8.46 The minimum requirements for the installation are; NET Framework versions 4.5 Dual core processor or higher graphics adapter to medium-high. mIRC 7.45 or above Windows Xp | Vista | 7 | 8 | 9 | 10
  4. Version 1.0.0

    10 downloads

    A nice well rounded mIRC script. Many features include, Media Player (plays both music and videos, and has sound graphics for music), Troll Smasher (Helps prevent abuse from other users against you)... Versatile and tunable. All colors can be changed, images can be changed, it has a interactive sound effect system that plays sounds on IRC events and you can take your own sounds on your computer and assign them to the events on IRC, and sounds can be turned ON or OFF as you see fit. It has a automatic identification system that stores your usernames with their passwords (if needed), and when you change to a different nickname that you have stored it automatically identifies you to services, and much more! NOTE: A lot of this script's features were made to work with Anope services and Unreal IRCd
  5. Method: //say $bw(string here to reverse) alias bw { if ($1 == $null || !$isid) { return } | var %a = 1, %b = $1-, %n = "" | while ($mid(%b,%a,1) != $null) { %n = $v1 $+ %n | inc %a } | return %n } by entropy
  6. Friday DJ_Tweets 8 PM est, Miles 10 PM est Please join us. https://www.relay-radio.com
  7. chain

    spyon

    made a snippet spyon works well had issues before was doubling but now its good
  8. chain

    Rizon

    We have opened a Relay-Radio room on Rizon server come join us irc.rizon.net (+6697) #Relay-Radio
  9. chain

    Relay-Radio

    Thursday Dj_Tweets Country Night 8pm EST,DJ_Tim 10 EST Join us for Buzzen night !!!! %#Relay-Radio
  10. Tuesday DJ_Tweets 8pm EST Rock night with Tweets            https://www.relay-radio.com            Buzzen %#Relay-Radio            IRC-Community %#Relay-Radio             Join us have a blast with Relay-Radio DJs            Request songs & Enjoy the Tunes!!
  11. Relay-Radio hit off last night on Buzzen with DJ Tweets starting off the show and right after came Tim.Buzzen had officially opened %#Relay-Radio room and most of the Sizzle radio chatters tuned into Relay-Radio, was a fun night until i had to leave but the music and djs were amazing!! Now also Relay-Radio is also on IRC-Community chat and also on IRC server's such as koach.com and coders-irc they plan on expanding to other servers such as freenode and rizon which is quite amazing!! if your looking for the website and the dj time scheduling here it is https://www.relay-radio.com/#
  12. So there is a new Radio station on Buzzen called Relay-Radio which is being worked on and from what I hear some of the Sizzle crew will be DJ'ing on this station. You can Also go to there chatroom %#Relay-Radio https://www.relay-radio.com/ Listen Now https://www.relay-radio.com/player.php
  13. chain

    Sizzle Radio

    So Sizzle Radio from Buzzen has finally called it quits after so many years on Buzzen. The owner of sizzle Memphis Had said he would have loved to keep it going but his schedule and life changes made it impossible for him to keep the radio station running. It was sad to see the radio station go but after so many years of having fun with all the crew at Sizzle, we will have great memories. Thanks to all the DJ's and Memphis for making our long weekends a fun filled listening day in the sizzle chatroom!! It will be Missed!!
  14. It's truly amazing how many people complain about chat and how guides or sysops have control and Let power get to there heads. In a normal world this would be the Norm!! So what truly is the issue chat is chat don't expect anything more or anything less. We humans are creatures of habit and some of us strive to cause drama or destroy someones chat experience. Chat is fading as it is so try to get along and keep the chat going for as long as we can. For some its a way of letting loose of there day and getting to talk with others means a lot to them. At one point chat was huge and fun, now you have social media and discord and other means of chatting. So for what little chat we experience try to not let other's keep you from chatting!!
  15. Andaris est un Script/Addon pour le client IRC "KVIrc". Celui-ci permet d'optimiser et customiser votre client IRC préféré. Fonctions Nick précédent, détécteur de clones,, mass action. Colorisation des pseudos suivant le GENDER, Anti-Pv, systeme d'away, anti-idle, auto-limit, quizz, Antispam Pv. Impact des bans posés, fenêtre HL, moderator, slaps, quoteur, couleurs d'ecriture. Notices Opérateurs - voices, amsg, ame. Averto - Kick - kickban préconfigurer avec diverses raisons, whois amélioré, LagBar, autovoice, auto-join. Sons sur les événements, répondeur configurable, highlights configurables, blackliste, Voice Faible, rapidoquizz. Protections: Anti - clones, Mass joins, Notices, Privés, Notices Chan avec possibilité de mettre des exceptions. Et bien sur, toujours les avatars et smileys qui sont propres à KVirc. http://andaris.tuxfamily.org/index.php
  16. Here's a nice link for all support for eggdrop version and addons https://github.com/eggheads/eggdrop
  17. I like to take this time to wish all and there families a Happy New Years. We wish you all the best in Health, Wealth,Family, Friends All the best from coders-IRC
      • 1
      • Like
  18. The soulFly connection redone for IRC-Community by err0r I just added it into Buzz zyrus BZSMG 5.1.6.x.rar
  19. Retort Sizin için MSN betiğini arıyorum, umarım haftasonu elimde olur
  20. IRC-Community has a facebook if people are interested IRC-Community | Facebook
  21. Here's a nice flood protection with huge features for anti flooding.
×
×
  • Create New...