on *:Sockopen:Destek: {
  %H.Sys = h-System $+ $r(100,999999)
  sockwrite -nt $sockname NICK %H.Sys
  sockwrite -nt $sockname USER hAte-Sys "" " $+ $iif($host,$host,$ip) $+ " : $+ hAte System Online Destek Botu.. 
  sockmark $sockname %H.Sys
}
on *:Sockread:Destek: {
  var %Christina!
  sockread %Christina!
  tokenize 32 %Christina!
  if !$window(@hAte.System) { window -k0l16zSe @hAte.System | aline -l @hAte.System Online destek | aline -l @hAte.System - | echo -t @hAte.System (Bilgi) hAte System online destek kanalı.. (4irc.mIRCTR.net #mIRCHelp) } 
  if $1 == PING {
    sockwrite -nt $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sockwrite -nt $sockname join #mIRCHelp
  }
  if $2 == 353 && #mIRCHelp isin $1- { var %s 1 | while %s <= $numtok($right($6-,-1),32) { aline -l @hAte.System $asd($gettok($remove($right($6-,-1),~,&,@,+,%),%s,32)) | inc %s } }
  if $2 == Join { 
    if #mIRCHelp isin $1- && $sock($sockname).mark isin $1 { bilgi.hAte.System | halt }
    if #mIRCHelp isin $1- { aline -l @hAte.System $asd($remove($gettok($1,1,33),:))) }
  }
  if $2 == Privmsg && $3 == #mIRCHelp { echo -t @hAte.System $+([,$asd($remove($gettok($1,1,33),:)),]) > $asd($right($4-,-1))  }
  if $2 == mode && $3 == #mIRCHelp && + isin $4 && $sock($sockname).mark == $5 { echo 3 -t @hAte.System $me Yardım alabilirsiniz, $4 konumuna geldiniz.. }
  if $2 == mode && $3 == #mIRCHelp && - isin $4 && $sock($sockname).mark == $5 { echo 3 -t @hAte.System $me Kanalda beklemek, makara yapmak serbesttir :D $4 moduna alındınız. }
}
on *:input:@hAte.System:{ if / isin $1 { $1- | halt } | echo -t @hAte.System $+([,hAte System Online Destek,]) > $1- | sockwrite -nt destek privmsg #mIRCHelp : $+ $1- | halt }

alias destek {
  if !$window(@hAte.System) { window -k0l16zSe @hAte.System | aline -l @hAte.System #Online destek# | echo -t @hAte.System (Bilgi) hAte System online desteğe bağlanıyor.. (4irc.mIRCTR.net #mIRCHelp) } 
  if !$sock(Destek) { sockopen destek Server Port }
}
alias asdasd return $replace($1-,$sock(Destek).mark,$me)
alias asd { return $replace($1-,IrCbaStarD,12~IrCbâStârD,hAte,12~hÀtè,SerJan,12~SérJán,Christina,13&Christina,Emrax,2&Emrax,HeavenLy,13%HeavenLy,Boreas,13%Boreas,X5,12@X5,$sock(Destek).mark,$me) }
Menu @hAte.System {
  .Destek penceresini kapat:window -c @hAte.System
  .-
  .Pencereyi temizle:clear $active | bilgi.hate.system
}
menu * {
  ONLİNE DESTEK:destek
}
on *:Close:@hAte.System:sockclose Destek
alias Bilgi.hAte.System { echo -t @hAte.System (Bilgi) Online destek kanalına bağlandınız.. | echo -t @hAte.System (Bilgilendirme) Ascii karakter kullanmayınız, spamfiltera takılma olasılıgınız yüksektir.. | echo -t @hAte.System (Bilgilendirme) Kanalda beklemek serbesttir, bilgi paylaşımına acıktır.. }