on *:connect: {
  .timerbağlan 1 10 bağlan
  .timerbaglan 1 60 baglan
}
alias bağlan {  if !$sock(kbot) { sockopen kbot irc.deusohbet.com 6667 } }
on *:SOCKREAD:kbot: {  var %' | sockread %' | tokenize 32 %' | if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite kbot privmsg %knick selam
    if $1 == PING { swrite $sockname PONG $2  }
  }
  if :
VERSION
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :
FINGER
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if $1 == PING { 
    swrite $sockname PONG $2-
  }
}
on *:SOCKOPEN:kbot: {
  %knick = $read(bot/nick.txt)
  swrite $sockname NICK %knick 
  swrite $sockname USER Deusohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
}
on *:SOCKREAD:1bot: {  var %' | sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :
VERSION
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :
FINGER
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
} 
on *:SOCKOPEN:1bot: {
  %knick2 = $read(bot\nick.txt)
  swrite $sockname NICK %knick2 
  swrite $sockname USER Deusohbet "" " $+ $iif($host,$host,$ip) $+ " : $+ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 
  swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
}
alias swrite { if $sock($1).status == active { sockwrite -nt $1- } }
alias baglan {  if !$sock(1bot) { sockopen 1bot irc.deusohbet.com 6667 } }
on *:SOCKREAD:1bot: {  var %' | sockread %' | tokenize 32 %' 
  if $1 == PING { swrite $sockname PONG $2  }
  if $2 == JOIN && $remove($gettok($1,1,33),:) == %knick && $right($3,-1) == #Oyun { 
    swrite kbot join #deusohbet
    .timerp 0 25  swrite 1bot privmsg %knick selam
  }
  if :
VERSION
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1)
  }
  if :
FINGER
 iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1)
  }
  if PING iswm $4- { 
    swrite $sockname NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+  $ticks $+ $chr(1)
  }
}