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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Burç Yorumu Dialog (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/546588-burc-yorumu-dialog.html)

İyi akşamlar arkadaşlar.
Bayadır aklımda olan birşeydi canım skılıyordu deneyim dedim ve güzel oldu sizinle paylaşıyım dedim.

Kod:

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

Cevap: Burç Yorumu Dialog

emeğine sağlık Toprak kardeşim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 00:46 -->-> Daha önceki mesaj 00:43 --

nasıl çalışacağını ve detaylı bilgi verirsen sevinirim kardeşim

Cevap: Burç Yorumu Dialog

Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041336734)

/dialog -m burc burc komutunu uygulayarak dialog'u açabilirsiniz.

Cevap: Burç Yorumu Dialog

SeLam Ben Burc Kodunu Gırdım EkLEDIM ama Burc Yorumları cıkmıyor Bana Yardımcı Olurmusunuz Lutfen Rıca etsem Kodu aldım Yapstırdım Ve sonra !burc aslan yazınca cıkmıyor beklıyorum cevabınızı

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:47 -->-> Daha önceki mesaj 13:45 --

ve Rıca Etsem Bana saatLer Kodunu Atarmısınız mESElA DJLerın saatLer Seklınde yazınca Alt Alta Cıkmasını Istıyorum

Cevap: Burç Yorumu Dialog

Alıntı:

Herseysen Nickli Üyeden Alıntı (Mesaj 1041643950)

Bu kısmı;

Kod:

sockwrite -n $sockname Host: astroloji.org

Bu şekilde değişirsen çalışacaktır;

Kod:

sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
aslan yazınca çıkmaz. 

Kodu ekledikten sonra ekrana /dialog -m burc burc yaz. Çıkan ekrandan tıkladığında burçlar dialogtaki alana yansır.