Moderatör Olmak İçin Tıklayın Editör Olmak İçin Tıklayın Forum Kuralları IF Görüntülü Röportajlar IF Helper Grubu
IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
 Kayıt ol
Etiketlenen Kullanıcılar

11Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Arama Stil
Alt 07 Nisan 2019, 14:11   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
!bur[cçÇ] BURÇ



Site üzerinden anlık sorgular, arşivimde duruyormuş paylaşalım dedik..


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
  }
}
 
Alıntı ile Cevapla

Alt 07 Nisan 2019, 15:41   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



uzun süreli çalışacak bir paylaşım. teşekkürler

 
Alıntı ile Cevapla

Alt 07 Nisan 2019, 23:05   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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...]

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 09 Nisan 2019, 13:35   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 ?

 
Alıntı ile Cevapla

Alt 09 Nisan 2019, 22:18   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 10 Nisan 2019, 01:51   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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;


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
  }
}
 
Alıntı ile Cevapla

Alt 10 Nisan 2019, 04:58   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Buyur;


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Liebe Geld Gesundheit

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 10 Nisan 2019, 05:54   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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 --
ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Liebe Geld Gesundheit



Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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

 
Alıntı ile Cevapla

Alt 10 Nisan 2019, 12:52   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Buyur;


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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


bu kod arasira hata veriyor..
* /tokenize: line too long (line 42, BurcAlmanca.mrc)

__________________


SeN BeNiM YiLDiZ KaYaRKeN TuTTuGuM DiLeGiM DeGiL, eZaN oKuRKeN eTTiGiM DuaMSiN!!!
 
Alıntı ile Cevapla

Alt 10 Nisan 2019, 13:33   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: !bur[cçÇ] BURÇ



ZaLiM1979 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bu kod arasira hata veriyor..
* /tokenize: line too long (line 42, BurcAlmanca.mrc)


Kodda sorun yok kontrol ettim, 6.35 mirc kullanır iseniz tokenize hatası almazsınız yada böyle kullanın siz;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
  if $regex(%:burc,/<td>(.+)<table/i) { .hinc -msu1 $sockname Sayı | .hadd -ms Burc $hget($sockname,Sayı) $regml(1) }
  elseif $regex(%:burc,/<td>(.+)\%</td>/i) { .hadd -ms BurcÖzellik $hget($sockname,Sayı) $hget(BurcÖzellik,$hget($sockname,Sayı)) $+($regml(1),%) }  
  elseif $regex(%:burc,/<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) 
}
 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

Etiketler
burÇ, burç kodu, burc remote

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
2014 Nisan Ayı Burç Yorumları: Balık Aylık Burç Yorumu Elysian Aylık Burç Yorumları 0 01 Nisan 2014 15:27
2014 Nisan Ayı Burç Yorumları: Kova Aylık Burç Yorumu Elysian Aylık Burç Yorumları 0 01 Nisan 2014 15:25
2014 Nisan Ayı Burç Yorumları: Akrep Aylık Burç Yorumu Elysian Aylık Burç Yorumları 0 01 Nisan 2014 15:18
2014 Nisan Ayı Burç Yorumları: Terazi Aylık Burç Yorumu Elysian Aylık Burç Yorumları 0 01 Nisan 2014 15:15
2014 Nisan Ayı Burç Yorumları: Başak Aylık Burç Yorumu Elysian Aylık Burç Yorumları 0 01 Nisan 2014 15:13




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
ferizli haber kaynarca haber sohbet teması antalya haber takipçi satın al tiktok takipçi satın al instagram beğeni satın al takipçi satın al takipçi satın al Buy Instagram Followers pubg mobile uc sohbet siteleri sohbet odaları sohbet odaları sohbet Aydın Haber Akyazı Haber Sitesi Siber Sesli Sohbet
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