Herhangi bir network’da admin arkadaşlara güzel bir kod daha. Bu kodu kullanabilmeleri için RAW yetkileri olmak zorundadir. Kod ne işe yariyor ilk önce onu belirtelim.  Servere baglaniyorsunuz operinizi, Nickinizi, Nick şifrenizi oto giriyorsunuz ve NickServ, HelperServ, OperServ, ChanServ Tüm kanallara Mesaj veriyor.  Örneğin; Read the full story

Bu addon ile özelinize gelen nicklere oto whois cekip. Addon halinda bilgileri falan gösteren bir dialog’tur.

Öncelikle kodu size takdim edelim.

;**************;
; Active Whois ;
;**************;
RAW 311:*: {
set -u1 %x 1
echo -a 4149##########14Ec9Ks14tas9y 14W9hoi14s9##########
echo -a 14�Real Name:4 $mid($gettok($2-,2,42),2,99) $+ 
echo -a 14�Address:4 $mid($address($2,1),4,99) $+  Read the full story

UnrealIRCd3.2.8 uzun bir aradan sonra yayinlandi.

Bu sürümde toplam 70 değişiklikler yapilmiştir. Birçok hatalar bug’lar giderilmiştir. Spamfilter geç algılama agır kaldirmalar gibi sorunlar da giderilmiştir. Isterseniz aşagidaki resimden indirebilirsiniz.

Sorunlari buradan inceleyebilirsiniz. Ingilizce’dir. Read the full story

Merhaba arkada?lar. Wordpress\\\'te anket sistemi ararken akl?ma mirc için yap?lm?? anket addonu var m?d?r diye dü?ündüm. Google\\\'da arad?m anket addonu yok, ircforumlari.net adresinde farkl? kelimeler ile arad?m yok.
?u an bu mesaj? yazmadan önce tekrar bir arayay?m dedim ve yine yok...
Kar??n?zda anket addonu.

Kodu çal??t?rmak için mirc\\\'e yükleyip, f1 tu?una basman?z yeterlidir.

Kod:

;Anket Addonu.
;Tüm kodlar kullan?labilir.
;Tek ricam bu addonu kalk?p ba?ka bir nick alt?nda \\"ben yazd?m diye yay?nlamay?n lütfen.
;Güle güle kullan?n.
;Ileti?im MSN : admin@chatix.org

On *:Join:#: {
  if ($nick !== $me) {
    if ($chan == %anketkanal) { .msg $nick Anketimize kat?lmak ister misiniz? | .msg $nick Anketimize kat?lmak için lütfen !Anket yaz?n?z. | .msg $nick Anket sonuçlar?n? görmek içinse !Sonuc yaz?n?z. | AnketleriBirArttir }
    if ($chan !== %anketkanal) { Halt }
  }
}
On *:Text:*:?: {
  if ($1 == !Sonuc) { Sonuclar }
  if ($1 == !Anket) { Anket }
  if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
  if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun ald??? oy say?s? %sonucoy1 }
  if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun ald??? oy say?s? %sonucoy2 }
  if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun ald??? oy say?s? %sonucoy3 }
  if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun ald??? oy say?s? %sonucoy4 }
}
Alias Anket {
  .msg $nick Anketimize ho?geldiniz.
  .msg $nick Anket sorumuz ?öyledir.
  .msg $nick 
  .msg $nick %anketsoru
  .msg $nick 
  .SonucOzel
}
Alias SonucOzel {
  if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
  if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 }
  if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 }
  if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
  .msg $nick 
  .msg $nick Anketimize kat?lmak için lütfen !Oy Seçti?iniz ??kk?n numaras?. Örn : !Oy 1
}
Alias Denetleme {
  if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanm??s?n?z. | halt }
  if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap }
}
Alias OylamaYap {
  if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçti?iniz anket cevab?n?n numaras?n? giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
  if (%VerdigiOy == 1) { inc %sonucoy1 }
  if (%VerdigiOy == 2) { inc %sonucoy2 }
  if (%VerdigiOy == 3) { inc %sonucoy3 }
  if (%VerdigiOy == 4) { inc %sonucoy4 }
  .msg $nick Oyunuz kaydedilmi?tir. Oylama yapt???n?z anket cevap numaras? %VerdigiOy
  .write Liste.txt %OyAdresi
  .halt
}
Alias AnketleriBirArttir {
  inc %ilkanketgiris
  if (%ilkanketgiris == 1) {
    if (%sonuc1 !== $null) { inc %sonucoy1 }
    if (%sonuc2 !== $null) { inc %sonucoy2 }
    if (%sonuc3 !== $null) { inc %sonucoy3 }
    if (%sonuc4 !== $null) { inc %sonucoy4 }
  }
  if (%ilkanketgiris !== 1) { return }
}
Alias f1 {
  set %anketkanal $$?=\\"Anket kanal?n? ba??nda # olarak yaz?n?z.\\" | TestKanal
}
Alias TestKanal {
  if (%anketkanal == $null) { echo -a Anket sistemi anket kanal? olmadan maalesef çal??maz. | halt }
  if (%anketkanal !== $null) { set %anketsoru $$?\\"Anketin sorusunu aç?k bir dille yaz?n?z.\\" | AnketSoruTest }
}
Alias AnketSoruTest {
  if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç?  | echo -a Lütfen ankete soru girin. | halt }
  if (%anketsoru !== $null) { Set %sonuc1 $$?=\\"Anket cevap 1 yaz?n?z\\" | Cevapbirtest }
}
Alias CevapbirTest {
  if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc1 !== $null) { set %sonuc2 $$?=\\"Anket cevap 2 yaz?n?z\\" | Cevapikitest }
}
Alias CevapikiTest {
  if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc2 !== $null) { set %sonuc3 $$?=\\"Anket cevap 3 yaz?n?z\\" | Cevapuctest }
}
Alias CevapucTest {
  if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc3 !== $null) { set %sonuc4 $$?=\\"Anket cevap 4 yaz?n?z\\" | Cevapdorttest }
}
Alias CevapdortTest {
  if (%sonuc4 == $null) { halt }
  if (%sonuc4 !== $null) { halt }
}

Kaynak: ircDforumlari.net

Tek komutla bir kullanıcıyı onlarca kanala sokmak için gereken addon sajj.

<!– /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-parent:”"; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:”Times New Roman”; mso-fareast-font-family:”Times New Roman”;} @page Section1 {size:595.3pt 841.9pt; margin:70.85pt 70.85pt 70.85pt 70.85pt; mso-header-margin:35.4pt; mso-footer-margin:35.4pt; mso-paper-source:0;} div.Section1 {page:Section1;} –>

Kodu mirc scriptinizin aliases kısmına olduğu gibi ekleyin.

sajj {

var %q = mirc sohbet mırc mırç mirç türkçe sohbet sohpet çet chat çat ses sis bak sen ne yaptın beni kaç kanala soktun yavaş ol script donuyor bu ne ya yüz kanal oldu tamam abi büyüksün sen kralsın kahramansın cartsın curtsun felan filan şeklinde boşluk bırakarak kanal sayısını arttır

var %w = 1

while %w <= $numtok(%q,32) {

sajoin $1 $chr(35) $+ $gettok(%q,%w,32)

inc %w

}

}

Kanal sayısını kendiniz arttırabilirsiniz. Kullanım şekli /sajj nick

Sunucuya girişte otomatik olarak nickinizi, oper şifrenizi, nick şifrenizi ve hostunuzu ayarlamak için gereken addon.

Kodu mirc scriptinizin remote bölümüne ekleyiniz.

on 1:CONNECT: {
.oper nick şifre
.nick nickiniz
.identify şifreniz
.sethost Hostunuz.com
}

Eğer admin veya oper deilseniz operlerle ilgili olan diyalog kısmını çıkarabilirsiniz. host ve oper kısımlarını.. Nick bölümlerine kendi nickinizi ve şifre kısımlarına kendi passwordunuzu yazınız. Mirc34.net mirc ekibi en yararlı addonları sizlerle paylaşmaya devam edecektir.Bizi takip etmeye devam edin.

Son zamanlarda reklamcı botların sıkça tercih ettiği reklam türü away mesajına reklam eklemek. Böylelikle spamfilter, adwords gibi reklam korumalarından etkilenmeden  istedikleri gibi reklamlarını yazabiliyorlar.

Bunun birkaç çözüm yöntemi var; biri şimdi vereceğim kod ile scriptinize kolayca away taraması yaptırtabilirsiniz. ikinci seçenek ise Unreal’inizi editleyerek away olmayı yasaklayabilir veya kayıtsız nicklerin away olmalarını engelleyebilirsiniz. Ben açıkçası 2. şıkka karşıyım. Şu yüzden karşıyım mirc de reklam yapan lamerlerin reklamlarını engellemek için user’lerimizin away haklarını ellerinden almamamız gerektiğine inanıyorum. O kodu da IRC makaleleri bölümünde yakında paylaşacağım fakat bence mirc ile tarama yaptırmak daha mantıklı. Şayet güzelim Unreal IRCd’in özelliklerini lamerleri engellemek için kapatırsak biz kaybederiz, IRC kaybeder. Neyse lafı uzatmadan kodu vereyim sizlere;

on *:text:!awaytara &:#takip:{ tarama $2 }

Alias tarama { msg #Takip 4 $1 5kanalında away taraması başlatıldı… | unset %awayscan | .enable #awayscan | who $1 }

#awayscan off

raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }

raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | msg #Takip 4 $iif($numtok(%awayscan,32) > 0,$2 5kanalında 4 $ifmatch 5tane away nick bulundu $+ $chr(44) away mesajlarına bakılıyor:,$2 5kanalında kimse away değil.) } }
#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { msg #Takip 5 Away nick : $+( 4,$2, 4) 5 Mesaj : $+( 4,$3-, 4) } }

Yukarıdaki kodu Mirc’inizin remote bölümüne eklemelisiniz. (Alt + R ile açabilirsiniz)

Kodun çalışma prensibi şu şekilde, away kanalında !awaytara #kanaladi yazıldığında mirc’iniz o kanaldaki away kişileri tarıyor, ve takip kanalında size bildiriyor.. Away mesajları ve nickleri ile birlikte. sizde kolayca tespit edip lamerleri sunucunuzdan uzaklaştırıyorsunuz

Bu addon ile sohbet ederken arkadaşlarınizin siteye geldiginde uyari vericektir. Yani Notify eklediginiz kişileri fark edebiliceksiniz.

alias ac { dialog -m notify notify }
dialog notify {
  title "mIRC Notify Addon"
  size -1 -1 116 58
  option dbu
  text "Nick", 1, 5 10 25 8
  edit "", 3, 33 9 78 10
  box "Notify", 2, 2 1 113 23
  button "Ekle", 4, 15 27 37 12
  button "Çıkar", 5, 57 27 37 12
  button "Listele", 6, 35 41 37 12
}
on *:Dialog:notify:sclick:4:{ notify $did(3) | gload notify }
on *:dialog:notify:Sclick:5:{ notify -r $did(3) }
on *:Dialog:notify:Sclick:6:{ notify -l }
on *:notify:{ gtalk -k notify Notify Listenizde Bulunan $nick Şu Anda Servere Giriş

mIRC Scriptleriniz için Günün Sözü Kodu. GununSozu.com sitesinden cekilmektedir.

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
  var %c = sockwrite -n $sockname
  if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
  %c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
  var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)

on *:text:*:#:{ if $istok(slm sa selam selamlar s.a,$1-,32) { inc -eu60 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # Ãleyküm Selam Ho$geLdiniz $nick } } }
on *:action:*:#:{ if $istok(slm sa selam selamlar s.a,$1-,32) { inc -eu30 $+(%,$nick,#,$network) 1 | if $($+(%,$nick,#,$network),2) == 1 { msg # Ãleyküm Selam Ho$geLdiniz $nick } } }

Addon’u Mirc’a Nasıl Ekliyeceğim ?

Yukarıdaki mevcut kodları Mirc‘ta alt+R yapip remote kısmına kopyalıyoruz. Tamam deyip kapatıyoruz. Herhangi biri kanalda selam, slm vb. yazdıgında otomatik olarak scriptiniz Ãleyküm Selam Ho$geLdiniz cevabını vericektir.