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

manikdepresif 04 Aralýk 2025 20:46

Cevap: Nöbetçi Eczane Kodu
 
Merhaba arkadaslar.
Bugun aksam uzeri sans eseri biri bana nobetci eczane tarifi sordu ve ben bulundugum sehirdeki adreslere hakim oldugum icin sordugu eczanenin burada bulunmadigini baska mahallede oldugunu soyledim. Beraber olarak onun telefonundan baktigim nobetci eczane adresi veren site benim daha onceden bu baslik altinda yazmis oldugun "nobetci eczane kodu" ile birebir ortusmektedir.
-
Onca yolu o kadar bosuna gelmis ilac ihtiyaci sahiibi olan kisinin ya da olabilecek diger yanlis bilgilendirmelerini onlemek amaciyla derhal site yoneticisine mail atmis bulunmaktayim.
-
Sizden ricam eger bu kodu sunucunuzda kullaniyorsaniz bir süre kullanmayin ve kimse yanlis bilgilendirmeye maruz kalmasin. Bir sure bekleyip site yoneticisinden haber bekleyip gelismeleri size aktaracagim.
-
IRCFORUMLARI kullanicilarina saygi ile duyurulur.


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

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