Help Script - mIRC Discussion Forums

I want a script, that shows who enters and who leaves the room, and one that
CAPS warns about 2 times and if the person does not stop = kick.

Can you help me?

Thanks!

Brazil

Try searching sites like Hawkee, mIRC Scripts, mIRC.net

You're really looking for 2 scripts, one that tracks who enters and leaves the channel, and one that performs a CAPS kick/ban.

I made that for u try this:

Code:

on !*:JOIN:%mychan: {
  .echo $color(info) -ta The  $+ $nick $+  user has just joined the channel!
}

on !*:PART:%mychan: {
  .echo $color(info) -ta The  $+ $nick $+  user has just left the channel!
}

on *:TEXT:*:%mychan: {
  if ($len($1-) < 15) { return }
  if ($int($calc($regex($1,/[A-Z&#913;-&#937;&#916;&#934;&#940;]/g)/$len($1)*100)) > 40) {
    if (!$istok(%flood-one,$nick,32)) && (!$istok(%flood-two,$nick,32)) && (!$istok(%flood-three,$nick,32)) { .set %flood-one $addtok(%flood-one,$nick,32) }
    if ($istok(%flood-one,$nick,32)) { 
      .set %flood-one $remtok(%flood-one,$nick,32)
      .set %flood-two $addtok(%flood-two,$nick,32)
      .notice $nick Warning: Take off your CAPS, if you continue then you will be KICKED! (1/2)
    }  
    elseif ($istok(%flood-two,$nick,32)) {
      .set %flood-two $remtok(%flood-two,$nick,32)
      .set %flood-three $addtok(%flood-three,$nick,32)
      .notice $nick Warning: Take off your CAPS, if you continue then you will be KICKED! (2/2)
    }
    elseif ($istok(%flood-three,$nick,32)) {
      .set %flood-three $remtok(%flood-three,$nick,32)
      .kick $chan $nick Please Close Caps Lock..! [Too many caps 2/2]
    }
  }
}

P.S: To add your channel just use /set %mychan #yourchan

What name i search?

how to insert in mirc, this code!

OMG , just ALT+R and put it in the REMOTES then type this command!
/set %mychan #YOURCHAN

Edit: To copy the code from the board just select the hole code and use right click and select "copy"

I am trying to use irc.justin.tv but it is not working.

not work.

helpppppppppp

OMG man please wake up , do not post here silly things about your mIRC.

Ok

Code not working.

Coding is working you make somewhere a mistake , type /help to see more informations!

Some possibler souces of error:
- $1 (in the regex) will be only the first word, so the script won't take the whole line to calculate caps (if the first word is "I", the script will fire).

- The regex looks weird and does not work, e.g. " $regex(TEST,/[A-ZΑ-ΩΔΦά]/g) " returns 0. Maybe a problem occured in pasting the code.

Edit: Now, here in "normal text", I do see these greek letters - but the code in code tags showed like like &#[i]916 etc and copy-pasting the code kept it that way.
Anyway, [A-Z] should be sufficient as the char class if the OP wants a caps check for english

[/i]

Another possible problem:
You'll hit the variable length limit after a while because the variables (list of nicks) are set permanently (not for example via "set -e"). A hash table with nick (or some mask) as item and the No. of caps abuses as data could make up a good alternaitve. It would as well allow some automatic unset (e.g. after several hours)