IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 23 Kasım 2016, 18:41   #1
Çevrimdışı
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Burç Yorumu Dialog


Reklam

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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: www.astroloji.org | 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) }

Kod Sahibi: Toprak
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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: www.astroloji.org | 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) }

Kod Sahibi: Toprak
  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
burç, dialog, yorumu
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık