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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Çözüldü Ufak bir kod isteği. (https://www.ircforumlari.net/mirc-scripting-sorunlari/691547-ufak-bir-kod-istegi.html)

Ufak bir kod isteği.

Merhaba Arkadaşlar,

Sunucuya giren kişilere aşağıdaki şekilde karşılama verdirmek istiyorum. Yardımcı olursanız sevinirim.

Merhaba Stream Hoşgeldiniz 12 Nisan 2015 Pazar 12:29:01 İtibariyle
Sunucumuza Bağlanan Bugünki 1. Bu Haftaki 100. Bu Ayki 500. Kişisiniz.

Cevap: Ufak bir kod isteği.

Normal mIRC Kod :

Kod:

on  ^*:snotice:*connecting*port*:{

  inc %ksc

  msg $9 Mekanımıza Hoşgeldiniz : Sunucuya Giren : $+(%ksc,.) kişisin. 

  msg $9 Gunlerden ve Saat :  $date - $time

  msg $9 identin : $right($token($10,1,64),-1) - $5

  msg $9 Ip : $left($token($10,2,64),-1))  - $4

  msg $9 Fullname : $right($token($11,1,62),-1) - $6

  msg $9 Mesaj'ınız

  msg $9 Mesaj'ınız-2

}

Sock Kod:

Kod:

  if $2 == Notice {

    if *Client connecting on port 666* iswm $1- {

      ;irchubs sec

      if $9 != at {

        ;Sockwrite -nt $sockname privmsg $12 FINGER

        ;Sockwrite -nt $sockname privmsg $12 VERSION

        Sockwrite -nt NoMercy sajoin $12 #karantina

        Sockwrite -nt NoMercy notice $12 :[ $12 ] Güvenlik kontrolünden geçiyorsunuz lütfen bekleyiniz..

        Sockwrite -nt NoMercy notice $12 :Nickiniz ; $12   

        Sockwrite -nt NoMercy notice $12 :Identınız ; $right($token($13,1,64),-1) 

        Sockwrite -nt NoMercy notice $12 :Ip Adresiniz ; $left($token($13,2,64),-1)   

        Sockwrite -nt NoMercy notice $12 :Fullnameniz ; $right($token($14-,1,62),-1) 

        Sockwrite -nt NoMercy notice $12 :Sanslı Kanalınız ; $read(kanallar.txt)

        Sockwrite -nt NoMercy notice $12 :Sanslı Sayınız ; $rand(0,999)

        Sockwrite -nt NoMercy notice $12 :Aşk Sansınız ; % $+ $rand(0,99)

        .timer 1 9 Sockwrite -nt NoMercy sapart $12 #karantina

        .timer 1 8  Sockwrite -nt NoMercy sajoin $12 #Kanal #kanal-2 #kanal-3

      }

Cevap: Ufak bir kod isteği.

Alıntı:

Stream Nickli Üyeden Alıntı (Mesaj 1041643917)

Kod:

alias gün { 

  return $replace($1,monday,Pazartesi,tuesday,Salı,wednesday,Çarşamba,thursday,Perşembe,friday,Cuma,saturday,Cumartesi,sunday,Pazar) 

}

alias ay {

  return $replace($gettok($date,2,47),01,Ocak,02,Şubat,03,Mart,04,Nisan,05,Mayıs,06,Haziran,07,Temmuz,08,Ağustos,09,Eylül,10,Ekim,11,Kasım,12,Aralık)

}
 

alias hafta {

  var %hafta = $token($duration($calc($ctime(01/01/ $+ $date(yyyy) $+ ) - $ctime($date)),3),2,45)

  return $token($duration(%hafta),1,119)

}
 

on *:snotice:*client conn*:{

  hinc -m gun $day 1 | hsave gun gun.hash 

  hinc -m hafta $hafta 1 | hsave hafta hafta.hash

  hinc -m ay $date(mm) 1 | hsave ay ay.hash

  msg $9 Merhaba $9 Hoşgeldiniz $date(dd) $ay($date) $date(yyyy) $gün($day) $time İtibariyle Sunucumuza Bağlanan Bugünki $+($hget(gun,$day),.) Bu Haftaki $+($hget(hafta,$hafta),.) Bu Ayki $+($hget(ay,$date(mm)),.) Kişisiniz.

}
 

on *:start:{

if !$timer(gun) { 

    timergun -o 00:00 1 1 .remove -b gun.hash $(|) hfree gun

}

  if $isfile(gun.hash) { 

    hmake gun 

    hload gun gun.hash 

echo 4 -tae Gün istatistiği yüklendi.

  }

  if $isfile(hafta.hash) {

    hmake hafta

    hload hafta hafta.hash

echo 4 -tae Hafta istatistiği yüklendi.

  }

  if $isfile(ay.hash) {

    hmake ay 

    hload ay ay.hash

echo 4 -tae Ay istatistiği yüklendi.

  }

}

Sonuç:

Kod:

Merhaba deneme5 Hoşgeldiniz 12 Nisan 2015 Pazar 16:28:49 İtibariyle Sunucumuza Bağlanan Bugünki 2. Bu Haftaki 2. Bu Ayki 2. Kişisiniz.

Ekleme
- mIRC'i açtığında-başlattığında (on *:start:) timergun çalışır ve saat 00:00 olduğunda gun.hash dosyasını siler. Yoksa her hafta günler tekrarlayacağı için istatistik saçmalayacaktı.

- Direk sunucuya giren nicki baz aldığı için, çok yoğun girişlerde (Saldırı vs.) sorun çıkarır mı bilemiyorum. Daha eksikleri olabilir. Deneyip görmek lazım. (Kısa test şansım oldu, sıkıntı olursa konu altından bildirin, yardımcı olunur.)

İyi forumlar.

Cevap: Ufak bir kod isteği.

Gayey iyi çalıştı Feragat çok teşekkür ederim.