IRC ve mIRC Kullanıcılarının Buluşma Noktası
  Reklam Ver


Forum tutkunlarının tek adresi Türkiye Sohbet Odaları Sohbetteyiz herkes burda

ayna chat muhabbetbayilik veren firmalar

Şeker Shell  Sohbet


mIRC Scripting Hazır Kodlar

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.



4Beğeni(ler)
  • 3 Post By WingmaN
  • 1 Post By WingmaN

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Haziran 2011, 18:17   #1
Çevrimdışı
/* Burç - AŞK Uyumları */


-- Sponsor Baglantı --


/* 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 20 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 20 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.
/* 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 20 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 20 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.
__________________
if not now, when?

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

IRCForumlari.NET Reklamlar
Alt 25 Haziran 2011, 18:20   #2
Çevrimdışı
Cevap: /* Burç - AŞK Uyumları */




Bugradan bir başari daha
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 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 20 mesajınız olması gerekir.

__________________
вeиiм iγiмѕeя γaиıм

aђ вeиiм aL₫AиışLaяıм

вeиiм кa√qalaяıм

вeиiм pişмaиLıкLaяıм

SuS

aяτıк usLaи₫ıя вeиi .
  Alıntı ile Cevapla

Alt 25 Haziran 2011, 19:15   #3
Çevrimdışı
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 20 mesajınız olması gerekir.

__________________
?
  Alıntı ile Cevapla

Alt 20 Mart 2015, 23:50   #4
Çevrimdışı
Cevap: /* Burç - AŞK Uyumları */




WingmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 20 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 20 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 20 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
Çevrimdışı
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. The End..
  Alıntı ile Cevapla

Alt 27 Mart 2015, 22:49   #6
Çevrimdışı
Cevap: /* Burç - AŞK Uyumları */




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

__________________
if not now, when?
  Alıntı ile Cevapla

Alt 22 Şubat 2017, 23:06   #7
Çevrimdışı
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ışı
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
Çevrimiçi
Uzaklaştırıldı
xaLper - ait Kullanıcı Resmi (Avatar)
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

Cevapla

Etiketler
aşk, burÇ

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 Açık
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
2012 Anne Bebek Burç Uyumları N999 Burçlar, Fallar ve Kehanetler 0 01 Mart 2012 16:26
Sevgililer'in Burç Uyumları Hasan Burçlar, Fallar ve Kehanetler 0 10 Temmuz 2006 10:45