on *:text:*:#:{
  if $chan == #Burç {
    set %::ch #
    if $regex($1,/[!.]b[ıiİ]l[gq][ıiİ]/Si) {
      msg # Burçlarınızın AŞK uyumları hakkında, bilgi vermek için kodlanmıştır.
      msg # < !uyum Burç-Erkek Burç-Kadın > şeklinde kullanarak, Erkek burcu üzerinden, Kadın burcunda ki etkileri görebilirsiniz.
      msg # < !uyumk Burç-KADIN Burç-Erkek > şeklinde kullanarak, KADIN burcu üzerinden, Erkek burcunda ki etkileri görebilirsiniz.
    }
    elseif $regex($1,/[!.]uyum$/Si) { erkekuyum $2 $3 }
    elseif $regex($1,/[!.]uyumk/Si) { kadinuyum $2 $3 }
  }
}
alias afree { var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    ) | return %x }
alias burclar { return koc koç boga boğa boqa ikizler ıkızler yengec yengeç yenqec yenqeç aslan basak başak terazı terazi akrep yay oglak oğlak oqlak kova balık balik }
alias erkekuyum {
  if !$sock(uyum) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyum Burç-Erkek Burç-Kadın> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Erkeği ile,4 $gettok(%::postveri,2,32) 2Kadını AŞK uyumu getiriliyor ..
    sockopen uyum 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyum
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias kadinuyum {
  if !$sock(uyumk) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyumk Burç-Kadın Burç-Erkek> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Kadını ile,4 $gettok(%::postveri,2,32) 2Erkeği AŞK uyumu getiriliyor ..
    sockopen uyumk 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyumk
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,2,32),-kadini-ile-,$gettok(%::postveri,1,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyum:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
on *:sockopen:uyumk:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,1,32),-kadini-ile-,$gettok(%::postveri,2,32),-erkegi-uyumu/) HTTP/1.1
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:uyumk:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}