Jump to content

chain

Administrators
  • Posts

    5,964
  • Joined

  • Last visited

  • Days Won

    17

Everything posted by chain

  1. Well i got bored over a few days and just coded a bunch of kicks. None of these kicks have bans, they all work, and they can easily be added on to, and even come complete with their own menu's ^^ Just a side note, the kick called HKSPATK1 is an attack i coded that uses certain rules of Roleplaying to kill your combatant. It makes for an amusing kick if you add the coding at the end of it << UPDATE Silent Timers added!! Woohoo!! .Kicks ..~RP Kicks~ ...~Water~:{ /me "I am getting annoyed by your antics $1. you'd best shut up" Begins walking off .Timer 1 2 /me Suddenly stops and turns, a large silver gun in his hand, "You didn't think you'd get off that easy did you?" .Timer 1 4 /me Fires the gun into $1's head dematerilizing them, and transposing them into the Gun itself .Timer 1 6 /me Takes the gun and $1's particulate matter into his home .Timer 1 8 /me Loads up Windows, waits for password, Inputs password .Timer 1 10 /me Plugs he gun into the PC where $1's body is transported onto the screan .Timer 1 12 /me Watches $1 run around in fear of the pointer .Timer 1 14 /me Clicks on $1 a few times.. Click Click Click.. he hee .Timer 1 17 /me Opens Warcraft 3 The Frozen Throne .Timer 1 19 /me Loads up DOTA .Timer 1 21 /me Uses $1 as his Character .Timer 1 23 /me Has no specials, 1 Hit point no armor and is running direcly into Undead teritroty .Timer 1 25 /me Watches $1 die .Timer 1 27 /me does it again.. and then a quick few hundred times .Timer 1 29 /me Gets bored and quits DOTA, then loads up Oasiz .Timer 1 31 /me Begins RPing as $1's character .Timer 1 33 /me Sucks horribly at it .Timer 1 35 /me Die's as $1, and watches $1 explode on screen. Cleans it off and drags it to the Trash can where $1 is kept for processing .Timer 1 37 /me Launches the Cyber Trash into Cyber space, and watches it crash against a Data Base in the Cyber Space .Timer 1 38 Kick $chan $$1 *"Well, there is 1 byte of brainlessness i will never have to see again"* } ...~Fire~:{ /me kicks $1 in the face with his heel, whirling around and bashing the back of $1's skull with his fists .Timer 1 2 /me running forward he extends his arms to grab $1's shoulders to slam $1 onto the ground .Timer 1 4 /me jumps on $1's back and kneels down, planting his knee into $1's spine .Timer 1 6 /me grabs $1's shoulders and pulls back, snapping their spine, and paralyzing them from the wasit down .Timer 1 8 /me pulls out a rusty knife and begins tearing off $1's clothing, leaving their undergarments in tact .Timer 1 10 /me chuckles and begins carving off $1's skin, chunk by chunk, and placing it aside for later .Timer 1 12 /me finishes skinning $1's back and flips their ragdoll body over, tearing off $1's bottom jaw in the process .Timer 1 14 /me smirks devilishly at $1 as blood fills their lungs. .Timer 1 16 /me Begins stuffing the filets of Skin down $1's throat .Timer 1 18 /me Takes pity on $1 and pulls out a strand of Piano wire .Timer 1 20 /me Slits $1's throat and stomps on $1's stomach, causing the slabs of flesh to shoot out all over the wall.. Eww.. .Timer 1 22 kick $chan $$1 * dead. Go change your character* } ...~Ice~:{ /me summons a large black cloud full of rain, hovering over $1 .Timer 1 2 /me drops the tempreature down below absolute zero .Timer 1 4 /me forces the rain to fall through the air, freezing the droplets and turning them to spears .Timer 1 6 /me watches the millions of Ice Spears pierce $1 .Timer 1 8 /me Laughs at $1 's swiss cheese looking corpse .Timer 1 10 kick $chan $$1 * Lets their body freeze at Absolute zero. Goodbye * } ...~Earth~:{ /me frown's at $1 's actions and turns to face them .Timer 1 2 /me cocks a brow and holds his palm out .Timer 1 4 /me watches as rocks begin spinning faster then the speed of sound around $1 .Timer 1 6 /me this prevents them from moving .Timer 1 8 /me shoots spikes from for directions at $1 piercing them and hoisting them into the air .Timer 1 10 /me summons a huge garden gnome from the sky .Timer 1 12 kick $chan $$1 * $1 gets splatted by the big gnome. Much like the UBER PEA * } ...~Acid~:{ /me looks to $1 and sighs softly .Timer 1 2 say you made me to this .Timer 1 4 /me looks to the sky as it turns purple .Timer 1 6 /me summons acid rain to fall from the sky .Timer 1 8 /me laughs at it begins piercing $1 's flesh .Timer 1 10 Kick $chan $$1 * sighs as the wind blows away the remnant ashes of $1 's body* .Timer 1 12 /me walks back inside as if nothing happened } ...~HKSPATK1~:{ /me Rolls backwards, fireing twelve speres of homing sound like a gattaling cannon from his fingertips, the very space between him and $1 was distorted, the attack ripping through space .Timer 1 5 say 5 seconds passed) .Timer 1 10 /me "Blinks" forward, slashing at $1's top right collar bone, down to their left hip, his hand firing a ball of Chaos energy directly into their stomach .Timer 1 15 say 5 seconds passed)) .Timer 1 17 /me ducks down and stabs upwards, sending a sonic ripple to $1's head, the ripple comming from a high pitched screech from his agape mouth .Timer 1 23 say 5 seconds passed)) .Timer 1 26 /me looks down at $1's molecules, nothing more then an amorphous blob. Opening a portal to the Realm of Chaos, the molecules would slip in if they didn't move out of the way. Since in this incapacitated state<c> .Timer 1 28 /me $1 wouldn't be able to do much, since the molecules werent together to form a single entity, it prevented the spellcasting, or movement of $1 for roughly two minutes. Which was more then enough time<c> .Timer 1 29 /me for him to finish what he needed too<d> .Timer 1 34 say 5 seconds passed)) .Timer 1 37 /me feels energy coursing through his veins as $1's body was compleatly absorbed. $1's energy, Chi Chakra, whatever you may call it, was used to feed his own powers, even the clothing of the poor<c> .Timer 1 39 /me victim being taken into the realm, destroyed, the once magical properties of the item no longer in tact. } .~Song Kicks~ ..~Lordi~ ...~Biomechanic Man~:{ /me Turns into a Cyborg and shouts, "Biomechanic man!" .Timer 1 2 /me plays a Wild gutiar intro .Timer 1 4 /me Grins and says, "You need some lovin' o' monstermaniac style and fashion" .Timer 1 6 /me "And i'm a device of horny steel." .Timer 1 8 /me "You need a spin in the torture wheel" .Timer 1 10 /me "You need to get the healer in here" .Timer 1 12 /me "You gotta know when its bad" .Timer 1 14 /me "You gotta get in the cyber-feel" .Timer 1 16 /me "A little sicko, a little mean" .Timer 1 18 /me "and your sure to be damned" .Timer 1 20 /me chews up $1 's hand, cause he is the Biomechanic man .Timer 1 22 kick $chan $$1 * You just got Cyberfucked * } ...~Monsterman~:{ /me "Would you love a Monsterman?" .Timer 1 2 /me "Could you understand, Beauty of the beast?" .Timer 1 4 /me "I would do it all for you!" .Timer 1 6 /me "Would you do it all for me?" .Timer 1 8 /me "Yeah, i would freeze all hell over just to get a chill" .Timer 1 10 /me "Yeah i would slay - I would maim" .Timer 1 12 /me "I would in thin air and reappear again" .Timer 1 14 /me dissipears from sight .Timer 1 16 /me Reappears behind $1 .Timer 1 18 /me Freezes $1 in a block of ice .Timer 1 20 /me cuts $1 in half effectivly slaying them .Timer 1 22 kick $chan $$1 * You don't love a monsterman. * } ...~Rock The Hell Outta You~:{ /me ROCK .Timer 1 2 /me ROCK .Timer 1 4 /me ROCK .Timer 1 6 /me ROCK THE HELL OUT OF YOU!! .Timer 1 8 /me Grabs a huge Flying V .Timer 1 10 /me Plays a mad wicked riff .Timer 1 12 kick $chan $$1 * You just got the hell rocked out of you * } ...~Supermonstars~:{ /me "They strike you dumb" .Timer 1 2 /me "They bring you down" .Timer 1 4 /me "They keep you on the losing end" .Timer 1 6 /me "they tell you wrong is right, your high is low.. HERE WE GO!" .Timer 1 10 /me "Kick up a row, we're The Supermonstars!" .Timer 1 13 /me "We chant the anthem of the Phantoms!" .Timer 1 16 /me "Deal out the blows like a supermonstars! We are humble to none!" .Timer 1 18 /me holds his hands together and begins uttering a demonic chant .Timer 1 20 /me a huge grey shadow swoops down for $1 , and takes them away .Timer 1 22 kick $chan $$1 * the Anthem of the Phantoms will keep You on the end of my hammer * } ...~Blood Red Sandman~:{ /me They called me the leather Apron, they called me Sliling Jack .timer 1 2 /me they prayed to the heavens above, that I would never ever come back .timer 1 3 /me Can you hear how the children weep? .timer 1 4 /me Chills of fear like a Sawblade .timer 1 6 /me Cutting Deep .timer 1 8 /me takes a jigsaw from his backpack .timer 1 10 /me carves $1 up like a christmas Ham .timer 1 12 /me Sprinkles $1 's corpse with sand .timer 1 14 /me Steps on the bloody mess and smirks triumphant .timer 1 15 kick $chan $$1 * Ph3r3 t3h bL00d R3D SANDMAN! } .~Other~ ..~Bodies~:{ /me 1, nothing wrong with me .Timer 1 1 /me 2, nothing wrong with me .Timer 1 2 /me 3, nothing wrong with me .Timer 1 3 /me 4, nothing wrong with me .Timer 1 5 /me 1, something's got to give .Timer 1 6 /me 2, something's got to give .Timer 1 7 /me 3, something's got to give .Timer 1 9 /me Let the bodies hit the floor .Timer 1 11 /me Let the bodies hit the floor .Timer 1 13 /me Let the bodies hit the floor .Timer 1 15 /me Dashes out .Timer 1 16 /me Breaks jaw .Timer 1 17 /me Snaps neck .Timer 1 19 /me Let the bodies hit the.... .Timer 1 21 Kick $chan $$1 * FFFLLLLOOOOORRRRRR!!!!!!! * } ..~Avatar~:{ /me Frowns at $1 and growls, "Thats it, you have incured the wrath of the motherfukin avatar!" .Timer 1 2 /me Summons a huge Wave .Timer 1 4 /me Conjours a giant Fireball .Timer 1 6 /me Creates a Razor Wind .Timer 1 8 /me Makes big ass rock pillers .Timer 1 10 /me grins manicly .Timer 1 12 kick $chan $$1 * "KA-ME-HA-ME-AVATAR POWER!" Crushes $1 with his Hax04 Powerz * }
  2. This Is My Second Menu. Its A Custom Kick And Bans Menu. Simply Right Click on the user's name and select your kicks and bans, theres also a custom kick and ban dialog. ;F0x's Custom Kicks and Bans ;Made By F0x of the SwiftIRC Network ;Site: www.f0xb0t.net.tc ;Channel: #F0xB0t menu nicklist { F0x's Custom Kicks and Bans .Kicks ..Noob:/kick # $$1 2Stupid Noob ..Pwned:/kick # $$1 2Pwned!! ..Owned:/kick # $$1 2http:// $+ $$1 $+ .justgotowned.com ..Volcano:/kick # $$1 2Feel The Heat Of The Volcano! ..Steal:/kick # $$1 2I Will Steal Your Channel Status! ..Raped:/kick # $$1 2Rape This! ..Bitch:/kick # $$1 2Bitch Much? ..Specified Kicks ...Spamming:/kick # $$1 2Stop Spamming ...Flooding:/kick # $$1 2Stop Flooding ...Swearing:/kick # $$1 2Stop Swearing ...Advertising:/kick # $$1 2No Advertising In Here! ...Respect Ops:/kick # $$1 2Respect The Ops Idiot. ...I Just Don't Like You:/kick # $$1 2You Know What? I Just Don't Like You. ..Custom Kick:/dialog -m f0xkick f0xkick .Bans ..Noob:/ban -k # $$1 2Stupid Noob ..Pwned:/ban -k # $$1 2Pwned!! ..Owned:/ban -k # $$1 2http:// $+ $$1 $+ .justgotowned.com ..Volcano:/ban -k # $$1 2Feel The Heat Of The Volcano! ..Steal:/ban -k # $$1 2I Will Steal Your Channel Status! ..Raped:/ban -k # $$1 2Rape This! ..Bitch:/ban -k # $$1 2Bitch Much? ..Specified Bans ...Spamming:/ban -k # $$1 2Stop Spamming ...Flooding:/ban -k # $$1 2Stop Flooding ...Swearing:/ban -k # $$1 2Stop Swearing ...Advertising:/ban -k # $$1 2No Advertising In Here! ...Respect Ops:/ban -k # $$1 2Respect The Ops Idiot. ...I Just Don't Like You:/ban -k # $$1 2You Know What? I Just Don't Like You. ..Custom Ban:/dialog -m f0xban f0xban } alias f0xkick { dialog -m f0xkick f0xkick } dialog f0xkick { title "F0x's Custom Kicks & Bans" size -1 -1 131 111 option dbu text "By F0x", 1, 50 102 60 10 box "Custom Kicks", 3, 1 1 130 110, centre edit "Nick", 4, 33 11 67 13 edit "Reason", 5, 33 28 67 13 edit "#channel", 6, 33 45 67 13 button "Kick", 7, 69 75 37 12 button "Cancel", 8, 45 90 37 12, Cancel } on *:dialog:f0xkick:sclick:7:{ /kick $did(6) $did(4) $did(5) } alias f0xban { dialog -m f0xban f0xban } dialog f0xban { title "F0x's Custom Kicks & Bans" size -1 -1 131 111 option dbu text "By F0x", 1, 50 102 60 10 box "Custom Bans", 3, 1 1 130 110, centre edit "Nick", 4, 33 11 67 13 edit "Reason", 5, 33 28 67 13 edit "#channel", 6, 33 45 67 13 button "Ban", 7, 69 75 37 12 button "Cancel", 8, 45 90 37 12, Cancel } on *:dialog:f0xban:sclick:7:{ /ban -k $did(6) $did(4) $did(5) }
  3. chain

    Easy kicks

    [¤1-Description¤] : I made this snippet because sometimes when we want to kick an user we use the mouse, but it's take long time that's why i made this snippet to facilitate the process of kick [¤2-Use¤] : 1) - Alt +r and put this snippet inro u'r remote 2) - use F1,F2,F3,F4,F5,F6,F7,F8,F9,F10,11 and F12 into your keyboard type /helpk to see all commands if you forget them ! [¤3-Reason of kicks¤] : cF1 » (CTRL+F1) kicks an user for Flood F2 » kicks an user for Spam F3 » kicks an user for Repeating F4 » kicks an user for Ads F5 » kicks an user for CAPs letters F6 » kicks an user for Bad word F7 » kicks an user for feeling HOT F8 » kicks an user for sex like F7 F9 » kicks an user for language F10 » kicks an user who has -18 F11 » kicks an user for personal infos (MSN,Yahoo,facebook...ect) F12 » kicks an user who has bad nick [¤2-Other way to kick¤] : -if you don't like to kick by keys F* you can use Aliase : /k1 nickname / nicknames » kicks an user for Flood /k2 nickname / nicknames » kicks an user for Spam /k3 nickname / nicknames » kicks an user for Repeating /k4 nickname / nicknames » kicks an user for Ads /k5 nickname / nicknames » kicks an user for CAPs letters /k6 nickname / nicknames » kicks an user for Bad word /k7 nickname / nicknames » kicks an user for feeling HOT /k8 nickname / nicknames » kicks an user for sex like F7 /k9 nickname / nicknames » kicks an user for language /k10 nickname / nicknames » kicks an user who has -18 /k11 nickname / nicknames » kicks an user for personal infos (MSN,Yahoo,facebook...ect) /k12 nickname / nicknames » kicks an user who has bad nick #####Put this in REMOTE alias cF1 { kick $chan $* Flood disturbs everyone, please write as much as you can on one line ! } alias F2 { kick $chan $* Spamming is not allowed here ! } alias F3 { kick $chan $* We understood you the first time, there is no need to repeat yourself ! } alias F4 { kick $chan $* Ads are forbidden here ! } alias F5 { kick $chan $* Please do not abuse of the cap locks ! It unnecessarily disturbs everyone on the chat. } alias F6 { kick $chan $* Please stay polite ! } alias F7 { kick $chan $* For those who are feeling hot, got on #hotchannel ! } alias F8 { kick $chan $* You're on a chat, not on a porn site ! } alias F9 { kick $chan $* Please write in english ! } alias F10 { kick $chan $* Sorry, but you can't stay here (+18) } alias F11 { kick $chan $* No personal infos here or in private ! } alias F12 { kick $chan $* Your username isn't correct. Change it to be able to come back ! } alias helpk { var %cpteur = 1 echo -at 4Flood 5-> 12cF1 7or 12/k1 echo -at 4Spam 5-> 12F2 7or 12/k2 echo -at 4Repeating 5-> 12cF3 7or 12/k3 echo -at 4Ads 5-> 12cF4 7or 12/k4 echo -at 4Caps letters 5-> 12cF5 7or 12/k5 echo -at 4Bad word 5-> 12cF6 7or 12/k6 echo -at 4Hot 5-> 12cF7 7or 12/k7 echo -at 4Sex 5-> 12cF8 7or 12/k8 echo -at 4Language 5-> 12cF9 7or 12/k9 echo -at 4Age 5-> 12cF10 7or 12/k10 echo -at 4personal infos 5-> 12cF117or 12/k11 echo -at 4Badnick 5-> 12cF12 7or 12/k12 } #####Put this in ALIASES k1 kick kick # $* Flood disturbs everyone, please write as much as you can on one line ! k2 kick # $* Spamming is not allowed here ! k3 kick # $* We understood you the first time, there is no need to repeat yourself ! k4 kick # $* Ads are forbidden here ! k5 kick # $* Please do not abuse of the cap locks ! It unnecessarily disturbs everyone on the chat. k6 kick # $* Please stay polite ! k7 kick # $* For those who are feeling hot, got on #hotchannel ! k8 kick # $* You're on a chat, not on a porn site ! k9 kick # $* Please write in english ! k10 kick # $* Sorry, but you can't stay here (+18) k11 kick # $* No personal infos here or in private ! k12 kick # $* Your username isn't correct. Change it to be able to come back !
  4. Kick and Ban Counters, with Echo and Clear. Needs DCX.dll to run. Copypasta to new remotes. Enjoy. #KCounter on on *:kick:#:if ( $nick == $me ) inc %kicks 1 alias kick { if ($me isop $1) && ($2 ison $1) { kick $1 $2 $3- 3,1(14Kick $+ #0 %kicks $+ 3)7 >>> 3(14ProtheusIRC3) } } #KCounter End #BCounter on on *:ban:#:if ( $nick == $me ) inc %bans 1 alias ban { if ($me isop $1) && ($2 ison $1) { mode $chan +b $1 $2 $3- | /msg $chan 3,1(14Ban $+ #0 %bans $+ 3)7 >>> 3(14ProtheusIRC 3) } } #BCounter End alias kbcounters { if ($dialog(kbcounters)) { dialog -x kbcounters } dialog -m kbcounters kbcounters } alias DCX_kbcounters { } dialog kbcounters { title "Kick/Ban Counters" size -1 -1 138 138 option dbu box "Kicks", 1, 6 3 50 50 box "Options", 4, 81 3 50 50 box "Bans", 7, 6 83 50 50 box "Options", 10, 81 83 50 50 } on *:dialog:kbcounters:init:*: { dcx Mark $dname kbcounters_cb xdialog -g kbcounters +b $rgb(0,0,0) xdialog -c $dname 2 button 22 25 80 30 xdid -t $dname 2 On xdid -w $dname 2 +n 112 shell32.dll xdialog -c $dname 3 button 22 64 80 30 xdid -t $dname 3 Off xdid -w $dname 3 +n 131 shell32.dll xdialog -c $dname 5 button 172 25 80 30 xdid -t $dname 5 Echo xdid -w $dname 5 +n 146 shell32.dll xdialog -c $dname 6 button 172 64 80 30 xdid -t $dname 6 Clear xdid -w $dname 6 +n 31 shell32.dll xdialog -c $dname 8 button 22 186 80 30 xdid -t $dname 8 On xdid -w $dname 8 +n 112 shell32.dll xdialog -c $dname 9 button 22 225 80 30 xdid -t $dname 9 Off xdid -w $dname 9 +n 131 shell32.dll xdialog -c $dname 12 button 172 186 80 30 xdid -t $dname 12 Echo xdid -w $dname 12 +n 146 shell32.dll xdialog -c $dname 13 button 172 225 80 30 xdid -t $dname 13 Clear xdid -w $dname 13 +n 31 shell32.dll xdialog -c $dname 14 button 98 124 80 30 xdid -t $dname 14 Close xdid -w $dname 14 +n 27 shell32.dll } alias kbcounters_cb { if ($2 == sclick) && ($3 == 2) { /.enable #KCounter | echo -a 3(14ProtheusIRC3) 3,1K14,1ick 3C14,1ounter 3I14,1s 3N14,1ow 3T14,1urned 3O14,1n } else if ($2 == sclick) && ($3 == 3 ) { /.disable #KCounter | echo -a 3(14ProtheusIRC3) 3,1K14,1ick 3C14,1ounter 3I14,1s 3N14,1ow 3T14,1urned 3O14,1ff } else if ($2 == sclick) && ($3 == 5 ) { /echo -a 3,1I 3,1H14,1ave 3,1K14,1icked0 %kicks 3,1T14,1imes 3,1S14,1o 3,1F14,1ar7 >>> 3(14ProtheusIRC3) } else if ($2 == sclick) && ($3 == 6 ) { /unset %kicks | /echo -a 3,1C14,1leared.7 >>> 3(14ProtheusIRC3) } else if ($2 == sclick) && ($3 == 8 ) { /.enable #BCounter | echo -a 3(14ProtheusIRC3) 3,1B14,1an 3C14,1ounter 3I14,1s 3N14,1ow 3T14,1urned 3O14,1n } else if ($2 == sclick) && ($3 == 9 ) { /.disable #BCounter | echo -a 3(14ProtheusIRC3) 3,1B14,1an 3C14,1ounter 3I14,1s 3N14,1ow 3T14,1urned 3O14,1ff } else if ($2 == sclick) && ($3 == 12) { /echo -a 3,1I 3,1H14,1ave 3,1B14,1anned0 %bans 3,1P14,1eople 3,1S14,1o 3,1F14,1ar7 >>> 3(14ProtheusIRC3) } else if ($2 == sclick) && ($3 == 13) { /unset %bans | /echo -a 3,1C14,1leared.7 >>> 3(14ProtheusIRC3) } else if ($2 == sclick) && ($3 == 14) { /dialog -x kbcounters } }
  5. Eggdrop auto reply if anybody pm your bot it will reply to that user with assigned messages #=======================================================# #Timer for reply. Bot will take time to reply the DM. # #In seconds ( well 60 seconds in a minute. LOL ) # #=======================================================# set rplytimer 10 #=======================================================# #The messages can be edited as you like. Just put them # #in "" and keep it in order. if you fuck it up dont say # #to people this script dont work. =) # #=======================================================# set autorply { "Im a Functional Alcoholic but not Functioning atm @;" "Yes Im here" "What do you want?" } #========================================================# #You can edit this if you are big boy!. im just a # #plebeian. # #========================================================# bind msgm - * msgm:reply proc msgm:reply {nick host hand text} { global autorply rplytimer utimer $rplytimer [list puthelp "PRIVMSG $nick :Hello $nick [lindex $autorply [rand [llength $autorply]]]"] } putlog "autoreply.tcl 0.1 by Error loaded"
  6. on $*:TEXT:/(www\56|\57\57\56|\72\57\57|\43[a-zA-Z]|.com|.net|.org)/iS:*: { if ($nick isreg #) { inc %ad. [ $+ [ $wildsite ] ] if (%ad. [ $+ [ $wildsite ] ] == 1) { .notice $nick This is your first warning to notify you that you are advertising without authorization. } if (%ad. [ $+ [ $wildsite ] ] == 2) { .kick $chan $nick You have been kicked due to an unauthorized advertisement. } if (%ad. [ $+ [ $wildsite ] ] == 3) { ban -ku120 $nick 2 You have been banned for two minutes due to a repeated offense of an unauthorized advertisement. } if (%ad. [ $+ [ $wildsite ] ] == 4) { ban -ku1800 $nick 2 You have been banned for thirty minutes due to a repeated offense of an unauthorized advertisement. | unset %ad. [ $+ [ $wildsite ] ] } } }
  7. chain

    No Swear

    I checked the snippets and only found mIRC platform swear kickers. This is a simple swear checker that can be adjusted to each channel via dcc (partyline) or a public/msg command. Protects all users added to bot userfile, all channel @/Ops and +/Voices. Default trigger set to "!" SYNTAX: PUBLIC: !noswear on PUBLIC: !noswear off MSG: /msg yourbot noswear #channelname on MSG: /msg yourbot noswear #channelname off NOTE: Available to Global OP (o) and above, Channel Master (m) and above. # NoSwear Module # Set global trigger here set trigger "!" # Set your swearword pattern below set swearwords { "*fuck*" "*cunt*" "*shit*" } # -----DONT EDIT BELOW----- bind pub - ${trigger}noswear noswear:pub bind msg - noswear noswear:msg bind pubm - * noswear:text bind ctcp - ACTION noswear:act setudef flag noswear proc getTrigger {} { global trigger return $trigger } proc noswear:pub {nick uhost hand chan text} { if {![matchattr $hand o|m $chan]} {return} if {([lindex [split $text] 0] == "") && (![regexp c [getchanmode $chan]])} {putquick "PRIVMSG $chan :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: [getTrigger]noswear on/off"; return} if {([lindex [split $text] 0] == "") && ([regexp c [getchanmode $chan]])} {putquick "PRIVMSG $chan :ERROR: Incorrect Parameters. SYNTAX: [getTrigger]noswear on/off"; return} if {[lindex [split $text] 0] == "on"} { if {[channel get $chan noswear] && ![regexp c [getchanmode $chan]]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already enabled."; return} if {[channel get $chan noswear] && [regexp c [getchanmode $chan]]} {putquick "PRIVMSG $chan :ERROR: This setting is already enabled."; return} channel set $chan +noswear puthelp "PRIVMSG $chan :Enabled Swearing Protection for $chan" } if {[lindex [split $text] 0] == "off"} { if {![channel get $chan noswear] && ![regexp c [getchanmode $chan]]} {putquick "PRIVMSG $chan :\037ERROR\037: This setting is already disabled."; return} if {![channel get $chan noswear] && [regexp c [getchanmode $chan]]} {putquick "PRIVMSG $chan :ERROR: This setting is already disabled."; return} channel set $chan -noswear puthelp "PRIVMSG $chan :Disabled Swearing Protection for $chan" } } proc noswear:msg {nick uhost hand arg} { global botnick set chan [strlwr [lindex $arg 0]] if {![matchattr $hand o|m $chan]} {return} if {![string match "*#*" $arg]} {return} if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick noswear #channel on/off"; return} if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick noswear $chan on/off"; return} if {[lindex [split $arg] 1] == "on"} { if {[channel get $chan noswear]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return} channel set $chan +noswear putquick "NOTICE $nick :Enabled Swearing Protection for $chan" } if {[lindex [split $arg] 1] == "off"} { if {![channel get $chan noswear]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return} channel set $chan -noswear putquick "NOTICE $nick :Disabled Swearing Protection for $chan" } } proc noswear:text {nick uhost hand chan text} { global swearwords if {[channel get $chan noswear]} { foreach pattern $swearwords { if {[string match -nocase $pattern $text]} { if {![validuser $hand] && ![isop $nick $chan] && ![isvoice $nick $chan]} { putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" putquick "KICK $chan $nick :\002\037S\037\002wear-\002\037W\037\002ord \002\037D\037\002etected. Please cease use of profanity while in $chan - Thank you." } } } } } proc noswear:act {nick uhost hand dest key text} { global swearwords if {![string match "*#*" $dest]} {return} set chan $dest if {[channel get $chan noswear]} { foreach pattern $swearwords { if {[string match -nocase $pattern $text]} { if {[botisop $chan] && ![isbotnick $nick]} { if {[onchan $nick $chan] && ![validuser $hand] && ![isop $nick $chan] && ![isvoice $nick $chan]} { putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" putquick "KICK $chan $nick :\002\037S\037\002wear-\002\037W\037\002ord \002\037D\037\002etected. Please cease use of profanity while in $chan - Thank you." } } } } } } putlog "Loaded: NoSwear Module."
  8. chain

    Mass Kick

    This is just a little snippet and can be handle for those who use simple mIRC and like to add only small codes in way to keep their mIRC on control (Full scripts always give troubles , expecially to IRC operators or just simple operator of the room. All i can say about this masskick code is that , if you are operator in a room and for some reasons you need (or want) to kick all the users in it , then just type /masskick in the channel. I plan to do some other mass stuff and some flood protection snippets in the will. ;copy and paste this code to your mirc script editor/remotes. alias masskick { unset %total set %count.nick 0 set %total $nick(#,0) :start inc %count.nick if (%count.nick > %total) { halt } if ($nick(#,%count.nick) == $me) { goto start } else { kick # $nick(#,%count.nick) Masskick Everyone is kicked so don't take it personal . | goto start } }
  9. The below snippets will tell the user what the bad word was they said , kick the user from the channel and then ban them for 30 seconds when they use a badword ( your choice of words there ) in the channel as a regular text , an emote or a notice. Update: There is now an " on CONNECT " and Alias to help in the setting of the vairable. Update: Changed $nick to be $address($nick,2) Update: Added two aliases that allow you to add and removes words from the variable %badwords on *:CONNECT: if (!%badwords) { set %badwords put,words,here,seperated,by,commas } echo -a %badwords has been set } else { echo -a The badwords have already been set. } } alias bdwd { if (!%badwords) { set %badwords put,words,here,seperated,by,commas } echo -a %badwords has been set } else { echo -a The badwords have already been set. } } --------------------------------- --------------------------------- */ The below two aliases can add ( one or more words at a time ) and delete ( one word at a time ) words from the list. */ alias addword { if (!$1) { echo Please specify something to be added. | halt } var %i 1 while (%i <= $0) { if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { echo That word or words is already in the list | halt } | inc %i } set %badwords $replace($addtok(%badwords,$1-,32),$chr(32),$chr(44)) echo The new list is --> %badwords } alias delword { if (!$1) { echo Please specify something to be removed. | halt } if (!$istok(%badwords,$1,44)) { echo That word is not in the list. | halt } else { set %badwords $remtok(%badwords,$1,44) echo The new list is --> %badwords } } --------------------------------- --------------------------------- on @*:text:*:#: { var %i 1 while (%i <= $0) { if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { msg $chan Please do not use such language in $chan again. | timer 1 3 kick # $nick $nick $+ , To the curb with you gutter mouth! 30 Second ban. | timer 1 5 ban -u30 $chan $address($nick,2) | halt } | inc %i } else { halt } } ----------------------------------- on @*:action:*:#: { var %i 1 while (%i <= $0) { if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { msg $chan Please do not emote such language in $chan again. | timer 1 3 kick # $nick $nick $+ , To the curb with you gutter mouth! 30 Second ban. | timer 1 5 ban -u30 $chan $address($nick,2) | halt } | inc %i } else { halt } } ------------------------------------- on @*:notice:*:#: { var %i 1 while (%i <= $0) { if ($istok(%badwords, $ [ $+ [ %i ] ] ,44)) { msg $chan Please do not notice such language in $chan again. | timer 1 3 kick # $nick $nick $+ , To the curb with you gutter mouth! 30 Second ban. | timer 1 5 ban -u30 $chan $address($nick,2) | halt } | inc %i } else { halt } }
  10. 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) }
  11. 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.
  12. Version 1.0.0

    1 download

    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
  13. Version 1.0.0

    4 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
  14. 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
  15. Friday DJ_Tweets 8 PM est, Miles 10 PM est Please join us. https://www.relay-radio.com
  16. chain

    spyon

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

    Rizon

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

    Relay-Radio

    Thursday Dj_Tweets Country Night 8pm EST,DJ_Tim 10 EST Join us for Buzzen night !!!! %#Relay-Radio
  19. 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!!
  20. 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/#
  21. 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
  22. 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!!
×
×
  • Create New...