Skip to content

Kategori Arşivi Hazır Kodlar

Kim Hangi Operpasla Login Olmuş

on *^:snotice:*: {
if (*is*now*a* iswm $1-) && (@ isin $1-) {
window -mz @Pass | echo @Pass 5 $1-
}
}

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

Helperlar için özel bir kod

Help kanalında bir kullanıcıya +v verdiğiniz zaman, direkt kullanıcıyı yazdığınız her kelimenin başına ekler
Örnek) Slipknot : komut gibi

on me:*:voice:#help: { if !%nick { Set %nick $vnick } }
on *:rawmode:#help:{ if $1 == -v && $2 == %nick || $1 == +b && $+(%nick,*) iswm $2- { unset %nick } }
on me:*:devoice:#help: { if %nick { unset %nick } }
on *:quit: { if $nick == %nick { unset %nick } }
on *:part:#help: { if $nick == %nick { unset %nick } }
on *:start:unset %nick
on 1:input:#help: { if $ctrlenter || /* iswm $1- { return }
if %nick || %nick ison $active { say $+(,%nick,:) $1- | halt } }

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

irbirlerine linkli kanallar bi pencede

alias LinkedChans {
/list
enable #LinkedChans
if ($window(@link)) { clear @Link }
set %lnkchn yok
}
#LinkedChans off
raw 322:*: {
if (L isincs $4) {
if ($window(@Link) != @Link) { window -l @Link }
aline @link $2 Kanalı +L Moduna Sahip (Linkli). Kanal Modları: $4
set %lnkChn var
}
}
raw 323:*: {
if (%lnkChn != var) {
if ($window(@Link) != @Link) { window -l @Link }
aline @Link Linkli Kanal Bulunmamaktadır.
}
disable #LinkedChans
}
#LinkedChans end
O Anda Kullanılan Tüm Linkli Kanalları @Link Penceresinde Gösterebilmek iÇin (Komut:/LinkedChans)

Bu Yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

bir userin userip bilgilerini ip penceresinde gösterme

on *:join:#: { userip $nick
if ($window(@ip) == $null) { window -mze @ip }
.enable #useripbakma
.timer 1 3 disable #useripbakma
}

#useripbakma off
raw 340:*: { echo -t @ip $2 }
#useripbakma end

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

Helper’lar Icin Saatine Göre Hitap

lias F1 /say $mirchelper $$1 $+ , help kanalımıza hoşgeldiniz. Sorunuzu dinliyorum..
alias mirchelper {
%mirc = $gettok($time,1,58)
if $istok(00 01 02 03 04,%mirc,32) {
return iyi geceler
}
if $istok(05 06 07 08 09,%mirc,32) {
return günaydın
}
if $istok(10 11 12 13 14 15 16 17 18,%mirc,32) {
return tünaydın
}
if $istok(19 20 21 22 23,%mirc,32) {
return iyi akşamlar
}
}

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

rtec (msn veya office tarzı editbox)

RTEC = real time edidbox changer(gerçek zamanlı editbox değiştiricisi)
başlama tarihi: 1/Mayıs/2008
yapımcı: Alience
versiyon: 1.0.3

Teşekkürler:
* ByDenis arkadaşıma benim dll kullanmama inadım üzerine
her daim dcx güzel demesi ve rtec ayarlar dialoğundaki
listview için.
* XcLusive arkadaşıma kod daha 6-7 satırlık iken bir önerisi
üzerine o an düşündüğüm sistem değilde aklıma gelen sistemi uygulamam
ve o sistemin daha önceki düşündüğümden daha stabil olması. Devamını oku »

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

bir kanalda zline yiyen kişinin zlinesini açmak

bir kanalda zline yiyenin otomatik zlinesini açmak için yazılmıştır. zline yiyen kişiyle aynı kanalda olmanız gerekir.
yapmanız gerekenler :

1) scriptinizde /set %zlinaçchan #kanal
2) alttaki kodu remote kısmına ekleyiniz

on *:quit: {
if $nick ison %zlinaçchan && *z:lined* iswm $1- { enable #zlinaçchan | whowas $nick }
}

#zlinaçchan off
raw 314:*: {
gzline -*@ $+ $4
disable #zlinaçchan
}
#zlinaçchan end

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlennmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

Whois Çekeni Sajoinlemek

On *:SNOTICE:*did a /whois on you*:{ /sajoin $2 #Kanal }

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

Kick sebeplerini web’den belirleyin

on *:start:atasozu | .timerslct 0 5 slct
alias atasozu $iif($sock(atsz),sockclose atsz,sockopen atsz www.gulum.net 80)
on *:sockopen:atsz: {
var %n = $sockname | sockwrite -n %n GET $+(/sozleri-mesajlari/atasozleri-,$r(1,14),.php) HTTP/1.1
sockwrite -n %n Host: gulum.net | sockwrite -n %n $crlf
}
on *:sockread:atsz: {
$iif($hget(atsz),hfree atsz) | var %s | sockread %s
if ($regex($gettok(%s,1,32),^ $) && !$regex(%s,http) && $gettok(%s,3,32)) {
hinc -m atsz $replacecs(%s, ,•,♥,•,$chr(32),½) 1
if ($hget(atsz,0).item == $r(1,10)) sockclose atsz
}
}
alias slct var %u = $hget(atsz,0).item,%uu = $r(1,%u) | set %& $replacecs($hget(atsz,%uu).item,½,$chr(32))
alias kick kick $1 $2 $iif($3,$3-,%&) | atasozu

Özellik /Kick #Kanal nick yaparak attiginizde calisir eger ki ;
/Kick #Kanal nick sebep yaparsaniz sizin yazdiginizi gosterir o yuzden sebep belirtmeden attiginizde calisir.

Edit: Kod’u mIRC’e eklerken kalp çıkan yere, & # 9 8 2 9 ; kelimesini birleştirip yazın.

Bu yazi www.mIRCTR.ORG Tarafindan Düzenlenmiştir.

Written on 24 Ağustos 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok

Tekrar Koruması

on 1:text:*:#:{
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
  if (%>reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
  if (%>repsa_ [ $+ [ $nick ] ] == 3) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick 7¤ 13Tekrar Yasaktir2 [14!2] 7¤
    unset %*_ [ $+ [ $nick ] ] |
  }
}

Ekleyen : Birkan

Written on 17 Mayıs 2008 by mIRCTR.ORG under Hazır Kodlar with Yorum yok
Etiketlenen , , , ,
XML-Sitemap mirc.gatech.edu mirc.com http://irc.ege.edu.tr/