Burç,şarkı sözü arama
Selamun aleyküm herkese kolay gelsin;
severek kullandığım bir mircimde bu kod bulunmaktadır ancak kodda bulunan site adresleri sanırım değiştiğinden yahutta artık var olmadığından ötürü hiç bir işlev yapamıyor ve internet bağlantısı yok diyor. ilgilenen arkadaşlardan ricam kodu olduğu gibi ellemeden ve mircimde tabloyu bozmayacak şekilde hepsinden faydalanabilecek şekilde düzeltebilirsek çok mutlu olurum. Saygılar..
;Kodlayan: SeRDaR406 Kod:
dialog astro {
title "Günlük Burç Yorumcusu"
size -1 -1 136 89
option dbu
icon $adicon, 0
text "Bir burç seçiniz:", 1, 4 7 37 8
combo 2, 43 4 60 103, size drop
box "", 3, 1 -2 134 20
button "Oku", 4, 105 4 26 11, disable
edit "", 5, 1 28 134 46, read multi vsbar
button "Kapat", 7, 50 76 40 12, flat cancel
text "", 8, 2 20 133 8
button "Diğer Seçenekler", 6, 1 76 47 12, disable flat
}
dialog burc_opt {
title "Seçenekler"
size -1 -1 107 111
option dbu
icon $adicon, 0
button "Burcun Özellikleri", 2, 1 12 48 12
text "Aşağıdaki Seçeneklerden Birini Seçin:", 1, 6 0 93 8
box "", 3, -2 5 139 5
button "Bugünkü Durumunuz", 4, 51 12 54 12
button "Uyumluluk Analizi", 5, 1 27 48 12
button "Adınızın baş harfine göre aşk durumunuz", 6, 1 41 104 12
button "Yükselen burc öğren", 7, 51 27 54 12
button "Ünlülerin Burçları", 8, 1 55 48 12
button "Kapat", 9, 1 97 104 12, cancel
button "Kimlerle anlaşabilirsin", 10, 51 55 54 12
button "Burçlar ve sağlık", 11, 1 69 48 12
button "Burçlar ve Arkadaşlık", 12, 51 69 54 12
button "Yıldızınızı öğrenin", 13, 1 83 48 12
button "Çin Burcunuz ve Öz.", 14, 51 83 54 12
}
dialog harf_ask {
title "Baş Harfe Göre Aşk Durumu"
size -1 -1 91 69
option dbu
icon $adicon, 0
text "İsminizin baş harfini girin:", 1, 1 3 58 8
box "", 2, -2 9 125 4
edit "", 3, 59 1 12 10, limit 1
button "Bak", 4, 72 1 17 10, disable
edit "İsminizin baş harfini girerken Türkçe karakter(harf) kullanmayın.", 5, 1 15 89 39, read multi vsbar
button "Kapat", 6, 1 56 89 12, flat cancel
}
dialog yukselen {
title "Yükselen Burç Öğrenme"
size -1 -1 94 77
option dbu
icon $adicon, 0
box "", 1, 1 -1 91 76
text "Hangi tarih aralığında doğdunuz:", 2, 4 5 80 8
combo 3, 4 14 85 100, size drop
text "Hangi zaman diliminde doğduğunuz:", 4, 4 27 85 8
combo 5, 4 36 85 100, disable size drop
button "Öğren", 6, 4 61 37 12, disable
button "Kapat", 7, 52 61 37 12, cancel
edit "Yükselen Burc Öğrenme", 8, 4 49 85 10, read
}
dialog ünlüler {
title "Bazı Ünlülerin Burçları"
size -1 -1 110 91
option dbu
icon $adicon, 0
box "", 1, 1 -1 108 22
text "Bir Burç Seçin:", 2, 3 9 35 8
combo 3, 39 6 49 100, size drop
button "Bak", 4, 90 6 16 11, disable
text "Ünlüler:", 5, 2 23 18 8
edit "", 6, 1 31 107 46, read multi vsbar
button "Kapat", 7, 2 78 107 12, flat cancel
}
dialog uyum {
title "UYUMLULUK ANALIZI"
size -1 -1 136 146
option dbu
icon $adicon, 0
box "", 1, 1 -1 133 36
text "KADIN", 2, 4 9 17 8
combo 3, 22 6 40 100, size drop
text "ERKEK", 4, 64 9 18 8
combo 5, 83 6 44 100, disable size drop
button "Uyumluluğu Göster", 6, 4 20 51 12, disable
button "Yeni Seçim", 7, 90 20 41 12, disable
box "", 8, 1 37 133 36
combo 9, 22 44 40 100, size drop
text "ERKEK", 10, 3 47 18 8
text "KADIN", 11, 65 47 17 8
combo 12, 83 44 44 100, disable size drop
button "Yeni Seçim", 13, 90 58 41 12, disable
button "Uyumluluğu Göster", 14, 4 58 51 12, disable
text "", 15, 1 75 134 8
edit "", 16, 1 83 134 62, read multi vsbar
button "Button", 17, 60 47 37 12, hide cancel
}
dialog horin {
title "Burç Özellikleri"
size -1 -1 142 87
option dbu
icon $adicon, 0
text "", 2, 1 1 100 7
edit "", 3, 1 8 140 65, read multi vsbar
button "Kapat", 4, 100 74 41 12, flat cancel
button "Oku", 1, 61 74 37 12, flat
}
dialog anlasma {
title "Kimlerle Anlaşabilirsiniz"
size -1 -1 109 107
option dbu
icon $adicon, 0
box "", 1, 1 -1 106 30
text "Burcunuzu Seçin:", 2, 4 5 42 8
combo 3, 4 14 60 100, size drop
button "Öğren", 4, 66 14 37 11, disable
text "Anlaşabileceğiniz Burçlar:", 5, 2 31 60 8
edit "", 6, 2 39 104 53, read multi
button "TAMAM/KAPAT", 7, 2 94 104 12, flat cancel
}
dialog burc_saglik {
title "Burçlar ve Sağlık"
size -1 -1 109 107
option dbu
icon $adicon, 0
box "", 1, 1 -1 106 30
text "Burcunuzu Seçin:", 2, 4 5 42 8
combo 3, 4 14 60 100, size drop
button "Öğren", 4, 66 14 37 11, disable
text "Açıklama:", 5, 2 31 23 8
edit "", 6, 2 39 104 53, read multi vsbar
button "TAMAM/KAPAT", 7, 2 94 104 12, flat cancel
}
dialog burc_arkadas {
title "Burçlar ve Arkadaşlık"
size -1 -1 109 107
option dbu
icon $adicon, 0
box "", 1, 1 -1 106 30
text "Bir Burç Seçin:", 2, 4 5 42 8
combo 3, 4 14 60 100, size drop
button "Öğren", 4, 66 14 37 11, disable
text "Açıklama:", 5, 2 31 23 8
edit "", 6, 2 39 104 53, read multi vsbar
button "TAMAM/KAPAT", 7, 2 94 104 12, flat cancel
}
dialog cburc {
title "Çin Burcunuz ve Özellikleriniz"
size -1 -1 132 129
option dbu
icon $adicon, 0
box "", 1, 2 0 128 114
text "Çin Burcunuzu Seçin:", 2, 6 9 50 8
combo 3, 58 7 41 100, size drop
text "Özellikleri:", 4, 6 21 31 8
edit "", 5, 6 29 122 47, read multi vsbar
link "Çin Burcunuzu Bilmiyorsanız burdan öğrenebilirsiniz.", 6, 5 77 123 9
text "Doğum Yılınızı Girin:", 7, 6 90 46 8
edit "", 8, 53 88 33 10, limit 4
button "Öğren", 9, 87 88 37 10, disable
link "Çin Burcunuz:", 10, 6 103 33 8
text "?", 11, 41 103 85 8
button "Tamam/Kapat", 12, 3 116 126 11, cancel
button "Özellikleri", 13, 101 7 26 11, disable
}
dialog yıldız {
title "Yıldızınızı Öğrenin"
size -1 -1 137 93
option dbu
icon $adicon, 0
text "Burçlar ve Yıldızları:", 1, 2 2 46 8
edit "", 2, 1 11 135 67, read multi vsbar
button "TAMAM/KAPAT", 3, 1 80 135 12, flat cancel
}
alias -l cburc if (!$dialog(cburc)) dialog -m cburc cburc
alias -l cburcf return $shortfn($scriptdircburc.txt)
alias -l basharf return $shortfn($scriptdirbasharf.txt)
alias -l burc->aktif { if ($did(3).seltext != $null) did -e $dname 4 }
alias -l yıldızlar return $shortfn($scriptdiryıldızlar.txt)
alias -l hordlg {
if (($2 == -d) && (!$dialog($1))) dialog -mdo $1 $1
if (!$dialog($1)) dialog -m $1 $1
}
alias yorumcu hordlg astro
alias -l blen { if ($len($did($1).seltext) > 0) did -e $dname $2 }
alias -l burc_ozellik {
set %horid /karakter/goster.asp?burc= $+ %hrsel $+ &B1=burc+karakteri
sockclose boz
sockopen boz muneccim.com 80
}
alias -l burc->yaz {
did -a $1 $2 Koç
did -a $1 $2 Boğa
did -a $1 $2 İkizler
did -a $1 $2 Yengeç
did -a $1 $2 Aslan
did -a $1 $2 Başak
did -a $1 $2 Terazi
did -a $1 $2 Akrep
did -a $1 $2 Yay
did -a $1 $2 Oğlak
did -a $1 $2 Kova
did -a $1 $2 Balık
}
alias -l uyumluluk {
set %htoh $+($1,=,$2,&,$3,=,$4,&,submit=uyumluluğu göster)
set %yer $5
did -ra uyum 16 Bekleyin...
if ($sock(uyum)) sockclose uyum | sockopen uyum muneccim.com 80
}
on *:sockopen:uyum: {
if ($sockerr) echo -a 4Bağlantı Yok!
else {
sockwrite -n uyum POST %yer HTTP/1.1
sockwrite -n uyum Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset="utf-8"
sockwrite -n uyum Content-Length: $calc($len(%htoh) + 1)
sockwrite -n uyum Host: muneccim.com
sockwrite -n uyum
sockwrite -n uyum %htoh
}
}
on *:sockread:uyum: {
sockread %uyum
if (width="450"> isin %uyum) { if (!$dialog(uyum) == $null) did -r uyum 16 }
if (face="MS Serif"> isin %uyum) { if (!$dialog(uyum) == $null) did -a uyum 16 $remove($gettok(%uyum,5-,32),<br>,</big>,</font>,</td>,</p>) }
}
on *:sockopen:boz: {
if ($sockerr) echo -a Hata!
else {
if (!$dialog(horin) == $null) did -a horin 3 Bekleyin...
sockwrite -n boz GET %horid HTTP/1.1
sockwrite -n boz Host: muneccim.com
sockwrite -n boz $clrf
}
}
on *:sockread:boz: {
sockread %bozy
if (width="450"> isin %bozy) { if (!$dialog(horin) == $null) { did -r horin 3 } }
if (face="Arial isin %bozy) {
set %ozellik $remove($gettok(%bozy,4-,32),<,>,/,br,font,strong,Narrow",big,$chr(9))
write boze.txt %ozellik
}
if (arzunuz isin %bozy) { write boze.txt --------------------------------------------------------- }
if (</body> isin %bozy) { loadbuf -o horin 3 $shortfn(boze.txt) | .remove $shortfn(boze.txt) | unset %ozellik %bozy | sockclose boz }
}
on *:dialog:astro:init:*: {
idset 1000
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
burc->yaz $dname 2
tarih_algıla
}
alias -l adicon return $shortfn($scriptdiryorumcu.ico)
alias -l yorum_algılamayı_başlat {
unset %hcomt
sockclose astro
sockopen astro muneccim.com 80
}
alias -l grafik.ciz {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) {
%gx = $calc(%gx + 40)
if (%gx == 40) { set %gclr $rgb(255,0,0) | set %ney Para }
if (%gx == 80) { set %gclr $rgb(255,0,255) | set %ney Aşk }
if (%gx == 120) { set %gclr $rgb(0,0,128) | set %ney İş }
if (%gx == 160) { set %gclr $rgb(0,128,0) | set %ney Sağlık }
drawrect -rf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] %gclr 1 %gx $calc((100 - $1) + 50) 33 $1
drawtext -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,0,255) Tahoma 11 %gx $calc((100 - $1) + 35) $+(%,$1)
if ($len(%ney) > 2) drawtext -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,0,255) Tahoma 11 $calc(%gx + 4) 153 %ney
else drawtext -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,0,255) Tahoma 11 $calc(%gx + 10) 153 %ney
}
}
alias -l today->state {
if (!$dialog(astro)) return $input(Günlük Burç Yorumcusu Ana Dialog'u Açık değil!!,oh,Hata)
elseif (!$did(astro,2).sel) return $input(Bir burç seçmediniz...!,oh,Hata)
else {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) {
window -pkh[0] +t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $calc($dialog(astro).x + 285) $calc($dialog(astro).y - 70) 300 240 | window -a @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iconfile $adicon
}
clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | drawrect -rf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(233,233,233) 1 0 0 300 240 | drawtext -or @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,0,0) Tahoma 20 20 20 Bir sn bakıyorum...
if ($sock(tst)) sockclose tst
sockopen tst muneccim.com 80
did -b astro 2,9 | set %gx 0
}
}
alias -l yukselen->ogren {
did -ra yukselen 8 Bekleyin...
set %yukselen $+(location=,$did(3).sel,&,count=,$calc($did(5).sel - 1))
if ($sock(yukselen)) sockclose yukselen
sockopen yukselen [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:yukselen: {
if ($sockerr) echo -a Bağlantı Yok!
else {
sockwrite -n yukselen POST /yukselen_burc/yukselen_burc_engine.asp HTTP/1.1
sockwrite -n yukselen Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset="utf-8"
sockwrite -n yukselen Content-Length: $calc($len(%yukselen) + 1)
sockwrite -n yukselen Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n yukselen
sockwrite -n yukselen %yukselen
}
}
on *:sockread:yukselen: {
sockread %yuksel
if (*Yükselen burcunuz* iswm %yuksel) { if ($sock(yukselen2)) sockclose yukselen2 | sockrename yukselen yukselen2 }
}
on *:sockread:yukselen2: {
sockread %yuksel2
if (!$dialog(yukselen) == $null) did -ra yukselen 8 Yükselen Burcunuz: $remove(%yuksel2,<,>,big,br)
sockclose yukselen2
}
on *:sockopen:tst: {
if ($sockerr) echo -a Bağlantı Yok!
else {
sockwrite -n tst GET $+(/pais/goster.asp?burc=,%hrsel,&B1=OK) HTTP/1.1
sockwrite -n tst Host: muneccim.com
sockwrite -n tst $crlf
}
}
on *:sockread:tst: {
sockread %tst
if (durumunuz isin %tst) {
if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) == $null) {
drawrect -rf @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(233,233,233) 1 0 0 300 240
drawrect -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,128,0) 1 40 30 160 1
drawrect -r @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,128,0) 1 40 170 160 1
drawtext -or @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,64,128) Tahoma 11 40 15 $did(astro,2).seltext Burcu
drawtext -or @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $rgb(0,128,0) Tahoma 11 40 190 Fala inanmayın falsız da kalmayın (;
}
}
if (width="33" isin $gettok(%tst,1-,32)) grafik.ciz $remove($gettok(%tst,2,32),height=,",>)
if (Falınız isin %tst) { sockclose tst | if (!$dialog(astro) == $null) did -e astro 2,9 }
}
alias -l tarih_algıla {
set %mm $asctime(mm)
if (%mm == 01) { set %ay Ocak } | elseif (%mm == 02) { set %ay Şubat } | elseif (%mm == 03) { set %ay Mart } | elseif (%mm == 04) { set %ay Nisan }
elseif (%mm == 05) { set %ay Mayıs } | elseif (%mm == 06) { set %ay Haziran } | elseif (%mm == 07) { set %ay Temmuz } | elseif (%mm == 08) { set %ay Ağustos }
elseif (%mm == 09) { set %ay Eylül } | elseif (%mm == 10) { set %ay Ekim } | elseif (%mm == 11) { set %ay Kasım } | elseif (%mm == 12) { set %ay Aralık }
}
on *:sockopen:astro: {
if ($sockerr) { sockclose astro | did -ra astro 5 Internet bağlantısı bulunamadı... }
else {
did -ra astro 5 Yorum bulunuyor.Lütfen bekleyiniz...
sockwrite -n astro GET /gunluk_fal/bugun.asp?burc= $+ %hrsel HTTP/1.1
sockwrite -n astro Host:muneccim.com
sockwrite -n astro $crlf
}
}
on *:sockread:astro: {
if ($sockerr) { sockclose astro | did -ra astro 5 Internet bağlantısı bulunamadı... }
else {
sockread %hcomt
if (face="Arial Narrow" isin %hcomt) {
set %rmv1 $remove(%hcomt,<p><font color="#000000" face="Arial Narrow"><strong><big>)
set %rmv2 $remove(%rmv1,$right(%rmv1,27))
did -ra astro 5 %rmv2
if (%hrsel == 1) did -ra astro 8 21 Mart - 20 Nisan
if (%hrsel == 2) did -ra astro 8 21 Nisan - 21 Mayıs
if (%hrsel == 3) did -ra astro 8 22 Mayıs - 21 Haziran
if (%hrsel == 4) did -ra astro 8 22 Haziran - 23 Temmuz
if (%hrsel == 5) did -ra astro 8 24 Temmuz - 23 Ağustos
if (%hrsel == 6) did -ra astro 8 24 Ağustos - 23 Eylül
if (%hrsel == 7) did -ra astro 8 24 Eylül - 22 Ekim
if (%hrsel == 8) did -ra astro 8 23 Ekim - 22 Kasım
if (%hrsel == 9) did -ra astro 8 23 Kasım - 22 Aralık
if (%hrsel == 10) did -ra astro 8 23 Aralık - 20 Ocak
if (%hrsel == 11) did -ra astro 8 21 Ocak - 19 Şubat
if (%hrsel == 12) did -ra astro 8 20 Şubat - 20 Mart
did -a astro 8 $did(astro,8).text $+ $chr(32) $+ (Bugün: $+ $chr(32) $+ $asctime(dd) $+ $chr(32) $+ %ay $+ $chr(32) $+ $asctime(yyyy) $+ )
unset %rmv1 %rmv2 %hcomt
sockclose astro
}
}
}
on *:dialog:astro:sclick:*: {
if ($did == 2) { if ($len($did(2)) > 0) { did -e $dname 4,6 | set %hrsel $did(2).sel | if (!$dialog(horin) == $null) did -ra horin 2 $did(2).seltext Burcunun Özellikleri: } }
if ($did == 4) yorum_algılamayı_başlat
if ($did == 6) hordlg burc_opt
}
on *:dialog:burc_opt:sclick:*: {
if ($did == 2) {
if (!$dialog(astro)) return $input(Günlük Burç Yorumcusu Ana Dialog'u Açık Değil!,oh,Hata)
elseif (!$did(astro,2).sel) return $input(Bir burç seçmediniz,oh,Hata)
else hordlg horin
}
if ($did == 4) today->state
if ($did == 5) hordlg uyum
if ($did == 7) hordlg yukselen
if ($did == 6) hordlg harf_ask
if ($did == 8) hordlg ünlüler
if ($did == 13) hordlg yıldız
if ($did == 12) hordlg burc_arkadas
if ($did == 11) hordlg burc_saglik
if ($did == 10) hordlg anlasma
if ($did == 14) cburc
}
alias -l burc->arkadas {
set %ark $+(/arkadas/goster.asp?burc=,$did(3).sel,&B1=Göster)
did -ra $dname 6 Bekleyin...
if ($sock(arkadas)) sockclose arkadas
sockopen arkadas [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias -l burc->saglik {
set %sagl $+(/saglik/goster.asp?burc=,$did(3).sel,&B1=Göster)
did -ra $dname 6 Bekleyin...
if ($sock(saglik)) sockclose saglik
sockopen saglik [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias -l burc->anlasma {
set %anlas $+(/kimlerle_anlasabilir/goster.asp?burc=,$did(3).sel,&B1=kimlerle+anlaşabilir)
did -ra $dname 6 Bekleyin...
if ($sock(anlasma)) sockclose anlasma
sockopen anlasma [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:anlasma: {
if ($sockerr) { echo -a Bağlantı Yok! | return }
else {
sockwrite -n anlasma GET %anlas HTTP/1.1
sockwrite -n anlasma Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n anlasma $crlf
}
}
on *:sockread:anlasma: {
sockread %anlasma
if (width="450"> isin %anlasma) { if (!$dialog(anlasma) == $null) did -r anlasma 6 }
if (color="#000000" isin %anlasma) {
if (!$dialog(anlasma) == $null) {
if (Arası isin %anlasma) did -a anlasma 6 $remove($gettok(%anlasma,-1,34),<,>,/,strong,font,br,big)
else did -a anlasma 6 $+($str($crlf,2),$remove($gettok(%anlasma,-1,34),<,>,/,strong,font,br,big))
}
}
if (</html> isin %anlasma) sockclose anlasma
}
on *:sockopen:arkadas: {
if ($sockerr) { echo -a Bağlantı Yok! | return }
else {
sockwrite -n arkadas GET %ark HTTP/1.1
sockwrite -n arkadas Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n arkadas $crlf
}
}
on *:sockread:arkadas: {
sockread %arkadas
if (width="450"> isin %arkadas) { if (!$dialog(burc_arkadas) == $null) did -r burc_arkadas 6 }
if (color="#000000" isin %arkadas) {
if (!$dialog(burc_arkadas) == $null) {
if (*arkadaş olarak* iswm %arkadas) did -a burc_arkadas 6 $remove($gettok(%arkadas,-1,34),<,>,/,strong,font,br,big)
else did -a burc_arkadas 6 $+($crlf,$remove($gettok(%arkadas,-1,34),<,>,/,strong,font,br,big))
}
}
if (</html> isin %arkadas) sockclose arkadas
}
on *:sockopen:saglik: {
if ($sockerr) { echo -a Bağlantı Yok! | return }
else {
sockwrite -n saglik GET %sagl HTTP/1.1
sockwrite -n saglik Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n saglik $crlf
}
}
on *:sockread:saglik: {
sockread %saglik
if (width="450"> isin %saglik) { if (!$dialog(burc_saglik) == $null) did -r burc_saglik 6 }
if (color="#000000" isin %saglik) {
if (!$dialog(burc_saglik) == $null) {
if (*burcu ve sağlık* iswm %saglik) did -a burc_saglik 6 $remove($gettok(%saglik,-1,34),<,>,/,strong,font,br,big)
else did -a burc_saglik 6 $+($crlf,$remove($gettok(%saglik,-1,34),<,>,/,strong,font,br,big))
}
}
if (</html> isin %saglik) sockclose saglik
}
on *:dialog:ünlüler:init:*: idset 1000 | burc->yaz $dname 3
on *:dialog:burc_arkadas:init:*: idset 1000 | burc->yaz $dname 3
on *:dialog:burc_saglik:init:*: idset 1000 | burc->yaz $dname 3
on *:dialog:anlasma:init:*: | idset 1000 burc->yaz $dname 3
on *:dialog:yıldız:init:*: idset 1000 | loadbuf -o $dname 2 $yıldızlar
on *:dialog:anlasma:sclick:*: {
if ($did == 3) burc->aktif
if ($did == 4) burc->anlasma
}
on *:dialog:burc_saglik:sclick:*: {
if ($did == 3) burc->aktif
if ($did == 4) burc->saglik
}
on *:dialog:burc_arkadas:sclick:*: {
if ($did == 3) burc->aktif
if ($did == 4) burc->arkadas
}
on *:dialog:ünlüler:sclick:*: {
if ($did == 3) { if ($did(3).sel > 0) did -e $dname 4 }
if ($did == 4) { if ($sock(ünlü)) sockclose ünlü | sockopen ünlü [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | did -ra $dname 6 Bulunuyor.Bekleyin... }
}
on *:sockopen:ünlü: {
if ($sockerr) echo -a Bağlantı Yok!
else {
sockwrite -n ünlü GET $+(/unluler/goster.asp?burc=,$did(ünlüler,3).sel,&B1=,burctaki+ünlüler) HTTP/1.1
sockwrite -n ünlü Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
sockwrite -n ünlü $crlf
}
}
on *:sockread:ünlü: {
sockread %unlu
if (width="450"> isin %unlu) { if (!$dialog(ünlüler) == $null) did -r ünlüler 6 }
if (color="#000000" isin %unlu) {
if (!$dialog(ünlüler) == $null) {
if (!$did(ünlüler,6)) did -a ünlüler 6 $remove($gettok($gettok(%unlu,4-7,60),1,60),big>)
else did -a ünlüler 6 $+($crlf,$remove($gettok($gettok(%unlu,4-7,60),1,60),big>))
}
}
}
on *:dialog:harf_ask:edit:3: { if ($did(3) != $null) { did -e $dname 4 | if ($did(3) isnum) { did -r $dname 3 | did -b $dname 4 } } | else did -b $dname 4 }
on *:dialog:harf_ask:sclick:4: {
did -ra $dname 5 Bulunuyor...
var %hfid = $lines($basharf)
while (%hfid) {
tokenize 43 $read($basharf,%hfid)
if ($1 == $did(3)) { did -r $dname 5,3 | did -a $dname 5 $2 | did -b $dname 4 | halt }
elseif ((%hfid == 1) && ($len($did(5)) == 12)) { did -r $dname 5,3 | did -a $dname 5 Bulunamadı.Türkçe karakter girmiş yada listede olmayan bir harf girmiş olabilirsiniz.Yeniden deneyin. | did -b $dname 4 }
dec %hfid
}
}
on *:dialog:yukselen:init:*: {
idset 1000
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
did -a yukselen 3 21 Haziran - 7 Temmuz
did -a yukselen 3 8 Temmuz - 22 Temuz
did -a yukselen 3 23 Temmuz - 7 Ağustos
did -a yukselen 3 8 Ağustos - 22 Ağustos
did -a yukselen 3 23 Ağustos - 7 Eylül
did -a yukselen 3 8 Eylül- 22 Eylül
did -a yukselen 3 23 Eylül - 8 Ekim
did -a yukselen 3 9 Ekim - 22 Ekim
did -a yukselen 3 23 Ekim - 7 Kasım
did -a yukselen 3 8 Kasım - 22 Kasım
did -a yukselen 3 23 Kasım - 7 Aralık
did -a yukselen 3 8 Aralık - 21 Aralık
did -a yukselen 3 22 Aralık - 5 Ocak
did -a yukselen 3 6 Ocak - 19 Ocak
did -a yukselen 3 20 Ocak - 3 Şubat
did -a yukselen 3 4 Şubat - 18 Şubat
did -a yukselen 3 19 Şubat - 5 Mart
did -a yukselen 3 6 Mart - 20 Mart
did -a yukselen 3 21 Mart - 4 Nisan
did -a yukselen 3 5 Nisan - 19 Nisan
did -a yukselen 3 20 Nisan - 5 Mayıs
did -a yukselen 3 6 Mayıs - 20 Mayıs
did -a yukselen 3 21 Mayıs - 5 Haziran
did -a yukselen 3 6 Haziran - 20 Haziran
did -a yukselen 5 00:00 - 00:59
did -a yukselen 5 01:00 - 01:59
did -a yukselen 5 02:00 - 02:59
did -a yukselen 5 03:00 - 03:59
did -a yukselen 5 04:00 - 04:59
did -a yukselen 5 05:00 - 05:59
did -a yukselen 5 06:00 - 06:59
did -a yukselen 5 07:00 - 07:59
did -a yukselen 5 08:00 - 08:59
did -a yukselen 5 09:00 - 09:59
did -a yukselen 5 10:00 - 10:59
did -a yukselen 5 11:00 - 11:59
did -a yukselen 5 12:00 - 12:59
did -a yukselen 5 13:00 - 13:59
did -a yukselen 5 14:00 - 14:59
did -a yukselen 5 15:00 - 15:59
did -a yukselen 5 16:00 - 16:59
did -a yukselen 5 17:00 - 17:59
did -a yukselen 5 18:00 - 18:59
did -a yukselen 5 19:00 - 19:59
did -a yukselen 5 20:00 - 20:59
did -a yukselen 5 21:00 - 21:59
did -a yukselen 5 22:00 - 22:59
did -a yukselen 5 23:00 - 23:59
}
on *:dialog:yukselen:sclick:*: {
if ($did == 3) { if ($did(3).sel > 0) did -e $dname 5 }
if ($did == 5) { if ($did(5).sel > 0) did -e $dname 6 }
if ($did == 6) yukselen->ogren
}
on *:dialog:uyum:init:*: {
idset 1000
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
did -a $dname 3,5,9,12 Koc
did -a $dname 3,5,9,12 Boga
did -a $dname 3,5,9,12 Ikizler
did -a $dname 3,5,9,12 Yengec
did -a $dname 3,5,9,12 Aslan
did -a $dname 3,5,9,12 Basak
did -a $dname 3,5,9,12 Terazi
did -a $dname 3,5,9,12 Akrep
did -a $dname 3,5,9,12 Yay
did -a $dname 3,5,9,12 Oglak
did -a $dname 3,5,9,12 Kova
did -a $dname 3,5,9,12 Balik
}
on *:dialog:uyum:sclick:*: {
if ($did == 3) blen 3 5
if ($did == 5) blen 5 6
if ($did == 9) blen 9 12
if ($did == 12) blen 12 14
if ($did == 6) { uyumluluk Kadin $did(3).seltext Erkek $did(5).seltext /uyumluluk_goster/uyumluluk_goster.asp | did -e $dname 7 | did -ra $dname 15 $did(3).seltext Kadını ile $did(5).seltext Erkeği arasındaki uyum: }
if ($did == 14) { uyumluluk Erkek $did(9).seltext Kadin $did(12).seltext /uyumluluk_goster/uyumluluk_goster2.asp | did -e $dname 13 | did -ra $dname 15 $did(9).seltext Erkeği ile $did(12).seltext Kadını arasındaki uyum: }
if ($did == 7) { did -u $dname 3,5 | did -b $dname 6 | did -r $dname 15,16 }
if ($did == 13) { did -u $dname 9,12 | did -b $dname 14 | did -r $dname 15,16 }
}
on *:dialog:horin:init:*: {
idset 1000
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
did -a $dname 2 $did(astro,2).seltext Burcunun Özellikleri:
}
on *:dialog:horin:sclick:1: {
if (!$dialog(astro)) return $input(Günlük Burç Yorumcusu Ana Dialog'u Açık Değil!,oh,Hata)
elseif (!$did(astro,2).sel) return $input(Birç burç seçmediniz,oh,Hata)
else {
did -r $dname 3 | burc_ozellik | write $shortfn(boze.txt)
}
}
alias -l cin->hesapla {
var %x = $calc((1997 - $1) % 12)
if ((%x == 1) || (%x == -11)) var %cburc = Maymun
if ((%x == 11) || (%x == -1)) var %cburc = Kaplan
if ((%x == 10) || (%x == -2)) var %cburc = Tavşan
if ((%x == 9) || (%x == -3)) var %cburc = Ejderha
if ((%x == 8) || (%x == -4)) var %cburc = Yılan
if ((%x == 7) || (%x == -5)) var %cburc = At
if ((%x == 6) || (%x == -6)) var %cburc = Koyun
if ((%x == 5) || (%x == -7)) var %cburc = Horoz
if ((%x == 3) || (%x == -9)) var %cburc = Köpek
if ((%x == 2) || (%x == -10)) var %cburc = Domuz
if (%x == 0) did -ra cburc 11 Bulunamadı...
else did -ra cburc 11 %cburc
}
on *:dialog:cburc:init:*: {
idset 1000
var %d = did -a $dname 3
%d Fare | %d Kaplan | %d Ejderha | %d Yılan | %d At | %d Keçi | %d Maymun | %d Öküz | %d Köpek | %d Domuz | %d Horoz | %d Kedi
}
on *:dialog:cburc:edit:8: {
if ($did(8)) {
if ($did(8) !isnum) { did -r $dname 8 | did -b $dname 9 }
did -e $dname 9
}
else did -b $dname 9
}
on *:dialog:cburc:sclick:*: {
if $did == 3 { if ($did(3).seltext) did -e $dname 13 }
if $did == 13 did -ra $dname 5 $read($cburcf,$did(3).sel)
if $did == 9 cin->hesapla $did(8)
}
;-----------------------------------------------------------------------------------------------------------------------------------------
;Kodlayan: SeRDaR406
dialog ssoz {
title "Şarkı Sözü Arama "
size -1 -1 122 159
option dbu
box "", 1, 3 1 116 43
text "Sanatçının adını girin:", 2, 7 7 51 8
edit "", 3, 6 15 109 10, autohs
button "Ara", 4, 7 27 37 12, disable
button "Kapat", 5, 77 28 37 12, cancel
text "Bulunanlar:", 6, 3 46 27 8
list 7, 2 54 118 88, size vsbar
button "Sözleri Al", 8, 83 144 37 12
text "Şarkının Sözleri:", 9, 126 4 38 8
edit "", 10, 125 12 140 144, read multi vsbar
}
alias ssoz $iif(!$dialog(ssoz),dialog -m ssoz ssoz)
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
alias -l sarki {
write -c ssoz.txt
dialog -s ssoz $dialog(ssoz).x $dialog(ssoz).y 245 318
did -b ssoz 8
did -ra ssoz 7 Aranıyor.Bekleyin...
set %sarki $+(arama=,$replace($1-,$chr(32),+),&,image22=Ara)
sockclose sgn
sockopen sgn [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
alias -l soz-al {
set %sozad /sarki-sozu.asp?islem=yolla&id= $+ $1
dialog -s $dname $dialog($dname).x $dialog($dname).y 535 318
did -ra $dname 10 Sözler alınıyor.Bekleyin...
if ($sock(soz)) sockclose soz | sockopen soz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80
}
on *:sockopen:sgn: {
if ($sockerr) { echo -a Bağlantı Yok | return }
else {
var %s = sockwrite -n $sockname
%s POST /arama.asp HTTP/1.1
%s Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
charset="utf-8"
%s Content-Length: $calc($len(%sarki) + 1)
%s Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
%s
%s %sarki
}
}
on *:sockread:sgn: {
sockread %sgn
if (Şarkıcı isin %sgn) && ($dialog(ssoz)) did -r ssoz 7
if (sarki-sozu.asp?islem isin %sgn) {
var %slink = $gettok($gettok(%sgn,13-,32),2,34)
write ssoz.txt $gettok(%slink,-2,61)
$iif($dialog(ssoz),did -a ssoz 7 $replace($gettok(%slink,-1,61), ,-))
}
}
on *:sockclose:sgn:{
if (<tr> isin %sgn) && ($dialog(ssoz)) did -a ssoz 7 Aradığınız kelime ile ilgili kayıt bulunamadı.
}
on *:sockopen:soz: {
if ($sockerr) { echo -a Bağlantı Yok! | return }
else {
var %m = sockwrite -n $sockname
%m GET %sozad HTTP/1.1
%m Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
%m $crlf
}
}
on *:sockread:soz: {
sockread %sozb
if (*Şarkı Sözü :* iswm %sozb) { write -c ssozs.txt | write ssozs.txt $remove($htmlfree(%sozb),Şarkı Sözü :) | sockclose soz2 | sockrename soz soz2 }
}
on *:sockread:soz2: {
sockread %sozn
$iif(%sozn,write ssozs.txt $remove($left(%sozn,900),</pre></font></td>,</tr>,</center>,</div>,</td>))
if ($gettok(%sozn,1,32) == </tr>) && ($dialog(ssoz)) { did -r ssoz 10 | loadbuf -o ssoz 10 ssozs.txt | .remove ssozs.txt | sockclose soz2 }
}
on *:dialog:ssoz:edit:3: $iif($did(3),did -e $dname 4,did -b $dname 4)
on *:dialog:ssoz:sclick:*: {
$iif($did == 4,sarki $did(3))
if ($did == 7) && ($did(7).seltext) did -e $dname 8
$iif($did == 8,soz-al $read(ssoz.txt,$did(7).sel))
}
on *:dialog:ssoz:init:*: { idset 1000 | dll aniwin.dll anime $dialog($dname).hwnd -hn 650 }
;------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;Kodlayan: 'el33t'
alias gunlukfal { 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="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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, )
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 {
idset 1000
dll aniwin.dll anime $dialog($dname).hwnd -hn 650
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. } }
}
}
|
