Sık Kullanılanlara Ekle



   
  Bursa Gençlik
  mIRC Addon
 

mIRC'i Lisanslamak (Crack) 

Kod:
alias Crack {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16 
var %kg.ctr = 4 
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58))) 
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58))) 
inc %kg.ctr 
} 
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version 
echo :Lisanslanan kişi4 $1- 
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin... 
echo :--------------------------------------------------------------------------------------------
}
                                     Karışık Yazı Tipleri 

 

Kod:
alias yati { 
  if $dialog(yazitip) = $null { dialog -m yazitip yazitip }
  else { halt }
}
 
dialog yazitip {
  title "Yazıtipi"
  size 250 150 110 170
  radio "Elit",1,10 10 90 20
  radio "Full Ascii",2,10 30 90 20
  radio "Ters",3,10 50 90 20
  radio "Büyük-Küçük",4,10 70 90 20
  radio "Renkli",5,10 90 90 20
  radio "Normal",19,10 110 90 20
  box "",20,5 0 100 135
  button "Tamam",21,5 145 100 20,ok
}
on 1:dialog:yazitip:sclick:1:{  .disable #ters | .disable #elit | .enable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:2:{ .disable #ters | .enable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:3:{ .enable #ters | .disable #elit | .disable #turkce | .disable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:4:{ .disable #ters | .disable #elit | .disable #turkce | .enable #buykuc | .disable #renkli }
on 1:dialog:yazitip:sclick:5:{ .enable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:sclick:19:{ .disable #renkli | .disable #ters | .disable #elit | .disable #turkce | .disable #buykuc }
on 1:dialog:yazitip:init:0:{
  if ($group(#turkce).status == on ) { did -c yazitip 1 }
  if ($group(#elit).status == on ) { did -c yazitip 2 }
  if ($group(#ters).status == on ) { did -c yazitip 3 }
  if ($group(#buykuc).status == on ) { did -c yazitip 4 } 
  if ($group(#renkli).status == on ) { did -c yazitip 5 }
  if ($group(#turkce).status == off ) && ($group(#elit).status == off ) && ($group(#ters).status == off ) && ($group(#buykuc).status == off ) && ($group(#renkli).status == off ) { did -c yazitip 19 }
}
#renkli off
on 1:INPUT:*:{
  unset %ahenk*  
  set %ahenkk $1-
  if ( $chr(47) == $mid(%ahenkk,1,1) ) { %ahenkk | halt }
  set %ahenku $len(%ahenkk)
  set %ahenks 1
  :ilk
  if ( %ahenks > %ahenku ) goto son
  set %ahenkh $mid(%ahenkk,%ahenks,1)
  if ( %ahenkh == $chr(32) ) {
    %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
  }
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
  inc %ahenks
  goto ilk
  :son
  say %ahenkt
  unset %ahenk*
  halt
}
#renkli end
#turkce off
on 1:INPUT:*:{  
  unset %turkce
  set %turkce $1-
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | halt }
  %turkce = $replace(%turkce,ı,I)
  %turkce = $replace(%turkce,İ,I)  
  %turkce = $replace(%turkce,ş,$)
  %turkce = $replace(%turkce,Ş,$)
  %turkce = $replace(%turkce,ç,c)
  %turkce = $replace(%turkce,Ç,c)
  %turkce = $replace(%turkce,ğ,G)
  %turkce = $replace(%turkce,Ğ,G)
  %turkce = $replace(%turkce,ü,u)
  %turkce = $replace(%turkce,Ü,U)  
  %turkce = $replace(%turkce,b,ß)
  %turkce = $replace(%turkce,B,ß)
  %turkce = $replace(%turkce,<,«)
  %turkce = $replace(%turkce,>,»)
  say %turkce
  unset %turkce  
  halt
}
#turkce end
#elit off
on 1:INPUT:*:{
  unset %elit  
  set %elit $1-
  if ( $chr(47) == $mid(%elit,1,1) ) { %elit | halt }
  %elit = $replace(%elit,a,å)
  %elit = $replace(%elit,b,ß)
  %elit = $replace(%elit,c,©)
  %elit = $replace(%elit,d,D)
  %elit = $replace(%elit,e,ë)
  %elit = $replace(%elit,f,F)
  %elit = $replace(%elit,h,]-[)
  %elit = $replace(%elit,i,î)
  %elit = $replace(%elit,k,|{)
  %elit = $replace(%elit,l,£)
  %elit = $replace(%elit,m,M)
  %elit = $replace(%elit,n,ñ)
  %elit = $replace(%elit,o,ø)  
  %elit = $replace(%elit,p,P)
  %elit = $replace(%elit,q,¶)
  %elit = $replace(%elit,r,®)
  %elit = $replace(%elit,s,§)
  %elit = $replace(%elit,t,±)
  %elit = $replace(%elit,u,µ)
  %elit = $replace(%elit,v,V)
  %elit = $replace(%elit,w,')
  %elit = $replace(%elit,x,×)
  %elit = $replace(%elit,y,¥)
  %elit = $replace(%elit,z,Z)
  %elit = $replace(%elit,ı,I)
  %elit = $replace(%elit,İ,Î)  
  %elit = $replace(%elit,ş,$)
  %elit = $replace(%elit,Ş,$)
  %elit = $replace(%elit,ç,¢)
  %elit = $replace(%elit,Ç,¢)
  %elit = $replace(%elit,ğ,g)
  %elit = $replace(%elit,Ğ,Ğ)
  %elit = $replace(%elit,ü,û)
  %elit = $replace(%elit,Ü,Û)  
  %elit = $replace(%elit,ö,ô)
  %elit = $replace(%elit,Ö,Ô)
  %elit = $replace(%elit,!,¡)
  %elit = $replace(%elit,?,¿)
  %elit = $replace(%elit,<,[)
  %elit = $replace(%elit,>,»)
  %elit = $replace(%elit,-,¬)
  %elit = $replace(%elit,:,¦)
  %elit = $replace(%elit,',`)
  %elit = $replace(%elit,`,')
  say %elit
  unset %elit  
  halt
}
#elit end
#ters off
on 1:INPUT:*:{
  unset %ters* 
  set %tersd $1-
  if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }
  set %tersu $len(%tersd)
  set %terss 1
  :ilk
  if ( %tersu == 0 ) goto son
  if ( $mid(%tersd,%tersu,1) == $chr(32) ) {
    %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))
  }
  %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)
  dec %tersu
  inc %terss
  goto ilk
  :son
  say %terst
  unset %ters*
  halt
}
#ters end
#buykuc off
on 1:INPUT:*:{
  unset %buy*  
  set %buyk $1-
  if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | halt }
  set %buys 1
  set %buyu $len(%buyk)
  :ilk
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)  
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ı,I,o,O,p,P,ğ,Ğ,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L,ş,Ş,i,İ,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç)
  set %buyb %buyb $+ %buyh  
  inc %buys
  if ( %buys > %buyu ) goto son
  set %buyh $mid(%buyk,%buys,1)    
  if ( %buyh == $chr(32) ) {
    %buyh = $replace(%buyh,$chr(32),$chr(0160))
  }
  %buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ı,O,o,P,p,Ğ,ğ,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l,Ş,ş,İ,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç)  
  inc %buys  
  set %buyb %buyb $+ %buyh  
  goto ilk
  :son
  say %buyb
  unset %buy*
  halt
}
#buykuc end
Kanaldaki herkese seslenmek 
Kod:
alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }
 
 Tarihte Bugün
Kod:
; 
; www.bianet.org a teşekkürler

alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias -l tarih { return $+($replace($gettok($date,2,$asc(/)),01,ocak,02,subat,03,mart,04,nisan,05,mayis,06,haziran,07,temmuz,08,agustos,09,eylul,10,ekim,11,kasim,12,aralik),_,$gettok($date,1,$asc(/)),.htm) }
alias tbugun { dialog -m tarih tarih  }
on *:SockOpen:tarih*:{
  sockwrite -n $sockname GET $+(/tarih_arsiv/,$tarih) HTTP/1.0
  sockwrite -n $sockname host: www.bianet.org $+ $crlf $+ $crlf
}
on *:SockRead:tarih*:{ 
  var %a
  sockread %a
  if ($sockerr) { did -ra tarih 1 Bağlantı Hatası Lütfen Daha Sonra Tekrar Deneyin | return }
  if (%sjn == Ok!) && (sayfa başına !isin %a) && (dön</FONT> !isin %a) { did -a tarih 1 $htmlfree($replace($+(%a,$chr(160)),<BR>,$crlf)) }
  if (Tarihte bugün isin %a) { set %sjn Ok! | did -ra tarih 1 Tarihte Bugün $+ $crlf }
}
dialog tarih {
  title "Tarihte Bugün Gösterici"
  size -1 -1 133 169
  option dbu
  edit "Yükleniyor..", 1, 4 2 124 144, read multi return autovs vsbar
  button "Çıkış", 2, 47 151 37 12, ok
}
on *:dialog:tarih:init:*:{
  unset %sjn 
  sockclose tarih* 
  sockopen $+(tarih,$r(1,999)) www.bianet.org 80
}


Bad İdent Koruması
Kod:
on @*:JOIN:#:{ 
  if (*!*sik*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress)  || (*!*Oros*@* iswm $fulladdress) || (*!*Amcık*@* iswm $fulladdress) || (*!*Pic*@* iswm $fulladdress) || (*!*Piç*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*Yarak*@* iswm $fulladdress) || (*!*Yarrak*@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) { 
    ban -u120 # $nick 11 
    /ban -u120 # $nick 5 | kick # $nick Bu tür identlerle kanal giriş yapmak yasaktır. 
  } 
}



Op/Voice Teşekkür Kod:
alias tesekkur { dialog -m tsk tsk }
dialog tsk {
  title "Op-Voice-Hop ( Tesekkür Dialog ) | www.caddesohbet.com ( Coded : Maxi )"
  size -1 -1 243 170
  option dbu
  tab "Op - Deop ( Tesekkür )", 1, 0 -2 241 160
  button "Ekle", 8, 30 21 17 10, tab 1
  edit "", 4, 55 20 178 13, tab 1 return autohs autovs
  button "Sil", 9, 30 34 17 10, tab 1
  button "Ekle", 10, 31 88 17 10, tab 1
  edit "", 6, 55 87 178 13, tab 1 return autohs autovs
  button "Sil", 11, 31 101 17 10, tab 1
  list 5, 55 34 178 50, tab 1 size
  list 7, 55 101 178 50, tab 1 size
  check "Check Box", 31, 9 53 7 10, tab 1
  edit "+(@) , -(@)", 32, 18 52 36 11, tab 1
  tab "Voice - Devoice ( Tesekkür )", 2
  button "Ekle", 15, 30 21 17 10, tab 2
  edit "", 16, 55 20 178 13, tab 2 return autohs autovs
  button "Sil", 17, 30 34 17 10, tab 2
  button "Ekle", 19, 31 88 17 10, tab 2
  edit "", 20, 55 87 178 13, tab 2 return autohs autovs
  button "Sil", 21, 31 101 17 10, tab 2
  list 18, 55 34 178 50, tab 2 size
  list 22, 55 101 178 50, tab 2 size
  check "Check Box", 33, 9 53 7 10, tab 2
  edit "+(v) , -(v)", 34, 18 52 36 11, tab 2
  tab "Hop-Dehop ( Tesekkür )", 3
  button "Ekle", 23, 30 21 17 10, tab 3
  edit "", 24, 55 20 178 13, tab 3 return autohs autovs
  button "Sil", 25, 30 34 17 10, tab 3
  button "Ekle", 27, 31 88 17 10, tab 3
  edit "", 28, 55 87 178 13, tab 3 return autohs autovs
  button "Sil", 29, 31 101 17 10, tab 3
  list 26, 55 34 178 50, tab 3 size
  list 30, 55 101 178 50, tab 3 size
  check "Check Box", 35, 9 53 7 10, tab 3
  edit "+(%) ,-(%)", 36, 18 52 36 11, tab 3
  button "Kapat", 14, 217 159 25 11, ok
  box "", 13, 2 10 238 147
  box "", 12, 7 14 228 139
}



on *:dialog:tsk:*:*: {
  if ($devent == sclick) {
    if ($did == 5) { did -ra $dname 4 $did(5).seltext }
    if ($did ==  {
      if ($did(4) != $null) { write op.txt $did(4) | did -a $dname 5 $did(4) }
      did -r $dname 4
    }
    if ($did == 9) {
      if ($did(4) != $null) { write $+(-,d,s,$did(4)) op.txt | did -d tsk 5 $did(5).sel }
      did -r $dname 4
    }
    if ($did == 7) { did -ra $dname 6 $did(7).seltext }
    if ($did == 10) {
      if ($did(6) != $null) { write deop.txt $did(6) | did -a $dname 7 $did(6) }
      did -r $dname 6
    }
    if ($did == 11) {
      if ($did(6) != $null) { write $+(-,d,s,$did(6)) deop.txt | did -d tsk 7 $did(7).sel }
      did -r $dname 6
    }
    if ($did == 18) { did -ra $dname 16 $did(18).seltext }
    if ($did == 15) {
      if ($did(16) != $null) { write v.txt $did(16) | did -a $dname 18 $did(16) }
      did -r $dname 16
    }
    if ($did == 17) {
      if ($did(16) != $null) { write $+(-,d,s,$did(16)) v.txt | did -d tsk 18 $did(18).sel }
      did -r $dname 16
    }
    if ($did == 22) { did -ra $dname 20 $did(22).seltext }
    if ($did == 19) {
      if ($did(20) != $null) { write dv.txt $did(20) | did -a $dname 22 $did(20) }
      did -r $dname 20
    }
    if ($did == 21) {
      if ($did(20) != $null) { write $+(-,d,s,$did(20)) dv.txt | did -d tsk 22 $did(22).sel }
      did -r $dname 20
    }
    if ($did == 26) { did -ra $dname 24 $did(26).seltext }
    if ($did == 23) {
      if ($did(24) != $null) { write h.txt $did(24) | did -a $dname 26 $did(24) }
      did -r $dname 24
    }
    if ($did == 25) {
      if ($did(24) != $null) { write $+(-,d,s,$did(24)) h.txt | did -d tsk 26 $did(26).sel }
      did -r $dname 24
    }
    if ($did == 30) { did -ra $dname 28 $did(30).seltext }
    if ($did == 27) {
      if ($did(28) != $null) { write dh.txt $did(28) | did -a $dname 30 $did(28) }
      did -r $dname 28
    }
    if ($did == 29) {
      if ($did(28) != $null) { write $+(-,d,s,$did(28)) dh.txt | did -d tsk 30 $did(30).sel }
      did -r $dname 28
    }
    if ($did == 14) {
      if ($did(31).state == 1) { .enable #op }
      if ($did(31).state == 0) { .disable #op }
      if ($did(33).state == 1) { .enable #vop }
      if ($did(33).state == 0) { .disable #vop }
      if ($did(35).state == 1) { .enable #hop }
      if ($did(35).state == 0) { .disable #hop }    
    }
Espiri/Fıkra Bulucu
Kod:
alias -l  sok { sockwrite -n $sockname $1- }
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } }
alias komedi {
  $iif(!$dialog(komikaze),dialog -m komikaze komikaze)
  did -ra komikaze 12 Yukleniyor...   
  did -r komikaze 4 
  sockclose komik
  sockopen komik www.komikaze.net 80
}
alias -l fikra {
  did -ra komikaze 12 Yukleniyor...   
  did -h komikaze 8
  did -vb komikaze 16
  did -h komikaze 9
  did -vb komikaze 17
  did -h komikaze 10
  did -vb komikaze 18    
  did -r komikaze 11
  sockclose fikra
  sockopen fikra www.komikaze.net 80
}
alias -l pagejump {
  set %pagejump $1-
  did -ra komikaze 12 Yukleniyor... 
  did -r komikaze 4
  sockclose komik2
  sockopen komik2 www.komikaze.net 80
}
alias -l pagejump2 {
  set %pagejump2 $1-
  did -ra komikaze 12 Yukleniyor...
  did -r komikaze 11
  sockclose fikra2
  sockopen fikra2 www.komikaze.net 80
}
on *:SockOpen:fikra2:{
  sok GET %pagejump2 HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:komik2:{
  sok GET %pagejump HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:fikra:{
  sok GET /fikralar.asp HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}
on *:SockOpen:komik:{
  sok GET /ayiesprileri.asp HTTP/1.1
  sok host: www.komikaze.net
  sok $crlf
}

on *:SockRead:fikra*:{
  var %a   
  sockread %a 
  if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) } 
  if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link2 $gettok(%a,2,$asc(")) }
  if ($chr(246) $+ nceki isin %a) { set %onceki.link2 $gettok(%a,2,$asc(")) }
  if (*sonraki*yok* iswm %a) { set %sonraki.link2 yok }
  if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link2 $gettok(%a,2,$asc(")) } 
  if (face="Verdana isin %a) { set %sjn.puha Ok! }
  if (%sjn.puha == Ok!) && (g $+ $chr(246) $+ nderdi isin %a) {  unset %sjn.puha }
  if (%sjn.puha == Ok!) { did -a komikaze 11 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
  if (%a == 
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {  
    if (%bugun.link2 != yok) { did -v komikaze 9 | did -h komikaze 17 } | else { did -h komikaze 9 | did -vb komikaze 17 }
    if (%sonraki.link2 != yok) { did -v komikaze 10 | did -h komikaze 18 } | else { did -h komikaze 10 | did -vb komikaze 18 }
    if (%onceki.link2 != yok) { did -v komikaze 8 | did -h komikaze 16 } | else { did -h komikaze 8 | did -vb komikaze 16 }
    did -ra komikaze 12 Tamam.
    sockclose fikra
  }
}
on *:SockRead:komik*:{
  var %a 
  sockread %a
  if (object moved isin %a) && (href isin %a) { pagejump $gettok(%a,2,$asc(")) }
  if (bug $+ $chr(252) $+ n isin %a) { set %bugun.link $gettok(%a,2,$asc(")) }
  if ($chr(246) $+ nceki isin %a) { set %onceki.link $gettok(%a,2,$asc(")) }
  if (*sonraki*yok* iswm %a) { set %sonraki.link yok }
  if (sonraki isin %a) && (yok !isin %a) { set %sonraki.link $gettok(%a,2,$asc(")) }
  if (class="karika"> isin %a) { set %sjn.hehe Ok! }
  if (%sjn.hehe == Ok!) { did -a komikaze 4 $htmlfree($replace(%a,ı,i,ş,s,
,$crlf,ğ,g,ö,o,",",ü,u,İ,I,ç,c,Ç,C,Ş,S,&e,e,Ğ,G,’,',…,...,â,a,î,i,’,',”,",“,")) }
  if (%sjn.hehe == Ok!) && (</font> isin %a) { unset %sjn.hehe }
  if (%a == 
<!-- Mirrored from www.mIRCFox.Com/.?sayfa=dokuman_oku&id=17 by HTTrack Website Copier/3.x [XR&CO'2006], Wed, 25 Oct 2006 17:57:24 GMT -->
</html>) {  
    if (%bugun.link != yok) { did -v komikaze 6 | did -h komikaze 15 } | else { did -h komikaze 6 | did -vb komikaze 15 }
    if (%sonraki.link != yok) { did -v komikaze 7 | did -h komikaze 14 } | else { did -h komikaze 7 | did -vb komikaze 14 }
    if (%onceki.link != yok) { did -v komikaze 5 | did -h komikaze 13 } | else { did -h komikaze 5 | did -vb komikaze 13 }
    did -ra komikaze 12 Tamam.
    sockclose komik
  }
}
dialog komikaze {
  title "Espri - Fikra Bulucu"
  size -1 -1 165 122
  option dbu
  tab "Espri", 1, 3 2 159 99
  edit "", 4, 7 32 153 64, tab 1 read multi return autovs vsbar
  link "<- Onceki Gun", 5, 36 20 37 8, tab 1
  text "<- Onceki Gun", 13, 36 20 37 8, tab 1
  link "Bugun", 6, 76 20 17 8, tab 1
  text "Bugun", 15, 76 20 17 8, tab 1
  link "Sonraki Gun ->", 7, 96 20 38 8, tab 1
  text "Sonraki Gun ->", 14, 96 20 38 8, tab 1
  tab "Fikra", 2
  link "<- Onceki Gun", 8, 36 20 37 8, tab 2
  text "<- Onceki Gun", 16, 36 20 37 8, tab 2
  link "Bugun", 9, 76 20 17 8, tab 2
  text "Bugun", 17, 76 20 17 8, tab 2
  link "Sonraki Gun ->", 10, 96 20 38 8, tab 2
  text "Sonraki Gun ->", 18, 96 20 38 8, tab 2
  edit "", 11, 7 32 153 64, tab 2 read multi return autovs vsbar
  button "Kapat", 3, 126 106 37 12, ok
  edit "", 12, 7 106 111 10, read
}
on *:dialog:komikaze:*:*:{
  if ($devent == sclick) {
    if ($did == 5) && (%onceki.link) { pagejump %onceki.link }
    if ($did == 6) { pagejump %bugun.link }
    if ($did == 7) && (%sonraki.link != yok) { pagejump %sonraki.link }
    if ($did == 2) { fikra }
    if ($did == 1) { komedi }
    if ($did ==  && (%onceki.link2) { pagejump2 %onceki.link2 }
    if ($did == 9) { pagejump2 %bugun.link2 }
    if ($did == 10) && (%sonraki.link2 != yok) { pagejump2 %sonraki.link2 }
  }
  if ($devent == init) {
    did -h komikaze 5
    did -b komikaze 13
    did -h komikaze 6
    did -b komikaze 14
    did -h komikaze 7
    did -b komikaze 15      
    did -ra $dname 12 Yukleniyor...
  }
  if ($devent == Close) { sockclose komik* | sockclose fikra* }
}
on *:LOAD:{ echo -a Espri - Fikra Bulucu Yuklendi | echo -a /komedi komutuyla calisitirin | echo -a www.caddesohbet.com... }
Hızlı services bot oluşturma
Kod:
/botat { 
/set %server $$?="Serveriniz" 
/set %kanal1 $$?="Botun Gireceği Kanal 1? (Ornek: #CADDE)" 
/set %kanal2 $$?="Botun Gireceği Kanal 2? (Ornek: #CADDE)" 
/set %kanal3 $$?="Botun Gireceği Kanal 3? (Ornek: #CADDE)" 
/set %kanal4 $$?="Botun Gireceği Kanal 4? (Ornek: #CADDE)" 
/set %kanal5 $$?="Botun Gireceği Kanal 5? (Ornek: #CADDE)" 
/set %kanal6 $$?="Botun Gireceği Kanal 6? (Ornek: #CADDE)" 
/set %kanal7 $$?="Botun Gireceği Kanal 7? (Ornek: #CADDE)" 
/set %kanal8 $$?="Botun Gireceği Kanal 8? (Ornek: #CADDE)" 
/set %kanal9 $$?="Botun Gireceği Kanal 9? (Ornek: #CADDE)" 
/set %kanal10 $$?="Botun Gireceği Kanal 10? (Ornek: #CADDE)" 
/set %os-timer $$?="Kaç tane services bot oluşturulacak? (Ornek: 25)" 
/timer %os-timer 4 /bot-2 
} 
/bot-2 { 
//set %nicks $read("system/nicks.txt" 
//botserv bot add %nicks Sanalnikah %server 7©CaddeSohbet© | //msg #bot.raw  %nicks  Nickinde Bot Oluşturuldu. Zaman: $time  $date dir. ßy NoBotes 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal1 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal1 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal2 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal2 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal3 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal3 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal4 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal4 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal5 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal5 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal6 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal6 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal7 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal7 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal8 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal8 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal9 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal9 kanalına girdi. 
//timer 0 15 //msg operserv raw : $+ %nicks join %kanal10 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal10 kanalına girdi. 
//timer 0 110 //msg operserv raw : $+ %nicks part %kanal1 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal1 kanalına çıktı. 
//timer 0 120 //msg operserv raw : $+ %nicks part %kanal2 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal2 kanalına çıktı. 
//timer 0 130 //msg operserv raw : $+ %nicks part %kanal3 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal3 kanalına çıktı. 
//timer 0 140 //msg operserv raw : $+ %nicks part %kanal4 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal4 kanalına çıktı. 
//timer 0 150 //msg operserv raw : $+ %nicks part %kanal5 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal5 kanalına çıktı. 
//timer 0 160 //msg operserv raw : $+ %nicks part %kanal6 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal6 kanalına çıktı. 
//timer 0 170 //msg operserv raw : $+ %nicks part %kanal7 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal7 kanalına çıktı. 
//timer 0 180 //msg operserv raw : $+ %nicks part %kanal8 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal8 kanalına çıktı. 
//timer 0 190 //msg operserv raw : $+ %nicks part %kanal9 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal9 kanalına çıktı. 
//timer 0 200 //msg operserv raw : $+ %nicks part %kanal10 | //timer 0 1 //msg #bot.raw  %nicks  Nicki %kanal10 kanalına çıktı. 
}

Proxy Bulucu
Kod:
; Iyi Sanslar (: 
alias sjn { sockwrite -n proxy $1- | did -ra proxy 8 Yukleniyor... } 
alias sjn2 { sockwrite -n proxy2 $1- | did -ra proxy 8 Yukleniyor... } 
alias sjn3 { sockwrite -n proxy3 $1- | did -ra proxy 8 Yukleniyor... } 
alias cleartext { return $remove($1-,<,>,/,td,br) } 
alias pwhois { sockclose proxy3 | sockopen proxy3 www.proxy4free.com 80 | set %sjn.pwhois $1 } 
alias pagejump { sockclose proxy2 | sockopen proxy2 www.proxy4free.com 80 | set %sjnproxy.link $1- $+ .html } 
alias proxybulucu { 
dialog -m proxy proxy 
sockclose proxy 
sockopen proxy www.proxy4free.com 80 
} 
on *:SockOpen:proxy:{ 
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* } 
sjn GET / HTTP/1.1 
sjn host: www.proxy4free.com 
sjn User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 
sjn $crlf 
} 
on *:SockRead:proxy:{ 
var %a 
sockread %a 
if (page isin $gettok(%a,5,32)) { did -a proxy 1 $remove($gettok($gettok(%a,5-,32),2,$asc(>)),<,/a,>,/td) } 
} 
dialog proxy { 
title "Proxy Bulucu" 
size -1 -1 267 162 
option dbu 
list 1, 5 19 33 105, size 
text "Sayfa Listesi", 2, 8 8 25 8 
text "Sayfayi Gormek Icin Cift Tikla", 3, 1 125 41 17 
list 4, 43 19 216 105, size 
button "Kullan", 5, 123 126 49 12 
button "Whois", 6, 199 126 51 12 
text "Proxy Listesi", 7, 134 8 31 8 
edit "Yukleniyor", 8, 82 144 111 11, read 
button "Proxy Kullanma", 9, 53 126 50 12 
} 
on *:dialog:proxy:*:*:{ 
if ($devent == dclick) { 
if ($did == 1) { unset %sjn.answer | unset %sjn.test | pagejump $remove($did(1).seltext,$chr(32)) | did -r proxy 4 } 
} 
if ($devent == init) { did -b proxy 8 } 
if ($devent == sclick) { if ($did == 6) { 
$iif($dialog(pwhois),dialog -x pwhois pwhois) 
$iif($did(4).sel,dialog -m pwhois pwhois) 
unset %sjn.answer 
$iif($did(4).sel,pwhois $gettok($did(4).seltext,1,32)) 
} 
if ($did == 5) { .firewall on | .firewall -mp $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) | echo -a Kullanilan Proxy -> $gettok($did(4).seltext,1,32) $gettok($did(4).seltext,3,32) } 
if ($did == 9) { .firewall off | echo -a Proxy Kullanimi Iptal Edildi } 
} 
if ($devent == Close) { sockclose proxy* } 
} 
on *:SockOpen:proxy2:{ 
if ($sockerr) { did -ra proxy 8 Hata! | sockclose proxy* } 
sjn2 GET / $+ %sjnproxy.link HTTP/1.1 
sjn2 host: www.proxy4free.com 
sjn2 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 
sjn2 $crlf 
} 
on *:SockRead:proxy2:{ 
var %a 
sockread %a 
if ($gettok(%a,1,32) == <tr) && (href !isin %a) { set %sjn.test Ok! } 
if (%sjn.test == Ok!) && (bgcolor !isin %a) && (align !isin %a) && (class !isin %a) && (href !isin %a) && (width !isin %a) { %sjn.answer = %sjn.answer - $cleartext(%a) } 
if ($gettok(%a,1,32) == </tr>) { $iif($remove(%sjn.answer,-,tr,$chr(32)) && %sjn.answer != - tr && $mid($gettok(%sjn.answer,2,32),1,1) isnum,did -a proxy 4 $gettok($remove(%sjn.answer,tr),2-,32)) | unset %sjn.test | unset %sjn.answer } 
} 
on *:SockClose:proxy*:{ 
did -ra proxy 8 Tamam. 
} 
dialog pwhois { 
title "Whois Bak" 
size -1 -1 158 188 
option dbu 
edit "", 1, 12 12 135 157,read vsbar multi autovs autohs 
button "Tamam", 2, 59 174 37 12, ok 
} 
on *:Dialog:pwhois:close:*:sockclose proxy3 | did -ra proxy 8 Tamam. 
on *:SockOpen:proxy3:{ 
sjn3 GET /cgi-bin/whois.cgi?domain= $+ %sjn.pwhois HTTP/1.1 
sjn3 host: www.proxy4free.com 
sjn3 User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 
sjn3 $crlf 
} 
on *:SockRead:proxy3:{ 
var %a 
sockread %a 
if (<code> isin %a) { 
var %i 3 
while %i <= 19 { 
did -a pwhois 1 $cleartext($gettok(%a,%i,$asc(>))) $+ $crlf 
inc %i 
} 
} 
}
Nick Kayıt
Kod:
alias regnick dialog -m regn regn 
dialog regn { 
title Nick Register 
size -1 -1 125 205 
icon $mircexe 


text Şifre:,4,10 10 100 15, 
edit ,5,10 30 100 20,autohs 

text Email: ,6,10 60 190 15, 
edit ,7,10 75 100 20,autohs 

;box 
box ,8,1 1 120 55 
box ,9,1 49 120 55 
box ,10,1 97 120 57 

; button 
button "&Kayıt Et",11,10 160 100 20,flat ok 
button "&Kapat",12,10 180 100 20,flat 

;text 
text "şu andaki nickiniz registerlenecektir",13,20 115 150 40, 

} 

on 1:dialog:regn:*:*:{ 
if ($devent == init) { 
if ($did == 5) { did -a regn 5 %reg.p } 
if ($did == 7) { did -a regn 7 %reg.em } 
} 
if ($devent == edit) { 
if ($did == 5) { set %reg.p $did(5) } 
if ($did == 7) { set %reg.em $did(7) } 
} 
if ($devent == sclick) { 
if ($did == 11) { /msg nickserv register %reg.p %reg.em | /echo -a 6(12 $+ $timestamp $+ 6) 4Nickiniz Kayıt Ediliyor. } 
} 
}
Script Sayaç
Kod:
on 1:start:{ 
if (%sayac == $null) { 
set %sayac 1 
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin 
|; ######Vea Kod Cakisiyo 
} 
%sayac = %sayac + 1 
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak 
| #######zor olmasa gerek) sayaciniz acldıgnda yazacak msjı Giriniz ben 
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama 
| #######aliasesa o sekilde ekleyin sekilde ekleyin 
} 
} 
alias baslat { 
echo X Script kullanıma Hazır 
echo X Script daha önce %sayac Kere Calıstırıldı 
| vsvsvs 
}
Google Araması
Kod:
Addon Kodu: 
alias google { 
if ($1 != $null) { 
sockclose google 
set %google.search $1- 
sockopen google www.google.com 80 
} 
else { 
echo -a You need to specify what to google 
} 
} 
on *:sockopen:google:{ 
sockwrite -n $sockname GET /ie?q= $+ $replace($replace($replace(%google.search,$chr(32),$eval(%20,0)),&,$eval(%26,0)),=,$eval(%3D,0)) $+ &hl=en&lr=&ie=UTF-8&oe=UTF-8&btnG=Google+Search HTTP/1.1 
sockwrite -n $sockname Host: www.google.com 
sockwrite -n $sockname Connection: Keep-Alive 
sockwrite -n $sockname $crlf 
} 
on *:sockread:google:{ 
if ($sockerr) { 
echo -a Error. 
halt 
} 
else { 
;var %sock.temp 
sockread %sock.temp 
if (%sock.temp != $null) { 
if (<NOBR>* iswm %sock.temp) { 
var %sock.temp = $remove($remove(%sock.temp,<b>),</b>) 
var %google.1 = $mid($gettok(%sock.temp,1,32),7) 
var %google.3 = $gettok($mid($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1),32),6),1,62) 
var %google.2 = $gettok($gettok($gettok(%sock.temp,$calc($findtok(%sock.temp,TARGET=_main,32) + 1) $+ -,32),2,62),1,60) 
$iif(%google.1 == 1.,window -k @Google) 
$iif(%google.1 == 1.,aline @Google Results for %google.search) 
aline @Google $replace($replace($replace($replace($replace(%google.1 %google.2 - 12 $+ %google.3,>,>),<,<),","),',’),&,&) 
} 
elseif (*No standard web pages containing all your search terms were found.* iswm %sock.temp) { 
window -k @Google 
aline @Google No results found for %google.search 
} 
;echo -a %sock.temp 
} 
} 
} 
menu @google { 
Clear:clear @google 
} 

Addon Hakkında Bilgi ve Kullanımı: 
Arkadaşlar addon mirc üzerinden konuşurken geçen bir kelimeyi konuşmayı kesmeden aramamızı sağlar. Kullanış bakımında gayet kolay ve rahat. 
Öncelikle yukarıdaki kodu bir txt dosyasına kopyalayıp //load -rs textismi.txt şeklinde kuruyoruz. Kurduktan sonra bizim için gerekli olan komutlar: 
Arama yapmak için: 
/google aranacak kelime 
Arama Yaptığımız Pencereyi Temizlemek İçin İse: 
/clear @google 
Komutlarını Kullanıyoruz.
Kick ve Kline Sayacı 
 
Kod:
Kick Sayacı: 

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

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

Kline Sayacı: 

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

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

Operator Paneli 
Kod:
alias oconsole { dialog -m console console } 
dialog console { 
title "Cadde v.Sohbet Kanal Operatör Menüsü" 
size -1 -1 350 320 
button "Bu Menüyü Kapa",1,33 283 285 30,ok flat 
list 2, 195 30 140 237,sort 
box "",3,6 6 339 267 
box "ChanServ Komutları",4,20 19 165 130, flat 
button "Aop Ekle",5,33 40 60 25, flat 
button "Sop Ekle",6,33 75 60 25, flat 
button "Aop Sil",7,110 40 60 25, flat 
button "Sop Sil",8,110 75 60 25, flat 
button "Akick Ekle",9,33 110 60 25, flat 
button "Akick Sil",10,110 110 60 25, flat 
button "Op Ver",11, 33 160 60 25, flat 
button "Deop Yap",12,110 160 60 25, flat 
button "Kick/Ban",13,33 195 60 25, flat 
button "Kick At",14,110 195 60 25, flat 
button "Voice Ver",15,33 230 60 25, flat 
button "Voice Al",16,110 230 60 25, flat 
text "",17, 235 17 70 13 
} 

on *:dialog:console:sclick:5:{ if ($me isop %c-cha) .chanserv aop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:6:{ if ($me isop %c-cha) .chanserv sop %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:7:{ if ($me isop %c-cha) .chanserv aop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:8:{ if ($me isop %c-cha) .chanserv sop %c-cha del $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:9:{ if ($me isop %c-cha) .chanserv akick %c-cha add $remove($did(console,2,$did(console,2).sel).text,@,+) | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) } 
on *:dialog:console:sclick:10:{ if ($me isop %c-cha) .chanserv akick %c-cha del $remove($remove($did(console,2,$did(console,2).sel).text,@,+),@,+) } 
on *:dialog:console:sclick:11:{ if ($me isop %c-cha) mode %c-cha +o $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:12:{ if ($me isop %c-cha) mode %c-cha -o $remove($did(console,2,$did(console,2).sel).text,@,+) } 
on *:dialog:console:sclick:13:{ if ($me isop %c-cha) ban %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) 3 | kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) } 
on *:dialog:console:sclick:14:{ if ($me isop %c-cha) kick %c-cha $remove($did(console,2,$did(console,2).sel).text,@,+) $kickm(kick.txt) } 
on *:dialog:console:sclick:15:{ if ($me isop %c-cha) mode %c-cha +v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 } 
on *:dialog:console:sclick:16:{ if ($me isop %c-cha) mode %c-cha -v $remove($did(console,2,$did(console,2).sel).text,@,+) 3 } 
on *:dialog:console:init:0:{ 
set %c-cha $active 
did -a $dname 17 Toplam: $nick(%c-cha,0) Kişi 
set %c-ops 0 
set %c-voi 0 
set %c-reg 0 
:lewp-o 
inc %c-ops 
if ($opnick(%c-cha,%c-ops) != $null) goto op 
else { goto lewp-v } 
:op 
did -a $dname 2 @ $+ $opnick(%c-cha,%c-ops) 
goto lewp-o 
:lewp-v 
inc %c-voi 
if ($vnick(%c-cha,%c-voi) != $null) goto voice 
else goto lewp-r 
:voice 
did -a $dname 2 + $+ $vnick(%c-cha,%c-voi) 
goto lewp-v 
:lewp-r 
inc %c-reg 
if ($nick(%c-cha,%c-reg,r) != $null) goto regular 
else halt 
:regular 
did -a $dname 2 $nick(%c-cha,%c-reg,r) 
goto lewp-r 
} 


/dialog -m console console Popusta Nick List kısmına EkLersek Bu Komutla KullanabiLriz...

Komple Ban Temizleme
Kod:
raw 367:*: { 
mode $2 -b $3 
} 
alias banac { 
mode # +b 
} 
on &*:text:*:#:{ 
if ($1 == !bantemizle) { banac } 
} 
on *:ban:#aşk: { 
if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 
if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 
if (%biz == 15) { unset %biz } 
else { 
inc %biz 
} 
}

Günlük Burç Yorumcusu
Kod:
/* 
Kullanımı: 

Kanalda; 

!burc burcadı yazan kişinin 

özeline, yazılan burcun o günkü 

yorumunu gönderir. 

Örnek: !burc oglak 
*/ 
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } 
alias isn { if ($2 isin $1) return $true } 
on *:text:*:#: { 
if ($1 == !burc) { 
if (!$2) msg $nick Burcun adını girmediniz! 
elseif ($isn($2,ö)) || ($isn($2,ş)) || ($isn($2,ı)) || ($isn($2,ç)) || ($isn($2,ü)) || ($isn($2,ğ)) msg $nick Türkçe karakter girmeyiniz! 
else { 
if (!%burclar) set %burclar Koc Boga Ikizler Yengec Aslan Basak Terazi Akrep Yay Oglak Kova Balik 
if ($istok(%burclar,$2,32)) { 
msg $nick 4,1Burcun Yorumu Alınıyor.Bekleyin... 
set %burcid $findtok(%burclar,$2,32) 
sockclose $+(burc*,$nick) 
sockopen $+(burc*,$nick) www.muneccim.com 80 
sockmark $+(burc*,$nick) $+($gettok(%burclar,%burcid,32),¿,%burcid) 
} 
else msg $nick Burç adı hatalı! Tekrar deneyiniz..! 
} 
} 
} 
on *:sockopen:burc*: { 
var %s = sockwrite -n $sockname 
%s GET /gunluk_fal/bugun.asp?burc= $+ $gettok($sock($sockname).mark,2,191) HTTP/1.1 
%s Host: www.muneccim.com 
%s $crlf 
} 
on *:sockread:burc*: { 
sockread %data 
if (face="Arial Narrow"> isin %data) { 
msg $remove($sock($sockname),burc*)  $+ $gettok($sock($sockname).mark,1,191) Burcunun Bugünkü Yorumu: 
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),1 $+ - $+ $calc($numtok($htmlfree(%data),32) / 2),32) 
msg $remove($sock($sockname),burc*) %a $gettok($htmlfree(%data),$calc($calc($numtok($htmlfree(%data),32) / 2) +1) $+ - $+ $numtok($htmlfree(%data),32),32) 
unset %burcid %data 
} 
}


Google Logo Oluşturucu 

Kod:
/* 
====================== 
Google Logo Oluşturucu 0.1 

 

Http://www.caddesohbet.com 

İsminizi google logosu tarzında 

yazdırabilir,kaydedebilir ve 

düzenleyebilirsiniz... 
====================== 
*/ 
dialog glo { 
title "Google Logo Oluşturucu" 
size -1 -1 160 55 
option dbu 
box "", 1, 2 -1 156 41 
text "İsim yada nick'inizi girin:", 2, 5 5 57 8 
edit "", 3, 5 13 150 10, limit 22 
button "Oluştur", 4, 41 25 37 12,disable 
button "Düzenle", 5, 80 25 37 12,disable 
button "Kapat", 6, 119 25 37 12,cancel 
edit "Google Logo Oluşturucusu v0.1 BY Maxi", 7, 2 43 157 11, read autohs 
} 
alias goglogo $iif(!$dialog(glo),dialog -m glo glo) 
alias -l create->logo { 
if ($len($1-) <= 2) return $input(İsim yada nick'in karakter uzunluğu enaz "3" olmalıdır.,ohud,Hata) 
else { 
if ($window(@goglogo)) window -c @goglogo 
if ($window(@sl)) window -c @sl 
unset %numtok %fileitem %pw %gln 
did -b $dname 5 
set %logname $replace($1-,$chr(32),+,ı,i,İ,i,ö,o,ü,u,ğ,g,ç,c,ş,s,Ğ,g,Ö,o,Ü,u,Ş,s) 
did -ra $dname 7 Logo oluşturuluyor.Bekleyin... 
sockclose glogo 
sockopen glogo www.goglogo.com 80 
} 
} 
alias -l remove->logofiles { 
unset %logname %gifiles %pw 
var %a = 1 
var %fi = $+(",$scriptdir,goglogo.txt,") 
while (%a <= $lines(%fi)) { 
if (_.gif !isin $read(%fi,%a)) .remove $+(",$scriptdir,$read(%fi,%a),") 
inc %a 
} 
.remove $+(",$scriptdir,goglogo.txt,") 
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 150) 100 60 20 5 5 
drawrect -rfd @goglogo $rgb(70,122,185) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 
drawrect -rd @goglogo $rgb(0,0,0) 1 $calc($window(@goglogo).w - 80) 100 60 20 5 5 
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 141) 103 KaYDeT 
drawtext -or @goglogo $rgb(255,255,255) Tahoma 11 $calc($window(@goglogo).w - 67) 103 KaPaT 
} 
alias -l load->logo { 
unset %size %nl %numtok %fileitem %pw 
var %o = 1 
var %fi = $+(",$scriptdir,goglogo.txt,") 
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) 900 160 
drawrect -rf @goglogo $rgb(255,255,255) 1 0 0 900 200 
while (%o <= $lines(%fi)) { 
set %pw $calc((%pw + $pic($+(",$scriptdir,$read(%fi,%o),")).width) + 2) 
if (_.gif isin $read(%fi,%o)) set %pw $calc(%pw + 15) 
if ($dialog(glo)) { 
window -pCk[0] +t @Goglogo $calc($dialog(glo).x - 40) $calc($dialog(glo).y + 75) %pw 160 
if (_.gif !isin $read(%fi,%o)) drawpic @goglogo $calc(($window(@goglogo).w - $pic($+(",$scriptdir,$read(%fi,%o),")).width) - 2) 1 $+(",$scriptdir,$read(%fi,%o),") 
} 
inc %o 
} 
if ($dialog(glo)) did -ra glo 7 Http://www.caddesohbet.com
remove->logofiles 
} 
on *:dialog:glo:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4) 
on *:dialog:glo:sclick:*: { 
if ($did == 4) create->logo $did(3) 
if ($did == 5) run %gln 
} 
on *:sockopen:glogo: { 
if ($sockerr) echo -a Bağlantı Yok! 
else { 
var %s = sockwrite -n $sockname 
%s GET /s.asp?lo= $+ %logname HTTP/1.1 
%s Host: www.goglogo.com 
%s $crlf 
} 
} 
on *:sockread:glogo: { 
var %u 
sockread %u 
if (Error-Input isin %u) && ($dialog(glo)) did -ra glo 7 Sadece bu karakterlerden kullanabilirsiniz. - [A-Z][a-z][0-9] 
if (?lo= isin %u) { write -c $+(",$scriptdir,goglogo.txt,") | set %gifiles $remove($gettok(%u,3-,32),border=0>,<img,src=,",images,/,<a>) } 
if ( isin %u) { 
sockclose glogo 
var %i = 1 
while (%i <= $numtok(%gifiles,32)) { 
var %files = $gettok(%gifiles,%i,32) 
write $+(",$scriptdir,goglogo.txt,") %files 
if (_.gif !isin %files) { 
sockclose $+(getlogo*,%files) 
sockopen $+(getlogo*,%files) www.goglogo.com 80 
sockmark $+(getlogo*,%files) %files 
} 
inc %i 
} 
} 
} 
on *:sockopen:getlogo*: { 
inc %numtok 
var %t = sockwrite -n $sockname 
%t GET $+(/images/,$sock($sockname).mark) HTTP/1.1 
%t Host: www.goglogo.com 
%t $crlf 
} 
on *:sockread:getlogo*: { 
var %c 
sockread %c 
if (Length isin %c) set %size $gettok(%c,2,32) 
if (* !iswm %c) { 
write -c $+(",$scriptdir,$sock($sockname).mark,") 
sockclose $+(savelogo*,$sock($sockname).mark) 
set %nl $sock($sockname).rcvd 
sockrename $sockname $+(savelogo*,$sock($sockname).mark) 
} 
} 
on *:sockread:savelogo*: { 
sockread &sl 
bwrite $+(",$scriptdir,$remove($sockname,savelogo*),") -1 -1 &sl 
var %progrs = $calc(100 * ($sock($sockname).rcvd - %nl) / %size) 
if (%progrs == 100) { inc %fileitem | if ($dialog(glo)) did -ra glo 7 Logo Oluşturuluyor.Bekleyin... $+(%numtok,/,%fileitem) | sockclose $sockname } 
if (%fileitem == %numtok) load->logo 
} 
alias -l save->logo { 
set %gln $+(",$scriptdir,$1,.bmp,") 
window -ph +t @sl 0 0 $window(@goglogo).w 134 
drawrect -rf @sl $rgb(255,255,255) 1 0 0 $window(@goglogo).w 134 
drawcopy @goglogo 0 0 $window(@goglogo).w 134 @sl 0 0 
drawsave @sl %gln 
window -c @sl 
window -c @goglogo 
if ($dialog(glo)) did -e glo 5 
} 
menu @goglogo { 
uclick: { 
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 150),100,60,20)) { 
var %logoname = $input(Logunun adını girin:,e,Logo Kaydet) 
if (%logoname) save->logo %logoname 
} 
if ($inrect($mouse.x,$mouse.y,$calc($window(@goglogo).w - 80),100,60,20)) window -c @goglogo 
} 
} 
menu menubar,status { 
Google Logo Oluşturucu v0.1 
.Aç:goglogo 
.- 
.Kaldır: .unload -rs $shortfn($script) 
} 
on *:load: { 
if ($version < 6.2) { echo -a Bu addon mIRC v6.2'de çalışmaktadır... | .unload -rs $shortfn($script) } 
else { echo -a Google Logo Oluşturucu v0.1 Yüklendi. | echo -a Http://www.caddesohbet.com | echo -a Açmak için: /goglogo yazın. } 
}
Clone Taraması
Kod:
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 # 
}
Günü

komik sözler

Kod:
alias komikyazılar { if $sock(komikyazılar) { echo 12 -a * /komikyazılar: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen komikyazılar www.http://www.kubidik.com/komik_sozler.htm 80 } } 
on *:sockopen:komikyazılar:{ 
var %c = sockwrite -n $sockname 
if ($sockerr) { echo $colour(info) -a * /komikyazılar: Hata. | return } 
%c GET /soz.asp HTTP/1.1 | %c Host: http://www.kubidik.com/komik_sozler.htm | %c Connection: Close $str($crlf,2) 
} 
on *:sockread:komikyazılar:{ 
var %g | sockread %g | if *class="f1001">* iswm %g { echo 4 -a * komik yazılar; $htmlfree($v2) } 
} 
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)
       Oper için harika bi remote
Kod:
alias IrcOper2 { dialog -m IrcOper2 IrcOper2 }
alias K-Line_User { dialog -m K-Line_User K-Line_User }
alias UnK-Line_User { dialog -m UnK-Line_User UnK-Line_User }
alias Z-Line_User { dialog -m Z-Line_User Z-Line_User }
alias UnZ-Line_User { dialog -m UnZ-Line_User UnZ-Line_User }
alias Wallops2 { dialog -m Wallops2 Wallops2 }
alias Locops2 { dialog -m Locops2 Locops2 }
alias Globops2 { dialog -m Globops2 Globops2 }
alias Chatops2 { dialog -m Chatops2 Chatops2 }
alias Global_Mesaj { dialog -m Global_Mesaj Global_Mesaj }
alias Kick2 { dialog -m Kick2 Kick2 }
alias Akill2 { dialog -m Akill2 Akill2 }

dialog IrcOper2 {
title "Irc Servisleri - OperServ"
size -1 -1 110 152
option dbu
button "K-Line User", 2, 8 86 40 10
button "UnK-Line User", 3, 8 97 40 10
button "Z-Line", 4, 8 108 40 10
box "User İşlemleri", 5, 4 67 49 67
button "UnZ-Line", 6, 8 119 40 10
button "Wallops", 7, 61 29 40 10
button "Locops", 8, 61 40 40 10
button "Globops", 9, 61 51 40 10
button "Chatops", 10, 61 62 40 10
box "Mesaj İşlemleri", 11, 57 21 49 56
button "Server'ı Başlat", 12, 8 30 40 10
button "Yeniden Başlat", 13, 8 41 40 10
box "Server İşlemleri", 14, 4 21 49 45
button "Global Mesaj", 15, 61 86 40 10
button "Kick User", 16, 61 97 40 10
button "Akill", 17, 61 108 40 10
box "OperServ", 18, 57 78 49 45
button "Tamam", 19, 31 137 37 12, flat ok
button "Kapat", 20, 70 137 37 12, flat cancel
button "Server'ı Kapat", 27, 8 52 40 10
text "kelebek special", 28, 58 125 47 8, disable
icon 21, 4 3 15 16, backkelebekspecial.ico, 0
text "OperServ", 22, 22 8 25 8
}


on *:dialog:IrcOper2:sclick:2: { /K-Line_User }
on *:dialog:IrcOper2:sclick:3: { /UnK-Line_User }
on *:dialog:IrcOper2:sclick:4: { /Z-Line_User }
on *:dialog:IrcOper2:sclick:6: { /UnZ-Line_User }
on *:dialog:IrcOper2:sclick:7: { /Wallops2 }
on *:dialog:IrcOper2:sclick:8: { /Locops2 }
on *:dialog:IrcOper2:sclick:9: { /Globops2 }
on *:dialog:IrcOper2:sclick:10: { /Chatops2 }
on *:dialog:IrcOper2:sclick:15: { /Global_Mesaj }
on *:dialog:IrcOper2:sclick:16: { /Kick2 }
on *:dialog:IrcOper2:sclick:17: { /Akill2 }
on *:dialog:IrcOper2:sclick:12: { /connect }
on *:dialog:IrcOper2:sclick:13: { /restart }
on *:dialog:IrcOper2:sclick:27: { /die }

dialog K-Line_User {
title "IrcOper - K-Line User"
size -1 -1 88 50
option dbu
text "Nick", 1, 8 11 20 8
text "Sebep", 2, 8 21 20 8
edit "", 3, 29 10 50 10, autohs
edit "", 4, 29 20 50 10, autohs
box "User İşlemleri", 5, 4 2 80 32
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:K-Line_User:sclick:6: { /kline $did(3) $did(4) }

dialog UnK-Line_User {
title "UnK-Line User"
size -1 -1 88 40
option dbu
text "Nick", 1, 8 11 20 8
edit "", 3, 29 10 50 10, autohs
box "User İşlemleri", 5, 4 2 80 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:UnK-Line_User:sclick:6: { /unkline $did(3) }

dialog Z-Line_User {
title "Z-Line User"
size -1 -1 92 40
option dbu
text "IP Adresi", 1, 8 11 22 8
edit "", 3, 34 10 50 10, autohs
box "User İşlemleri", 5, 4 2 84 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:Z-Line_User:sclick:6: { /zline $did(3) }

dialog UnZ-Line_User {
title "UnZ-Line User"
size -1 -1 92 40
option dbu
text "IP Adresi", 1, 8 11 22 8
edit "", 3, 34 10 50 10, autohs
box "User İşlemleri", 5, 4 2 84 22
button "Tamam", 6, 13 26 37 12, flat ok
button "Kapat", 7, 51 26 37 12, flat cancel
}
on *:dialog:UnZ-Line_User:sclick:6: { /unzline $did(3) }

dialog Wallops2 {
title "IrcOper - Wallops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Wallops2:sclick:4: { /wallops $did(2) }

dialog Locops2 {
title "IrcOper - Locops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Locops2:sclick:4: { /locops $did(2) }

dialog Globops2 {
title "IrcOper - Globops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Globops2:sclick:4: { /globops $did(2) }

dialog Chatops2 {
title "IrcOper - Chatops"
size -1 -1 90 42
option dbu
text "Mesajınız", 1, 7 11 25 8
edit "", 2, 33 10 50 10, autohs
box "Mesaj İşlemleri", 3, 4 2 82 23
button "Tamam", 4, 11 27 37 12, flat ok
button "Kapat", 5, 49 27 37 12, flat cancel
}
on *:dialog:Chatops2:sclick:4: { /globops $did(2) }

dialog Global_Mesaj {
title "IrcOper - Global Mesaj"
size -1 -1 90 40
option dbu
box "OperServ İşlemleri", 1, 4 2 82 22
button "Tamam", 3, 11 26 37 12, flat ok
button "Kapat", 4, 49 26 37 12, flat cancel
text "Mesajınız", 2, 7 11 25 8
edit "", 5, 32 10 50 10, autohs
}
on *:dialog:Global_Mesaj:sclick:3: { /msg operserv global $did(5) }

dialog Kick2 {
title "IrcOper - Kick User"
size -1 -1 88 50
option dbu
text "Nick", 1, 8 11 20 8
text "Sebep", 2, 8 21 20 8
edit "", 3, 29 10 50 10, autohs
edit "", 4, 29 20 50 10, autohs
box "OperServ İşlemleri", 5, 4 2 80 32
button "Tamam", 6, 9 36 37 12, flat ok
button "Kapat", 7, 47 36 37 12, flat cancel
}

dialog Akill2 {
title "IrcOper - Akill"
size -1 -1 95 50
option dbu
text "ident@host", 1, 7 11 28 8
text "Sebep", 2, 7 21 28 8
edit "", 3, 37 10 50 10, autohs
edit "", 4, 37 20 50 10, autohs
box "OperServ İşlemleri", 5, 4 2 87 32
button "Tamam", 6, 16 36 37 12, flat ok
button "Kapat", 7, 54 36 37 12, flat cancel
}
on *:dialog:Akill2:sclick:6: { /akill $did(3) $did(4) }
    Otomatik Selam
Kod:
dialog otos {  
title "oto selam"  
size -1 -1 60 53  
option dbu  
button "Açık", 1, 12 5 37 12  
button "Kapalı", 2, 12 20 37 12  
button "Tamam", 3, 12 35 37 12, cancel  
}  
alias otos dialog -m otos otos  
on *:dialog:otos:sclick:*: {  
if ($did == 1) { .enable #otos }  
if ($did == 2) { .disable #otos }  
}  
#otos on  
on *:text:*:?: {  
msg $nick selam $nick  
}  
#otos end
     Tekrar Koruması
Kod:
on @1:text:*:#:{
  if ($nick !isop $chan) {
    if (%>reps_ [ $+ [ $nick ] ] == $1- ) { inc %>repsa_ [ $+ [ $nick ] ] }
    if (%>reps_ [ $+ [ $nick ] ] == $null)  { set -u10 %>reps_ [ $+ [ $nick ] ] $1- | inc -u10 %>repsa_ [ $+ [ $nick ] ] }
    if (%>repsa_ [ $+ [ $nick ] ] == 2) {
      mode  $chan +b $nick
      /kick $chan $nick (2 Kural ihlali yaptığınız için # kanalından 30 dakika süre ile uzaklaştırıldınız . Bundan sonra kanal genelinde 3 Kullanıcıları Rahatsız  2 eden mesajlar kullanmıyacağınıza inanıyor ve yönetim olarak hoş sohbetler diliyoruz. 3(2 $time - $date 3) 1  | ban -u1800 $chan $+($$1,!*@*)  |
      unset %*_ [ $+ [ $nick ] ] | goto end
    } 
  }
}
 Özele kabul kodu
Kod:
on *:open:?:*:{ 
msg $nick 2Selam4 $nick 
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss) 
msg $nick 2Konuşmadığım Süre 4 $duration($idle) 
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q! 
inc %q! 
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Verilecektir 
msg $nick 2Lutfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direk Olarak ignore Edileceksiniz4.2*IRC* Servisler iLe iLgiLi Sorunlariniz için 4/join #help 2Yaziniz. 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz.. 
inc %q!

oto-selam-verme
Kod:
on @*:text:*:#:{
  if ($nick isreg $chan) {
  if (selam  iswm $1-) || (s.a.  iswm $1-) || (sa  iswm $1-) || (slm  iswm $1-) {
  msg $chan ALeykum SeLaM 5 $nick }
}
Oto Identify
Kod:
alias _sifre { dialog -m _sifre _sifre }
dialog _sifre {
  title "Maxi Oto Identify"
  size -1 -1 110 43
  option dbu
  icon Imagesmt.ico, 0
  edit "Şifreniz : ", 1, 6 9 28 12, read
  box "", 2, 4 3 102 34
  box "", 3, 0 -1 110 42
  edit "", 4, 35 9 68 12, pass return autohs autovs
  button "Tamam", 5, 82 22 21 12, ok
  text "Lütfen şifrenizi giriniz ve tamam tuşuna basınız..", 6, 7 21 73 14
}

on *:dialog:_sifre:sclick:*: {
  if ($did == 5) { ns identify $did(4) }
}

on *:notice:*/msg*Nickserv*IDENTIFY*:?: {
  _sifre
  timer 1 3 join %kanal
}


 ircop- Admin menü
Kod:
.» OperServ
..&K-Line
...Kullanıcıyı KILL le:/kill $$?="Kullanıcı / nick:" $?="Sebep:"
...Kullanıcıyı KILLLINE Et:/kline $$?="Tam olarak kullanıcı bilgisi? $crlf $+ kullancı@bağlantı" $$?="Sebep?"
...Kill-Line ı Kaldır:/unkline $$?="Tam olarak kullanıcı bilgisi? $crlf $+ kullanıcı@bağlantı"
...Kill-Line Listesini Temizle:/clearakills
...-
...Cloneler:/kline $$?="Domain?" too_man_clones_from_your_domain
...Botlar:/kline $$?="Domain?" bot_are_not_allowed_on_this_server
...Abusive Kullanıcılar:/kline $$?="Domain?" too_many_abusive_users_from_this_site
..&G-Line
...Ekle:/quote gline @ + $+ $?="User@Host" $time : $+ $?="Reason"
...Kaldır:/quote gline @ - $+ $?="User@Host"
...Botlar:/gline $$?="Domain?" bot_are_not_allowed_on_this_server
...Abusive Kullanıcılar:/gline $$?="Domain?" too_many_abusive_users_from_this_site
..&Mesaj
...Chatops:/chatops $$?="Mesaj?"
...Globops:/globops $$?="Mesaj?"
...Localops:/localops $$?="Mesaj?"
...Wallops:/wallops $$?="Mesaj?"
...-
...server Going Down:/.msg $ $+ $server Server going down, sorry for any hassles
...server Upgrade:/.msg $ $+ $server Server going down for upgrade, sorry for any hassles, it will be up again as soon as possible
...server Relocating:/.msg $ $+ $server Relocating server, Please stand by for a split!!
...-
...own Message:/.msg $ $+ $server $$?="Mesajınız?"
...own Notice:/notice $ $+ $server $$?="Mesajınız?"
...own Describe:/describe $ $+ $server $$?="Mesajınız?"
..&Şifre Öğren
...&Kanal Şifresi Öğren:/.msg chanserv getpass $$?="Hangi Kanalın Şifresini Öğrenmek istiyorsunuz?"
...&NICK Şifresi Öğren:/.msg nickserv getpass $$?="Hangi NICK in Şifresini Öğrenmek istiyorsunuz?"
..&Bağlan
...&Regular:/connect $$?="Link Server?"
...&Remote:/connect $$?="<Server1> ve <Port>" $$?="Server 2?"
..&Modlar
...OP Modu
....&Bana OP Ver://samode $$?="Hangi Kanalda OP Olmak İstiyorsunuz?" +o $me
....&OP umu Al://samode $$?="Hangi Kanaldan OP unuzun Alınmasını İstiyorsunuz?" -o $me
....&NICK in OP unu Al://samode $$?="Kanal Adı?" -o $$?="Op u Alınacak NICK?"
....&NICK e OP Ver://samode $$?="Kanal adı?" +o $$?="Op Verilecek NICK?"
...&Yardım Modu
....&Aktif://mode +h $me
....&Kapalı://mode -h $me
...&Log On
....&Oper On:/oper $?="Acc?" $?="Oper Şifresini Giriniz"
....&Oper Off:/mode $me -o
...&Motd
....&Motd ( $+ $server $+ ):motd
....&Motd (other):motd $$?="Server?"
..&Server
...&Rehash:/raw rehash
...&Restart:/restart
...&Die:/raw die
..&Listeler
...&K-Line Listesi:stats k
...&I-Line Listesi:stats i
...&O-Line Listesi:stats o
...&G-Liine Listesi:stats g
...-
...?-&Line Listesi:stats $$?="?-Line (Örnek : k"
..-
..Diğer
...Girilemiyen Kanala Gir:/sajoin $$?="Kanal Adı?"
... # Modunu Değiştir:/samode $$?="Kanal adı" $$?="Mod?"
..-
..&Squit:/squit $$?="SERVER ı Girin" $$?="Sebep Ne?"
• Oper Admin
.Oper OL:/.oper $$?="Nick" $$?*="Şifre"
.De Oper:/mode $me -o
.Rehash:/rehash
.Restart:/os RESTART
.Update:/os update
.-
.Global Mesaj:/operserv global $$?="Servera Yolluyacağınız Mesaj:"
.-
.Kill:/kill $$?="Kill Atılacak Nick:" $$?="Kill Sebebi:"
.K-Line
..K-Line Ekle:/kline $$?="ip" $$?="Sebep"
..K-Line Sil:/kline -$$?="ip"
..K-Line List:/stats k
..-
.A-KiLL
..A-KiLL Ekle:/operserv akill add $$?="Zaman:" $$?="@hostmask+ip:" $$?="AKiLL Konulcak Sebep:"
..A-KiLL Sil:/operserv akill del $$?="@*mask*:"
..A-KiLL Listesi:/operserv akill list
..-
.G-Lines
..G-LINES Ekle:/gline @ + $+ $$?="User@Host" $time : $+ $$?="Sebep"
..-
..G-LINES Sil:/gline @ - $+ $$?="User@Host"
..G-LINES List:/stats g
..-
.V-Line
..V-LINE Ekle:/operserv VLINE ADD $$?="Nick:" $$?="Sebep:"
..-
..V-LINE Sil:/operserv VLINE DEL $$?="Nick:"
..V-LINE Liste:/operserv VLINE LIST $$?="Mask:"
..V-LINE Ayrıntı:/operserv VLINE WIEW $$?="Mask:"
..-
.-
.Kayıtlı Nickler:/NickServ List *@*
.Kayıtlı Kanallar:/cs list *#*
.-
.Kişi İşlemleri
..Kişiyi Kanala Sok:/operserv raw perserv svsjoin $$?="Şuanki Nicki:" #
..Kişiyi Kanaldan çıkart:/operserv raw perserv svspart $$?="Şuanki Nicki:" #
..Kişinin Nickini Değiştir:/operserv raw svsnick $$?="Şuanki Nicki:" $$?="Yapılacak Nick:" 0:1
..Kişinin nick şifresini değiştir:/ns set $$?="nick:" password $$?*="şifre:"
..Kişinin Nickine Flags Ekle:/operserv raw svsmode $$?="Flags Eklenecek Nick:" $$?="Eklenecek Flaglar ex:oisaSA:"
..Zaman Aşımından Çıkar:/nickserv set $$?="Nick:" noexpire on
..Zaman Aşımına Ekle:/nickserv set $$?="Nick:" noexpire off
..Auth Kodunu Öğren:/nickserv getauth $$?=" Nick?:"
..-
.-
.Kanal İşlemleri
..Kanalı Üstüne Alma:/chanserv set # founder $me
..Kanalı Başkasına Verme:/chanserv set #  founder $$?="Kanalı vereceğiniz Nick:"
..Kanalda Op AL:/os mode #  +o  $$?=" Nickiniz?:"
..Kanalda Deop oL:/os mode # -o $$?=" Nickiniz?:"
..Kanalda Voice AL:/samode #  +v $$?=" Nickiniz?:"
..Kanalda Voice Geri ver:/samode #  -v $$?=" Nickiniz?:"
..Kanalda Kişi Banla:/samode #  +b $$?=" Nicki?:"
..Kanalda Ban Aç:/samode # -b $$?=" Nickiniz?:"
..Kanala Mode Koy:/operserv MODE # $$?="Koyacağınız Modeler(+mi-lk gibi):"
..Zaman Aşımından Çıkar:/chanserv set # noexpire on
..Zaman Aşımına Ekle:/chanserv set # noexpire off
..Kanalı Yasakla:/cs forbid #
..-
.-
.Bot İslemleri
..BoT Yapma:/operserv raw nick $$?="Botun Nicki:" 1 1 $$?="Botun ident'i:" $$?="Botun ip Adrsi(mesela:193.192.76.Noktam-22731):" $$?="Botun Servicesi(mesela:services.Noktam.net):" $$?="Botun İsmi(Whois çekildiğinde isim yerinde yazar):"
..Botu Kanala Sokma:/operserv raw $$?="Botun Nicki(mesela :Maxi):" join #
..Botu Kanaldan Çıkartma:/operserv raw $$?="Servicesin ismi (mesela :Nickserv):" part #
..Botu Konuşturma:/operserv raw $$?="Konuşturmak istediğiniz Botun Nicki(mesela :Maxi):" privmsg # $$?="Mesajınız(her keslime arasına alt+231 yapın):"
..-
.-
.Raw KomutLarı
..Nick Değiştir:/operserv raw :nickserv svsnick $$?="Nicki Yazın?" $$?="Yeni Nickini Yazın?" 0
..Chanserv`i Konuştur:/operserv raw :chanserv privmsg # $$?="Mesajınızı Yazın?"
..Nickserv`i Konuştur:/operserv raw :nickserv privmsg # $$?="Mesajınızı Yazın?"
..Memoserv`i Konuştur:/operserv raw :memoserv privmsg # $$?="Mesajınızı Yazın?"
..-
.-
.Sifre Öğren
..Nick Şifresi Öğrenme:/nickserv getpass $$?="Şifresini öğrenmek istediğiniz Nick:"
..Kanal Şifresi Öğrenme:/chanserv getpass #
..-
.Nick Yasakla
..Ekle:/ns forbid $$?="Yasaklancak Nick:" $$?="Yasaklama Sebebi:"
..Sil:/ns drop  $$?=Yasağı Silinecek Nick:"
..Liste:/stats q
..-
.-
.Zombie Alma
..Zombie Moda Alma:/operserv zombie $$?="Zombie moda alınacak Nick:"
..Zombie moddan Silme:/operserv unzombie $$?="Zombie modu Kalsırılacak Nick:"
..-
.-
.Servisler
..Kanala sok
...Chanserv:/operserv raw :chanserv join #
...Nickserv:/operserv raw :nickserv join #
...Memoserv:/operserv raw :memoserv join #
...Operserv:/operserv raw perserv join #
...Helpserv:/operserv raw :helpserv join #
...-
..Kanaldan Çıkar
...Chanserv:/operserv raw :chanserv part #
...Nickserv:/operserv raw :nickserv part #
...Memoserv:/operserv raw :memoserv part #
...Operserv:/operserv raw perserv part #
...Helpserv:/operserv raw :helpserv part #
...-
.-
.OperNews
..OperNews Ekle:/operserv opernews add $$?="Operlara Yazılacak Mesaj:"
..-
..OperNews Sil:/operserv opernews del $$?="Silinecek Mesajın Nosu(num):"
..OperNews Listesi:/operserv opernews list
..-
.LogonNews
..LogonNews Ekle:/operserv logonnews add $$?="Yazılacak Mesaj:"
..-
..LogonNews Sil:/operserv logonnews del $$?="Silinecek Mesajın Nosu(num):"
..LogonNews Listesi:/operserv logonnews list
..-
.-
.Admin
..-
..Admin Ekle :/os admin add $$?="Admin Eklenecek Nick:"
..-
..Admin Silme:/os admin del $$?="Adminlikten Silinecek Nick:"
..Admin Listesi:/os admin list
..-
.İRCop
..İrcop Ekle:/os oper add $$?="Oper Eklenecek Nick:"
..-
..Oper Sil:/os oper del $$?="Operlikten Silinecek Nick:"
..İrcOp Listesi:/os  oper list


dipnot: her  scpritte calısmayabiLir.
Özelden (!) Komutlar
Kod:
on *:OPEN:?:*: {
/msg $nick Görüşmek İstediğiniz Kategoriyi Seçiniz (!kategori adı ) !access !şikayet !help !ircd !sohbet !ssl !raw !ircarabirim !ping !lag !operhelp !khaled !bnc !eggdrop !shell | halt }
on *:text:*:?:{
  if !access iswm $1 { msg $nick istanbul KanaLı Dı$ında ßir KanaLın Acc-Change ini KuLLanmıyorum. istanbul KanaLı içinde Ki$iseL gözLem ve ki$inin kanaL performansına göre değerLendiriyorum.}
  if !şikayet iswm $1 { msg $nick KanaL GeneL ŞikayetLeriniz İçin /ms  <Notunuz/Mesajınız> yazıp gönderiniz.}
  if !help iswm $1 { msg $nick ServisLer için ExampLe : /cs help /ns help /ms help yapabilirsiniz. MeşkuL deyiLsem sizinLe iLgiLeneßilirim.}
  if !ircd iswm $1 { msg $nick ircd komutLarı için /helpop yapaßiLirsiniz. DetayLı ßiLgi için meşkuL deyilsem ßirebir yardımcı olabilirim.  }
  if !sohbet iswm $1 { msg $nick MeşkuL değilsem herzaman sohbete açığım.  }
  if !ssl iswm $1 { msg $nick SSL(secure socket layer) network üzerindeki bilgi transferi sırasında güvenlik ve gizliliğin sağlanması amacıyla Netscape tarafından geliştirilmiş bir güvenlik protokolüdür.Bu şekilde bağlanmak için kendi donanımınız kurup server özel portu(6697) ile bağlanabilirsiniz. Yüklü oLdugunu //echo -s $ ssl komutunu kullandıktan sonra $true cevabını alırsanız anlayabilirsiniz.}
  if !raw iswm $1 { msg $nick RAW:çiğmemiş,pişmemiş sözlük anlamı. IRC'de ise Rawlar "Serverin Diri mesajları" anlamına gelmektedir.Yani bu mesajlar, IRC server programının içine düzenli bir şekilde yerleştirilip, program tarafından belirli zamanlarda kullanıcılara iletiliyor.Raw'larla ilgili ilk belgelerin sahibi Jarkko Oikarinen ve S. M. Allen Rawları 6 ana bölüme ayırıyorlar.}
  if !ircarabirim iswm $1 { msg $nick Sık KuLLanıLan ÖrnekLerdir: Mirc, Xchat, Bersirc, Bitchx, Klient, GLChat, PircH, Chat Space,Miranda IM,Trillian }
  if !ping iswm $1 { msg $nick Pocket Internet Network Group /ping nick & /raw ping nick }
  if !lag iswm $1 { msg $nick Lag, gönderdiğiniz mesajın başkaları tarafından okunmasında yaşanan gecikmedir. Normalde bu sadece bir kaç saniye sürer, ancak ağ çok meşgul olduğunda bu süre daha da uzayabilir ve bu duruma da LAG denir. PING komutuyla, iki kişi arasındaki lag süresini ölçebilirsiniz. Sunucuları değiştirmek, yoğun olan lagı azaltmanıza yardımcı olabilir.}
  if !operhelp iswm $1 { msg $nick Yardım almak icin #ircop kanalına qiriniz. (/j ircop)}
  if !khaled iswm $1 { msg $nick Khaled Mardam Bey.1968'de Jordan'ın (Ürdün) Amman şehrinde doğdu. İsminin ilginç olmasının sebebi ise Suriye'li bir babası, Filistinli bir annesi ve Danimarka'lı bir büyükannesinin olması. Ama şuan kendisi bir İngiliz vatandaşı. İngiltere de oturuyor ve 1995'te kurduğu mIRC Co.Ltd şirketinde çalışıyor.}
  if !bnc iswm $1 { msg $nick BNC (BouNCer), kullanıcıların shell üzerinden IRC sunucularına bağlanmasını sağlar. BNC, bir proxy server kurmanızı sağlamaz, kendisi proxy sunucur. BNC bu hizmeti verirken sizin shell hesabınıza bağlanmanız gerekmez. Mirc, IRC programlarını kullanarak BNC üzerinden istediğiniz sunucuya bağlanırsınız.Shell alıdığınız şirketin size verdiği imkanlarla yüzlerlerce vhost ve IP kullanabilir, yaratabilirsiniz.}
  if !eggdrop iswm $1 { msg $nick Aslında eggdrop da bir irc bottur ancak shell ile çalıştırılabilen, geliştirilebilen bir programdır. IRC Bot gibi kanalınızda 24 saat durmanın yanında (yüklediğiniz scriptlere göre) kendi listesinde bulunan kullanıcılara op veya voice verme, kanal koruma (küfür, flood vs), kanalda olan yazışmaları kayıt etme gibi değiştirilebilir ve programlanabilir özellikleri vardır.}
  if !shell iswm $1 { msg $nick Basitçe, bir shell hesabı aldığınızda sürekli ve yüksek hızda(T1,T3,Kablo vs.) internete bağlı bir bilgisayarınız olacak diyebiliriz. İrc sunucusu kurmak, eggdrop kurmak yada bir bouncer kurmak için sheller ideal olabilir. Shell hesabınızın olduğu bilgisayarlar donanım ve yazılım olarak üst seviye bilgisayarlardır. Genellikle Unix, Linux ve FreeBSD gibi işletim sistemleri kullanılır.}

Önceki Nick
Kod:
on 1:start: { .hmake nicksch 100 }
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site }  }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: { 
  if ( $comchan($knick,0) < 2 ) {
    if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
  } 
}
alias nicksgrab { 
  .hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
  var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
  return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
  var %NickPrecedent = $iif($NicksTrouve($nick,$site), 7 [Onceki Nicki] $ifmatch ) 
  if ( %NickPrecedent ) { echo -tm $chan $ifmatch }
@Snotice Penceresinden İpe Tıklayarak Zline Atma
Kod:
on ^&*:snotice:*:{ 
if *client*exiting* iswm $1- { 
if !$window(@Giris/Cikis) { window -en @Giris/Cikis } 
echo 4 -t @Giris/Cikis Çıkış : $1- | halt 
} 
if *Connecting*isin* $1- { 
if !$window(@Giris/Cikis) { window -en @Giris/Cikis } 
echo 3 -t @Giris/Cikis Giriş : $1- | halt
}
if *clone*alert* iswm $1- { 
if !$window(@Clone/Alarmı) { window -n @Clone/Alarmı } 
echo 4 -t @Clone/Alarmı Clone Giriş: $1-10 $+(@,$11) | halt
}
break
}
on ^*:hotlink:*.*.*:*:{
if *@*/* iswm $window($active) {
return $1
}
Break
}
on *:hotlink:*.*.*:*:{ 
if *@*/* iswm $window($active) {
titlebar Kline : $+([,$gettok($1-,2,$asc(@)),]) 
.Kline $+(*@,$gettok($1-,2,$asc(@))) http://caddesohbet.com.com15m 
}

}
Join Part Saldırılarını Durdurma
Kod:
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 
  }
}
kicklenen kişiye mesaj
Kod:
alias kickci dialog -m kickci kickci
dialog kickci {
  title "Cadde v.Sohbet"
  size -1 -1 107 96
  option dbu
  box "Atılan (kickLenen) Kişiye Mesaj Ayarları", 1, 1 0 105 29
  radio "Açık", 2, 11 13 31 10, group flat push
  radio "Kapalı", 3, 57 13 31 10,flat push
  box "", 4, 1 25 105 56
  text "Ayarlar :", 5, 38 32 27 8
  radio "Ciddi", 6, 26 45 50 10, group flat push
  radio "Espirili", 7, 26 62 50 10, flat push
  button "Tamam", 8, 29 83 37 12, flat ok
  button "İptal", 9, 68 83 37 12, flat cancel
}
on *:dialog:kickci:sclick:*: {
  if ($did == 6) { set %kickstyle Ciddi }
  if ($did == 7) { set %kickstyle Espirili }
  if ($did == 2) { set %laugh.kick on } 
  if ($did == 3) { set %laugh.kick off }
}
on *:dialog:kickci:init:0: {
  if (%kickstyle == Ciddi) { did -c kickci 6 8 }
  if (%kickstyle == Espirili) { did -c kickci 7 8 }
  if (%laugh.kick == on) { did -c kickci 2 8 }
  if (%laugh.kick == off) { did -c kickci 3 8 } 
}
on *:kick:#: {
  inc %today 1
  inc %total 1
  if (%laugh.kick == off) { halt } 
  if (%laugh.kick == on) && (%kickstyle == Ciddi) { .notice $knick 4Hey Sen! $chan KanaLından atıLan 2(12 $+ %today $+ 2). 4kişisin !  } 
  if (%laugh.kick == on) && (%kickstyle == Espirili) { .notice $knick 4Kahretsin! Kanaldan atılınca bu kadar sevineceğini bilmiyordum! Hahaha )  } 

}
Argo Kelimesi Uyarı/ßan
Kod:
#uyarı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 11,1Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. irc.caddesohbet.com ßy.Maxi | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarı end

Oto-msg koruma
Kod:
on *:join:#:if ($nick == $me) .set -u1 %otomsg ok! 
on *:text:*:?:if (%otomsg) .at $nick 
alias at { 
var %u $comchan($1,0) 
while (0 < %u) { 
ban $comchan($1,%u) $1 2 
kick $comchan($1,%u) $1 Oto msg Yapmak yasaktır !  
dec %u 
} 
}  

on *:load: { 
/echo 0,4Otomsg Protection YUKLENDI! 
}
kanala girene oto msg ve 60 saniyede bir mesaj
Kod:
on *:join:#:{ if $nick == $me { .timer 0 60 msg # $!read(mesajlar.txt) } | else { !notice $nick Selam $nick $+ ! $chan kanalına hoşgeldin. } }
clone on/off
Kod:
Kod:
#clonededector on
on *:join:#:{
  if ($nick != $me)  {
    if ($ial($address($nick,2),0) > 1) { 
      set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0) 
      :cloop
      if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend }
      set %clecho %clecho 0,2 $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick
      dec %clone.count [ $+ [ $nick ] ]
      goto cloop
      :clend
      echo $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )
    }
    if ($ial($address($nick,2),0) > 4) { gzline $address($nick,2) Clone | msg $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )  }
    unset %clecho*
    unset %clone.count*
  }  
}

#clonededector end

menu status,menubar,channel {
  CLone Dedector
  .On:.enable #clonededector | echo -a 2 Clone Dedector On
  .Off:.disable #clonededector | echo -a 2 Clone Dedector Off
}
sock bot
Kod:
alias bot { sockopen bot irc.caddesohbet.com 6667 }
on *:sockopen:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  swbot NICK axwd
  swbot USER mIRC * * :Kontrol.
  sockmark $sockname axwd
  .timer 1 10 /sockwrite -nt $SocknAme JOIN #Spam
  .timer 0 60 /sockwrite -nt $SocknAme JOIN #istanbul
  .timer 0 59 /sockwrite -nt $SocknAme part #istanbul
  .timer 0 80 /sockwrite -nt $SocknAme JOIN #cadde
  .timer 0 79 /sockwrite -nt $SocknAme PART #cadde
  .timer 0 60 /sockwrite -nt $SocknAme JOIN #izmir
  .timer 0 59 /sockwrite -nt $SocknAme part #izmir
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
  if $sock(bot) {
    var %: = echo $color(info) -st > Socket bot:
    if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION IRC Security $+ $chr(1) }
    if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER IRC Security $+ $chr(1) }
    if $1 == PING { swbot PONG $2- }
    if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }
    if $2 == PRIVMSG {
      var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3
      if $istok(admin1 admin2,%n,32) {
        if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }
        if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }
        if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
        if *irc.* iswm %m { swbot PRIVMSG #spam reklam, $nick }
      }
      if * iswm %m { swbot PRIVMSG #spam $remove($4-,:) }
    }
  }
}
opları topla
Kod:
on *:op:#kanal,#kanal1,#kanal2:{ sajoin $opnick #op }
 helper oto dialog
Kod:
dialog helpers {
  title “Helper Oto System”
  size -1 -1 134 62
  option dbu
  button “Yardım Et..”, 1, 5 27 124 12
  button “Boşver Et ”, 2, 5 41 124 12
  box “”, 3, 1 20 132 40
  text “”, 4, 3 7 128 8, center
}
on *:Dialog:helpers:sclick:1: {
  .join #help
  .mode #help +v %nik
  msg #help Merhaba %nik $+ ; Size Nasıl Yardımcı Olabilirim
  .dialog -x helpers helpers
  .echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi Kabul ettiniz.. Kişi Voice Almış Ve Uyarılmıştır..
}
on *:Dialog:helpers:sclick:2: {
  .dialog -x helpers helpers
  .echo -a *** 7 $+ %nik $+ 1?e Yardım etmeyi red ettiniz..
}
on *:Dialog:helpers:init:*: {
  .did -a $dname 4 %nik Yardım Bekliyor Edilsinmi ?
}
on *:join:#help:{
  if $active !== #help && $nick !== $me {
    .set %nik $nick
    .timer 1 2 .kontrolet $nick $chan
  }
}
alias kontrolet {
  if ($1 !isop $2) {
    .dialog -m helpers helpers
  }
}
on *:load:{
  .echo -a 4Maxi’nin Armağanıdır ..

mIRC Büyük Harfle baslayıp Yazma.

Kod:
on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((.|;|:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((.|;|:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}
irc trojan silici kod kodu
Kod:
alias _tara { 
if $1 { 
var %_dizin $shortfn($1-) , %_dsayisi $findfile(%_dizin,*.*,0) , %_x 1 
while %_x <= %_dsayisi { 
%_1 = $findfile(%_dizin,*.*,%_x) 
if $readini(%_1,rfiles,$+(n,0)) { 
%_2 = 0 
while $readini(%_1,rfiles,$+(n,%_2)) { 
%_f = $shortfn($replace($+(%_dizin,$ifmatch),,,//,/)) 
if $dialog(tr_remover) { 
if $did($ifmatch,4).lines == 0 { did -e tr_remover 6 } 
did -a tr_remover 4 %_f 
did -a tr_remover 9 $calc($did(tr_remover,9) + 1) 
} 
inc %_2 
} 
} 
inc %_x 
} 
unset %_1 , %_2 , %_f 
} 
} 

alias _tr { 
if !$dialog(tr_remover) { dialog -m tr_remover tr_remover } 
} 

dialog tr_remover { 
title "IRC Trojan Remover by Maxi" 
size -1 -1 195 191 
option dbu 
edit "", 1, 62 19 84 10, return autohs autovs 
button "Gozat...", 2, 148 19 30 10 
text "Windows dizininiz:", 3, 15 20 45 8 
list 4, 62 46 116 107, size hsbar vsbar 
button "Taramaya basla!", 5, 123 161 55 10 
button "Bulunanlari sil...", 6, 62 161 55 10 
text "Bulunan dosyalar:", 7, 15 46 45 8 
text "Toplam:", 8, 15 61 20 8 
text "0", 9, 37 61 11 8 
text "Maxi ©", 10, 15 90 36 8 
link "admin@caddesohbet.com", 11, 15 100 45 8 
box "IRC Trojan Remover", 12, 5 5 184 178 
button "Tamam", 13, 14 161 30 10, ok 
} 

on *:dialog:tr_remover:*:*:{ 
if $devent == init { 
did -b $dname 5,6 
} 
if $devent == sclick { 
if $did == 2 { 
if $sdir($gettok($mircexe,1,92),Windows dizininizi secin) { 
did -ra $dname 1 $ifmatch 
did -e $dname 5 
} 
} 
if $did == 5 && $did($dname,1) { 
if $input(Taramanin verimli olabilmesi icin calisan diger tum programlarinizi kapattiktan sonra OK butonuna tiklayin ve bu mIRC ile tarama bitene kadar ilgilenmeyin.,ic,Bilgi) { 
_tara $did($dname,1) 
} 
} 
if $did == 6 { 
if $input(Bulunan dosyalari silmek istiyor musunuz?,ic,Silme islemi) { 
var %_w 1 
while %_w <= $did($dname,4).lines { 
remove $did($dname,4,%_w).text 
inc %_w 
} 
} 
} 
} 
} 

menu status,menubar { 
- 
IRC Trojan Remover:_tr 
- 
}

tüm userları bir kanalda toplamak kodu
Kod:
#juser on 
raw 352*:*:{ 
if (*serv* iswm $6) || (mtx* iswm $6) || ($+($me,*) iswm $6) || (*_logger* iswm $6) || (Q = $6) || (*A090EFAB* iswm $address($6,2)) || (*servi* iswm $address($6,2)) { halt }
;bu kısma Excemp (kapsam dısı) kullanıcıların host-mask-nicklerini girebilirsiniz
if ($6 ison %CH: ) { halt }
else { 
.echo $6 %CH:
echo @Juser 4Cekilen nick:12 $6
}
halt 
}
raw 352*:*:{
echo @juser 4,8 join işlemi tamam 
unset %CH: 
echo @juser bu pencere 15 Saniye içinde kapanacak 
.timer@Juse 1 15 if ($window(@Juser)) { .window -c @Juser } 
.disable #juser 
halt
}
#juser off
alias Juser {
if (!$window(@Juser)) { .window -bLe @Juser } 
if ($window(@Juser)) { 
echo @Juser 14,14¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨ ¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨
} 
if ($1 = $null) {
echo @Juser Eksik parametre 
echo @Juser Kullanım : 
echo @Juser Juser #kanal 
halt 
}
if (#* !iswm $1) {
echo @Juser yanlış parametre Kanal Belitmediniz
echo @Juser Kullanım : 
echo @Juser /Juser #kanal 
halt 
}
if (#* iswm $1) {
;mode larınızda Join Flood varsa kullanın .mode $1 -l 
;.mode $1 -l 
set %cH: $1
.enable #juser
.who *
}
}
spamfilter list kodu
Kod:
raw 229:*:{ 
write aspamf.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10- 
halt 
} 

raw 219:*:{ 
halt 
} 

menu status,channel,query { 
- 
.Spamfilter:/_spamf 
} 

menu @Spamfilter { 
.Sil: { 
.spamfilter del $gettok($remove($1-,$chr(9)),1,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),6-,32) 
} 
- 
.Yeni Giriş Ekle: { 
.spamfilter add $$?="Tipi" $$?="Ceza Şekli" $$?="Süresi" $$?="Sebep" $$?="Eklenecek Kelime(ler)" 
} 
- 
.Satırı Göster: { 
if (!$window(@Satırı.Göster)) { 
window -g @Satırı.Göster -1 -1 800 100 Fixedsys 11 
} 
.echo -tm @Satırı.Göster $remove($1-,$chr(9)) 
halt 
} 
- 
.Yardım: { 
if (!$window(@Spam.Yardım)) { 
window -gl @Spam.Yardım -1 -1 600 400 Fixedsys 11 
} 
iline @Spam.Yardım 1 Spamfilter eklerken kullanılan harflerin manaları: 
iline @Spam.Yardım 2 c : Kanal mesajları 
iline @Spam.Yardım 3 p : Özel mesajları 
iline @Spam.Yardım 4 n : Özel noticeleri 
iline @Spam.Yardım 5 N : Kanal noticleri 
iline @Spam.Yardım 6 P : Kanaldan çıkış mesajları 
iline @Spam.Yardım 7 q : Quit mesajları 
iline @Spam.Yardım 8 a : Away mesajları 
iline @Spam.Yardım 9 t : Topic 
iline @Spam.Yardım 10 u : User (nick!user@host:realname ban) Şeklinde tanımlanır 
iline @Spam.Yardım 11 d : dcc 
iline @Spam.Yardım 12 - 
iline @Spam.Yardım 13 Uygulanacak hareket (ceza) şekilleri: 
iline @Spam.Yardım 14 kill, kline, gline, zline, gzline, shun, tempshun, block, dccblock 
iline @Spam.Yardım 15 - 
iline @Spam.Yardım 16 4Not : Sebep belirtilirken kelimeler arasında boşluk olmamalıdır. 
iline @Spam.Yardım 17 Boşluk yerine _ kullanın. Örnek: Yasak_Kelime_Kullanımı 
} 
} 
alias _spamf { 
stats f 
.timerdenemes 1 2 /_aspamfl 
} 

alias _aspamfl { 
if ($window(@Spamfilter)) { window -c @Spamfilter } { 
window -glk0 @Spamfilter -1 -1 800 600 Fixedsys 11 
iline @Spamfilter 1 Eklenmiş bir spami silerken birden fazla satırı seçmeyiniz. Tek tek siliniz. 
iline @Spamfilter 2 4Tipi Ceza Şekli Süresi-Ekleyen-Sebep - Eklenen Kelime(ler) 
iline @Spamfilter 3 12..................2..................1...........2....................12....................... 
titlebar @Spamfilter Coded By Maxi
var %s = 4 
while %s <= $lines(aspamf.txt) { 
var %k = $read(aspamf.txt,%s) 
iline @Spamfilter %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32) 
inc %s 
unset %k 
} 
remove aspamf.txt 
} 
halt 
}
MemoServ uyarıcısı
Kod:
dialog memoserv {
  title "Memoserv Addon"
  size 240 228 280 142
  button "Memo Gönder", 1, 13 18 105 23
  box "Memo Oku:", 2, 134 3 140 99
  button "Memo 1", 31, 140 21 53 20
  button "Memo 4", 34, 211 21 53 20
  button "Memo 2", 32, 140 46 53 20
  button "Diğer", 6, 211 71 53 20
  button "Memo 3", 33, 140 71 53 20
  button "Son", 8, 211 46 53 20
  button "Mesaj Sil", 9, 13 46 105 23
  button "Tümünü Sil", 11, 13 75 105 23
  button "Mesajları Listele", 12, 12 104 105 23
  box "", 13, 5 2 122 133
  button "Tamam", 14, 137 111 65 22,ok
  button "İptal", 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
  if $did == 1 { dialog -m memo1 memo1 } 
  if $did == 8 { %msg memoserv read last }
  if $did isnum 31-34 { %msg memoserv read  $calc($did - 30) }
  if $did == 12 { %msg memoserv list }
  if $did == 11 { %msg memoserv  del all  }
  if $did == 9 { If $dialog(memo2) == $null {
      %memo.t = Memo Sil
      %memo.b = Sil
      %memo.c = del
  dialog -ma memo2 memo2 } }
  if $did == 6 { If $dialog(memo2) == $null {
      %memo.t = Memo Oku
      %memo.b = Oku
      %memo.c = read
  dialog -ma memo2 memo2 } }
}
dialog memo1 {
  title "Memo Gönder"
  size 307 197 233 170
  button "Gönder", 1, 36 146 75 20, ok
  text "Nick:", 2, 15 7 26 13
  edit "", 3, 47 5 175 19, autohs
  text "Mesaj:", 4, 6 31 36 16, right
  edit "", 5, 48 29 174 99,  multi, return, vsbar
  box "", 8, 6 129 221 11
  button "Vazgeç", 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
  if $did(3) == $null { %erromsg = Nick Yazmadınız..!! | dialog -ma erro erro | halt }
  if $did(5) == $null { %erromsg = Memo girilmedi | dialog -ma erro erro | halt }
  var %tmp = 1
  var %tmp2 = $did(5).lines
  var %memo = ""
  while (%tmp <= %tmp2) {
    %memo = %memo $chr(32) $+ $did(5,%tmp)
    inc %tmp
  }
  %msg memoserv send $did(3) %memo 
  unset %memo.*
}
dialog memo2 {
  title %memo.t
  size 307 197 175 74
  button %memo.b, 1, 13 48 68 20,ok
  text "Mesaj No:", 2, 22 9 87 13
  edit "", 3, 113 5 35 21, autohs
  box "", 8, 4 29 165 11
  button "Vazgeç", 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
  if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
  %msg memoserv %memo.c $did(3)
  unset %memo.*
 fullname banlama
Kod:
on *:JOIN:#:who $nick | set %chan $chan
raw 352:*:{
var %i 1
while (%i <= $lines(fullname.txt)) {
if ($read(fullname.txt,%i) iswm $9-) {  
mode %chan +b $6
}
inc %i
}
}

@Notice açmak
Kod:
on *:text:*:?:{
  if $nick == Nick {
    if !$window(@notice) { .window @notice }
    .echo @notice $nick > $1-
  }
}

Bu kod ile "Nické adlı kişinin yazdıkları notice şeklinde açılır
 5den fazla cloneye ban
Kod:
#clonededector on
on *:join:#:{
  if ($nick != $me)  {
    if ($ial($address($nick,2),0) > 1) { 
      set %clone.count [ $+ [ $nick ] ] $ial($address($nick,2),0) 
      :cloop
      if (%clone.count [ $+ [ $nick ] ] < 1) { goto clend }
      set %clecho %clecho 0,2 $+ $ial($address($nick,2), %clone.count [ $+ [ $nick ] ] ).nick
      dec %clone.count [ $+ [ $nick ] ]
      goto cloop
      :clend
      echo $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )
    }
    if ($ial($address($nick,2),0) > 4) { gzline $address($nick,2) Clone | msg $chan Cloneler 4,1( $+ %clecho $address($nick,2) $+ )  }
    unset %clecho*
    unset %clone.count*
  }  
}

#clonededector end

menu status,menubar,channel {
  CLone Dedector
  .On:.enable #clonededector | echo -a 2 Clone Dedector On
  .Off:.disable #clonededector | echo -a 2 Clone Dedector Off
}
 kanal modelerini görmek
Kod:
raw 324:*:{ echo -a $2 Kanalının Modeleri: $3- }

 Masa üstü resmini mirc arka planı yapma
Kod:
menu query {
  Resim ekle
  .oratala :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,3 | closemsg $1 | query $1 
  .döşe :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,4 | closemsg $1 | query $1 
  .doldur :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,1 | closemsg $1 | query $1 

}


Kanala girenlerin nickini takıp et
Kod:
on *:join:#:{ 
  .set %hea * $+ $gettok($address($nick,0),2,64)) $+ *
  if $read(klon.txt,w,%hea) {
    .set %nik $gettok($read(klon.txt,w,%hea),1,11)
  if %nik !== $nick {
    .set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11))
    .set %benimsaat $duration($time)
    echo -a $nick Nicki %nik Rumuzu ile  $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmişti..
    .halt
  }
  else {
    write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time 
  }
}
}
alias temizle {
.unset %hea
.unset %nik
.unset %nicksaat
.unset %benimsaat
.remove klon.txt
}

 Uyarı ve ban
Kod:
#uyarılı on
on *:text:*:#:{
  if ($nick isreg $chan) {
    if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
      if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan  [ U y a r ı ]  :  $nick  : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
      else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 11,1Daha Onceden >  $+ %kelime [ $+ [ $nick ] ] $+  < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak >  $+ $strip($1-) $+  < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
      }
    }
  }
}
#uyarılı end

otomatik away olma
Kod:
on *:input:*:{ 
  if $left($1,1) !== / { 
    if $away {
      awaydendon 
    }
    else {
      .timeridle off | .timeridle 1 300 .awayol $me 
    }
  }
}
alias awayol {
  .set %nikim $1
  .nick $+($1,`,Mesgul)
  .away Meşgulüm
  .ame Away oldum vs
}
alias awaydendon { 
  nick %nikim | .ame awaydim döndüm | .away 
}
 Renkli Yazı Koruması (Uyarılı)
Kod:
on @*:text:**:#: {
if ($nick == $me || ($nick isop $chan) { halt }
hinc -mu15 renk $+($chan,.,$nick) 1
if $hget(renk,$+($chan,.,$nick)) == 1 {
.msg # $nick : kanal genelinde renkli yazı yazılması yasaktır.
}
if $hget(renk,$+($chan,.,$nick)) == 2 {
.msg # $nick : renkli yazmamanız konusunda ikinci ve son uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız.
}
if $hget(renk,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Kanal genelinde renkli yazmak yasaktır.!
.hdel -s renk $+($chan,.,$nick))
}
}

Kanal içerisinde renkli yazı yazılmasını engellemek isteyenler için 2 uyarı 3. tekrarda kanaldan uzaklaştırma yapmanızı sağlayan koruma kodu.
Harfleri Uzatma Koruması(Uyarılı)
Kod:
on @*:text:*:#: {
if ($regex($1-,/([[:print:]])11/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.msg # $nick : harfleri uzatmamanız konusunda ikinci uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız..
}
if $hget(uzunharf,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Harfleri uzatmadan yazmanız konusunda uyarıları dikkate almadınız.
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}
Uzun Yazı Koruması (Uyarılı)
Kod:
on @*:text:*:#: {
if ($nick isop $chan) || ($nick == $me) { halt }
if ($len($strip($1-)) >= 250) {
hinc -mu10 uzunyazi $+($chan,.,$nick) 1
if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {
.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 2 {
.msg # $nick : Uzun yazı yazmamanız konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Bu kanal içerisinde uzun yazı yazmak yasaktır.
.hdel -s uzunyazi $+($chan,.,$nick))
}
}
}


mIRC Whois Takip Penceresi
Kod:
on ^*:snotice:*: {
if *size*/whois*cekti* iswm $1- {
inc -u10 %whois. [ $+ [ $1 ] ] 1
if %whois. [ $+ [ $1 ] ] >= 3 {
kill $1 Whois flood yaptığınız için sunucudan uzaklaştırıldınız.
}
echo -a [Bilgi] > $1-2 size whois cekti
if !$window(@Whois) { window -a @Whois } {
aline @Whois [**] > $1-2 rumuzu size whois cekti.
}
}
}
Mirc Düşman Listesine alma
Kod

Script Açılış Mesajı

Kod:
on 1:start:{
.echo -a 2. . . : : : :4 Script Bilgileri 2 : : : : . . .
.echo -a 2-
.echo -a 4 Script Yapımcısı: Nickiniz
.echo -a 2-
.echo -a 4 Test Edenler : 13 Nickler
.echo -a 2-
.echo -a 4 Script Adresi : 13 siteadi.com
.echo -a 2-
.echo -a 4 İletişim Adresi : 13 mailadresiniz.
.echo -a 2-
.echo -a 4 Tarih : 13 $date
.echo -a 2-
.echo -a 4 Saat : 13 $time
.echo -a 2-
.echo -a 4 Kullanmakta Olduğunuz Rumuz : 13 $me
.echo -a 2-
.echo -a 4 Bilgi : 13 Script hakkında tanıtıcı açıklamalar
.echo -a 2-
.echo -a 2. . . : : : :4 Script Bilgileri Sonu2 : : : : . . .
}
Script’inize Ses Dosyaları Ekleyin.
Kod:
wav türünde ses dosyalarını, bir klasöre atıp aşağıdaki kod metinlerinde klasör/sesdosyasiadi.wav yazan kısımleri editleyerek belirtilen işlem için ses tanımlayabilirsiniz.

Kanala giriş sesi;

on 1:join:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }

Kanaldan çıkma sesi;

on 1:part:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }

Voice verildiğinde çalacak olan ses;

on 1:voice:#: {
if ($vnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }

Op olduğunuzda çalacak ses;

on 1:op:#: {
if ($opnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Renk dialogu
Kod:
// açıklama:
Bu dialog ile mIRC klasorunuzde mdx.dll varsa dialoglara renk verirlen renk i ayarlayıp rgb degerlerini alabilirsiniz.



alias cstudio { $iif(!$dialog(cstudio),dialog -m cstudio cstudio,dialog -v cstudio) } 

dialog cstudio { 

title "Color Studio | www.caddesohbet.com  | by Maxi" 

size -1 -1 154 131 

option dbu 

scroll "", 1, 35 3 115 8, range 0 255 horizontal bottom 

text "Red", 2, 1 3 11 8 

text "Green", 3, 1 15 16 8 

text "Blue", 4, 1 27 10 8 

scroll "", 5, 35 15 115 8, range 0 255 horizontal bottom 

scroll "", 6, 35 27 115 8, range 0 255 horizontal bottom 

list 7, 5 45 139 26, size 

box "Renk", 8, 1 37 149 38 

box "Degerler", 9, 1 77 149 37 

edit "", 10, 45 87 99 10, read 

text "RGB", 11, 8 89 16 8 

text "$RGB", 12, 8 100 20 8 

edit "", 13, 45 99 99 10, read 

button "Exit", 14, 1 115 46 12 

button "İnfo", 15, 50 115 47 12 

button "Visit To Web Site", 16, 99 115 51 12 

} 

on *:dialog:cstudio:*:*: { 

if $devent == init { 

if !%mdx.dll { taramdx } 

var %s dll %mdx.dll 

%s MarkDialog $dname 

%s SetBorderStyle $dname 7 

%s SetColor $dname 7 background 0 

} 

if $devent == scroll { 

if !%mdx.dll { taramdx } 

var %s dll %mdx.dll 

%s SetColor $dname 7 background $rgb($did(1).sel,$did(5).sel,$did(6).sel) 

did -ra $dname 10 $rgb($did(1).sel,$did(5).sel,$did(6).sel) 

did -ra $dname 13 Red; $did(1).sel Green; $did(5).sel Blue; $did(6).sel 

} 

if $devent == sclick { 

if $did == 14 { dialog -x $dname } 

if $did == 15 { 

var %a echo 2 -a 

%a *** "Color Dialog"  

%a *** Bu Dialog Sayesinde Renklerin RGB Kodunu Alabilirsiniz 

%a *** Hayırlı Çalışmalar Dileriz 

%a *** www.caddesohbet.com  

} 

if $did == 16 { run www.caddesohbet.com } 

} 

} 

alias taramdx { 

var %q 1 

var %i $scriptdir 

while (%q <= $findfile(%i,*.dll,0)) { 

if $gettok($findfile(%i,*.dll,%q),-1,$asc()) == mdx.dll { 

set %mdx.dll $shortfn($findfile(%i,*.dll,%q)) 

} 

inc %q 

} 

}

Reklam ve Küfür Koruması
Kod:
mircreklam.txt isimli bir dosya oluşturup, reklam olarak nitelendirdiğiniz kelimeleri alt alta ekleyin. dosyayı mirc klasörünün içine atın. Bu dosyaya eklediğiniz reklam mesajları, kanal genelinde geçtiğinde, yazan kullanıcıyı kanaldan otomatik olarak uzaklaştırırsınız. Ayrıca isteğe bağlı olarak mircreklam.txt dosyasına küfür mesajlarıda ekleyebilir bu sayede korumamızı küfür koruması olarakta kullanabilirsiniz. mIRC remote bölümüne eklemeniz gereken kod;

on @*:text:*:#: {
if $read(mircreklam.txt, w, $1-) {
.mode # +b $nick
.kick # $nick Bu kanalda reklam yapmak yasaktır. Daha detaylı bilgi için /motd yazarak sunucu genel kurallarını okuyunuz.
}
}


 Kick Koruması
Kod:
Yetkilisi olduğunuz bir kanalda, bir başka yetkili tarafından kicklendiğiniz takdirde. Bu kod sayesinde kanala otomatik olarak girip, sizi kickleyen yetkiliyi kanaldan atabilirsiniz.

on *:kick:#: {
if ($me !isop $chan) || ($nick != $me) {
.join #
.mode # +b $nick
.kick # $nick Bir daha beni kicklemeyin. (Caddesohbet Kick Koruması)
}
}
 
Helperlar İçin Gün Saatine Göre Hitap
Kod:
Alias 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
}
}
 
Seslenme Remotesi
Kod:
dialog ses1 {
  title "Kanalda Size Sesleniyorlar..."
  size -1 -1 99 40
  option dbu notheme
  box "Kanalda Sesleniliyorlar...", 1, 1 3 96 33
  button "by Maxi", 2, 6 12 87 18, flat ok
}
#seslenme on
on *:TEXT:$(* $+ $me $+ *):#:{ 
  if ($active == $chan) { goto son } 
  echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick senden bahsediyor 4 $+ $chan 1Kanalında : 4 $+ " $1- " | .dialog -m ses1 ses1
  :son 
} 
on *:TEXT:$(* $+ $me $+ *):?:{ 
  if ($active == $nick) { goto son } 
  echo -a $chr(91) $+ $time(hh:nn) $+ $chr(93) 2***7 $Nick 2 $+ Özelde Senden Bahsediyor $+ : 4 $+ " $1- " | .dialog -m ses2 ses2
  :son 
}
#seslenme end
dialog ses2 {
  title "Özelde Size Sesleniyorlar..."
  size -1 -1 99 40
  option dbu notheme
  box "Özelde Sesleniyorlar...", 1, 2 1 94 36
  button "by Maxi", 2, 8 11 82 20, flat ok
}
menu * {
  .-
  Seslenme Uyarısı:.dialog -m seslen seslen
  .-
}
dialog seslen {
  title "Seslenme Uyarisi"
  size -1 -1 111 38
  option dbu
  button "Açık", 1, 6 9 46 12, flat
  box "Ayarlar", 2, 0 0 109 35
  button "Kapalı", 3, 56 9 46 12, flat
  button "ÇIKIŞ", 4, 7 22 95 10, flat ok
}
on 1:dialog:seslen:sclick:1: { .enable #seslenme | .echo -a Seslenme Göstergesi Açıldı... }
on 1:dialog:seslen:sclick:3: { .disable #seslenme | .echo -a Seslenme Göstergesi Kapatıldı... }
on 1:dialog:seslen:sclick:4: { .echo -a Seslenme Göstergesi Ayarları Yapıldı... }
on 1:dialog:ses2:sclick:2: { .echo -a Tamam  }
 

Proxy ile yapılan clone saldırılarına basit bir önlem
Kod:
;##############################################
;# by SpecifiC - 29/07/07
;#
on *:snotice:*Client*connecting*: {
  var %dx = $gettok($right($left($10,-1),-1),2,64)
  var %re = $iif($regex(%dx,-) != 1,$gettok(%dx,1,46),DONE)
  if %re == DONE {
    kline $9 Blocked HOSTNAME
    goto end
  }
  ;##############################################
  ;# Türkiye IP başlangıç haneleri. 88.147.44.55
  ;# Buraya bu ip numaralarını aralarında boşluk bırakarak ekleyebiliriz.
  ;# Böylece bu ip numaraları ile başlaan girişleri, servere almayacak.
  ;# 
  if $istok(81 85 88 80 212 195,%re,32) == $false {
    kline $9 Blocked HOSTNAME
  }
  :end
} 
;# End code
;###############################################


Dialoglu seslenme uyarısı
Kod:
dialog ses {
  title "caddesohbet.com seslenme uyarısı"
  size -1 -1 198 66
  option dbu
  text "Size seslenen kişi:", 1, 1 6 196 8
  text "Yazdığı mesaj", 2, 1 20 196 8
  text "Yazdığı kanal", 3, 0 35 196 8
  button "KAPAT", 5, 62 51 37 12, cancel
  link "caddesohbet", 7, 175 57 22 8
}

on *:text:*:#:{
  if $+(*,$me,*) iswm $1- {
    .dialog -m ses ses
    if $dialog(ses) {
      .did -ra ses 1 Yazan kişi: $nick
      .did -ra ses 2 Yazığı mesaj: $1-
      .did -ra ses 3 Yazdığı kanal: #
    }
  }
}
on *:text:*:?:{
  if $+(*,$me,*) iswm $1- {
    .dialog -m ses ses
    if $dialog(ses) {
      .did -ra ses 1 Yazan kişi: $nick
      .did -ra ses 2 Yazığı mesaj: $1-
      .did -ra ses 3 Yazdığı kanal: özelinde.!
    }
  }


Kanallara Otomatik giriş
Kod:
dialog mmkanalar {
title “caddesohbet Kanallar”
size -1 -1 179 215
option dbu
text ” Global Kanalar”, 1, 7 26 45 10
check “#cadde”, 2, 6 42 48 10
check “#istanbul”, 3, 6 52 50 10
check “#zurna”, 4, 6 62 50 10
check “#Sohbet”, 5, 6 73 50 10
check “#oyun”, 6, 6 84 50 10
text ” Özel Kanallar”, 7, 60 112 45 11
text ” Şehir Kanalları”, 14, 59 26 45 10
check “#Istanbul”, 16, 60 42 42 10
check “#Ankara”, 17, 60 53 39 10
check “#Izmir”, 18, 60 64 39 10
check “#Bursa”, 19, 60 75 39 10
check “#Antalya”, 20, 60 86 41 10
check “#Adana”, 21, 60 98 38 10
text ” Müzik Kanalları”, 22, 111 26 45 10
check “#Metal”, 23, 108 42 50 10
check “#Rock”, 24, 108 54 50 10
check “#Hiphop”, 25, 108 66 50 10
check “#Rap”, 26, 108 77 50 10
check “#Arabesk”, 27, 108 88 50 10
check “#Radyo”, 28, 108 99 50 10
text ” Takım Kanalları”, 29, 9 112 45 10
check “#Fenerbahçe”, 30, 5 128 50 10
check “#Galatasaray”, 31, 5 139 50 10
check “#Beşiktaş”, 32, 5 150 50 10
check “#Trabzonspor”, 33, 5 161 50 10
check “#Bursaspor”, 34, 5 172 50 10
check “#Ankaragücü”, 35, 5 183 50 10
check “#oyun”, 8, 6 96 50 10
check “#Sevgi”, 9, 59 129 43 10
check “#Aşk”, 10, 59 140 44 10
check “#Dostluk”, 11, 59 151 45 10
check “#Felsefe”, 12, 59 162 50 10
check “#Edebiyat”, 13, 59 173 50 10
check “#Cinsellik”, 15, 59 184 50 10
text ” Yardım ve Eğitim Kanalları”, 36, 112 113 65 10
check “#Help”, 37, 109 129 50 10
check “#ruled”, 38, 109 139 50 10
check “#Eğitim”, 39, 109 149 50 10
text ” caddesohbet kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbet’e katılabilirsiniz. NOT : Birden fazla kanal secebilirsiniz.”, 42, 6 3 167 20, center
box “”, 40, 1 21 178 174
button “Sohbete Bağlan!”, 41, 14 198 143 12
}

on *:dialog:mmkanalar:*:*:{
if $devent == sclick {
if $did !== 41 {
if $did($did).state == 1 { .write kanallar.txt $did($did) $+ $chr(11) $+ $did } | else { .write -dw $+ $did($did) $+ $chr(11) $+ $did kanallar.txt }
}
if $did == 41 {
.server irc.caddesohbet.com
.dialog -x $dname $dname
}
}
if $devent == init {
if $lines(kanallar.txt) !== 0 {
var %i 1
while %i <= $lines(kanallar.txt) {
.did -c $dname $gettok($read(kanallar.txt,%i),2,11)
inc %i
}
}
}
}
on *:connect:{
if $lines(kanallar.txt) !== 0 {
var %y 1
while %y <= $lines(kanallar.txt) {
.join $gettok($read(kanallar.txt,%y),1,11)
inc %y
}
}
}
BadNick’leri #Cinsellik Kanalına Sokmak
Kod:
alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #Cinsellik
}
}
}
}

cadde User Karşılama
Kod:
on *:join:#cadde: {
msg $nick merhaba $nick, #kanal kanalına hoşgeldiniz.
msg $nick kanalımızda güzel vakit geçirmenizi dileriz. iyi sohbetler.
}
özelinize gelen botnet mesajlarına oto spam
Kod:
alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$ chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$ch r(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr (164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$ch r(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$ch r(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr( 34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr( 45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
if (%nickw. [ $+ [ $nick ] ] == warn) && (*_* iswm $1-) && ($right($1,1) isnum) && ($2 == $null) { spch $nick $1 }
var %t = 1 , %kelime = $gettok($strip($1-),0,32)
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $1- }
while (%t <= %kelime) {
set %ara $gettok($strip($1-),%t,32)
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara }
if (%nickw. [ $+ [ $nick ] ] == warn) && (%ara == @) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) }
if (*@h?* iswm %ara) { spch $nick %ara }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara }
inc %t 1
}
}
alias spamekle {
spamfilter add cNnpa gzline +7200 Spam! $1-
}
alias spamsil {
spamfilter del cNnpa gzline +7200 Spam! $1-
}
Tek komutla bir kanalı cekme
Kod:
alias mJoin {
if (!$1) || (!$2) {
echo 6 ;/Mjoin #Kanaldan #Kanala 
echo 6 * Ornek : /Mjoin #cadde #istanbul
}
else {
echo 12 * Kullanicilar tasınıyor $1 - $2 
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
sajoin %nick $2
echo 12 * %i %nick Taşındı $2
inc %i
}
echo 14 * Toplam %i kullanici $2 kanalina Mjoin edildi.
}
}

Kick sebeblerini, atasozu olarak belirle
Kod:
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


Oto Selam
Kod:
on *:open:?:*:{
msg $nick Selam 7 $nick
msg $nick Bugün 3 $date 3 Saat 7 $time(HH:nn.ss) 
msg $nick 4 Konuşmadığım süre 7 $duration($idle)
msg $nick 12 Bugüne kadar özelime gelen kişi sayısı 4 %q! 
inc %q!
msg $nick Şuan özelimdeki 3  $+($query(0),.) 1 kişisin müsait olduğumda cevap verilecektir.
inc %q!
msg $nick  4 Lütfen GereKSiz meşguL etmeyiniz !! 2...::::4HO$ SOhBetLer2:::::... 
 
}
 

Küfür Koruma Addon
Kod:
menu status,menubar,channel {
.-
.Kufur Koruması 
..Açık:.enable #Kufur | .echo -t 7[ 4KBSC 7] 12Küfür Koruması Tüm Kanallarda Açıldı
..Kapalı:.disable #Kufur | .echo -t 7[ 4KBSC 7] 12Küfür Koruması Koruması Tüm Kanallarda Kapatıldı
.-
}

#Kufur on
on 1:text:am?na*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır ! 
}

on 1:text:amc?k*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:yarrağ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*seks*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:anan*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*or?s?u*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:AMCİK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text?ç*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:am:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*siker*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*sikey*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:sikim*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*SİKİŞ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:*topunuz*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:seks:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:BACI*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:action:götveren:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:sik?er*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:SİK**:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:sikiş*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:AMİNİ*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:ŞİKER*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:şiker*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:YARAG?*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:YARRAG*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:YARAK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:YARRAK*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:i?ne:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text?c:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:textturtur*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:sie*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}

on 1:text:SİE*:#: {
if ($nick isop #) return
.ban -u500 $chan $nick $+ !*@* 
.kick $chan $nick 4SWEAR PROTECTION Kanal genelinde argo ve kötü sözler kullanmak yasaktır !  
}
#Kufur end
Script`i REgisterLeme
Kod:
alias Crack {
var %kg.tbl = 11:6:17:12:12:14:5:12:16:10:11:6:14:14:4:11:9:12:1 1:10:8:10:10:16:8:4:6:10:12:16:8:10:4:16 
var %kg.ctr = 4 
var %kg.tot = $len($1-)
while (%kg.ctr <= %kg.tot) {
var %kg.1 = $calc(%kg.1 + ($asc($mid($1-,%kg.ctr,1)) * $gettok(%kg.tbl,$calc(%kg.ctr - 3),58))) 
var %kg.2 = $calc(%kg.2 + (($asc($mid($1-,%kg.ctr,1)) * $asc($mid($1-,$calc(%kg.ctr - 1),1))) * $gettok(%kg.tbl,$calc(%kg.ctr -3),58))) 
inc %kg.ctr 
} 
echo :--------------------------------------------------------------------------------------------
echo :mIRC Sürümü 4 $version 
echo :Lisanslanan kişi4 $1- 
echo :Key 4 $+(%kg.1,-,%kg.2)
echo :ALT + H Tuslarına basarak REGISTER kısmına tıklayın..
echo :ardından Acılan Pencereye Parametreleri girin... 
echo :--------------------------------------------------------------------------------------------
}
Clone Uyarı
Kod:
#cloneuyar on
on *:join:*: {
  %clones = $ialchan($wildsite,#,0)
  if ( %clones > 2 ) {
    var %count = 1
    set %clone.nicks -->
    while (%count <= %clones)  {
      %clone.nicks = %clone.nicks  $ial($wildsite,%count).nick
    inc %count  }
  /echo -at  5CLONE UYARI : Nickler :4 $remove(%clone.nicks,-->) 5Toplam :4 %clones 5Adet }
  if (%change == $null) {
    haltdef
    halt  
  }
}
#cloneuyar end
 
:
on @shit:join:#:{
ban $chan $nick 2
kick $chan $nick 4Düşman Listemdesin…!
echo -a 12*** Düşman Listenizdeki 4 $+ $nick 12 $+ $chan Kanalına Girdi. Ve Atıldı. 
}

alias shitlist { /dialog -m shitlist shitlist }
dialog shitlist {
title “Caddesohbet - Düşman Listesi”
size -1 -1 136 99
option dbu
box “Nick:”, 6, 66 0 68 97
button “Ekle(+)”, 4, 82 25 39 11
button “Kaldır(-)”, 10, 82 41 39 11
edit “”, 1, 70 8 61 10, autohs
button “&Tamam”, 3, 82 70 39 18, ok default
list 2, 5 3 57 83, size
; check “Düşman Listesi Aktif”, 5, 5 90 57 6
}
on 1:dialog:shitlist:init:0: {
unset %vo1
shitkontrol
}
on 1:dialog:shitlist:sclick:4: {
.auser shit $did(1)
did -a shitlist 2 $did(1)
; shitkontrol
}

on 1:dialog:shitlist:sclick:10: {
.ruser shit $did(2,$did(2).sel)
did -r shitlist 2
shitkontrol
}
alias shitkontrol {
goto shitlist
:shitlist
inc %vo1
if ($ulist(*,shit,%vo1) == $null) { unset %vo1 | halt }
did -a shitlist 2 $ulist(*,shit,%vo1)
goto shitlist
}
BadNick’leri Cinsel Kanala Sokmak
Kod:
alias bad { .auser 02 $1 }
on ^&*:JOIN:#:{
if ($nick != $me) {
if ($ulist($address($nick,-1),02,1)) {
if (o isin $usermode) {
mode # +b $nick | kick # $nick %logo
sapart $nick # | sajoin $nick #Cinsel
}
}
}
}

Tüm Kanallardan Atmak
Kod:
alias tumban {
if $1 == $me || $comchan($1,1) == $null { halt }
set %kanalsayisi $comchan($1,0)
var %x = 1
while (%x <= %kanalsayisi) { if $me isop $comchan($1,%x) { .mode $comchan($1,%x) +b $address($1,2) | .kick $comchan($1,%x) $1 Kanaldan atılma sebebini buraya giriniz. | inc %x } }
}

//kullanımı /tumban nick
 
 
Günün Sözü
Kod:
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)

Vizyondaki Filmler
Kod:
alias sinema { if $sock(sinema) { sockclose sinema } | sockopen sinema sinema.com 80 | echo 3 -st * Sinema.com: Vizyondaki filmler alınmaya çalışılıyor. | if $window(@Sinema.com) { clear @Sinema.com } } 
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x } 
alias -l sinemay { if !$window(@Sinema.com) { window -nk0 @Sinema.com } | aline -p @Sinema.com $1- } 
on *:sockopen:sinema:{ var %c = sockwrite -n $sockname | %c GET /filmler.aspx?Status=4 HTTP/1.1 | %c Host: sinema.com $+ $crlf $+ $crlf } 
on *:sockread:sinema:{ 
if ($sockerr) { echo 3 -st * Sinema.com: Vizyondaki filmleri alırken hata oluştu. Lütfen tekrar deneyiniz. | halt } 
else { var %- | sockread %- | if (*<td width="271" class="red" valign="top"><a href="film_ozetbilgiler.aspx* iswm %-) || (*<td width="391"><a href="film_ozetbilgiler.aspx?FilmID=*"><img src="images/but_git.gif"* iswm %-) || ($count(%-,$chr(9)) == 13) { sinemay $+($iif(*red* iswm $v1,04,03),$remove($htmlfree(%-),$chr(9),)) } 
elseif (*<img src="images/but_os.gif"* iswm %-) { sinemay 05Devamı ve daha fazla bilgi için:12 $+(,http://www.sinema.com/,$replace($gettok(%-,2,34),sinema,zetbilgiler),) } 
elseif (*HTML*:*Erhan İDİZ* iswm %-) { if $sock(sinema) { sockclose sinema } | if $window(@Sinema.com) { window -a @Sinema.com } } 
} 
}
 
 
   
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol