Arkadaşlar Bu kodu mIRC remotesine gelerek yada mIRC sayfanizda [CTRL+A] basarak tamamini orda tüm kodlarin en sonuna gelerek bir enter e bastiktan sonra pastele yapiştir yapin. Kodun calişmasi icin tamam yaparak cikin.
Bu kod sayesinde yazi karakterleriniz yazilariniz daha güzel şekil ve anlamli olucaktir. örnek vererek aciklamak gerekirse örg: siz mircdost nettekidostunuz yazdiniz. karşiya ( Mircdost netteki dostunuz. ) yaziniz ilk harfi büyük ve sonunda nokta olucaktir. Umarizki işinize yarar.
Yazi ilk harfi büyük bitiminde nokta Kod:
on *:input:*:{
if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
var %smiley = 
:\ :/ 
;D ;P ;/ ;\ ;( :* ;* :@ :S :# :$ 
xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
var %smileys = :-\ :-/ ;-D ;-P ;-/ ;-\ ;-( :-* ;-* :-@ :-S :-# :-$ :-< :-> ;-@ ;-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
}
}
www.mIRCDost.Com Net`teki dostunuz.
