addon Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Kick sayaci Addon

19 Nisan 2014 • 19:29 OxiGeN Addonlar

#kicksayac on 
alias kick { 
if ( %kick.numara == $null ) { 
set %kick.numara 1 
} 
kick $1- 12«( $+ 4 %kick.numara 12)» 
inc %kick.numara 
} 

;Sayacı Sıfırlamak için /ksifir 
alias ksifir { 
set %kick.numara 1 
} 
#kicksayac end 

menu channel,nicklist,menubar,chat,query { 

Kick Sayacı 
.Aç:.enable #kicksayac | /echo -a 12Kick Sayacı4 Açıldı. 
.Kapat:.disable #kicksayac | /echo -a 12Kick Sayacı4 Kapatıldı. 
.Sifirla:.ksifir | /echo -a 12Kick Sayacı4 Sıfırlandı. 
}

#kicksayac on

alias kick {

if ( %kick.numara == $null ) {

set %kick.numara 1

}

kick $1- 12«( $+ 4 %kick.numara 12)»

inc %kick.numara

}

;Sayacı Sıfırlamak için /ksifir

alias ksifir {

set %kick.numara 1

}

#kicksayac end

menu channel,nicklist,menubar,chat,query {

Kick Sayacı

.Aç:.enable #kicksayac | /echo -a 12Kick Sayacı4 Açıldı.

.Kapat:.disable #kicksayac | /echo -a 12Kick Sayacı4 Kapatıldı.

.Sifirla:.ksifir | /echo -a 12Kick Sayacı4 Sıfırlandı.

}

» Devamını Oku

Yorum yaz addon, kick, mirc, sayaci

mIRC Büyük harf koruma Addon

19 Nisan 2014 • 19:29 OxiGeN Addonlar

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on
on @*:TEXT:*:#: {
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if ($len($1-) &lt; 50) || ($nick isop #) return
  var %text = $strip($remove($1-,$chr(32)))
  var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
  var %full.line = $len($strip($remove(%text,$chr(32))))
  var %percent = $calc(1 - (%non.caps / %full.line)) 
  if (%percent &gt;= 0.8) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick CAPS LOCK/OFF ( $+ % $+ $calc(%percent * 100) $+ )
    unset %CAPS. $+ $nick 
  }
}

#caps end

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on

on @*:TEXT:*:#: {

if $me !isop $chan { halt } | if $nick isop $chan { halt }

if ($len($1-) < 50) || ($nick isop #) return

var %text = $strip($remove($1-,$chr(32)))

var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))

var %full.line = $len($strip($remove(%text,$chr(32))))

var %percent = $calc(1 - (%non.caps / %full.line))

if (%percent >= 0.8) {

/mode $chan +b $address($nick,2) | /kick $chan $nick CAPS LOCK/OFF ( $+ % $+ $calc(%percent * 100) $+ )

unset %CAPS. $+ $nick

}

#caps end

» Devamını Oku

Yorum yaz addon, büyük, harf, Koruma, mirc

mIRC Nick identify Addon

19 Nisan 2014 • 19:28 OxiGeN Addonlar

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&amp;ptal", 2, 60 35 40 15, cancel 

}
| xxxx identify xxxx 
on 1:dialog:sifre:sclick:1: { 
if ($did(sifre,6)) &amp;&amp; ($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

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

» Devamını Oku

Yorum yaz addon, identify, mirc, Nick

mIRC Yazı Blok Addon

14 Nisan 2014 • 01:29 OxiGeN Addonlar

ON ^*:TEXT:*:*: {
var %coco = 1
var %metin = $strip($1-)
if (%kelime = http://www.,.net,.com,a.k,köpek,piç,deneme/) {
;kelimeler örnek olarak eklendi bunları while yada hget ile de faklı biçimlerde kullanbilirsiniz.
while $gettok(%kelime,%coco,44) { 
if ($v1 isin %metin) { 
var %metin = $replace(%metin,$v1,14*****)

;**** lı olan kısma alt+160 boş TAB karekterini kullanarak hiç bir yazı da görüntületmeyebilirsiniz. Tavsiye etmem. kişinin ne yazdıgı merak edilebilir 

inc %coco
}
}
}
if (***** isin %metin) { 

;eger karakteri alt+160 ile ayarlarsanı yukarıdaki **** ları da aynı yapmalısınız.

echo -tbf $iif($chan,$v1,$nick) $+(&lt;,$nick,&gt;) %metin

;$+(&lt;,$nick,&gt;) kısmını $+([,$nick,]) gibi temanıza göre ayarlayabilirsiniz.

haltdef
}
}  return %y }

ON ^*:TEXT:*:*: {

var %coco = 1

var %metin = $strip($1-)

if (%kelime = http://www.,.net,.com,a.k,köpek,piç,deneme/) {

;kelimeler örnek olarak eklendi bunları while yada hget ile de faklı biçimlerde kullanbilirsiniz.

while $gettok(%kelime,%coco,44) {

if ($v1 isin %metin) {

var %metin = $replace(%metin,$v1,14*****)

;**** lı olan kısma alt+160 boş TAB karekterini kullanarak hiç bir yazı da görüntületmeyebilirsiniz. Tavsiye etmem. kişinin ne yazdıgı merak edilebilir

inc %coco

}

if (***** isin %metin) {

;eger karakteri alt+160 ile ayarlarsanı yukarıdaki **** ları da aynı yapmalısınız.

echo -tbf $iif($chan,$v1,$nick) $+(<,$nick,>) %metin

;$+(<,$nick,>) kısmını $+([,$nick,]) gibi temanıza göre ayarlayabilirsiniz.

haltdef

}

} return %y }

» Devamını Oku

Yorum yaz addon, blok, mirc, yazi

Join – Part Saldirilari için Addon

14 Nisan 2014 • 01:27 OxiGeN Addonlar

on *^:join:#:{
;multi join[tüm adresler] 
inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj)
if (%mj- [ $+ [ $chan ] ] &gt;= $ccrc(mjlimit)) {
mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ])
.unset %mjj. [ $+ [ $nick ] ]
}
;Clone join tek adres..
var %ad = $wildsite
inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)
if (%mj. [ $+ [ %ad ] ] &gt;= $ccrc(cjlimit)) {
echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] )
mode $chan +b %ad
unset %mj. [ $+ [ %ad ] ]
}
}

alias ccrc {
goto $1 
;### Multi join conf
:mjhafıza {
RETURN 2
}
:mjaveraj {
;bu rakamı degiştirmeyin..
RETURN 1
}
:mjlimit {
RETURN 6 
}
;### Clone join conf
:cjhafıza { 
RETURN 1
}
:cjaveraj {
;bu rakamı değiştirmeyin..
RETURN 1
}
:cjlimit { 
RETURN 2 
}
}

on *^:join:#:{

;multi join[tüm adresler]

inc $+(-u,$ccrc(mjhafıza)) %mjj. [ $+ [ $chan ] ] $ccrc(mjaveraj)

if (%mj- [ $+ [ $chan ] ] >= $ccrc(mjlimit)) {

mode $chan +l $calc($nick(#,0) - %mjj. [ $+ [ $chan ] ])

.unset %mjj. [ $+ [ $nick ] ]

}

;Clone join tek adres..

var %ad = $wildsite

inc $+(-u,$ccrc(cjhafıza)) %mj. [ $+ [ %ad ] ] $ccrc(cjaveraj)

if (%mj. [ $+ [ %ad ] ] >= $ccrc(cjlimit)) {

echo -t $chan %ad $color(info) adresinden massjoin: $+(%mj. [ $+ [ %ad ] ] )

mode $chan +b %ad

unset %mj. [ $+ [ %ad ] ]

}

alias ccrc {

goto $1

;### Multi join conf

:mjhafıza {

RETURN 2

}

:mjaveraj {

;bu rakamı degiştirmeyin..

RETURN 1

}

:mjlimit {

RETURN 6

}

;### Clone join conf

:cjhafıza {

RETURN 1

}

:cjaveraj {

;bu rakamı değiştirmeyin..

RETURN 1

}

:cjlimit {

RETURN 2

}

» Devamını Oku

Yorum yaz addon, join, mirc, part, remote, saldirilari

mIRC Fullname Takip Addon

14 Nisan 2014 • 01:26 OxiGeN Addonlar

*\Bu kod ile sunucuya giriş yapanlara whois çeker ve fullname kısmında reklam bulunan kişileri size bildirir*\

Raw 352:*: {
  if $regex($upper($strip($9-)),İRCDE|.COM|WWW.|HTTP:|.ORG) &amp;&amp; $regex($strip($2),/#) { 
    var %ö 1
    while %ö &lt;= $comchan($6,0) {
      msg #x $comchan($6,%ö) $6 4FULLNAME'de Reklam Tespit Edildi.14 mIRCHane
      inc %ö
    }
  }
}
on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }

*\Bu kod ile sunucuya giriş yapanlara whois çeker ve fullname kısmında reklam bulunan kişileri size bildirir*\

Raw 352:*: {

if $regex($upper($strip($9-)),İRCDE|.COM|WWW.|HTTP:|.ORG) && $regex($strip($2),/#) {

var %ö 1

while %ö <= $comchan($6,0) {

msg #x $comchan($6,%ö) $6 4FULLNAME'de Reklam Tespit Edildi.14 mIRCHane

inc %ö

}

on *:JOIN:#:{ if ($nick = $me) { timer 1 20 checkstatus # } | else { if ($me isop #) { who $nick } } }

» Devamını Oku

Yorum yaz addon, fullname, mirc, takip

mIRC Hareketli Açılış

14 Nisan 2014 • 01:22 OxiGeN Addonlar

on *:start:acilis
alias acilis {
  window -aCBdop +deL @Acilis 10 10 400 150
  .timerdegistir 0 0 /degistir
}
alias degistir {
  set %renk $rand(2,12)
  inc %xzy 1
  if (%xzy &lt;= 30) { goto harf1 }
  if (%xzy &lt;= 60) { goto harf2 }
  if (%xzy &lt;= 90) { goto harf3 }
  if (%xzy &lt;= 120) { goto harf4 }
  if (%xzy &lt;= 150) { goto harf5 }
  if (%xzy &lt;= 180) { goto harf6 }
  if (%xzy &lt;= 210) { goto harf7 }
  if (%xzy &lt;= 250) { goto harf8 }
  if (%xzy == 251) { set %renk 1 | goto end }
  :harf1
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)
  halt
  :harf2
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)
  halt
  :harf3
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)
  halt
  :harf4
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)
  halt
  :harf5
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 C
  drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)
  halt
  :harf6
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 C
  drawtext @Acilis %renk Arial 100 190 25 H
  drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)
  halt
  :harf7
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 C
  drawtext @Acilis %renk Arial 100 190 25 H
  drawtext @Acilis %renk Arial 100 220 25 a
  drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)
  halt
  :harf8
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 C
  drawtext @Acilis %renk Arial 100 190 25 H
  drawtext @Acilis %renk Arial 100 220 25 a
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)
  halt
  :end
  clear @Acilis
  drawtext @Acilis %renk Arial 100 5 25 m
  drawtext @Acilis %renk Arial 100 70 25 I
  drawtext @Acilis %renk Arial 100 100 25 R
  drawtext @Acilis %renk Arial 100 150 25 C
  drawtext @Acilis %renk Arial 100 190 25 H
  drawtext @Acilis %renk Arial 100 220 25 A
  drawtext @Acilis %renk Arial 100 235 25 n
  drawtext @Acilis %renk Arial 100 285 25 e
  unset %xzy
  .timerdegistir off
  .timer 1 1 window -c @Acilis
}

on *:start:acilis

alias acilis {

window -aCBdop +deL @Acilis 10 10 400 150

.timerdegistir 0 0 /degistir

}

alias degistir {

set %renk $rand(2,12)

inc %xzy 1

if (%xzy <= 30) { goto harf1 }

if (%xzy <= 60) { goto harf2 }

if (%xzy <= 90) { goto harf3 }

if (%xzy <= 120) { goto harf4 }

if (%xzy <= 150) { goto harf5 }

if (%xzy <= 180) { goto harf6 }

if (%xzy <= 210) { goto harf7 }

if (%xzy <= 250) { goto harf8 }

if (%xzy == 251) { set %renk 1 | goto end }

:harf1

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 $rand(A,Z)

halt

:harf2

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 $rand(a,z)

halt

:harf3

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 $rand(a,z)

halt

:harf4

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 $rand(a,z)

halt

:harf5

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 C

drawtext @Acilis %renk Arial 100 190 25 $rand(a,z)

halt

:harf6

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 C

drawtext @Acilis %renk Arial 100 190 25 H

drawtext @Acilis %renk Arial 100 220 25 $rand(a,z)

halt

:harf7

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 C

drawtext @Acilis %renk Arial 100 190 25 H

drawtext @Acilis %renk Arial 100 220 25 a

drawtext @Acilis %renk Arial 100 235 25 $rand(a,z)

halt

:harf8

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 C

drawtext @Acilis %renk Arial 100 190 25 H

drawtext @Acilis %renk Arial 100 220 25 a

drawtext @Acilis %renk Arial 100 235 25 n

drawtext @Acilis %renk Arial 100 285 25 $rand(a,z)

halt

:end

clear @Acilis

drawtext @Acilis %renk Arial 100 5 25 m

drawtext @Acilis %renk Arial 100 70 25 I

drawtext @Acilis %renk Arial 100 100 25 R

drawtext @Acilis %renk Arial 100 150 25 C

drawtext @Acilis %renk Arial 100 190 25 H

drawtext @Acilis %renk Arial 100 220 25 A

drawtext @Acilis %renk Arial 100 235 25 n

drawtext @Acilis %renk Arial 100 285 25 e

unset %xzy

.timerdegistir off

.timer 1 1 window -c @Acilis

}

» Devamını Oku

Yorum yaz Acilis, addon, hareketli, mirc

« 1 … 9 10 11 12 13 … 23 »