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/)

- - [!.]doğumgünü TARIH (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/824655-dogumgunu-tarih.html)

[!.]doğumgünü TARIH

Merhaba,
Sercanla otururken neler yapayım diye konuşurken kendisi daha önce botta ekleme yapmış bende forum için yazıp paylaşmak istedim kendisi de izin verdi sağolsun..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

on *:snotice:*:{

  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {

    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)

    msg %_nick Merhaba, %_nick

    msg %_nick Doğum tarihini sisteme kayıt ettirebilirsiniz.

    msg %_nick Doğum gününüz geldiğinde, kanallar genelinde voice(+) 'e sahip olabilirsiniz..

    msg %_nick Doğum tarihinizi eklemek için 4!dogumgunu Tarih yazabilirsiniz.

  }

}

on *:text:*:?:{

  if $regex($1,/^[!.]do[gğĞ]umg[uüÜ]n[uüÜ]$/Si) {

    if !$regex($2,/^(\d{2}\/\d{2}\/\d{4})$/S) { msg $nick Lütfen 4!dogumgunu Tarih olarak belirtiniz. 4ÖRN: !dogumgunu 09/09/1991 }

    else { .hadd -ms Trh $nick $regml(1) | who $nick }

  }

}

raw 352:*:{

  if $hget(Trh,$6) {

    if !$regex($7,/r/) { msg $6 Nickiniz kayıtsız olduğundan dolayı sisteme eklenemedi, lütfen nickinizi kayıt ediniz... | .hdel -ms Trh $6 }

    else {

      sockopen $+(tarih,$6) yas.hesaplama.in 80 | sockmark $+(tarih,$6) $+($6,¿,$hget(Trh,$6))

      .hadd -ms Tarih $6 $hget(Trh,$6) | .hsave -o Tarih Tarih.tprk | .hdel -ms Trh $6

    }

  }

}

on ^*:join:#Sohbet,#Radyo,#Oyun:{

  if $token($hget(Tarih,$nick),1-2,47) == $token($date,1-2,47) {

    mode # +v $nick

    msg # Doğum gününüz kutlu olsun,4 $nick

  }

}

on *:start:if $isfile(Tarih.tprk) { .hmake Tarih | .hload Tarih Tarih.tprk }

alias _tr return $replace($1-,Ã‡,Ç,Ä°,İ,Ã¼,ü,ÅŸ,ş,ÄŸ,ğ,Ã§,ç,Ä±,ı,Ã¶,ö,Å,Ş,Ä,Ğ,Ãœ,Ü,Ã–,Ö)

on *:sockopen:tarih*:{ 

  if ($sockerr) { .sockclose $sockname | return }

  var %:sockmark $token($sock($sockname).mark,2,191), %:hesap $+(gun=,$token(%:sockmark,1,47),&ay=,$token(%:sockmark,2,47),&yil=,$token(%:sockmark,3,47))

  sockwrite -nt $sockname POST /yas-hesaplama-dogum-gunu-hesaplama-burc-hesaplama/ HTTP/1.1 

  sockwrite -nt $sockname Host: $sock($sockname).addr

  sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Content-length: $len(%:hesap)

  sockwrite -nt $sockname Accept: text/html, application/xhtml+xml

  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)

  sockwrite -nt $sockname Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname

  sockwrite -nt $sockname %:hesap

}

on *:sockread:tarih*:{ 

  var %:tarih | sockread %:tarih | tokenize 32 $_tr(%:tarih)

  if $regex($1-,/<b>(.+?) günü <\/b>doğdunuz/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) günü doğdunuz }

  if $regex($1-,/tam olarak (.+?) yaşındasınız/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) yaşındasınız }

  if $regex($1-,/Yaşanılan Toplam Süre<\/b>\=(.+?)<br> <b>/i) { msg $token($sock($sockname).mark,1,191) Yaşanılan Toplam Süre =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Ay Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Ay Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Gün Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Gün Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Saat Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Saat Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Dakika Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Dakika Sayısı =4 $regml(1) }

  if $regex($1-,/Doğum gününüze kalan süre<\/b>\:(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Doğum gününüze kalan süre =4 $regml(1) }

  if $regex($1-,/Burcunuz\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Burcunuz =2 $regml(1) | sockclose $sockname }

}

Normalde $ctime ile daha basit yazılıyor hatta yazmıştım ama 1970 öncesini göstermiyor(/echo -a $asctime(0)) ondan dolayı siteden çektiriyorum..

Cevap: [!.]doğumgünü TARIH

maşallah beraber geçirdiğiniz süreyi hiç boşa harcamıyorsunuz :D

Cevap: [!.]doğumgünü TARIH

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1042094344)

Kod:

on *:snotice:*:{

  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {

    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)

    msg %_nick Merhaba, %_nick

    msg %_nick Doğum tarihini sisteme kayıt ettirebilirsiniz.

    msg %_nick Doğum gününüz geldiğinde, kanallar genelinde voice(+) 'e sahip olabilirsiniz..

    msg %_nick Doğum tarihinizi eklemek için 4!dogumgunu Tarih yazabilirsiniz.

  }

}

on *:text:*:?:{

  if $regex($1,/^[!.]do[gğĞ]umg[uüÜ]n[uüÜ]$/Si) {

    if !$regex($2,/^(\d{2}\/\d{2}\/\d{4})$/S) { msg $nick Lütfen 4!dogumgunu Tarih olarak belirtiniz. 4ÖRN: !dogumgunu 09/09/1991 }

    else { .hadd -ms Trh $nick $regml(1) | who $nick }

  }

}

raw 352:*:{

  if $hget(Trh,$6) {

    if !$regex($7,/r/) { msg $6 Nickiniz kayıtsız olduğundan dolayı sisteme eklenemedi, lütfen nickinizi kayıt ediniz... | .hdel -ms Trh $6 }

    else {

      sockopen $+(tarih,$6) yas.hesaplama.in 80 | sockmark $+(tarih,$6) $+($6,¿,$hget(Trh,$6))

      .hadd -ms Tarih $6 $hget(Trh,$6) | .hsave -o Tarih Tarih.tprk | .hdel -ms Trh $6

    }

  }

}

on ^*:join:#Sohbet,#Radyo,#Oyun:{

  if $token($hget(Tarih,$nick),1-2,47) == $token($date,1-2,47) {

    mode # +v $nick

    msg # Doğum gününüz kutlu olsun,4 $nick

  }

}

on *:start:if $isfile(Tarih.tprk) { .hmake Tarih | .hload Tarih Tarih.tprk }

alias _tr return $replace($1-,Ã‡,Ç,Ä°,İ,Ã¼,ü,ÅŸ,ş,ÄŸ,ğ,Ã§,ç,Ä±,ı,Ã¶,ö,Å,Ş,Ä,Ğ,Ãœ,Ü,Ã–,Ö)

on *:sockopen:tarih*:{ 

  if ($sockerr) { .sockclose $sockname | return }

  var %:sockmark $token($sock($sockname).mark,2,191), %:hesap $+(gun=,$token(%:sockmark,1,47),&ay=,$token(%:sockmark,2,47),&yil=,$token(%:sockmark,3,47))

  sockwrite -nt $sockname POST /yas-hesaplama-dogum-gunu-hesaplama-burc-hesaplama/ HTTP/1.1 

  sockwrite -nt $sockname Host: $sock($sockname).addr

  sockwrite -nt $sockname Connection: keep-alive

  sockwrite -nt $sockname Content-length: $len(%:hesap)

  sockwrite -nt $sockname Accept: text/html, application/xhtml+xml

  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)

  sockwrite -nt $sockname Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname

  sockwrite -nt $sockname %:hesap

}

on *:sockread:tarih*:{ 

  var %:tarih | sockread %:tarih | tokenize 32 $_tr(%:tarih)

  if $regex($1-,/<b>(.+?) günü <\/b>doğdunuz/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) günü doğdunuz }

  if $regex($1-,/tam olarak (.+?) yaşındasınız/i) { msg $token($sock($sockname).mark,1,191) $+(4,$regml(1),) yaşındasınız }

  if $regex($1-,/Yaşanılan Toplam Süre<\/b>\=(.+?)<br> <b>/i) { msg $token($sock($sockname).mark,1,191) Yaşanılan Toplam Süre =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Ay Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Ay Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Gün Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Gün Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Saat Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Saat Sayısı =4 $regml(1) }

  if $regex($1-,/<b>Yaşadığın Dakika Sayısı\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Yaşadığın Dakika Sayısı =4 $regml(1) }

  if $regex($1-,/Doğum gününüze kalan süre<\/b>\:(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Doğum gününüze kalan süre =4 $regml(1) }

  if $regex($1-,/Burcunuz\:<\/b>(.+?)<br>/i) { msg $token($sock($sockname).mark,1,191) Burcunuz =2 $regml(1) | sockclose $sockname }

}

Normalde $ctime ile daha basit yazılıyor hatta yazmıştım ama 1970 öncesini göstermiyor(/echo -a $asctime(0)) ondan dolayı siteden çektiriyorum..

Eline Sağlık Üstad. bunu kendi mircime eklemek istiyorum, mümkünmü?

Cevap: [!.]doğumgünü TARIH

Alıntı:

FuaT Nickli Üyeden Alıntı (Mesaj 1042095872)

Eline Sağlık Üstad. bunu kendi mircime eklemek istiyorum, mümkünmü?

Evet kendiniz kullanabilirsiniz;

Kod:

on *:text:*:?:{

Böyle değiştirin;

Kod:

on *:input:?:{

Cevap: [!.]doğumgünü TARIH

Doğum günümü takip etmek istersen bilgileri yollim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] cım !

Elinize sağlık Sercan beye saygılar.

Cevap: [!.]doğumgünü TARIH

ah şu Sercan'ın çılgın fikirleri, emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

Cevap: [!.]doğumgünü TARIH

1970 yılından öncesini AscTime ile göstertmemesinin sebebi Unix Sistem Saatiyle ilgili bir durum. Unix sistem saati 1970 yılından itibaren çalışmaya başlar ve günümüze kadar geçen zamanı tutar. Bu durumla ilgili 2038 yılında başlıca 32 bit işletim sistemlerinde ortaya çıkabilecek bir sorun da vardır.

Bakınız: Epoch Time

Cevap: [!.]doğumgünü TARIH

Site üzerinden sorgulatmak güzel olmuş :)

mIRC tanımlarıyla yapılacaksa bile asctime ın döndüğü başlangıç saatiyle alakası olmaz. Çünkü iki tarih arasındaki zamanı baz alır mantık. Tek yapılması gereken bu farkı tarihe çevirmek. mIRC'in, bu işler için ürettiği tanımların sonuçları en fazla hafta bazlı veriyor.

Ek yapılarla bu işi kolayca ve net olarak çözersiniz (dl, com gibi.)

Elbette seçim, zevk sizin. Fırsat olursa bir örnek de ben veririm. Kolay gelsin.