on *:connect:{
  .timer 1 1 txtguncelle
  .timer 0 7200 txtguncelle 
}
alias guncelle {
  if $sock(guncelle) {
    sockclose guncelle
  }
  unset %dr
  set %yukle $1
  sockopen guncelle ircproxy.net 80
}

on *:SOCKCLOSE:guncelle: {
  halt
}

on *:SOCKREAD:guncelle: {
  if %dr != 1 {
    var %h
    sockread %h
    while $sockbr {
      if * !iswm %h {
        set %dr 1
        break
      }
      sockread %h
    }
  }
  sockread 4096 &d
  while $sockbr {
    bwrite %yukle -1 -1 &d
    sockread 4096 &d
  }
}

on *:SOCKOPEN:guncelle: {
  if $sockerr {
    return
  }
  sockwrite -nt $sockname GET $+(/,%yukle) HTTP/1.0
  sockwrite -nt $sockname Accept: */*
  sockwrite -nt $sockname Host: ircproxy.net
  sockwrite -nt $sockname
}
alias txtguncelle {
  timer 1 1 /remove proxy.txt
  timer 1 5 /guncelle proxy.txt
}
on *:SNOTICE:*:{ if *Client connecting* iswm $1- { who $9 } }
raw 352:*:{ if $read(proxy.txt,w,$4) { zline $+(,$4) : Proxy yasaktır.
  if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor) { window -neg1 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-tor ( $+ $time $+ ) 4 $4 2 Proxy Girişi! }
}