Tekil Mesaj gösterimi
Alt 23 Şubat 2012, 22:06   #1
Çevrimdışı
Narsinha
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Günlük Fal addonı




Dialog el33t'nin [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] linkindeki koddan alıntı.el33t Müneccim.com kaynak olarak kullanmış site kapanmış.Bende muneccim.gen.tr kaynak olarak kullandım.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias burc { if ($1) { if $regex($1,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balik|yengec|terazi)/i) { sockclose burc clear @gunlukfal sockopen burc muneccim.gen.tr 80 sockmark burc $1 } } } on *:sockopen:burc:{ var %s sockwrite -n $sockname %s GET / $+ $sock($sockname).mark $+ -burcu-yorumu.html HTTP/1.1 %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2 %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3 %s $crlf } on *:sockread:burc:{ if ($sockerr) { echo -a 4 Hata: Bağlantı hatası, lütfen tekrar deneyiniz. halt } else { var %s sockread %s if (*Sevgili* iswm %s) { $iif((!$window(@gunlukfal)),window @gunlukfal,window -a @gunlukfal) | aline -p @gunlukfal $htmlfree(%s) } } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;) return %x } alias kdeg return $replace($1,koç,koc,boğa,boga,yengeç,yengec,başak,basak,oğlak,oglak,balık,balik) dialog 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: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 { burc $kdeg($did($dname,1)) } } } menu * { - Gunluk Fal:.dialog -m gunlukfal gunlukfal }


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver