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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf }
on *:sockread:burc:{
  var %: | sockread %:
  if (*<p align="left"* iswm %:) { set %:oke oke! } | elseif %:oke { if (&nbsp; 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,&nbsp;) | 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) }