IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 28 Mayıs 2017, 17:17   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Burç - Aşk Uyum mIRC Kodu


Reklam

/* Hakkında */

Alıntı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-www-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-www-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) } }

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

Alıntı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-www-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-www-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) } }

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

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
aşk, burç, burç - aşk uyum mırc kodu, kodu, mirc, uyum
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
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