|
İrcde iStenmeyen YazıLara yıLdız KOymak |
ON ^*:TEXT:*:*: {
var %coco = 1
var %metin = $strip($1-)
if (%kelime = http://www.,.net,.com,a.k,köpek,piç,deneme/) {
;kelimeler örnek olarak eklendi bunlari while yada hget ile de fakli biçimlerde kullanbilirsiniz.
while $gettok(%kelime,%coco,44) {
if ($v1 isin %metin) {
var %metin = $replace(%metin,$v1,14*****)
;**** li olan kisma alt+160 bos TAB karekterini kullanarak hiç bir yazi da görüntületmeyebilirsiniz. Tavsiye etmem. kisinin ne yazdigi merak edilebilir
inc %coco
}
}
}
if (***** isin %metin) {
;eger karakteri alt+160 ile ayarlarsani yukaridaki **** lari da ayni yapmalisiniz.
echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %metin
;$+(<,$nick,>) kismini $+([,$nick,]) gibi temaniza göre ayarlayabilirsiniz.
haltdef
}
}
|
| Benzer Konular
|
|
Doviz KurLarı
