:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::               XcLusive Script                       :::::
:::::               Version ve Burc Yorumu                :::::
:::::               Coded By HaLiL                        :::::
:::::               HaLiL@AhKalbim.Net                    :::::
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
alias vspoof { 
  if ($1 != -halt) { window -h $+(@,vspoof.,$cid) | .debug -in $+(@,vspoof.,$cid) vspoof.int | $iif($1-,set,unset) $+(%,vspoof.str.,$cid)) $1- } 
  if ($1 == -halt) { unset $+(%,vspoof.*.,$cid) | window -c $+(@,vspoof.,$cid) } 
} 
alias vspoof.int { 
  tokenize 32 $1 
  if ($($+(%,vspoof.n.,$cid),2)) { .ignore -rt $v1 | unset $+(%,vspoof.n.,$cid) } 
  if ($1 == <-) && ($5 == :VERSION) { 
    tokenize 32 $right($gettok($2,1,33),-1) $4 VERSION 
    var %vspoof.d 20 
    while (%vspoof.d) { if ($address($1,%vspoof.d) isignore ctcp) { return } | dec %vspoof.d } 
    .ignore -t $1 
    set $+(%,vspoof.n.,$cid) $1 
    if (!$istok(#.&,$left($2,1),46)) { linesep -s } 
    echo -c ctcp $iif($istok(#.&,$left($2,1),46),$2) $+([,$1,$iif($v1,$+(:,$2))) $3 $+ ] 
    if (!$istok(#.&,$left($2,1),46)) { linesep -s } 
    if ($($+(%,vspoof.str.,$cid),2)) { .ctcpreply $1 $3 $v1 } 
  } 
}
ctcp ^1:version:*:{
  wrmk
  echo $color(info) -t @Bilgi $chr(91) $+ Ctcp $+ $chr(93) - $nick $+ : Size $1 Çekti
  vspoof 12mIRC:5 $version 12System: 5Win $os 12XcLusive Script 5By HaLiL www.ahkalbim.net
  halt
}
ctcp ^1:time:*:{
  vspoof 12mIRC:5 $version 12System: 5Win $os 12XcLusive Script 5By HaLiL
  .ctcpreply $nick time $time(hh:nn:ss) %logo
  wrmk
  echo $color(info) -t @Bilgi $chr(91) $+ Ctcp $+ $chr(93) - $nick $+ : Size $1 Çekti
  halt
}
ctcp ^1:page:*:{
  vspoof 12mIRC:5 $version 12System: 5Win $os 12XcLusive Script 5By HaLiL
  .ctcpreply $nick page www.ahkalbim.net %logo
  wrmk
  echo $color(info) -t @Bilgi $chr(91) $+ Ctcp $+ $chr(93) - $nick $+ : Size $1 Çekti
  halt
}
ctcp ^1:ping:*:{
  vspoof 12mIRC:5 $version 12System: 5Win $os 12XcLusive Script 5By HaLiL
  .ctcpreply $nick ping 12mIRC:5 $version 12System: 5Win $os 12XcLusive Script 5By HaLiL www.ahkalbim.net
  wrmk
  echo $color(info) -t @Bilgi $chr(91) $+ Ctcp $+ $chr(93) - $nick $+ : Size $1 Çekti
}
;###############################
;Addon adı : Günlük Burç Yorumcusu(+PLuS)

;Açıklama : Günlük olarak yenilenen burç

;yorumlarını okuyabiliceğiniz,seçtiğiniz burcun 

; özelliklerine bakabileceğiniz ve günlük olarak

; yenilenen seçtiğiniz burcun para,aşk,iş ve sağlık

; konularında ne durumda olduğunu grafik olarak

; görebileceğiniz bir addon. Yapımcı : SeRDaR406
;###############################
dialog astro {
  title "Günlük Burç Yorumcusu(+PLuS)"
  size -1 -1 169 125
  option dbu
  icon $mircdirikon\X.ico, 0
  text "Bir burç seçiniz:", 1, 4 6 56 8
  combo 2, 61 4 60 103, size drop
  box "", 3, 1 -2 167 20
  button "OKU", 4, 134 4 26 11, disable
  edit "", 5, 1 28 167 83, read multi vsbar
  button "Kapat", 7, 137 112 30 12, flat cancel
  text "", 8, 2 20 160 8
  button "Burcun Özellikleri", 6, 1 112 61 12, disable flat
  button "Bugünkü durumunuz", 9, 63 112 72 12, disable flat
}


dialog horin {
  title "Burç Özellikleri"
  size -1 -1 161 135
  option dbu
  icon $mircdirikon\X.ico, 0
  text "", 2, 1 1 100 7
  edit "", 3, 1 8 158 113, read multi vsbar
  button "Kapat", 4, 100 122 41 12, flat cancel
  button "Oku", 1, 61 122 37 12, flat
}

alias  hordlg {
  if (!$dialog($1) == $null) { dialog -x $1 $1 | dialog -m $1 $1 }
  else { dialog -m $1 $1 }
}
alias burc hordlg astro
alias  burc_ozellik {
  set %horid /karakter/goster.asp?burc= $+ %hrsel $+ &B1=burc+karakteri
  sockclose boz
  sockopen boz muneccim.com 80
}
menu @durum {
  Kapat:window -c $active
}
on *:sockopen:boz: {
  if ($sockerr) { echo -a Hata! | dmsg Bilinmeyen 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:*: {
  did -a $dname 2 Koç
  did -a $dname 2 Boğa
  did -a $dname 2 İkizler
  did -a $dname 2 Yengeç
  did -a $dname 2 Aslan
  did -a $dname 2 Başak
  did -a $dname 2 Terazi
  did -a $dname 2 Akrep
  did -a $dname 2 Yay
  did -a $dname 2 Oğlak
  did -a $dname 2 Kova
  did -a $dname 2 Balık
  tarih_algıla
  idset 9
}
alias  adicon return $shortfn($mircdirikon\burc.ico)
alias  yorum_algılamayı_başlat {
  unset %hcomt
  sockclose astro
  sockopen astro muneccim.com 80
}
alias  grafik.ciz {
  if (!$window(@durum) == $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 @durum %gclr 1 %gx $calc((100 - $1) + 50) 33 $1
    drawtext -r @durum $rgb(0,0,255) Tahoma 11 %gx $calc((100 - $1) + 35) $+(%,$1)
    if ($len(%ney) > 2) drawtext -r @durum $rgb(0,0,255) Tahoma 11 $calc(%gx + 4) 153 %ney 
    else drawtext -r @durum $rgb(0,0,255) Tahoma 11 $calc(%gx + 10) 153 %ney
  }
}
alias  today->state {
  if (!$window(@Durum)) {
    window -pk[0] +t @Durum $calc($dialog(astro).x + 285) $calc($dialog(astro).y - 70) 300 240 | window -a @durum | window @durum iconfile $adicon 
  }
  clear @durum | drawrect -rf @durum $rgb(233,233,233) 1 0 0 300 240 | drawtext -or @durum $rgb(0,0,0) Tahoma 20 20 20 Bir sn bakıyorum...
  sockopen tst muneccim.com 80
  did -b astro 2,9 | set %gx 0
}
on *:sockopen:tst: {
  if ($sockerr) echo -a Bağlantı Yok! | dmsg 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(@durum) == $null) { 
      drawrect -rf @durum $rgb(233,233,233) 1 0 0 300 240 
      drawrect -r @durum $rgb(0,128,0) 1 40 30 160 1
      drawrect -r @durum $rgb(0,128,0) 1 40 170 160 1
      drawtext -or @durum $rgb(0,64,128) Tahoma 11 40 15 $did(astro,2).seltext Burcu 
      drawtext -or @durum $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  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) { did -e $dname 4,6,9 | 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 horin 
  if ($did == 9) today->state
}
on *:dialog:horin:init:*: { idset 4 | did -a $dname 2 $did(astro,2).seltext Burcunun Özellikleri: }
on *:dialog:horin:sclick:1: { did -r $dname 3 | burc_ozellik | write $shortfn(boze.txt) }
