on *:snotice:*client connect*: {
  if $remove($8,:) = 6667 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
  elseif $remove($8,:) = 7000 {
    if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h

    }
    else { 
      hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
      hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
      hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
      write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
    }
  }
}
on $*:text:/^[!.&-]tak[iIİ]p/Si:#root: {
  if !$2 { msg $chan Lutfen bir ip giriniz. | return }
  if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return }
  if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return }
  else { 
    msg $chan ------ 4 $2 ipsinden giris yapan nickler  -----
    var %i 1
    while (%i <= $hfind( $+ $2 $+ ,*,0,w)) {

      msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w)  2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w))
      msg $chan ---------------------------------------------------------
      inc %i
    }
  }
}

on *:start: {
  var %i 1
  while (%i <= $lines(yuklenecek.txt)) {
    hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h)
    hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i)
    inc %i