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

12Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Haziran 2011, 18:17   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
/* 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:   Kodu kopyalamak için üzerine çift tıklayın!
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.


Konu WingmaN tarafından (25 Haziran 2011 Saat 19:28 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 25 Haziran 2011, 18:20   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




Bugradan bir başari daha
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Emegine saglık canım yenilerini bekliyoruz süper olmuş
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 25 Haziran 2011, 19:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




Burca inanmıyorum ama düşünce güzel hoca
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 20 Mart 2015, 23:50   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




WingmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
/* 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:   Kodu kopyalamak için üzerine çift tıklayın!
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ı

 
Alıntı ile Cevapla

Alt 21 Mart 2015, 00:06   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 27 Mart 2015, 22:49   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




Çok eski bir kod ya
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 22 Şubat 2017, 23:06   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ı.

 
Alıntı ile Cevapla

Alt 09 Mart 2017, 17:38   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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..

 
Alıntı ile Cevapla

Alt 04 Ekim 2018, 21:07   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




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

 
Alıntı ile Cevapla

Alt 13 Eylül 2019, 22:02   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: /* Burç - AŞK Uyumları */




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

 
Alıntı ile Cevapla

Cevapla

Etiketler
aşk, burÇ


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
İtalyanca Zaman Uyumları PySSyCaT İtalyanca 0 28 Ekim 2014 00:06
Kan Grupları ve Kan Grubu Uyumları SimHa Biyoloji 0 14 Ağustos 2014 22:50
Burç Uyumları Ne Kadar Önemli Zen Burçlar, Fallar ve Kehanetler 0 27 Mart 2013 19:13
Sevgililer'in Burç Uyumları Hasan Burçlar, Fallar ve Kehanetler 0 10 Temmuz 2006 10:45