Bu Kod ile belirlediginiz kanallara ame mesajlari ve amsg yazdiginiz mesajlar o kanallara iletilmicektir. Kodu Remotelere koyunuz.
alias ame { if $1 { var %º = 1 | while $chan(%º) { if !$istok(#help #Operhelp #System #irccontrol #root #Opers ,$v1,32) { !describe $chan(%º) $1- } | inc %º } } }
alias amsg { haltdef | var %i 0 | var %t $chan(0) | while %i < %t { inc %i | if !$ist
Her gün farklı Sözler öğrenmenize yarar.
dialog söz {
title “Günün Sözü ”
size -1 -1 312 24
option dbu
edit “”, 1, 11 6 291 10
}
alias htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,  
return %x
}
alias gününsözü { sockopen söz www.gununsozu.com 80 | dialog -m söz söz }
on *:sockopen:söz:{
sockwrite -n $sockname GET / HTTP/1.0
sockwrite -n $sockname Host: gununsozu.com $+ $crlf $+ $crlf
}
on *:sockread:söz:{
if ($sockerr) {
echo 4 -a hata var!
}
else {
var %gününsözü
sockread %gününsözü
if <p id=“text<font color=” align=center“> isin %gününsözü {
set %sözler ” $deltok($htmlfree(%gününsözü),,9) $+ “ )
}
}
}
on *:Dialog:söz:init:0:{
did -a söz 1 %sözler
}
/Gününsözü
Şeklinde Çalıştırabilirsiniz.
alias ban { dialog -m ban ban }
dialog ban {
title “Ban İnformation System”
size -1 -1 219 235
option dbu
text “Kanal”, 1, 6 13 51 8
box “Ban Menüsü”, 2, 2 2 213 105
edit “”, 3, 62 12 146 10
list 4, 62 27 145 75, size vsbar
text “Banlananlar”, 5, 6 28 51 8
text “Banlayan”, 6, 3 112 54 8
list 7, 62 111 144 92, size vsbar
link “Coded By daRkMoRGaN”, 8, 7 210 65 8
button “Bilgileri Ver”, 9, 86 217 37 12
button “Sıfırla”, 10, 128 217 37 12
}
on *:dialog:ban:*:*:{
if $devent == sclick {
if $did == 9 {
var %ban 1 , %ban2 $ibl($did(3),0)
while %ban <= %ban2 {
did -a ban 4 %ban $+ . Atılan : $ibl($did(3),%ban)
did -a ban 7 %ban $+ . Banı Atan : $ibl($did(3),%ban).by
inc %ban
}
}
}
}
on *:Dialog:ban:*:*:{
if $devent == sclick {
if $did == 10 {
did -r ban 4
did -r ban 7
}
}
}
alias ajoin {
if ($1 == $null) || ($2 == $null) {
> echo 6 * Usage : /ajoin #Dolu_Kanal #Dolacak_Kanal Kac_Kisi
echo 6 * Exam : /ajoin #diyalog #sohbet 50
echo 6 * AbArTH Oper mIRC %showlogo }
else {
echo 6 * Userlar Aliniyor… $1 to $2
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
fjoin $2 %nick
echo 12 * %i %nick moved to $2
if (%i == $3) { break }
inc %i
}
echo 6 * Toplam %i User Ajoin Edildi to $2.
}
}
alias Clone {
var %ğ = $nick(#,0)
while %ğ {
if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
else { hinc host $address($nick(#,%ğ),2) }
dec %ğ
}
echo 4 -st # kanalı için clone taraması başlatıldı…
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%ı).item — 10Bağlı kullanıcı sayısı: $hget(host,%ı).data — 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}
menu channel {
.-
.Clone Tara:.Clone #
}
mIRC Flood Koruması
on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 50 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}
Bu kod kanalda herhangi birisi away olursa deop oto deop eder. Kodun mantığı ; yok , away , gelecek gibi Nicke ek alırsa deop eder.
on !*:NICK:{
if (away isin $newnick) || (yok isin $newnick) || (gelcek isin $newnick) {
deopall
}
}
alias deopall {
var %wy $chan(0)
while %wy {
if $me isop $chan(%wy) && $newnick isop $chan(%wy) {
mode $chan(%wy) -o $newnick
}
dec %wy
}
}
