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

- - !burc Burcunuz Yeni (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/455764-burc-burcunuz-yeni.html)

!burc Burcunuz Yeni

Kod:

alias brc_ { 

  inc -e %brc

  sockopen $+(burc*,%brc) astroloji.gazetevatan.com 80

  sockmark $+(burc*,%brc) $1

}

on *:sockopen:burc*:{

  var %s sockwrite -n $sockname

  %s GET / $+ $sock($sockname).mark $+ -burcu-gunluk-burc-yorumu-astroloji HTTP/1.1

  %s Host: astroloji.gazetevatan.com

  %s User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:10.0.2) Gecko/20100101 Firefox/10.0.2

  %s Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

  %s Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3

  %s $crlf

}

on *:sockread:burc*:{

  var %s 

  sockread %s 

  if (*<td><h5>* iswm %s) && (*</tr>* !iswm %s) {

    .msg %muser .: $+([,Burc,$chr(32),%mrsbrc,]) $+([,$date(dd-mm-yyyy),]) :.

    .msg %muser $htmlfree(%s)

  }

}

alias kdeg return $replace($1,koc,1_koc,boga,2_boga,ikizler,3_ikizler,yengec,4_yengec,aslan,5_aslan,basak,6_basak,terazi,7_terazi,akrep,8_akrep,yay,9_yay,oglak,10_oglak,kova,11_kova,balik,12_balik)

alias htmlfree {

  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;)

  return %x

}

on $*:text:/^[!.]burc\s/:#: {

  if $regex($2,/(akrep|aslan|koc|boga|basak|oglak|ikizler|yay|kova|balik|yengec|terazi)/i) {

    .msg $chan $nick $2 burcu özelinize yansitiliyor...

    unset %muser | unset %mrsbrc | set -e %muser $nick | set -e %mrsbrc $2 | brc_ $kdeg($2)  

  }

}

Kod Yazari : @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kullanımı : !burc burcunuz veya .burc burcunuz

Cevap: !burc Burcunuz Yeni

Kardeş 3-4 kelimeden sonra yorum gelmiyor. Acaba spama filanmı takılıyordur?

Cevap: !burc Burcunuz Yeni

Buyur arkadasım gule gule kullan...

Kod:

on *:sockopen:burc*:{

  sockwrite -n $sockname GET /yildizfali/ $+ %burc $+ .asp HTTP/1.1

  sockwrite -n $sockname Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

  sockwrite -n $sockname $crlf 

}

on *:sockread:burc*:{

  var %ghs

  sockread %ghs

  if (*img height="80" alt="*" hspace="3" src="[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]*" width="80" align="left" * iswm %ghs) { set %else ok! }

  elseif (%else) {

    if (<p align="left"> isin %ghs) { set %else1 ok! }

    elseif (%else1) {

      msg %burcnick : $remove($htmlfree(%ghs),&nbsp;)

      unset %else

      unset %else1

      unset %burcnick

      sockclose $sockname

    }

  }

}

on *:text:*:#:{

  if $1 == !burc {

    if (!%buclar) set %buclar koc|boga|ikizler|yengec|aslan|basak|terazi|akrep|yay|oglak|kova|balik

    if $2 == $null { msg $chan : $nick Lutfen Burc Belirtiniz. | halt }

    if !$istok(%buclar,$bufak($2),124) {  msg $chan :Burç adını yanlış girdiniz. Doğru kullanım: !burc %buclar | halt }

    msg $chan : $regsubex($bufak($2),/(.)/i,$iif(2 \\ \n,$upper(\1),$lower(\1))) burcuna bakılıyor lütfen bekleyiniz.

    var %rand $rand(1,9999)

    set %burcnick $chan

    set %burc $bufak($2)

    sockopen $+(burc,%rand) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

  }

}

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)

}

Deneme:

Kod:

«02:11:05» <ChanServ> !burc dada

«02:11:05» <GhoSt> :Burç adını yanlış girdiniz. Doğru kullanım: !burc koc|boga|ikizler|yengec|aslan|basak|terazi|akrep|yay|oglak|kova|balik

«02:11:10» <ChanServ> !burc balik

«02:11:10» <GhoSt> : Balik burcuna bakılıyor lütfen bekleyiniz.

«02:11:10» <GhoSt> : Uzun süreli beraberliğinizin artık zamanını doldurduğu kanısındasınız, ama nasıl davranmanız gerektiğini de bilememek elinizi kolunuzu bağlıyor! İş yoğunluğunuz artabilir. Başarı grafiğinizin yükselmesi için iş arkadaşlarınızı ya da ortaklarınızı da dikkate alın. Eğer kendinizi hızlı para kazanmak için şans oyunlarına kaptırırsanız, elinizdekileri de kaybedebilirsiniz. Kendinizi iş konusunda fazla zorlamanız, aşırı yorgunluğa bağlı strese neden olabilir. Dikkat edin

Coded By GhoSt

Cevap: !burc Burcunuz Yeni

Alıntı:

EgRaTLi Nickli Üyeden Alıntı (Mesaj 1041081716)

Kardeş 3-4 kelimeden sonra yorum gelmiyor. Acaba spama filanmı takılıyordur?

Kodu denedim şu an

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

pnp nickinin özeline gelenler

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Herhangi bir sorun görünmüyor bu siteyi seçmemizdeki amaç burc yorumlarının kısa olması flood korumalarına felan takılıp düşmemesi içindi.

Orjinal sitedeki yorum

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

aynı

Cevap: !burc Burcunuz Yeni

<izmir> .: [Burc oglak] [06-04-2012] :.
<izmir> Geride bıraktığınız ilişkinizin izleri

tam yansıtmıyor burçları

Cevap: !burc Burcunuz Yeni

Alıntı:

Bosson Nickli Üyeden Alıntı (Mesaj 1041083224)

<izmir> .: [Burc oglak] [06-04-2012] :.
<izmir> Geride bıraktığınız ilişkinizin izleri

tam yansıtmıyor burçları

Aynen yarım kalıyor

Cevap: !burc Burcunuz Yeni

Siteden gelen veriler değişmiş bu yüzden sizin dediğiniz sorunu veriyor.

Cevap: !burc Burcunuz Yeni

Şu an kodu güncelleyecektim kodu denedik çalışıyor.Sanırım arada kaynak siteden gelen veriler değişiyor yine sorun verirse belirtirseniz başka bir siteden kodu yazabilirim arkadaşlar.

Cevap: !burc Burcunuz Yeni

Gene uçmuş sanırım.