|
|
 |
| mIRC Scripting Hazýr Kodlar mIRC Scriptinglerinizde kullanabileceðiniz hazýr kodlara bu baþlýk altýndan ulaþabilirsiniz. |
| | Seçenekler | Stil |
23 Kasým 2025, 02:07
| #1 |
     |  Nöbetçi Eczane Kodu Socket
; Nöbetçi Eczane Kodu Socket ;-------------------------------------------------------------- ; Girilen il ve ilçe için nöbetçi eczane bilgisini gösterir. ; ; Kullaným: ; - Kanala !eczane il ilçe yazarak çalýþtýrýlýr. ; - Kod, ilgili bölgeye ait 3 günün nöbetçi eczane listesini ; eczaneler(.)gen(.)tr üzerinden güncel olarak çekip kanala gönderir. ;-------------------------------------------------------------- Ö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 Kodon *:text:*:#sohbet: {
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://www.eczaneler.gen.tr/nobetci- $+ %eczanelink1 $+ - $+ %eczanelink2 }
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,Ö,Ä°,Ý,ÄŸ,ð,Ãœ,Ü,ö,Ö,Ç,Ç,Å,þ,ç,ç) } |
| |
|
23 Kasým 2025, 12:07
| #2 |
   |
Güzel bir calisma, emeðinize saðlýk
👍 1
________________ Saygý görmek istiyorsan, Samimiyet kurma..  |
| |
|
23 Kasým 2025, 13:00
| #3 |
  | Cok düþünceli bir çalýþma emeðinize saðlýk 👍 1
________________ 𝖎𝖘𝖙𝖊𝖉𝖎ð𝖎𝖒 𝖖𝖎𝖇𝖎 𝖔𝖑𝖒𝖆𝖟𝖘𝖆 𝖎𝖘𝖙𝖊𝖒𝖊𝖒! |
| |
|
23 Kasým 2025, 16:40
| #4 |
  | emeginize saglik ✨ 👍 1
________________  |
| |
|
15 Aralýk 2025, 14:19
| #5 |
 |  👍 1
________________ UYUÞTURUCU SATAN GÝTSÝN ANASINI SATSIN! |
| |
|
19 Aralýk 2025, 20:22
| #6 |
  |
Güzel olmus emegine saglýk.
👍 1
________________  |
| |
| Konuyu Toplam 1 Üye okuyor. (0 Kayýtlý üye ve 1 Misafir) | |
| |
Normal
