Biraz daha basit halini ve istedigin servere göre belirterek yazmaya çalışalım.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: {
;Bu kısıma, aktif olmasını istedigimiz server adını yazıyoruz.
;Dikkat edilmesi gereken irc.ServerAdı.com uzantısındaki ServerAdı kısmını yazmamız.
var %temp, %server = mynet,webmaster,under,sohbet,zurna
if !$regex($1,^/) && $istok(%server,$gettok($server,2,46),44) && $server != $null {
;Bu kısıma ise aralarına boşluk koymasını istedigimiz kelimeleri yazıyoruz.
;Tabi aralarında virgül koyarak.
%temp = kelime,sevgi,barış,deneme
if $regex(rgxc,$1-,$+(/,$chr(40),$replace(%temp,$chr(44),$chr(124)),$chr(41),/)g) {
say $replace($1-,$regml(rgxc,1),$regsubex($regml(rgxc,1),/(.)/g,\1$chr(32)))
}
else {
say $1-
}
halt
}
Umarım işini görür hata ile karşılaşırsan eger buradan yardımcı olmaya çalışırım, kolay gelsin.