| Narsinha | 23 Şubat 2012 22:06 |
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:
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, )
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
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
