caps - mIRC Discussion Forums

Print Thread

caps #70761 08/02/04 10:25 PM
Joined: Dec 2002 Posts: 332 Louisiana, USA C Cheech OP Fjord artisan
OP Cheech Fjord artisan C Joined: Dec 2002 Posts: 332 Louisiana, USA	i have the following code Code: alias caps { return $calc($regex($1,/[A-ZÄÖÜ]/g)/$len($1)100) } and also Code: on 1:TEXT::*: { set %capscheck $remove($1-,$chr(32)) set %capscheck1 $strip(%capscheck) if ($caps(%capscheck1) >= 50) { msg $chan 04 $+ $nick 02you are using 04 $+ $caps($1-) $+ % Caps. 02this is 04VERY 02annoying } } the problem is if someone types <hfhfhfh> HHHHHHHHHH <caps> hfhfhfh you are using 100% Caps. this is VERY annoying if they type <hfhfhfh> AAAAAAAA HHHHHHHH BBBBBBBBBBB CCCCCCCCC <caps> hfhfhfh you are using 92.307692% Caps. this is VERY annoying why doesnt it return 100% also ?

Re: caps #70762 08/02/04 10:29 PM
Joined: Dec 2002 Posts: 3,138 London, UK C Collective Hoopy frood
Collective Hoopy frood C Joined: Dec 2002 Posts: 3,138 London, UK	Because a space isn't in the list of characters you specified. Use tokenize 32 $remove($1,$chr(32)) in the alias. Edit: Put 43 instead of 32. Last edited by Collective; 08/02/04 10:31 PM.

Re: caps #70763 08/02/04 10:32 PM
Joined: Dec 2002 Posts: 332 Louisiana, USA C Cheech OP Fjord artisan
OP Cheech Fjord artisan C Joined: Dec 2002 Posts: 332 Louisiana, USA	is the caps alias ? if so could you tell me where to look in the help for assitance ? i would like to try and do it myself but not sure what you mean thx .

Re: caps

#70764 08/02/04 10:39 PM

Joined: Dec 2002

Posts: 3,138

London, UK

Collective Offline

Hoopy frood

Collective

Hoopy frood

Joined: Dec 2002

Posts: 3,138

London, UK

Sorry, I was talking nonsense. This is the correct reason why:

Code:

on 1:TEXT:*:*: {
  set %capscheck $remove($1-,$chr(32))
  set %capscheck1 $strip(%capscheck)
  if ($caps(%capscheck1) &gt;= 50) { 
    msg $chan 04 $+ $nick 02you are using 04 $+ $caps([color:red]%capscheck1[/color]) $+ % Caps. 02this is 04VERY 02annoying 
  }
}

Before you used $1- where the red is, that still has the spaces in.

Code:

on 1:TEXT:*:*: {
  set %capscheck $remove($1-,$chr(32))
  set %capscheck1 $strip(%capscheck)
  if ($caps(%capscheck1) &gt;= 50) { 
    msg $chan 04 $+ $nick 02you are using 04 $+ $ifmatch $+ % Caps. 02this is 04VERY 02annoying 
  }
}

Would be faster.

/me remembers to test his code

Re: caps #70765 08/02/04 10:55 PM
Joined: Dec 2002 Posts: 332 Louisiana, USA C Cheech OP Fjord artisan
OP Cheech Fjord artisan C Joined: Dec 2002 Posts: 332 Louisiana, USA	thx Collective i did not see that $1- all the times i looked in there

Link Copied to Clipboard

Forums Scripts & Popups caps