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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   !bur[cçÇ] BURÇ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/814433-burccc-burc.html)

Toprak 07 Nisan 2019 14:11

!bur[cçÇ] BURÇ
 
Site üzerinden anlık sorgular, arşivimde duruyormuş paylaşalım dedik..

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


Kod:

on *:input:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(ko[cçÇ]|bo[gğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[gğĞ]lak|kova|bal[ıiİ]k)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else {
      var %:b = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(ko[cçÇ]|bo[gğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[gğĞ]lak|kova|bal[ıiİ]k)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else {
      var %:b = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}
alias _tt return $replace($1-,ö,ö,ü,ü,ç,ç,İ,İ,…,..,’,',Å,Ş)
alias __t { return $replace($1-,ü,ü,ö,ö,ü,ü,_,$chr(32),ý,ı,ü,ü,ð,ğ,þ,ş,ö,Ö,Ý,İ,ç,ç,Ü,Ü,Ö,Ö,Ç,Ç,Þ,Ş,ÿ,$chr(160),é,é,-,$chr(32),ÿ,-,",-,ü,ü,ç,ç,ı,ı,ÅŸ,ş,ı,ı,ÄŸ,ğ) }
on *:sockopen:burc*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye erişim bulunmamaktadır..(4ERROR) | .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/yildizfali/,$token($sock($sockname).mark,1,191),.asp) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:burc*:{
  var %:burc | sockread %:burc | tokenize 32 %:burc
  if $regex($1-,/<b><strong>\&nbsp\;(.+)<\/strong><\/b>/i) {
    msg $token($sock($sockname).mark,2,191) 12_______________"4 $upper($token($sock($sockname).mark,1,191)) 10 ( $+ $__t($_tt($token($token($regml(1),2,40),1,41))) $+ ) 12"_______________
  }
  elseif $regex($1-,/<p align=\"left\">/i) { inc %:boks }
  elseif $regex($1-,/&nbsp;(.+)/) && %:boks == 2 {
    var %m $remove($_tt($__t($regml(1))),</td>)
    msg $token($sock($sockname).mark,2,191) $+(5, $+($chr(32),$token(%m,1,46),$chr(46)))
    msg $token($sock($sockname).mark,2,191) $+(5, $+($token(%m,2,46),$chr(46)))
    $iif($token(%m,3,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,3,46),$chr(46)))
    $iif($token(%m,4,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,4,46),$chr(46)))
    $iif($token(%m,5,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,5,46),$chr(46)))
    $iif($token(%m,6,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,6,46),$chr(46)))
    $iif($token(%m,7,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,7,46),$chr(46)))
    $iif($token(%m,8-,46),msg $token($sock($sockname).mark,2,191) $+(5, $token(%m,8-,46),$chr(46)))
    msg $token($sock($sockname).mark,2,191) 12________________________________________________________
    unset %:boks
    sockclose $sockname
  }
}


q0kh4n 07 Nisan 2019 15:41

Cevap: !bur[cçÇ] BURÇ
 
uzun süreli çalışacak bir paylaşım. teşekkürler

ZaLiM1979 07 Nisan 2019 23:05

Cevap: !bur[cçÇ] BURÇ
 
selam Toprak


güzel kod tskler..
acaba bu almanca site icin ayarlamak mümkün mü?


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

ZamaN 09 Nisan 2019 09:17

Cevap: !bur[cçÇ] BURÇ
 
Eline sağlık İbo yine arı gibisin :)

Toprak 09 Nisan 2019 13:35

Cevap: !bur[cçÇ] BURÇ
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042049850)
selam Toprak


güzel kod tskler..
acaba bu almanca site icin ayarlamak mümkün mü?


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


Direk almanca olarak mı çekecek ?

yaSmin 09 Nisan 2019 13:44

Cevap: !bur[cçÇ] BURÇ
 
kral kodırrr

ZaLiM1979 09 Nisan 2019 22:18

Cevap: !bur[cçÇ] BURÇ
 
Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1042051335)
Direk almanca olarak mı çekecek ?


mümkünse evet almancasini ceksin o olmazsa bu site olsun..


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


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



simdiden tskler Toprak

Toprak 10 Nisan 2019 01:51

Cevap: !bur[cçÇ] BURÇ
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042049850)
selam Toprak


güzel kod tskler..
acaba bu almanca site icin ayarlamak mümkün mü?


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

Buyur;

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

on *:input:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}

on *:sockopen:burc*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye erişim bulunmamaktadır..(4ERROR) | .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/tages-horoskop/,$token($sock($sockname).mark,1,191),.php) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:burc*:{
  var %:burc | sockread %:burc | tokenize 32 %:burc
  if $regex($1-,/(.+)<h3><\/h3>/i) {
    msg $token($sock($sockname).mark,2,191) 12_______________"4 $upper($token($sock($sockname).mark,1,191)) 10 $regml(1) 12"_______________
  }
  elseif $regex($1-,/<p style="width:600px;margin-bottom:10px;">(.+)<\/p>/) {
    var %:gelen = $regml(1), %:böl = 1
    while %:böl <= $token(%:gelen,0,46) {
      msg $token($sock($sockname).mark,2,191) $+(5,$token(%:gelen,%:böl,46))
      inc %:böl
    }
    msg $token($sock($sockname).mark,2,191) 12________________________________________________________
    sockclose $sockname
  }
}


ZaLiM1979 10 Nisan 2019 04:58

Cevap: !bur[cçÇ] BURÇ
 
Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1042052045)
Buyur;

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

on *:input:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # Hatali burc adı!
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,#)
    }
  }
}

on *:sockopen:burc*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye erişim bulunmamaktadır..(4ERROR) | .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/tages-horoskop/,$token($sock($sockname).mark,1,191),.php) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:burc*:{
  var %:burc | sockread %:burc | tokenize 32 %:burc
  if $regex($1-,/(.+)<h3><\/h3>/i) {
    msg $token($sock($sockname).mark,2,191) 12_______________"4 $upper($token($sock($sockname).mark,1,191)) 10 $regml(1) 12"_______________
  }
  elseif $regex($1-,/<p style="width:600px;margin-bottom:10px;">(.+)<\/p>/) {
    var %:gelen = $regml(1), %:böl = 1
    while %:böl <= $token(%:gelen,0,46) {
      msg $token($sock($sockname).mark,2,191) $+(5,$token(%:gelen,%:böl,46))
      inc %:böl
    }
    msg $token($sock($sockname).mark,2,191) 12________________________________________________________
    sockclose $sockname
  }
}





eyv Toprak.. emegine yüregine saglik. süper olmus..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:58 -->-> Daha önceki mesaj 02:32 --

Toprak bide bi sorum olacak..
burda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] asagidaki bilgileride ekleyemezmiyiz? Tagestendenzen: Liebe 40% , Geld 70% Gesundheit 60% gibi?

Tagestendenzen: 40% 70% 60% [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Liebe Geld Gesundheit

Toprak 10 Nisan 2019 05:54

Cevap: !bur[cçÇ] BURÇ
 
Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042052101)
eyv Toprak.. emegine yüregine saglik. süper olmus..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:58 -->-> Daha önceki mesaj 02:32 --

Toprak bide bi sorum olacak..
burda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] asagidaki bilgileride ekleyemezmiyiz? Tagestendenzen: Liebe 40% , Geld 70% Gesundheit 60% gibi?

Tagestendenzen: 40% 70% 60% [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Liebe Geld Gesundheit

O link'de bütün burçlar hakkında bilgi var ve kod yapısı farklı, sabah denerim ama ^^

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 05:54 -->-> Daha önceki mesaj 05:05 --

Alıntı:

ZaLiM1979 Nickli Üyeden Alıntı (Mesaj 1042052101)
eyv Toprak.. emegine yüregine saglik. süper olmus..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:58 -->-> Daha önceki mesaj 02:32 --

Toprak bide bi sorum olacak..
burda [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] asagidaki bilgileride ekleyemezmiyiz? Tagestendenzen: Liebe 40% , Geld 70% Gesundheit 60% gibi?

Tagestendenzen: 40% 70% 60% [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Liebe Geld Gesundheit


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


Kod:

on *:input:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
      var %:b1 = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,%:b1,¿,#)
    }
  }
}
on *:text:*:#:{
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if !$regex($2,/(fische|widder|stier|zwillinge|krebs|loewe|jungfrau|steinbock|waage|skorpion|schuetze|wassermann)/Si) {
      msg # BURC:4 fische widder stier zwillinge krebs loewe jungfrau steinbock waage skorpion schuetze wassermann
    }
    else {
      var %:b = $replace($strip($2),widder,1,stier,2,zwillinge,3,krebs,4,loewe,5,jungfrau,6,waage,7,skorpion,8,schuetze,9,steinbock,10,wassermann,11,fische,12)
      var %:b1 = $lower($strip($2)), %:r $+($ctime,$r(100,9999999))
      msg # $+(,$strip($2),) burç bilgileri alınıyor..       
      sockopen $+(burc,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
      sockmark $+(burc,%:r) $+(%:b,¿,%:b1,¿,#)
    }
  }
}
on *:sockopen:burc*:{
  if ($sockerr) { msg $token($sock($sockname).mark,2,191) Sorgulanan siteye erişim bulunmamaktadır..(4ERROR) | .sockclose $sockname | return }
  sockwrite -nt $sockname GET /tageshoroskope.php HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:burc*:{
  var %:burc | sockread %:burc | tokenize 32 %:burc
  if $regex($1-,/<td>(.+)<table/i) { .hinc -msu1 $sockname Sayı | .hadd -ms Burc $hget($sockname,Sayı) $regml(1) }
  elseif $regex($1-,/<td>(.+)\%</td>/i) { .hadd -ms BurcÖzellik $hget($sockname,Sayı) $hget(BurcÖzellik,$hget($sockname,Sayı)) $+($regml(1),%) }
  elseif $regex($1-,/<td width="47"><br>/i) {
    var %:kanal = $token($sock($sockname).mark,3,191), %:burc $token($sock($sockname).mark,2,191), %:no $token($sock($sockname).mark,1,191), %:ayir $hget(BurcÖzellik,%:no)
    msg %:kanal 12_______________"4 $upper(%:burc) 12"_______________
    var %:böl = 1 | while %:böl <= $token($hget(Burc,%:no),0,46) {
      msg %:kanal $+(5,$token($hget(Burc,%:no),%:böl,46))
      inc %:böl
    }
    msg %:kanal -
    msg %:kanal 4Liebe: $_randyz($token(%:ayir,1,32)) 4Geld: $_randyz($token(%:ayir,2,32)) 4Gesundheit: $_randyz($token(%:ayir,3,32))
    msg %:kanal 12________________________________________________________
    .hfree -sw BurcÖzellik
    .hfree -sw $sockname
    sockclose $sockname
  }
}
alias _randyz {
  var %:yz $iif($regex($1,/\d/g) == 3,$+(3,$str(|,10)),$+(3,$str(|,$left($1,1))))
  return $+(%:yz,,$1)
}


Hata yapmış olabilirim uyku sersemi yazdım :p


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:28.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk