mıRC, mIRC indir, Sohbet, Chat

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur.

Kod;
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}

Bu Yazi tipi ise Cift renkli arka plan da sekilli yaziliyor.

Kod,

menu menubar,channel,query {
$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
}
}
#DuaL_CoLoR.Text on

on *:input:*:{
if ($left($1-,1) != /) {
if ($left($1-,1) != $chr(33)) {
set %len $len($1-) }
if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) – 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }
else {
msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) – 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}
}
}
}

Ozele 10 saniye icinde ayni kelimeyi 5 yazarsa # operler kanal Kere? Na bildirir ve zline ile sunucudan uzaklastirir.

Kod;

* Do?um: metin :*:?: (
. Inc-U10 $+(%, sel, $ nick)
$ Nick |% nick set | 2 $($+(%, sel, $ nick)) == 4 (userip $ nick e?er. Üstünde% sel ayarlamak için:)
2 $($+(%, sel, $ nick))> = 6 (zline $ nick Özel Flood zline e?er! | Unset $+(%, sel, $ nick))
)

Ham 340: *: (
(% Sel == üzerinde) (if
/ # Operler msg? LEM:% Nick,? P: $ gettok ($ 2,2,64), IP Adresi? Lenen: Özel Flood zline!
. Timer 1 2 / unset% nick
. Timer 1 3 / set% sel off
)
)

Mirc de * /if: invalid format (line 4, aliases.ini) gibi hataları okutabildiğinizi hatta isterseniz rengini stilini değiştirebileceğinizi biliyormuydunuz?

şöyleki:
bir aliases oluşturalım adı deneme olsun
deneme {
if c = { echo alo }
:error
echo : $error
}
kasti olarak if fonksiyonunu hatalı yazdım /deneme yazınca gelen uyarı:
: * /if: invalid format (line 2, aliases.ini)
* /if: invalid format (line 2, aliases.ini)
: ile başlıyan bizim echo : $error dan gelen mesajımız
şimdi normal mirc nin mesajını iptal edelim

deneme {
if c = { echo alo }
:error
echo : $error
reseterror
}
böylece sadece : * /if: invalid format (line 2, aliases.ini) mesajını alırız

Eğer fonksiyonumuzda hata yoksa bu durumda yine error ifadesini görüntülemeye çalışacaktır bunu engellemenin yollarından iki tanesi :
1.
deneme {
if c = { echo alo }
halt
:error
echo : $error
reseterror
}

şeklinde kullanabilirsiniz eğer if komutumuz düzgün olsa idi halt ile işlemi sonlandırırdı.

2.
deneme {
if c = { echo alo }
:error
$derror($error)
reseterror
}

derror {
if $1 { return echo -t 7[5Hata!7]:5 $1- }
}

Benim tavsiyem 2. yöntemi kullanmanız böylece fonksiyonlarınızdaki hataları da özelleştirebilir. herhangi bir hatada debug.log oluşturup kullanıcıların sizinle irtibata geçmesini sağlayabilirsiniz. Bunları 1. dede yapabilirdiniz ama her fonksiyona eklemek yerine 1 fonksiyonu çağırmak çok daha kullanışlı olur.