Tek Mesajı Görüntüle
Eskimiş 01-Şubat-2025, 10:10   #1
Çevrimiçi
 
SynaX Kullanıcısının Avatarı

Üye No: 1
Kayıt Tarihi: 26-Aralık-2024
Mesajlar: 862
Konular: 829
Nerden: Bursa
Takımı: Beşiktaş
Meslek:
Aldığı Beğeni: 4
Beğendikleri: 7
@SynaX
Varsayılan Mirc İlk Harf Büyük Sonuna Nokta Yazı Tipi

Mirc İlk Harf Büyük Sonuna Nokta Yazı Tipi
Her Yazdığınız Kelimenin İlk Harfi Büyük Olur Ve Cümle Sonunda Nokta Koyar.


Kod
on *:input:*:{
  if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
    var %smiley = :) :D :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
    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
    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)
    var %httpthingy = htt www ftp
    var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
    var %httpthingy22 = .html .aspx
    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),.))
    var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
    msg $active %newmsg
    halt
  }
}

 
Alıntı ile Cevapla