|
İ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
|
|