[Xadd1]

Çalışan Burc Remotesi . Güle güle kullanın.


burclar.mrc dosyasını ve icon klasörünü mirc ana dizinine atın. Sonra Mirc açıkken

/load -rs burclar.mrc yazıp onaylayın yeterlidir.

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

http://yadi.sk/d/2Po4irUNmhUxbA 

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on 1:LOAD: {
  echo -a 5Günlük Burç Sistemi
  echo -a 5Başarı İle Kuruldu
  dialog -m burc burc
}
menu * {
  -
  Günlük Burç Sistemi:dialog -m burc burc
  -
}

dialog burc {
title "Burc Yorumu"
size -1 -1 193 121
icon icon\loads.ico, 0
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) }