IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý

IRCForumlarý - IRC ve mIRC Kullanýcýlarýnýn Buluþma Noktasý (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Nöbetçi Eczane Kodu (https://www.ircforumlari.net/mirc-parca-kodlar/1072654-nobetci-eczane-kodu.html)

manikdepresif 21 Kasým 2025 21:53
Nöbetçi Eczane Kodu
 
[ACIKLAMA]
Ýlgili 3 günün nöbetci eczane listesini verir. Unutulmamalidir ki rakamlar spama takilabilir o yuzden kanal spamdan ya da bot spamdan muaf olmalidir .
-
Uygulama : !eczane il ilce
Ornek : !eczane balikesir susurluk
.
Hayirli olsun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; NOBETCI ECZANE KODU by jeun ;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Kanallari kendinize gore ayarlamayi unutmayiniz.
Kod:
on *:text:*:#sohbet,#mirchelp,#mobile,#felsefe,#chat: {
  if $regex($1,/[!.]e[cçÇ]zane$/i)  {
    if !$2 { msg # > il ilce belirtmediniz! | msg # > Ornek: !eczane istanbul avcilar | return }
    set %eczanelink1 $replace($2,ý,i,I,i,Ý,i,ð,g,ö,o,Ö,o,Þ,s,þ,s,Ü,u,ü,u,ç,c,Ç,c,ð,g,Ð,g)
    set %eczanelink2 $replace($3-,ý,i,I,i,Ý,i,ð,g,ö,o,Ö,o,Þ,s,þ,s,Ü,u,ü,u,ç,c,Ç,c,ð,g,Ð,g)

    set -eu20 %eczanechan $chan
    set -eu20 %eczanenick $nick
    eczanebak
  }
}

alias eczanebak { var %rand = $rand(1,999) | sockopen $+(eczane,%rand) qbilisim.net 80 | sockmark $+(eczane,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
on *:sockopen:eczane*:{
  var %k = sockwrite -n $sockname
  %k GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %k Host: $sock($sockname).addr
  %k User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
  %k $crlf
}

on *:sockread:eczane*:{
  var %eczane | sockread -f %eczane
  if (*flex alert alert-warning text-center* iswm %eczane) {
    if $regex(%eczane,/"d-flex alert alert-warning text-center rounded shadow-sm">(.+)<\/div><tr><td colspan="/i) {
      msg %eczanechan ::::::::::::
    }
  msg  %eczanechan > $remove($htmlfree(%eczane),raquo;)
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }

SNOOPY 22 Kasým 2025 02:29
Cevap: nobetci eczane kodu
 
Yine çok güzel bir çalýþma

Ayþen. 22 Kasým 2025 02:38
Cevap: nobetci eczane kodu
 
Allah hastanelik etmesin

manikdepresif 22 Kasým 2025 12:19
Cevap: Nöbetçi Eczane Kodu
 
koddaki turkce karakter sorunu yakin zamanda giderilecektir. Saygilar.

idyllic 22 Kasým 2025 12:20
Cevap: Nöbetçi Eczane Kodu
 
emeðine saðlýk güzel çalýþma

Forbidden 22 Kasým 2025 13:30
Cevap: Nöbetçi Eczane Kodu
 
Madem kod paylaþýyorsunuz düzgün paylaþýn. Bozuk kod paylaþýp insanlarý maðdur etmeyin.

Kanallarý kendinize göre güncelleyin.

Örnek;

Kod:
[13:27:52] <%Muhafýz> !eczane istanbul sultanbeyli
[13:27:53] <~Forbidden> >>>>>>>>>
[13:27:53] <~Forbidden> > 21 Kasim Cuma akþamindan 22 Kasim C.tesi sabahina kadar.Liva EczanesiAdil Mahallesi, Polonez Caddesi No:26/B Sultanbeyli / Ýstanbul Sinpaþ Liva Konutlari karþisi, Ökuruþlar Market yani0 (216) 759-05-58Çanakci EczanesiMehmet Akif Mahallesi, þžanliurfa Caddesi No:102/D Mehmetakif / Sultanbeyli / ÝstanbulMehmetakif0 (216) 398-22-49
[13:27:53] <~Forbidden> >>>>>>>>>
[13:27:53] <~Forbidden> > 22 Kasim C.tesi gününden 23 Kasim Pazar sabahina kadar.Umut EczanesiHasanpaþa Mahallesi, Hat Caddesi No:29/A Mehmetakif Sultanbeyli / ÝstanbulHasanpaþa0 (216) 419-65-56Ari EczanesiAkþemsettin Mahallesi, Birgül Sokak No:25/A Oto Sanayi BÖlgesi Sultanbeyli / Ýstanbul Ali-Mehmet Ceylan Aile Saðliði Merkezi yaniOto Sanayi BÖlgesi0 (216) 487-51-51
[13:27:53] <~Forbidden> >>>>>>>>>
[13:27:53] <~Forbidden> > 23 Kasim Pazar gün boyu ve 24 Kasim P.tesi sabahina kadar.Çinar EczanesiMecidiye Mahallesi, Kamer Sokak Adana Caddesi, No:8/A Sultanbeyli / Ýstanbul Uzundere Saat Kulesi civari, (Orman tarafindaki) Ahmet Keleþ Saðlik Ocaði yani0 (216) 389-97-92Vitamin EczanesiHasanpaþa Mahallesi, Hat Caddesi No:33/B Sultanbeyli / Ýstanbul Cuma Pazari SokaðiHasanpaþa0 (216) 398-47-25Seda EczanesiMimar Sinan Mahallesi, Mimar Sinan Caddesi No:45/C Sultanbeyli / Ýstanbul
Düzgün stabil çalýþan kod;

Kod:
on *:text:*:#sohbet,#bizbize: {
  if $regex($1,/[!.]e[cçÇ]zane$/i)  {
    if !$2 { msg # > il ilce belirtmediniz! | msg # > Ornek: !eczane istanbul sultanbeyli | return }
    set %eczanelink1 $replace($2,ý,i,I,i,Ý,i,ð,g,ö,o,Ö,o,Þ,s,þ,s,Ü,u,ü,u,ç,c,Ç,c,ð,g,Ð,g)
    set %eczanelink2 $replace($3-,ý,i,I,i,Ý,i,ð,g,ö,o,Ö,o,Þ,s,þ,s,Ü,u,ü,u,ç,c,Ç,c,ð,g,Ð,g)

    set -eu20 %eczanechan $chan
    set -eu20 %eczanenick $nick
    eczanebak
  }
}

alias eczanebak { var %rand = $rand(1,999) | sockopen $+(eczane,%rand) qbilisim.net 80 | sockmark $+(eczane,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
on *:sockopen:eczane*:{
  var %k = sockwrite -n $sockname
  %k GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %k Host: $sock($sockname).addr
  %k User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
  %k $crlf
}

on *:sockread:eczane*:{
  var %eczane | sockread -f %eczane
  if (*flex alert alert-warning text-center* iswm %eczane) {
    if $regex(%eczane,/"d-flex alert alert-warning text-center rounded shadow-sm">(.+)<\/div><tr><td colspan="/i) {
      msg %eczanechan >>>>>>>>>
    }
    msg %eczanechan > $remove($xfrbtürkcex($htmlfree(%eczane)),raquo;)
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias xfrbtürkcex { return $replacecs($1-,ı,i,Ãü,ü,ÅŸ,þ,ü,ü,Öz,Ö,Ä°,Ý,ÄŸ,ð,Ãœ,Ü,ö,Ö,Ç,Ç,Å,þ,ç,ç) }

NeverLove 22 Kasým 2025 15:39
Cevap: Nöbetçi Eczane Kodu
 
Güzel bir çalýþma eline saðlýk.

dOubLe 23 Kasým 2025 08:47
Cevap: Nöbetçi Eczane Kodu
 
Basit gibi görünen ama yýllardýr kimsenin aklýna gelmemiþ çok iyi, akýllýca ve iþe yarar bir düþünce. Caný gönülden tebrik ederim.

Hesna 23 Kasým 2025 09:00
Cevap: Nöbetçi Eczane Kodu
 
Çok faydalý bir çalýþma olmuþ
Düþüncenize ve emeklerinize saðlýk


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 05:34.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk