IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   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)

WingmaN 25 Haziran 2011 18:17

/* 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.

Ecrin 25 Haziran 2011 18:20

Cevap: /* Burç - AŞK Uyumları */
 
Bugradan bir başari daha :) Emegine saglık canım yenilerini bekliyoruz süper olmuş :)

Mudin 25 Haziran 2011 19:15

Cevap: /* Burç - AŞK Uyumları */
 
Burca inanmıyorum ama düşünce güzel hoca :)

SeydiCan 20 Mart 2015 23:50

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

WingmaN Nickli Üyeden Alıntı (Mesaj 1040769494)
/* 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.

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ı

Feragat 21 Mart 2015 00:06

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.

WingmaN 27 Mart 2015 22:49

Cevap: /* Burç - AŞK Uyumları */
 
Çok eski bir kod ya :)

SeydiCan 22 Şubat 2017 23:06

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

mustafa21 09 Mart 2017 17:38

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

xaLper 04 Ekim 2018 21:07

Cevap: /* Burç - AŞK Uyumları */
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sky, verebilirmisin ustad görüsmemiz lazim.

Zalimsin 13 Eylül 2019 22:02

Cevap: /* Burç - AŞK Uyumları */
 
bunu düzenliyecek bir arkadaşımız yok mu


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:38.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net