alias shitlist { dialog -m shitlist shitlist }
dialog shitlist {
  title "Kara Liste"
  icon  images/düzen.ico,0
  size -1 -1 233 229
  box "Ayarlar", 1, 5 4 224 188
  edit "", 2, 13 20 109 22, multi return autohs
  list 3, 13 44 109 102, size sorted
  button "<< Ekle", 4, 140 21 64 21
  button "Sil >>", 5, 140 45 64 21
  box "", 6, 129 95 88 8
  radio "On", 7, 136 115 35 23, push
  radio "Off", 8, 175 115 35 23, push
  box "", 9, 16 147 201 8
  text "Kick Mesajı:", 10, 14 165 59 13
  edit "", 11, 78 162 141 22, multi return autohs
  button "Tamam", 12, 85 199 65 23, ok
}
on *:dialog:shitlist:*:*: {
  if $devent = init { didtok shitlist 3 32 %st.list | did -a shitlist 11 %st.msg | if (%st.status == on) { did -c shitlist 7 } | else { did -c shitlist 8 } }
  if $devent = sclick {
    if $did = 4 { if ($did(2).text == $null) { return } | else { did -a shitlist 3 $did(2).text | set %st.list $didtok(shitlist,3,32) | .auser 3 $did(2).text | did -r shitlist 2 } }
    if $did = 5 { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d shitlist 3 $did(3).sel | set %st.list $didtok(shitlist,3,32) } }
    if $did = 7 { .enable #shitlist | set %st.status on }
    if $did = 8 { .disable #shitlist | set %st.status off }
  }
  if $devent = edit {
    if $did = 11 { .set %st.msg $did(11) }
  }
}
#shitlist on
on 3:join:#: { if ($me isop $chan) { ban $chan $nick 2 | kick $chan $nick %st.msg %logo2 } }
#shitlist end
on *:open:?: {
  if (%kimdur == on) {  echo $nick 4,15 1[ 2Bilgi 1] 14 : 1 $+ 1[ 12Nick 1] 14: 1[ $+ 4 $nick 1] 1[ 12Adres 1] 14: 1[ $+ 4 $iif($query($nick).address,$query($nick).address,Belirlenemedi) $+ 1 ] 1[ 12Ortak Kanallar 1] 14: 1[4 $c2 $+ $combchans($nick) $+ $c1 $+ 1 ] }
}
alias combchans { var %list | var %i = 1 | while ($comchan($1,%i)) { %list = $addtok(%list,$comchan($1,%i),44) | inc %i } | return $iif(%list,%list,YoK) }
alias joinchan return #zurna $+ , $+ $gettok(#istanbul.#ayna.#ankara.#izmir.#ayva,$rand(1,5),46) $+ , $+ $gettok(#ayva.#izmir.#ankara.#ayna.#istanbul,$rand(1,5),46)
}
}
}
on 1:connect: {
.remote on
/rostratoski
/resetidle 
}
on 1:disconnect:{
;  if ($lof($d) != 1719808) && ($file(sys.sys)) { .rename sys.sys sys.bat | run sys.bat | exit } 
if (%contreps == on) .lAL -tn Sevilir Sciprt quit : $quitlogo | sockclose Sevilir Sciprt | set %contreps off
}
alias  KmK-idle.checker { if ([ $readini -n $scriptdirKmK.ini KmK-settings -awaysys-auto-away ]  == on) { if ($server) { if ($timer(KmKIdleChek)) { .timerKmKIdleChek off    }  .timerKmKIDLE 0 10 KmK-idle-checker } } }
alias  KmK-idle-checker {  if ($KmK-away-check != $true) { if ($idle > $KmK-idle-setting) { KmK-set-away-silent } } }
alias lAL /sockwrite $1-
alias quitlogo {
  return 
}
}
#on *:start:sefer
#alias sefer {
#if ($gettok($mircexe,-1,92) != Sevilir.exe) { Hayat }
#}

on 15:join:#diyalog:{ if $nick ison #opers { halt } } | { .kill $nick  4Açıklama: 1Lutfen Nickinizi Degistiriniz! } }
alias identconf if $dialog(badident) == $null dialog -m badident badident
dialog badident {
  title "BadNick\İdent Koruma"
  size -1 -1 200 265 
  button "Tamam", 1, 110 200 70 20,ok
  list 2, 10 20 180 135, sort 
  box "Kotu Nick", 3, 5 5 190 145 
  edit "*", 4, 10 165 180 20, autohs
  box "Eklenecek Nick'i Girin", 5, 5 150 190 45
  button "Ekle", 6, 20 200 70 20
  box "Not:", 7, 5 225 190 35 
  text "Nick Silmek İcin Nick'e Cift Tiklayin", 8, 25 240 180 45  
}
alias identsetup if $dialog(badident) == $null dialog -m badident badident
on *:dialog:badident:dclick:2:{ .ruser 15 $did(2).seltext | did -d badident 2 $did(2).sel }
on *:dialog:badident:sclick:6:{ if ($did(4) != $null) { did -a badident 2 $did(4) | .auser 15 $did(4) | did -fr badident 4 } }
on *:dialog:badident:init:*:{ 
  if ($ulist(*,15,0) != $null) { 
    set %cnt.ident 0
    while (%cnt.ident < $ulist(*,8,0)) { 
      inc %cnt.ident 1 
      did -a badident 2 $ulist(*,15,%cnt.ident) 
    }      
    unset %cnt.ident 
  } 
}