IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - /* Burç

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - /* Burç - AŞK Uyumları */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/398492-burc-ask-uyumlari.html)

/* Burç - AŞK Uyumları */

/* Hakkında */

Öncelikle söylemem gerekirse, tamamen can sıkıntısı çalışmasıdır.

Kod, tamamen socket mantığını devralarak çalışmaktadır, " POST " mantığını kullanmaktadır, " POST " mantığı, site üzerin de ki belirlemiş olduğunuz bir bölüme veri göndermek amacı ile kullanılan bir veridir. Bu veri sayesinde, istediğimiz kelimeyi o bölüme yerleştirerek o bölümden gelen sonuçları mIRC'imizin üzerine aktarabilmekteyiz.

Kodun amacı, belirlediğiniz burçların aşk uyumlarını, sizlere belirlediğiniz kanala kullanım komutları ile birlikte doğru şekilde yansıtmasıdır.

/* Kullanım */

Kullanımı " BOT " mantığını kullanır ve belirlediğiniz bir kanal üzerinde çalışmaktadır. Bu kanal, " #Burç " olarak hazırlanmıştır, siz bunu kendi isteğinize göre değiştirebilirsiniz.

Kullanmaları gereken tek işlem " !bilgi " komutunu kullanmaktır. Daha detaylı bilgi verecek olursam;

Erkek - Kadın için -> !uyum burç-erkek burç-kadın < !uyum aslan akrep >
Kadın - Kadın için -> !uyumk burç-kadın burç-erkek < !uyumk akrep aslan >

/* Kod (code) */

Kod:

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.
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.
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)

  }

}

Not: Bot mantığını taşıdığı için, kendi mIRC'inize eklerseniz bir başkası tarafından kullanılması sağlanmaktadır.

Cevap: /* Burç - AŞK Uyumları */

Bugradan bir başari daha :) Emegine saglık canım yenilerini bekliyoruz süper olmuş :)

Cevap: /* Burç - AŞK Uyumları */

Burca inanmıyorum ama düşünce güzel hoca :)

Cevap: /* Burç - AŞK Uyumları */

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040769494)

Kod:

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.
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.
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)

  }

}

Not: Bot mantığını taşıdığı için, kendi mIRC'inize eklerseniz bir başkası tarafından kullanılması sağlanmaktadır.

Cok önce paylasılan Bir Kod Sanırım Bu muneccim.com kapanmıs sanırım nasıl calıstırız acaba bu burc aşk uyumu testını

Cevap: /* Burç - AŞK Uyumları */

Aynı içerikte bir site varsa, socket kodlarını, sitenin kaynak içeriğine ve yapısına göre düzenleyip çalıştırabilirsin.

Cevap: /* Burç - AŞK Uyumları */

Çok eski bir kod ya :)

Cevap: /* Burç - AŞK Uyumları */

evet guzel calısma ama cok eskı aynı ozellıkte bır aktıf sıte bulunabılırse calısabılır calıstıran olursada paylasırsa sevınırım kullanılır yanı.

Cevap: /* Burç - AŞK Uyumları */

Sa arkadaslar bu addonu şu adrese gore uyarlayabilen varmı cunku addonda verilen site calismiyor.
bu site calisiyor muneccim.gen.tr buna gore uyurlayan biri olsa guzel olur Tsk ederim şimdiden ...

Çalısan herhangi bir siteyede uyarlanabilir o site sart degil arkadaslar..

Cevap: /* Burç - AŞK Uyumları */

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sky, verebilirmisin ustad görüsmemiz lazim.

Cevap: /* Burç - AŞK Uyumları */

bunu düzenliyecek bir arkadaşımız yok mu