alias dagit2 {
  swsebot sajoin $1 $2
}

alias dagit { 
  swsebot sapart $1 #karantina
  inc %irc.dagit
  if %irc.dagit == 1 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 2 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 3 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 4 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) | set %irc.dagit 0 }
}

alias swsebot if ($sock(sebot).status == active) sockwrite -n sebot $1-
on *:sockclose:sebot:{ $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port }
on *:sockopen:sebot:{
  if ($sockerr) { sockclose sebot | $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port | returnex }
  $iif($_portpass,swsebot PASS $_portpass)
  swsebot NICK $+($_sebot,$r(100,9999)) 
  swsebot USER $_ident "" " $+ $iif($host,$host,$ip) $_username
  swsebot $sockname $_sebot
}
on *:sockread:sebot:{
  if ($sockerr) { sockclose sebot | $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port | returnex }
  var %; | sockread %; | tokenize 32 %;
  ;echo -a %;
  if ($1 = ping) swsebot pong $remove($2,:) 
  if $1 == error && $2 == :closing { sockclose sebot | $+(.timer,$rand(100,999)) 1 2 sockopen sebot $_sunucuip $_port }  
  if ($2 == 001) {
    set %:myip $strip($token($token($1-,2,64),1,41))  
    swsebot oper $_oper | swsebot join #0,0 | swsebot nick $_sebot
  }
  if ($regex($2,/473|475|471|474)) { swsebot sajoin $_sebot $4 }
  if ($regex($2,/481|411|433)) { swsebot oper $_oper | swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | swsebot nick $_sebot | swsebot nickserv identify $_pass | swsebot os su $_supass | .timer 1 10 swsebot chghost SohbetLi-STATUS NoMercy.SohbetLi.Org }
  if $2 == 433 { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | swsebot nick $_sebot }
  if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION && $left($3,1) != $chr(35) {
    if $4 == :
TIME
 { swsebot NOTICE $_nick($1)  TIME $asctime | return }
    if $4 == :
VERSION
 { swsebot NOTICE $_nick($1) 
VERSION 2mIRC v6.35 Khaled Mardam-Bey | swsebot NOTICE $_nick($1) 
VERSION $_username | return }
    if $4 == :
FINGER
 { swsebot NOTICE $_nick($1) 
FINGER $_username $+  ( $+ $_ident $+ @) Idle 1 seconds | return }
    if $4 == :
PING  { swsebot NOTICE $_nick($1) PONG $5- | return }
  }
  if ($2 == NICK) { 
    if $_nick($1) == $_sebot { swsebot ns ghost $_sebot $_pass | swsebot ns release $_sebot $_pass | $+(.timer,$rand(100,999)) 1 3 swsebot nick $_sebot }
    if $right($3,-1) == $_sebot {
      swsebot nickserv identify $_pass      
      swsebot oper $_oper
      swsebot os su $_supass
      swsebot join 0,0
      swsebot mode $right($3,-1) +qHp-h
      $+(.timer,sebotgirs) 1 3 swsebot sajoin $right($3,-1) $+($_log,$chr(44),$_opers,$chr(44),$_kontrol)
      swsebot chghost $right($3,-1) NoMercy.SohbetLi.ORG
      return
    }
  }
  if $2 == JOIN {
    if $right($3,-1) == #karantina {
      if *admin* iswm $1 || *IRCop* iswm $1 {
        swsebot os mode #karantina +a $remove($gettok($1,1,33),:)
      }
    }
  }
  if $2 == 366 { if !$istok($_log $_opers $_kontrol,$4,32) { swsebot part $4 } }
  if $2 == PART { if $_nick($1) == $_sebot && $istok($_log $_opers $_kontrol,$3,32) { swsebot sajoin $_nick($1) $3 } }
  if $2 == KICK {
    if $3 == #Karantina {
      swsebot SAPART $_nick($1) $3
      swpbot privmsg #opers 4UYARI : #Karantina kanalında KICK kullanmak yasaktır. Lütfen korumanızı kapayıp tekrar giriş yapınız $_nick($1) $+ .
    }
    if $4 == $_sebot && $istok($_log $_opers $_kontrol,$3,32) {
      if $istok(ChanServ NickServ MemoServ HelpServ OperServ StatServ,$_nick($1),32) { swsebot sajoin $4 $3 | return }
      swsebot os raw :chanserv mode $3 -qaoh $str($+($_nick($1),$chr(32)),5) | swsebot sajoin $4 $3 | return 
    }
  }
  if ($2 == JOIN) {
    if $_nick($1) == $_sebot && $istok($_log $_opers $_kontrol,$right($3,-1),32) {
      if ($right($3,-1) == #karantina) { swpbot mode $right($3,-1) -qah+o $str($+($_nick($1),$chr(32)),5) | halt }
      if ($right($3,-1) == #system) { swpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | halt }
      if ($right($3,-1) == #opers) { swpbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5) | halt }
      swsebot mode $right($3,-1) -qah $str($+($_nick($1),$chr(32)),5) | swsebot os raw svsmode $_nick($1) +qHpN-h 
      return
    }
  }
  if $2 == MODE && $left($3,1) == $chr(35) {
    if (!$5) { return }
    if ($regex($4,\+(b))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -b $_sebot | return }
    if ($regex($4,\-(h))) && ($regex($4,\-(o))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -qah+o $str($+($_sebot,$chr(32)),5) }
    if ($regex($4,\+(a|o|q))) && ($+(*,$_sebot,*) iswm $5-) { swsebot mode $3 -qah+o $str($+($_sebot,$chr(32)),5) }
  }
  if $2 == NOTICE {
    if (*Client connecting on port* iswm $strip($4-)) {
      if ($token($gettok($13,2,64),1,41) == $_sunucuip) || ($token($gettok($13,2,64),1,41) == %:myip) { return }
      if $read(proxylist.txt,w,$token($gettok($13,2,64),1,41)) { return }
      if $read(proxymuaf.txt,w,$token($gettok($13,2,64),1,41)) || $istok($_muafport,$remove($11,:),32) { dagit $12 | return }
      if $_kaçık == 1 { swsebot sajoin $12 #karantina | $+(.timer,dagit,$12) 1 $_ksure dagit $12 }
      swsebot PRIVMSG $12 :
VERSION | swsebot PRIVMSG $12 :
FINGER
 | swsebot PRIVMSG $12 :
PING
 
      if (%proxy == on) && $hget(proxy,$token($gettok($13,2,64),1,41)) { swsebot gzline $+(*@,$token($gettok($13,2,64),1,41)) - 2Sakıncalı giriş tespit edildi. - 2• 12NoMercy Security System 2™ | return }
      if (%pkoruma == on) { set %pnick $12 | madgir $token($gettok($13,2,64),1,41) } 
    }
  }
}

alias dagit2 {
  swsebot sajoin $1 $2
}

alias dagit { 
  swsebot sapart $1 #karantina
  inc %irc.dagit
  if %irc.dagit == 1 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 2 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 3 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) }
  if %irc.dagit == 4 { swsebot sajoin $1 $read(dagit.txt,%irc.dagit) | set %irc.dagit 0 }
}

on *:sockread:sebot:{
  if ($sockerr) { sockclose sebot | $+(.timer,$rand(100,9999)) 1 2 sockopen sebot $_sunucuip $_port | returnex }
  var %; | sockread %; | tokenize 32 %;
  ;echo -a %;