alias _reco { .timer 1 2 .play $chan haberler.txt 1 }
alias _gosttir { set %chan $chan | set %:_goster $_goster($1) | sockclose _gymc | .timer 1 1 sockopen _gymc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 }
alias _baslik { return $+(4,$token($1,4,34),) }
alias _goster { return $+(/,$gettok($hget(linkler,$1),3,47),/) }
alias _ymcl { return $+($chr(89),$chr(111),$chr(117),$chr(77),$chr(121),$chr(67),$chr(117),$chr(114),$chr(101)) }
alias _cekymc { .hmake -si linkler 1500 | write -c haberler.txt | sockclose _hymc | sockopen _hymc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 }
alias _hbaslik { return $+(4,$replace($token($gettok($1,2,62),4,61),",$chr(32)),,.) }
alias _hlink { return $token($token($gettok($1,2,62),3,61),1,34) }
alias _duzelt { return $replace($1,ı,ý,ÅŸ,þ,ö,ö,ü,ü,ç,ç,Ä°,Ý,ÄŸ,ð,Ãœ,Ü,Ç,ç,Åž,Þ,Ö,Ö) }
alias _icerik1 { return $replace($token($gettok($1,3,$asc(<)),3,$asc(/)),-,$chr(32)) }
alias _icerik2 { return $replace($token($gettok($1,4,$asc(<)),2,$asc(>)),",$chr(32)) }
on *:sockopen:_hymc: { 
  sockwrite -nt $sockname GET /guncel HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:_hymc:{
  var %i
  sockread %i
  if *"hbrListLink"* iswm %i {
    inc %ymc
    .hadd -si linkler %ymc $_duzelt($_hlink(%i))
    write haberler.txt $+(===========,$base(BBDC0,35,34) by: $_ymcl,===========)
    write haberler.txt $+(4 %ymc,. 2Haber Baþlýðý:,$_duzelt($_hbaslik(%i)))
    write haberler.txt 14Link:7 $_duzelt($_hlink(%i))
    write haberler.txt -
    set %ymc %ymc
  }
}
on *:input:*: {
 if $active == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] {
  if http isin $1 || 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
isin $1 { 
   web $1- | halt 
  }
 }
  if $regex($1,/([.!]haberler)/Si) {
    if $hget(linkler) == linkler { .hfree -si linkler }
    unset %ymc | _cekymc | _reco 
  }
  if $regex($1,/([.!]goster)/Si) {
    if !$2 { msg $chan 4Hatalý Kullaným Lütfen 2.goster 13 4Þeklinde Kullanýnýz. | return }
    _gosttir $2
  }
  if $regex($1,/([.!]a[çÇc])/Si) {
    if !$2 { msg $chan 4Hatalý Kullaným Lütfen 2.aç 13 4Þeklinde Kullanýnýz. | return }
    web $hget(linkler,$2)
  }
}
on *:sockopen:_gymc: { 
  sockwrite -nt $sockname GET %:_goster HTTP/1.1
  sockwrite -nt $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -nt $sockname $crlf
}
on *:sockread:_gymc:{
  var %i
  sockread %i
  if *itemprop="alternativeHeadline"* iswm %i {
    msg %chan 2Haberin Baþlýðý: $_duzelt($_baslik(%i))
  }
  if *<a*class="keyword"* iswm %i {
    msg %chan $_duzelt($_icerik1(%i) $_icerik2(%i))
  }
}
alias web { 
  if ($window($active) != @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ) &&  (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    window -peng1k0 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> site adý yaz ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
  }
  if ($window($active) == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) &&  ($window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1
    set -u2 %x $dll(nHTMLn_2.95.dll,attach,$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]).hwnd) 
    set -u2 %x $dll(nHTMLn_2.95.dll,navigate,$1)
    editbox @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] --> $base(BBDC0,35,34) by: $_ymcl
  }
}