COOL IRC SCRIPTERS COME HAR

Beyonder · Post by **Beyonder** » Tue Nov 25, 2003 3:45 pm

can someone write a script for me that when a person types !ban i randomly kick someone from channel with some cool kick msg behind it that's random too f;

MikeJ · Post by **MikeJ** » Tue Nov 25, 2003 4:57 pm

alias rndmnick {
?if ($me ison $1) {
? ?var %strchan = $1
? ?var %str = $null
? ?var %i = 1
? ?var %int = $nick(%strchan,0,a)

? ?while (%i <= %int) {
? ? ?%str = %str $+ ! $+ $nick(%strchan,%i)
? ? ?inc %i
? ?}

? ?var %intran = $rand(1,%int)
? ?%str = $gettok(%str,%intran,33)

? ?while ($me isin %str) {
? ? ?var %i = 1
? ? ?var %int = $nick(%activechannel,0,a)

? ? ?while (%i <= %int) {
? ? ? ?%str = %str $+ ! $+ $nick(%strchan,%i)
? ? ? ?inc %i
? ? ?}

? ? ?%intran = $rand(1,%int)
? ? ?%str = $gettok(%str,%intran,33)
? ?}
? ?return %str
?}
?else {
? ?return Invalid Channel
?}
}

on 1:TEXT:!ban*:#: {
/kick # rndmnick(#) $read(kmsg.txt) 
}

Put this in remotes, and in your main mIRC directory create "kmsg.txt" and each line of this file will be a custom kick message like:

lol you are kicked
what your gay

haha fag ur kicked

blag blah kick message

If you want to limit it to a specific channel change on 1:TEXT:!ban*:#: { to on 1:TEXT:!ban*:#yourchannel: {

Beyonder · Post by **Beyonder** » Mon Dec 01, 2003 4:51 pm

i try thx :D

Beyonder · Post by **Beyonder** » Mon Dec 01, 2003 5:06 pm

hm it cant find a nick :/

2(121802:120202:122702) 02 ??12 no such nickname: 02(12rndmnick(#)02)12

Beyonder · Post by **Beyonder** » Mon Dec 01, 2003 6:44 pm

alias rndmnick {
 if ($me ison $1) {
   var %strchan = $1
   var %str = $null
   var %i = 1
   var %int = $nick(%strchan,0,a)

   while (%i <= %int) {
     %str = %str $+ ! $+ $nick(%strchan,%i)
     inc %i
   }

   var %intran = $rand(1,%int)
   %str = $gettok(%str,%intran,33)

   while ($me isin %str) {
     var %i = 1
     var %int = $nick(%activechannel,0,a)

     while (%i <= %int) {
       %str = %str $+ ! $+ $nick(%strchan,%i)
       inc %i
     }

     %intran = $rand(1,%int)
     %str = $gettok(%str,%intran,33)
   }
   return %str
 }
 else {
   return Invalid Channel
 }
}

on *:TEXT:!ban*:#: {
 if (%ban.spam == $null) && ($me isop $chan) && ($nick isop $chan) {
   kick $chan $nick($chan,$rand(1,$nick($chan,0))) $read(kmsg.txt) 
   set -u5 %ban.spam 1
 }
}

on *:INPUT:#: {
 if ($1 == !ban) && ($me isop $chan) {
   msg $chan $1
   kick $chan $nick($chan,$rand(1,$nick($chan,0))) $read(kmsg.txt)
 }
}

now it works really nice and it has some cute features, thanks