IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Yazı Addonu Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/773941-yazi-addonu-sorunu.html)

Yazı Addonu Sorunu

Kod:



 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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

  }

}

Bu şekilde bir addonum var ilk harf büyük cümle sonunda noktalama smlie den sonra noktalama koymuyor lakin bir nicki tabladığımda o nickin de sonuna nokta koyuyor bunu nasıl engelleye bilirim yardımcı olurmusunuz acaba

Cevap: Yazı Addonu Sorunu

Kısacası... ifadeler,site adresleri ve rumuzlar cümlenin sonunda ise "." eklemesin, bunların dışındaki her şeye nokta eklesin istiyosun. Doğru mu.?

(kurduğun cümle o kadar bozukki anlamak için 20 kez okudum.)

Cevap: Yazı Addonu Sorunu

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041859702)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] nesi bozuk anlamadım böyle bir addon var smileden site adresleri vs bunlardan sonra nokta koymuyor buna nickleride eklemek istiyorum örnek veriyorum CoCoRiCo nickini tabladığımda CoCoRiCo. oluyor

Cevap: Yazı Addonu Sorunu

//echo $C_word(Lorem ipsum dolor sit amet consectetur adipiscing elit $me )
//C_word Lorem ipsum dolor sit amet consectetur adipiscing $me
/C_word Lorem ipsum dolor sit amet consectetur adipiscing elit :)

Kod:

alias C_word {

  noop $regex(n,$1-,/(\b\w+\b$)/gui) | var %r $iif($isid,return,echo)

  if ($regex($1-,/((htt[s\\]?|ftp[s:\\]?|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
else %r $iif($regml(n,1) isop $chan,$1-,$1-.)

}

Cevap: Yazı Addonu Sorunu

Kod:

alias C_word {   

noop $regex(n,$1-,/(\b\w+\b$)/gui) | var %r $iif($isid,return,echo)   

if ($regex($1-,/((htt[s\\]?|ftp[s:\\]?|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
else %r $iif($regml(n,1) ison $chan,$1-,$1-.) 

}

Cevap: Yazı Addonu Sorunu

Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041860327)

Kod:

alias C_word {   

noop $regex(n,$1-,/(\b\w+\b$)/gui) | var %r $iif($isid,return,echo)   

if ($regex($1-,/((htt[s\\]?|ftp[s:\\]?|
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
else %r $iif($regml(n,1) ison $chan,$1-,$1-.) 

}

biraz çok olacağım ama bunu diğerine nasıl ekleyeceğim konusunda yardımcı olurmusun

Cevap: Yazı Addonu Sorunu

Kod:

....
 if (!$ctrlenter) .msg $active $C_word($1-) | halt 
  }