mIRC Dost Burc Yorumu Dialog
mIRC Dost Burc Yorumu DialogmIRC Dost Burc Yorumu DialogmIRC Dost Burc Yorumu DialogmIRC Dost Burc Yorumu Dialog
mIRC Dost Burc Yorumu Dialog

Selam değerli mIRC ve mIRC Addon Kullanıcıları. Siz değerli kullanıcılarımıza Özel Olarak Kod’lanan ve Vurgulanan, Türkiyenin Coder’leri Tarafından Hizmetinize Sunulmaktadır, Umarızki İşinize Yarar.. by Supernova ..

dialog burc {
title “Burc Yorumu”
size -1 -1 193 121
option dbu
button “Kova”, 1, 5 5 40 13
button “Balik”, 2, 5 21 40 13
button “Koç”, 3, 5 37 40 13
button “Boğa”, 4, 5 53 40 13
button “İkizler”, 5, 5 69 40 13
button “Yengeç”, 6, 5 85 40 13
button “Aslan”, 7, 50 5 40 13
button “Başak”, 8, 50 21 40 13
button “Terazi”, 9, 50 37 40 13
button “Akrep”, 10, 50 53 40 13
button “Yay”, 11, 50 69 40 13
button “Oğlak”, 12, 50 85 40 13
edit “”, 13, 99 6 89 91, multi vsbar
box “”, 14, 2 -1 91 102
box “Burç Yorumu”, 15, 96 -1 95 102
button “KAPAT”, 16, 72 103 50 15
}
on *:dialog:burc:*:*:{
if $devent = sclick {
if $istok(1 2 3 4 5 6 7 8 9 10 11 12,$did,32) { sockclose burc | .did -r burc 13 | .did -a burc 13 $did($did) burcuna bakılıyor bekleyiniz. | .sockopen burc www.astroloji.org 80 | .sockmark burc $bufak($did($did)) }
if $did == 16 { .dialog -x $dname }
}
}
on *:sockopen:burc:{ sockwrite -n $sockname GET /yildizfali/ $+ $+($sock($sockname).mark,.asp) HTTP/1.1 | sockwrite -n $sockname Host: astroloji.org | sockwrite -n $sockname $crlf }
on *:sockread:burc:{
var %: | sockread %:
if (*p align=”left”* iswm %:) { set %:oke oke! } | elseif %:oke { if (  isin %:) { .did -r burc 13 | .did -a burc 13 $htmlfree(%:) | unset %:oke | sockclose $sockname } }
}
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
alias bufak { return $replace($1,A,a,B,b,C,c,Ç,c,ç,c,D,d,E,e,F,f,G,g,Ğ,g,ğ,g,H,h,I,i,ı,i,İ,i,J,j,K,k,L,l,M,m,N,n,O,o,Ö,o,ö,o,P,p,R,r,S,s,Ş,s,ş,s,T,t,U,u,Ü,ü,V,v,Y,y,Z,z,W,w,@,a) }

 

Etiketler :

Yorum yaz