Yönetici Gezegeni : Devamını oku >>
mIRC Platformu
Dünya, Sağlık, haber
İspanya’da tam yüz nakli yapılan bir “neurofibromatosis” hastası, kendisini ameliyat eden doktoruyla birlikte medya karşısına çıktı. Devamını oku >>
haber
TBMM Genel Kurulunda, Anayasa değişikliği teklifinin 17. maddesi 337 oyla kabul edildi.
AĞLAYAN MİLLETVEKİLLERİ OLDU Devamını oku >>
mIRC indir
Bu auto away kodunun çalişma mantıgı. 20 dakika sunucuda hiç kimseye yazmadınız diyelim. Otomatik Away moduna geçiyorsunuz. Nickinize AWAY eki ekleniyor. Away mesajınızda Otomatik away seklinde olarak ekleniyor. Hiç bir komut kullanmadan da away dan cıkabiliyorsunuz yani birisine birşey yazacaginiz zaman otomatik away moddan cıkıp eski nickinizi alıyorsunuz. Güzel bir kod daha mircarsivi.com!
Kod içerisinde ($idle >= 1200) seklinde bi yazı görüceksiniz. Oradaki süreyi kendiniz belirleyiniz.
Kodun çalışmasi için Size bir PING gönderilmesi gerekir. Zaten sunucu her bir süre zarfında sizi ping?ler sizde ona cvp verirsiniz. Yani şöle demeyiniz. 5 dakka ya aldım ama nickim değişmedi gibisinden size 5 dakikanın içerisinde sunucu sizi pinglediginde işlem görecekti
Kod:
CTRL+A tusuna basarak kodun tamamını kopyalayiniz.
on 1:input:*:{ if ($away) { away | nick $remove($me,\Away) } }
on 1:ping:{ if ($idle >= 1200) && (!$away) { away Otomatik Away Oldum | nick $me $+ \Away } }
mIRC indir
mirc 6.16 da olan :error, $error, /reseterror hakkında açıklama başka versiyonda varmı bilmiyorum.
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.
mIRC indir
on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre }
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }
dialog sifre {
title “Şifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: “, 3, 10 10 23 13
edit “”, 5, 45 8 60 10, style(pass)
edit “”, 6, 45 20 60 10
button “Uygula”, 1, 10 35 40 15, ok
button “I&ptal”, 2, 60 35 40 15, cancel
}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}İdentify Kutucugu
Hazır Kodlar
ctcp 1:*:*:{
inc -u5 %ctcp.flood
if (%ctcp.flood > 3) {
if ($nick == $me) { halt }
ignore -tu30 $nick
.echo -a $nick Özelinize flood yaptı. Otomatik ignore ettiniz.
.msg $nick Özelime flood’dan dolayı , ignore edildiniz. }
}
mIRC indir
alias fnkoruma { if $1 == + { enable #FNKontrol } | else { disable #FNKontrol } }
#FNKontrol On
alias fullnamekontrol { if *.com iswm $2- || *.net iswm $2- || *.org iswm $2- || irc.* iswm $2- { var %cSj = $comchan($1,0) | while %cSj { $iif($comchan($1,%cSj).op,ban -k $comchan($1,%cSj) $1 2 4Fullname’inizde RekLam’a RastLandı!.. Değiştiriniz!.. ) | dec %cSj } } }
on !*:join:#:{ who $nick }
raw 352:*:{ fullnamekontrol $6 $9- | halt }
raw 315:*:{ halt }
#FNKontrol end
Bunu IRC Komutlarıyla da şu şekliyle yapabilirsin
/mode #kanal +b ~r:www
Hazır Kodlar
s_user.c dosyasının içerisindeki
Kod: Devamını oku >>