IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Burc Remotesi ÇaLışan (https://www.ircforumlari.net/mirc-parca-kodlar/807225-burc-remotesi-calisan.html)

Burc Remotesi ÇaLışan

Ç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- Kodu:

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

Kod:

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) }