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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Ruya tabircisi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/459530-ruya-tabircisi.html)

Adından anlaşıldığı gibi ruya tabiri yapabilen bir kod dur
Amaçı ruyada görünenlerin ne manaya geldiğini yorumlamaktadır
Bilindiği gibi ruyaların coğu bilinc altıdır coğunlukla kesin bir yorum olamaz hiçbir zaman ruya hakkında

kullanımı kanalda veya özelde biri !ruya armut gibi ruyasında gördüklerini yazıp yanıt alabilir yanıtlar özele gelecektir kanalda banlanma ve rahatsız edici olmaması için

Kendi kullanımlarınız için ise /ruya bulut şeklinde kullana bilirsiniz

Kod:

 

On *:text:!ruya*:*:{

  if $sock(py) { msg $chan 3:-4Şu anda başka bir ruya yorumu alınıyor lütfen daha sonra tekrar deneyiniz. | halt }

  set %py $2

  set %kn msg $nick

  py

}

alias ruya {

  set %py $1 | set %kn echo -a | py 

}

alias py { 

  .remove ruya.txt

  .timer 1 2 sockopen py 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

}

on *:sockopen:py:{

  sockwrite -n $sockname GET /ruyatabiri/ $+ %py $+ .html HTTP/1.1

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf

}

on *:sockread:py:{

  var %data

  sockread %data

  if <blockquote><p> isin %data {

    set %rk $ayr(%data)

    write ruya.txt %rk 

    cl

  }

}

alias cl  {

  var %h $len($read(ruya.txt,1)) | set %gt $gettok($calc($calc(%h / 100) + 1),1,46) | ty

}
 

alias ayr {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

alias ty  { var %v 10 | set %s 1 | var %ft 1, %x 1, %d 1

  set %t $gettok($read(ruya.txt,%s),0,32)

  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)

  while %x <= %t {

    .timer 1 %ft %kn $gettok($read(ruya.txt,%s), $+ %x $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)

    var %v $calc(%v + 10)

    if (%ff == %d) { .timer 1 %ft gh }

    inc %x 10

    inc %d

  }

}

alias gh {

  set %s $calc(%s + 1)

  set %t $gettok($read(ruya.txt,%s),0,32)

  tg

}

alias tg {

  var %ft 1, %v 10, %i 1, %ı 1

  var %ff $left($gettok($read(ruya.txt,%s),0,32),1)

  while %i <= %t {

    .timer 1 %ft %kn $gettok($read(ruya.txt,%s), $+ %i $+ - $+ %v $+ ,32) | var %ft $calc(%ft + 3)

    var %v $calc(%v + 10)

    if (%ff == %ı) { .timer 1 %ft gh }

    inc %i 10

    inc %ı

  }

}

Cevap: Ruya tabircisi

Kodu Denemedim Ancak Baktığımda Kendiniz Görmek İçin /ruya Kelime Komutu Uygulandığında, Kendi Özeline Yazıyor Görünüyor. Onun Yerine Echo Yada Pencere Kullanılsa Daha iyi Olurdu.Çünkü Kendi Özeline Yazdığında İkileme Olacaktır.

Yinede Emeğinize Sağlık.

Cevap: Ruya tabircisi

onu son anda eklemiştim doğru söylüyorsun echo yapalım onu haklısın katılıyorum

Cevap: Ruya tabircisi

bence kod calısıyor ama kendiniz yaptıgınız direk /ruya bulut gibi yazıdgınızda direk rıuyanın anlamını mirc ana dizinine atıyor .) diğer kanaldaki userler yaptıgında kod calısmıyor,

Cevap: Ruya tabircisi

Alıntı:

OperServ Nickli Üyeden Alıntı (Mesaj 1041060008)

calismiyor

ÇALIŞIYOR

Alıntı:

silenger Nickli Üyeden Alıntı (Mesaj 1041060293)

Sen ruya yorumunu okumak için komutu girmiyormusun eee haliyle sana okutmak için olduğun ekrana yazacak Osana görünür sadece Kanaldakileri rahatsız etmes flood da düşmez

Diğer üyelerin yaptıındada çalışıyor Onlarında özeline yolluyor kanalamı yollamalıydı

Not: Bu kodlar buraya gözü kapalı karalamalarla çizilip gelmiyor Sizin gibiler için yazılı tarifte yapıyoruz ama onuda beceremiyorsunuz gelip olur olmaz post atıyorsunuz cvp vermeye dahi gerek yok aslında size.

Cevap: Ruya tabircisi

* Geçersiz format: $left (Satır 38, ruya.txt)

Bole yaziyor

Cevap: Ruya tabircisi

dediğin satır ruya.text içerisndeki satıralrın karakter sayısını bulmak için kullanılmıs bir yazıttır eğerki orda hata alıyorsan socket raya.txt ye kayıt etmemiş demektirki bizde ediyor

mircinde ruya socketindeki sockname yanı socket isminden baska bir socket olabilir
bu kodu 6.35 üzerinde yazıldı mirc versionundan kaynaklanabilir

önerim kodu boşbir mirce kopyalayıp tekrar denemen kodu tam kopyaladığından emin ol aynı buradaki gibi görünmeli mircindede bazen kopyalama esnasında kod'u tek satır halinde kopyalanmsına sebeb oluyor site kod çalışıyor hala denedim

Cevap: Ruya tabircisi

Fav

Alıntı:

Not: Bu kodlar buraya gözü kapalı karalamalarla çizilip gelmiyor Sizin gibiler için yazılı tarifte yapıyoruz ama onuda beceremiyorsunuz gelip olur olmaz post atıyorsunuz cvp vermeye dahi gerek yok aslında size.

BUndan Cvp verme madem oyle cok biliyorsan kod kendin yazda calıstıralım olarmı ,,

Cevap: Ruya tabircisi

ben yazdım o kodu bilip bilmerden konuşma