Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Günlük Fal addonı

Ana Sayfa » internet » IRC » Günlük Fal addonı
Günlük Fal addonı

;Günlük Fal addonı, kodlayan: ‘el33t’
;Günlük falınıza bakmak için “/günlükfal” yazınız, ya da popupslardaki Günlük Fal’a tıklayınız.
on *:LOAD:echo 12 -st > Günlük Fal addonını yüklediniz. “/günlükfal” yazarak yada popupslardaki Günlük Fal’a tıklayarak falınıza bakabilirsiniz.
menu status,menubar,channel {
  –
  Günlük Fal:günlükfal
}
alias günlükfal { if !$sock(muneccim) { if $dialog(sa_gunlukfal) { dialog -x sa_gunlukfal } | dialog -ma sa_gunlukfal sa_gunlukfal } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
alias -l falgoster { if !$window(GünlükFal) { window -k0 @GünlükFal } | aline -p @GünlükFal $1- }
on *:sockopen:muneccim:{
  if %burç {
    sockwrite -n $sockname GET $+(/gunluk_fal/bugun.asp?burc=,%burç) HTTP/1.1
    sockwrite -n $sockname Host: muneccim.com $+ $crlf $+ $crlf
  }
  else { echo 12 -st > Hata: Burç seçmelisiniz.. }
}
on *:sockread:muneccim:{
  if ($sockerr) {
    echo 12 -st > Hata: Bağlantı hatası, lütfen tekrar deneyiniz.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    if (*<td><p align=”center”><img src=”../images/*”></td>* iswm %temptext) && $istok(koc.boga.ikizler.yengec.aslan.basak.terazi.akrep.yay.oglak.kova.balik,$gettok($gettok($gettok(%temptext,3,47),1,34),1,46),46) { falgoster $+(04,$upper($gettok($gettok($gettok(%temptext,3,47),1,34),1,46))) }
    if (*<p align=”center”><big><big><font face=”Arial Black”>*</font></big></big></p>* iswm %temptext) { falgoster $+(14,$htmlfree(%temptext)) }
    if (<p><font color=”#000000″ face=”Arial Narrow”><strong><big>* iswm %temptext) { falgoster $+(10,$htmlfree(%temptext)) | falgoster  | if $sock(muneccim) { sockclose muneccim } }
  }
  unset %burç
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
dialog sa_gunlukfal {
  title “Günlük Fal”
  size -1 -1 59 35
  option dbu
  combo 1, 3 8 53 55, size drop
  box “Burç:”, 2, 1 0 57 21
  button “Oku”, 3, 3 22 25 10
  box “”, 4, 1 17 29 17
  button “Kapat”, 5, 31 22 25 10, ok
  box “”, 6, 29 17 29 17
}
on *:dialog:sa_gunlukfal:*:*:{
  if $devent = INIT {
    didtok $dname 1 44 koç,boğa,ikizler,yengeç,aslan,başak,terazi,akrep,yay,oğlak,kova,balık
    did -c $dname 1 1
  }
  if $devent = SCLICK {
    if $did = 3 { if !$sock(muneccim) { set %burç $did($dname,1).sel | sockopen muneccim muneccim.com 80 } | else { echo 12 -st > Hata: Başka bir fala bakılıyor. } }
  }
}

Günlük Fal addonı - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

kelebek

kelebek 09 Kasım 2020

irc invex komutu

irc invex komutu 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Cinnet belirtisi 1 ay önce ortaya çıkıyor Aslanağacı Çiçeği Php İle Basit bir Alis-Veris Sepeti Operler icin INFO Kamburluk kifoz Ceza

FACEBOOK'TA BİZ

Hoşgeldiniz Kelebek IRCd ve Kelebek Script ile ilgili her türlü yardımı HELPDESK alanından alabilrsiniz.

Kelebek mIRC Script Sohbet Sitesi - Tüm Hakları Saklıdır