on 1:text:*:#:{

  if $chan == #Burç {

    set %::ch #

    if !bilgi isin $1 {

      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.

    }

    if !uyum isin $1 {

      .uyum $2-

    }

    if !uyumk isin $1 {

      .uyumk $2-

    }

  }

}

 
alias wn {

  if $sock($1).status == active {

    sockwrite -n $1-

  }

}

 
alias afree {

  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )

  return %x

}

 
alias burclar { return akrep aslan koc boga basak oglak ikizler yay kova balik yengeç balık başak koç yengec boğa oğlak }

 
alias uyum {

  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 veya yanlış girildi, 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 muneccim.com 80

    .timer $+ $r(1,99) 1 3 sockclose uyum* 

  }

  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }

}

 
alias uyumk {

  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 <!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 muneccim.com 80

    .timer $+ $r(1,99) 1 3 sockclose uyum* 

  }

  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }

}

 
on *:sockopen:uyum:{

  var %wn Erkek= $+ $gettok(%::postveri,1,32) $+ &Kadin= $+ $gettok(%::postveri,2,32)

  wn uyum POST /uyumluluk_goster/uyumluluk_goster.asp HTTP/1.1

  wn uyum Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-form-urlencoded; charset="utf-8"

  wn uyum Content-Length: $calc($len(%wn) + 1)

  wn uyum Host: muneccim.com

  wn uyum

  wn uyum %wn

}

 
on *:sockread:uyum:{

  var %w

  sockread %w

  if (*face="MS Serif"><big>* iswm %w) { 

    msg %::ch 5Uyum: $afree(%w)

  }

}

 
on *:sockopen:uyumk:{

  var %wn Erkek= $+ $gettok(%::postveri,2,32) $+ &Kadin= $+ $gettok(%::postveri,1,32)

  wn uyumk POST /uyumluluk_goster/uyumluluk_goster2.asp HTTP/1.1

  wn uyumk Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-form-urlencoded; charset="utf-8"

  wn uyumk Content-Length: $calc($len(%wn) + 1)

  wn uyumk Host: muneccim.com

  wn uyumk

  wn uyumk %wn

}

 
on *:sockread:uyumk:{

  var %w

  sockread %w

  if (*face="MS Serif"><big>* iswm %w) { 

    msg %::ch 5Uyum: $afree(%w)

  }

}