alias mynet enable #mynet | server irc.mynet.com:6668
#mynet off
raw *:*:{
  if $regex($numeric,/(414|20(0|1)|424|413|)) {
    inc -u3 %? 1
    if !$hget(sayilar) {
      var %s 0
      while %s <= 11 {
        hadd -m sayilar %s $gettok(646.328.628.777.245.777.776.822.656.676,$calc(%s + 1),46)
        inc %s
      }
    }
    if $regex(%?,(3|6|9)) { 
      %ippa = $regsubex($regsubex($remove($2,),/(\d\,\d)/g,!),/(0|4)/g,$iif(\1 == 4,>,<))
      var %c 1
      while %c <= 3 {
        hadd -m bul %c $+($hget(bul,%c),$len($regsubex($gettok(%ippa,%c,33),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null)))
        inc %c
      }
    } 
    elseif %? > 10 { 
      /giris $+($hfind(sayilar,$hget(bul,1),1,w).data,$hfind(sayilar,$hget(bul,2),1,w).data,$hfind(sayilar,$hget(bul,3),1,w).data)
      hfree bul | hfree sayilar | disable #mynet
    }
  }
}
#mynet end