Ramazan Imsakiye (2021) - ForumIRC.Com

Beni Anımsa?
Etiket Listesi

Beğeni Ağacı4Beğeniler
  • 2 Post By Set
  • 1 Post By Charismax
  • 1 Post By Set

Cevapla Yeni konu oluştur
Standart Ramazan Imsakiye (2021) #1
Set - ait Kullanıcı Resmi (Avatar)
Alt 23 Nisan 2021, 05:15


Kod:
on *:text:*:#: {
  tokenize 32 $strip($1-)
  if $regex($1,/[!.][ıi]ftar$/i) {
    if !$2 { msg # il belirtmediniz! | return }
    hadd -m verial kanal $chan
    iftar $lower($2)
  }
}
alias tr_ return $replacex($1-,ç,c,ı,i,ğ,g,ü,u,ş,s,ö,o) 
alias iftar { 
  var %rand = $rand(1,999)
  sockopen $+(ssl,%rand) ajan.tk 80
  sockmark $+(ssl,%rand) $+(https://www.hurriyet.com.tr/ramazan/,$tr_($1),-imsakiye/)
  hadd -m verial sehir $upper($1)
}

on *:sockopen:ssl*:{ 
  var %komut = sockwrite -n $sockname
  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut Connection: keep-alive
  %komut $crlf
}
alias iftarkalan {
  var %zaman $duration($calc($duration($+($1,:00)) - $duration($time)))
  if - isin %zaman {
    var %zaman $duration($calc($duration($time) - $duration($+($1,:00))))
    return 3Geçen: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
  }
  return 4Kalan: $replace(%zaman,mins,dakika,secs,saniye,hrs,saat)
}
on *:sockread:ssl*:{
  var %63 | sockread %63
  if $regex(%63,<div class="hata">404</div>) {
    .hfree -sw verial
    msg $hget(verial,kanal) **4 $hget(verial,sehir) **  adında il bulunamadi.
    sockclose $sockname
  }
  if $regex(%63,<span class="pray-time">(.*?)</span>) {
    hinc -m verial inc 1
    if $hget(verial,inc) = 1 { 
      msg $hget(verial,kanal) **4 $hget(verial,sehir) **4 $date tarih verisi.
      msg $hget(verial,kanal) -
      msg $hget(verial,kanal) Imsak(Sahur): $regml(1)
    }
    if $hget(verial,inc) = 2 { msg $hget(verial,kanal) Güneş: $regml(1) }
    if $hget(verial,inc) = 3 { msg $hget(verial,kanal) Öğle: $regml(1) }
    if $hget(verial,inc) = 4 { msg $hget(verial,kanal) Ikindi: $regml(1) }
    if $hget(verial,inc) = 5 { msg $hget(verial,kanal) Akşam(Iftar): $regml(1) ( $iftarkalan($regml(1)) ) }
    if $hget(verial,inc) = 6 {
      msg $hget(verial,kanal) Yatsı (Teravih): $regml(1)
      msg $hget(verial,kanal) -
      .hfree -sw verial 
      sockclose $sockname
    }
  }
}
Charismax ve AzRaiL bunu beğendi.
Standart Yanıt: Ramazan Imsakiye (2021) #2
Back'in Zeka
Charismax - ait Kullanıcı Resmi (Avatar)
Alt 25 Nisan 2021, 11:17
Bunun kullanımını anlata bilirmisiniz ?

Test ettim footer altında page şablonun bu tür kodları çalıştırıyor benim.. bu kodlarda karakter hatasımı var bir yerinde... canlı örneği var mı ?
Gerçi mirc için sunmuşsunuz ama ben yine page'de bunun çalışmasını görmüştüm..

Set bunu beğendi.

Konu Charismax tarafından (25 Nisan 2021 Saat 11:20 ) değiştirilmiştir.
Standart Yanıt: Ramazan Imsakiye (2021) #3
Set - ait Kullanıcı Resmi (Avatar)
Alt 25 Nisan 2021, 12:03
Mirc codlama yapısı ile yazılmıştır, başka kısımda calismicaktir malesef
Charismax bunu beğendi.
Cevapla Yeni konu oluştur

İçeriği Sosyalleştir


Şu anda bu konuyu görüntüleyen etkin kullanıcılar: 1 (0 üye ve 1 konuk)
 

Benzer Konular
Konu
Konuyu Başlatan
Forum
Cevaplar
Son Mesaj
Lareina
Sağlık Haberleri
0
14 Nisan 2021 19:37
Lareina
Sağlık Haberleri
0
14 Nisan 2021 19:33
Painfully
Güncel ve Son Dakika Haberler
0
13 Nisan 2021 14:45
Painfully
Gazete Manşetleri
0
13 Nisan 2021 14:45
CtrL
Kutlamalar ve Mutluluklar
5
13 Nisan 2021 08:44

© İçerik sağlayıcı paylaşım sitesi olarak hizmet veren ForumIRC.Com sitemizde 5651 sayılı kanunun 8. maddesine ve T.C.K'nın 125. maddesine göre tüm üyelerimiz yaptıkları paylaşımlardan kendileri sorumludur. Sitemiz hakkında yapılacak tüm hukuksal şikayetleri İletişim bağlantısından bize ulaşıldıktan en geç 3 (üç) gün içerisinde ilgili kanunlar ve yönetmenlikler çerçevesinde tarafımızca incelenerek, gereken işlemler yapılacak ve site yöneticilerimiz tarafından bilgi verilecektir.