Hazır kodlar nedir, nasıl olmalıdır
HAZIR KOD EKLENİRKEN DİKKAT EDİLMESİ GEREKEN HUSUSLAR

1- Hazır Kod, mIRC Scripting’e yeni bir yüz getirmesi lazım.
örneğin on *:connect: { join #abc } sunucuya girişte otomatikmen bir kanala girmenizi sağlar.bunu hazır kod sayamayız. ki ALT+O yapıp yaptırım kısmından yapılabilir.hazır kod niteliği taşımayan kodlar silinir.-
2- Hazır Kod Dediğin, mIRC’e eklenince Yeni Bir Özellik ve Kullanım Sağlayan Kodlardır, Bunu Sağlamıyorsa Paylaşılan Kod Silinir.-
3- Kendinize Ait Olmayan Kodlar Paylaşılırsa, Konu Silinir, Özgün Projelerinizle Bekliyoruz.-
4- Kaliteli Kod Yazan, Kaliteli Projeler Yapıp, Halkın Hizmetine Sunan Kişidir, –
5- Kod Paylaşılırken, Başkasına Gönderme, Polemik Yaratılan Kısımlar var ise, İlgili Kısım Silinir. Scripting Zevk İşidir, Gövde Gösterisi Değildir.-
6- Açılan konuda, yapılan çalışma hakkında bilgilendirme ve kullanım özelliklerini belirtmelisiniz.

Örneğin;
xXx Botunun Özellikleri.spamekle kelime Spam ekler vb.

 

 Kanalda Olanları İdle Süreleri kodu

on *:text:!idle*:#: {
set %php $chan
/idle $2
}
raw 317:*:{
if %kanal != $null {
msg %php $2 : idle suresi: $int($calc($3 / 60)) dakika, $calc( $3 – $calc($int($calc($3 / 60)) * 60 )) saniye.
}
if $2 == $nick(%kanal,%kacuser) {
msg %php — Liste sonu –
unset %kanal
}
}
alias idle {
set %kanal $1
msg %php — %kanal kanalinda bulunan kisilerin idle sureleri listeleniyor –
if $me ison %kanal {
set %kacuser $nick(%kanal,0)
var %i 1
while %i <= %kacuser {
set %userx $nick(%kanal,%i)
whois %userx
inc %i

alt + r yaparak remote kısmına aktarabilrisiniz,

Nick seslenince oto kanala join

on *:text:*:#: { if ($1 == $me) { haltdef } { .j $chan } }

alt + r yaparak remote kısmına ekleyebilirsiniz,

 
Oto Şifrelerinizi Girme
oto olarak nick şifrenizi girmenize yardımcı bir kod.

on *:connect:{
oper Nick sifre
ns identify şifre
join #kanal1,#kanal2,#kanal3,#kanal4,#kanal5
nick NYCK
}

 

Otomotik Nick Şifremi girsin Diyorsanız Aşagıdakı Kodu Mirc’inizin Remotesine Ekleyiniz.e

on *:CONNECT: {
.ns ghost Nickiniz nickpass
.nick kullandiginizrumuz
.msg NickServ IDENTIFY nickpass
}

 

Otomotik Olarak Nick Şifremi identify etsin Oper Şifremi Girsin Diyorsaniz Aşagıdaki Kodlari Mirc’inizin Remotunuza Ekleyiniz.

 

on *:CONNECT: {
.oper Opernicki OperPass
.ns ghost Nickiniz nickpass
.nick kullandiginizrumuz
.msg NickServ IDENTIFY nickpass
}
Servera girdiginizde otomotik olarak ayarladığım Kanallara girebileyim Diyorsaniz.? aşagıdaki kodlari Mirc’inizin remotesine Ekleyiniz.
on *:CONNECT: {
.oper Opernicki OperPass
.ns ghost Nickiniz nickpass
.nick kullandiginizrumuz
.msg NickServ IDENTIFY nickpass
.join #Kanal1,#kanal2,#kanal3
}
Servera girdigimde otomotik olarak Memo Listemi Görmek istiyorum diyorsaniz.? Aşagıdaki kodlari Mirc’inizin Remotesine Ekleyiniz.
on *:CONNECT: {
.ns ghost Nickiniz nickpass
.nick kullandiginizrumuz
.msg NickServ IDENTIFY nickpass
.ms list
}

kanala giren user ip bakma
Özel bir kanalınız var ve kanalınıza her girenin ip adresini ögrenmek istiyorsunuz işte aradıgınız kod

on *:join:#mırc:{ /userip $nick }

 
Kick Sayacı
hazır kodlar Kick Sayacı kline sayacı eklendi.
kod:
Kick Sayacı:

alias kick { kick $1- %kicksayac | kicksayac }

alias kicksayac {
if (%kicksayac == ) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}

Kline Sayacı:

alias kline { kline $1- %klinesayac | klinesayac }

alias klinesayac {
if (%klinesayac == ) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}

Memo Bilgi kutusu

;Memo geldiğinde uyaran bir dialog.
dialog ms {
title \”MemoServ Bilgi Kutusu\”
size -1 -1 220 85
text \”*** Yeni bir notunuz var.\”210 10 220 200
text \”*** Okumak için tamam butonuna basınız.\”310 30 220 200
button \”&Tamam\”470 50 85 25ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

Ilk harf Büyük Sonuna Nokta Yazi Tipi
Güzel bir yazı tipi daha  sizlere Bazı mIRC’den anlamayan site sahipleri bu kodu da alın

Bu kodun mantıgını açıklıyayım

Her yazdığınız kelimenin ilk harfi büyük olur ve cümle sonunada nokta koyar.
Kırmızı ile belirttigim yerleri koyar.

Site adresi verdiginizde kod karişmamaktadir. Mesela http://www.topluchat.com yazdınız. Yazdiginiz gibi karşıya cıkar. Site linklerinin sonunada nokta koymaz. Kodu açip kapama geregi duymazsiniz. Diğer bir özelligi ise Attıgınız gülücük ifadelerinin sonunada nokta koymaz o ifadeleri ayıklar.
Kod:
CTRL+A tusuna basarak kodun tamamını kopyalayiniz.

 

on *:input:*:{
if ($left($1,1) !isin x/$%.! && !$ctrlenter) {
var %smiley = :) :D :P :( :\\ :/ ;) ;D ;P ;/ ;\\ ;( :* ;* :@ :S :# :$ :o xD :< :> ;@ ;S ;# ;$ ;o ;< ;>
var %smileys = :-) :-D :-P :-( :-\\ :-/ ;-) ;-D ;-P ;-/ ;-\\ ;-( :-* ;-* :-@ :-S :-# :-$ :-o :-< :-> ;-@ ;-S ;-# ;-$ ;-o ;-< ;-> :=) :=D :=P :=( :=\\ :=/ ;=) ;=D ;=P ;=/ ;=\\ ;=( :=* ;=* :=@ :=S :=# :=$ :=o :=< :=> ;=@ ;=S ;=# ;=$ ;=o ;=< ;=> ^_^ o_o O_O o_O O_o 0_0 0_o o_0 *_^ ^_* -.- omg lol btw wtf heh bbl brb
var %noact = $chr(33) $chr(64) $chr(35) $chr(36) $chr(37) $chr(94) $chr(38) $chr(42) $chr(40) $chr(41) $chr(45) $chr(43) $chr(61) $chr(49) $chr(50) $chr(51) $chr(52) $chr(53) $chr(54) $chr(55) $chr(56) $chr(57) $chr(48) $chr(92) $chr(123) $chr(125) $chr(124) $chr(59) $chr(58) $chr(39) $chr(34) $chr(44) $chr(46) $chr(60) $chr(62) $chr(47) $chr(63) $chr(95) $chr(91) $chr(93)
var %httpthingy = htt www ftp
var %httpthingy21 = .com .net .org .php .asp .htm omfg rofl .asx
var %httpthingy22 = .html .aspx
var %newmsg = $iif($1 !ison $active && $1 != $active && !$istok(%smiley,$1,32) && !$istok(%smileys,$1,32) && !$istok(%noact,$1,32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%httpthingy22,$right($1,5),32),$upper($left($1,1)) $+ $right($1,-1),$1) $+ $iif($2-,$chr(32) $+ $2- $+ $iif(!$istok(%noact,$right($2-,1),32) && !$istok(%smiley,$right($2-,2),32) && !$istok(%smileys,$right($2-,3),32) && !$istok(%httpthingy,$left($gettok($2-,-1,32),3),32) && !$istok(%httpthingy21,$right($gettok($2-,-1,32),4),32) && !$istok(%noact,$left($gettok($2-,-1,32),1),32) && !$istok(%httpthingy22,$left($gettok($2-,-1,32),5),32),.),$iif(!$istok(%noact,$right($1,1),32) && !$istok(%smiley,$right($1,2),32) && !$istok(%smileys,$right($1,3),32) && !$istok(%httpthingy,$left($1,3),32) && !$istok(%httpthingy21,$right($1,4),32) && !$istok(%noact,$left($1,1),32) && !$istok(%httpthingy22,$right($1,5),32),.))
var %newmsg = $regsubex(%newmsg,/\\bi\\b/g,I)
msg $active %newmsg
halt
}
}