alias millet2 { 
  .remove nikler.txt | var %a 1 
  while %a <= $nick($1,0) { bwrite nikler.txt -1 -1 $nick($1,%a) $+ $chr(160) $+ $iif(50 // %a,$crlf) | inc %a } 
  var %b 1 | while %b <= $lines(nikler.txt) { sockwrite -n nomercy privmsg $1 $replace($read(nikler.txt,%b),$chr(160),$chr(32)) | inc %b }  
  .timer 1 2  .remove nikler.txt
}

alias oto {
  sockopen $+(oto,$time,$date) irc.Kapris.Net 4455
}
on *:SOCKOPEN:oto*: {
  var %n Tech-S[v8]N $+ $r(100,9999)
  sw $sockname NICK %n
  sockwrite -n $sockname USER $son.isim "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo otokontrol
  sockwrite -n $sockname pass $pass-x
}
on *:SOCKREAD:oto*: {
  var %c | sockread %c 
  otos %c
}
alias otos {
  var %g sockwrite -nt, %s sockwrite -nt
  if ($regex($1,PING)) {
    sockwrite -n $sockname PONG $2
  }
  if $regex($2-,/privmsg .+ \:version/i) { SockWrite -nt $sockname notice $nn($1) $+(:,$chr(1),VERSION mIRC v6.34 Khaled Mardam-Bey,$chr(1)) }
  if $2 = 381 {
    .timer 1 4 sockwrite -n $sockname join 0,
    .timer 1 5 sockwrite -n $sockname join #Opers
    .timer 1 6 sockwrite -n $sockname nick $hget($b(oto),nick)
    .timer 1 7 sockwrite -n $sockname chghost $hget($b(oto),nick) 176.54. $+ $r(A,K) $+ $r(1000,9999) $+ $r(A,H) $+ 2F. $+ $r(1000,9999) $+ A6 $+ $r(A,G)
    .timer 1 8 sockwrite -n $sockname chgident $hget($b(oto),nick) androirc 
    .timer 1 9 sockwrite -n $sockname chgname $hget($b(oto),nick) Android IRC Client
    .timer 1 10 sockwrite -n $sockname join #Sohbet,#radyo
    .timer 1 40 sockclose oto*
  }
  if $2 = join {
    if $nn($1) = $hget($b(oto),nick) {
      hadd -mu2 oto oto 1
      if $hget(oto,atildi) = 1 { return }
      .timerallsend 1 2 sockwrite nomercy allsend users private global $hget($b(oto),nick) merhaba $crlf
      hadd -mu7200 oto atildi 1
    } 
  }
  if $2 = privmsg && $3 = $hget($b(oto),nick) && $hget(oto,oto) = 1 {
    sockwrite -n $sockname privmsg #Opers $qt2(Olası Otomesaj) $qt8($nn($1)) $qt1(Mesaj: $right($4-,-1))
  }
  if $2 = privmsg && $3 = $hget($b(oto),nick)  {
    sockwrite -n $sockname privmsg #Güvenlik $qt2($nn($1)) $qt1(Mesaj: $right($4-,-1))
  }
}
dialog hash {
  title "IrCbaStarD NoMercy v6.0.0 System düzenleme dialogu!"
  size -1 -1 446 282
  option dbu
  list 1, 2 20 441 248, size
  combo 2, 3 4 83 154, drop
  button "Bilgiler", 3, 406 4 33 12
  button "Değeri değiştir", 4, 1 269 47 12
  button "Kapat", 5, 411 269 32 12, ok
  button "Yeni Değer", 6, 50 269 45 12
  text "Kayıttaki toplam veri sayisi: ¿?", 7, 104 271 277 8
}
on *:dialog:hash:*:*:{
  if $devent == init {
    dll $hAte(mdx) MarkDialog $dname
    dll $hAte(mdx) SetControlMDX $dname 1 ListView report grid rowselect showsel single  > $hAte(views)
    did -i $dname 1 1 headerdims 90 60 130 590
    did -i $dname 1 1 headertext +c Table $chr(9) BOYUT $chr(9) ITEM $chr(9) DATA
    var %h 1 ,%_h $hget(0)
    while %h <= %_h {
      did -a hash 2 $hget(%h)
      inc %h
    }
  }
  if $devent == sclick {
    if $did == 4 { düzelt $remove($gettok($did($dname,1).seltext,1,9),0 +fs 0 0 0) $right($remove($gettok($did($dname,1).seltext,1,9) $gettok($did($dname,1).seltext,3,9) $gettok($did($dname,1).seltext,4-,9),+fs 0 0 0,> 100),-1) }
    if $did == 3 { did -r $dname 1 | hash.get $did($dname,2) $dname | did -ra $dname 7 Kayıttaki toplam veri sayisi: $hget($did($dname,2),0).item }
    if $did == 6 { dğerver }
  }
  if $devent == dclick {
    if $did = 1 {
      echo -a /hdel -sm $right($remove($gettok($did($dname,1).seltext,1,9),$chr(9),+fs 0 0 0 ),-1) $remove($gettok($did($dname,1).seltext,3,9),+fs 0 0 0 )
      echo -a /hsave  $b($remove($right($remove($gettok($did($dname,1).seltext,1,9),$chr(9),+fs 0 0 0 ,$chr(32)),-1),b~)) $bs($remove($right($remove($gettok($did($dname,1).seltext,1,9),$chr(9),+fs 0 0 0 ,$chr(32)),-1) ,b~))
      echo 4 -ta ***  $b($remove($right($remove($gettok($did($dname,1).seltext,1,9),$chr(9),+fs 0 0 0 ,$chr(32)),-1),b~)) $bs($remove($right($remove($gettok($did($dname,1).seltext,1,9),$chr(9),+fs 0 0 0 ,$chr(32)),-1) ,b~))
    }
  }
}
on *:text:*:#Oyun:{
  if $istok(Pinarism,$nick,32) && !$regex($nick(#,$nick).pnick,\+) {
    ;mode # +v $nick
  }
}
alias hash.get { 
  var %s 1, %_s $hget($1,0).item
  while %s <= %_s { did -a $2 1 $1 $chr(9) $hget($1).size $chr(9) $hget($1,%s).item  $chr(9) $hget($1,%s).data  | inc %s } 
}
alias dğerver {
  var %d $+(kayit,$1)
  dialog -m %d %d
  did -ra %d 1 $did(hash,2)
  did -ra %d 2 $3 
  did -ra %d 3 $4- 
}
alias düzelt {
  var %d $+(kayit,$1)
  dialog -m %d %d
  did -ra %d 1 $2 
  did -ra %d 2 $3 
  did -ra %d 3 $4- 
}
alias hash { dialog -m hash hash }
alias tr { if ($hfind(tr,$1,1,W).data) return $true | else return $false }
alias srjxamk return $+(Ibot\Hash\,$1,.s)

alias hAte.aux return $+(IrCbaStarD\Dll\,$1)
alias hAte {
  if $1 == mdx { return $hAte.aux(Mdx\Mdx.dll) }
  elseif $1 == rebar { return $hAte.aux(Mdx\rebar.dll) }  
  elseif $1 == bars { return $hAte.aux(Mdx\Bars.mdx) }
  elseif $1 == dialog { return $hAte.aux(Mdx\dialog.mdx) }
  elseif $1 == views { return $hAte.aux(Mdx\views.mdx) }
  elseif $1 == ctl { return $hAte.aux(Mdx\CTL_GEN.MDX) }
}
alias _operss return #Master
alias xlbildir $iif(!$sock(xlbildir),socklisten xlbildir 12230)
on *:socklisten:xlbildir:.sockaccept $+(xlbildir-,$left($md5($ticks,$rand(a,z)),$r(12,25)))
on *:sockread:xlbildir-*:{
  var %:port | sockread %:port | tokenize 32 %:port
  echo -a %:Port
  if $token($1-,1,62) == [XLine]  {
    var %:nick = $token($1-,2,62), %:mesaj $token($1-,4,62), %:ip $token($1-,3,62), %:bildiren $token($1-,5,62)
    if (random isin %:ip) { .halt }
    if ($_trr(%:mesaj) == Cesurrmtkl) { return }
    if !$hmatch(bildiren,%:bildiren) || !$hget(bildiren,%:bildiren) {
      sw nomercy privmsg $_opers :6=================================================
      if ($gettok($_trr(%:mesaj),1,32) != Cesurx5) {  sw nomercy privmsg $_operss : $remove($regsubex($str(*,$nick(#xline@,0)),/./g,$nick(#xline@,\n) $chr(32)),Kapris,LOG) }
      sw nomercy privmsg $_operss :
      sw nomercy privmsg $_operss :- WEB X:LINE BILDIRIM -
      sw nomercy privmsg $_operss :
      sw nomercy privmsg $_operss :6*2 Nick:4 $_trr(%:nick) 
      sw nomercy privmsg $_operss :6*2 $_trr(%:nick) Nickinin IP'i:4 %:bildiren
      sw nomercy privmsg $_operss :6*2 Açılması İstenilen IP:4 %:ip 
      sw nomercy privmsg $_operss :6*2 Mesajı:4 $iif($gettok($_trr(%:mesaj),1,32) == Cesurx5,-,$_trr(%:mesaj))
      sw nomercy privmsg $_opersss :
      sw nomercy privmsg $_operss :6* $iif($gettok($_trr(%:mesaj),1,32) == Cesurx5,Süper Şifre İle Otomatik Açıldı,IP adresindeki banı kaldırmak için 4!BanAc %:ip komutunu kullanınız.)
      sw nomercy privmsg $_operss :6 ================================================
      .hinc -mu600 bildiren %:bildiren
    }
    if ($_trr(%:mesaj) == Cesurx5) && !$gettok($_trr(%:mesaj),2,32) { /rmtkl * *@ $+ %:ip }
    if ($gettok($_trr(%:mesaj),1,32) == Cesurx5) && $gettok($_trr(%:mesaj),2,32) && !$istok(Nuh IrCbaStarD $sys.botlar $masternick Lord,$gettok($_trr(%:mesaj),2,32),32) { 
      /rmtkl * *@ $+ %:ip 
      $iif($regex($gettok($_trr(%:mesaj),2,32),/(\d+\.\d+\.\d+\.\d+)),gzline *@ $+ $gettok($_trr(%:mesaj),2,32),ns botkill $gettok($_trr(%:mesaj),2,32)) TRSystem
    }
    sw $sockname <p><center>X:Line bildiriminiz yoneticilere bildirildi. 30 dakika boyunca yapacaginiz ekstra bildirimler ulasilmayacaktir.</center></p><br /><br />
    sockclose $sockname 
  }
  else { sockclose $sockname }
}
