mIRC Scripting  


Geri dön   mIRC Scripting > Challenge - Meydan > Challenge - Meydan - Yarışma

Challenge - Meydan - Yarışma Bu bölümde belirli süre aralıklarıyla mIRC Scripting üzerine kod yarışmaları yapılacaktır.

Like Tree5Teşekkür
  • 1 Post By CoCoRiCo
  • 3 Post By L4roXyL
  • 1 Post By fav
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 27 Ekim 2013, 00:44
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 19
Standart Multi Mod

Amaç:
Soket verilerinden odalarda birden fazla operator moderasyonunu takip etmek ve ve echo olarak yansıtmak

Kapsam
Odalarda operator modlarının 1 yada daha fazlası (+o-o nick nick) gibi hallerini bildirecek

Kural
Soket yada debug için olmalıdır, Debug kullananlar için event yada mIRC dahili $ial, "$nick().pnick" gibi identifier kulanılamaz..
Yalnızca tek bir fonksiyon yada aliasess olmalıdır
Kodlar PM olarak gönderilecektir,gönderilen kodda son ana kadar düzenleme yapabilir, en son halini bitiş
zamanına kadar yeniden gönderebilirsiniz.

Puanlama:
Yarısma birincisi en az byte (karakter sayısı) la işlemi gerçekleştiren kişi olacaktır.

Örnek:

$gmd(CoCoRiCo!ChatFox@NetworkAdmin.MScripting.net MODE #mS +o-o+vhh+q Toprak CoCoRiCo uFuK CesuryureK Difuzyon Feragat)

RAW: CoCoRiCo!ChatFox@NetworkAdmin.MScripting.net MODE #mS +o-o+vhh+q Toprak CoCoRiCo uFuK CesuryureK Difuzyon Feragat


Çıktı:
#mS @Toprak
#mS CoCoRiCo
#mS +uFuK
#mS %CesuryureK
#mS %Difuzyon
#mS &Feragat

debug için yalnızca yardımcı kod:

Kod:
alias dbg debug -i d gmd 
alias gmd {
Kodlar buraya..
}
Katılımcılar: (5)
Difuzyon
CesuryureK
Feragat
Toprak
uFuK(FenomeNs)



(Sonradan katılımcı kabul ediliyor yarışmaya katılmak için PM atınız.)

Hakem: (1)
CoCoRiCo

Başlangıç..: 27/10/2013 00:00
Bitiş.........: 28/10/2013 00:00
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
Sponsored Links
  #2  
Alt 28 Ekim 2013, 13:38
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 19
Thumbs up

Kazanan : Difuzyon

Kural ihlal:
cıktı : #kanal veri

Kazanan KOD:
Kod:
alias db { 
  if $1 { $iif(!$window(@d),window -fen @d verdana 9,echo @d $1-) 
    tokenize 32 $1- 
    if ($1 = <- && $3 = MODE && $remove($token($2,1,33),:) ison $4) {
      noop $regex($5-,/[+-]([qaohv+-]*)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)/)
      var %a = 1,%w = $mid($5,1,1),%d = 1
      set -l %l
      while %a <= $len($regml(1)) {
        if $istok(+ -,$mid($regml(1),%a,1),32) {
          var %w $mid($regml(1),%a,1)
          inc %a
        }
        var %c $mid($regml($calc(%d * 2)),2,400)
        inc %d 1
        var %l $addtok(%l,$+(%w,$mid($regml(1),%a,1),,%c),32)
        inc %a
      }
      tokenize 32 $replace(%l,+q,.,+a,&,+o,@,+h,%,+v,+,-q,$null,-a,$null,-o,$null,-h,$null,-v,$null)
      echo -a $*
    }
  }
    else  debug -i d db 
}
Boyut : 893 bayt
Satır (çerçeve kod dahil): 23 satır
Z-Lined buna teşekkür etti.
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Alıntı ile Cevapla
  #3  
Alt 28 Ekim 2013, 16:04
Avatar Yok
 Coders 

mS Puan: 301
mS Derece: uFuK MeraklıuFuK MeraklıuFuK MeraklıuFuK Meraklı
 
Üyelik tarihi: 24 Aralık 2009
Bulunduğu yer: GiresuN
Mesajlar: 30
Konular: 6
Eklentiler: 0
Alınan Teşekkür: 0
Yapılan Teşekkür: 0
Standart

Sandığım kadar basit birşey değilmiş tebrikler @Difuzyon
Alıntı ile Cevapla
  #4  
Alt 02 Kasım 2013, 19:26
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 32
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 40
Yapılan Teşekkür: 0
Standart

Cocorico ben geç kaldım sanırım bu challenge'a
Yine de;

Sanırım burada yapılmak istenen şey verilen modları tekrar change etmek.
Yani şöyle ki; +vho-oq+ah-o modları, +v+h+o-o-q+a+h-o şeklinde olmalı. Zaten ondan sonrası basit bir döngüye bakar.

İlgili text-imizi şu şekilde düşünelim(malum yazdığım kod o kısım için geçerli, zaten önemli olan kısım orası gerisi basit);

Kod:
#mS +o-o+vhh+q Toprak CoCoRiCo uFuK CesuryureK Difuzyon Feragat
İlk öncelikle buradaki modları modifiye(yukarıda gösterdim) etmek için regex-de kullanılabilir, normal bir external bir döngüde kullanılabilir. Ben regex kullanmayı tercih ettim. Şöyleki;

Regex dilimi: $regsubex(<modes>,/([+-])(\w+)/g,$regsubex(\2,/(.)/g, [[ \1\ $+ t ]] ))
Örnek: //echo -: $regsubex(a,+o-o+vhh+q,/([+-])(\w+)/g,$regsubex(\2,/(.)/g, [[ \1\ $+ t ]] ))
Sonuç: +o-o+v+h+h+q

Bundan sonrası zaten basit bir döngüye bakar. Esasında gerisi de komple regex içerisinde yazılabilir, lakin uğraşacak gibi değilim şuan .)
Neyse kodun tamamını verelim.

Kod:
alias m+ {
  tokenize 32 $1-
  if $1 = <- && $3 = mode {
    var %s = $regsubex(a,$5,/([+-])(\w+)/g,$regsubex(\2,/(.)/g, [[ \1\ $+ t ]] ))
    noop $regsubex(%s,/([+-][ahovq])/g,)
    while - {
      inc -u %.
      echo -s $4 $regsubex(c,$$regml(%.),/([-+])([ahvoq])/g,$iif(\1 = -,,$&
        $iif(\1 = +,$replace(\2,v,+,h,%,o,@,a,&,q,~)))) $+ $token($6-,%.,32)
    }
  }
}
/debug -i on m+

Yapmanız yeterli olur.
fav, Z-Lined ve Goemon buna teşekkür ettiler.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #5  
Alt 08 Haziran 2015, 19:11
Avatar Yok
fav fav isimli Üye şimdilik offline konumundadır

mS Puan: 11
mS Derece: fav
 
Üyelik tarihi: 11 Eylül 2011
Mesajlar: 40
Konular: 16
Eklentiler: 1
Alınan Teşekkür: 1
Yapılan Teşekkür: 17
Standart

benyazsam 3 sayfa olurdu heralde tebrıkler cenk kardeşim
Z-Lined buna teşekkür etti.
Alıntı ile Cevapla
Cevapla

Etiketler
mod, multi

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Hızlı Memo Gönderimi (Multi Mesaj) UnLimitedBOY Showcase - Hazır kodlar 2 05 Mayıs 2012 18:09


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