Advertisement
SaNCaK

mIRC Capitalize first letter and add a "." in the end.

Apr 19th, 2014
454
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 2.02 KB | None | 0 0
  1. on *:input:*:{
  2.   if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
  3.     var %smiley = :) :D :P :( :\ :/ ;) ;D ;P ;/ ;\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
  4.     var %smileys = :-) :-D :-P :-( :-\ :-/ ;-) ;-D ;-P ;-/ ;-\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\ :=/ ;=) ;=D ;=P ;=/ ;=\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
  5.     var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
  6.     var %httpthingy = htt www ftp
  7.     var %httpthingy21 = .com .net .org .php .asp .htm hehe haha omfg rofl .asx
  8.     var %httpthingy22 = .html .aspx
  9.     var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),32) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
  10.     var %newmsg = $regsubex(%newmsg,/\bi\b/g,I)
  11.     msg $active %newmsg
  12.     halt
  13.   }
  14. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement