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 :--------------------------------------------------------------------------------------------
}

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

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- }

; 
; 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
}

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. 
  } 
}

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 }    
    }

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... }

/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ı. 
}

; 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 
} 
} 
}

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. } 
} 
}

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 
}

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 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 
}

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...

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 
} 
}

/* 
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 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. } 
}

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 # 
}

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)

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) }

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

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
    } 
  }
}

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!

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 }
}

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
}

.» 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.

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)

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 } } 
} 
}