mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Showcase - Hazır kodlar

Showcase - Hazır kodlar mIRC Scripting hakkında hazır kodları bulup, paylaşabileceğiniz bölüm.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 25 Haziran 2011, 21:39
Avatar Yok

mS Puan: 301
mS Derece: WingmaN MeraklıWingmaN MeraklıWingmaN MeraklıWingmaN Meraklı
 
Üyelik tarihi: 29 Temmuz 2009
Mesajlar: 15
Konular: 11
Eklentiler: 1
Alınan Teşekkür: 3
Yapılan Teşekkür: 0
Talking /* 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-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)
  }
}
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 24 Mayıs 2013, 08:51
Avatar Yok

mS Puan: 1
mS Derece: ZenqerDenq
 
Üyelik tarihi: 09 Eylül 2012
Mesajlar: 1
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 2
Standart

bilindiği üzere müneccim.com kapatıldı bu verileri başka hangi siteden çeke biliriz addonun düzenlenmesini rica ediyorum
Alıntı ile Cevapla
Cevapla

Etiketler
aŞk, burç, uyumları

Seçenekler

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



Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76