IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

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ç - AŞK Uyumları */ (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/398492-burc-ask-uyumlari.html)

Fredyyy 17 Eylül 2019 16:51
Cevap: /* Burç - AŞK Uyumları */
 
Merhaba iyi çalışmalar dilerim. Bu burç uyum kodunun güncel hali var mı?

Emrehan 17 Eylül 2019 23:32
Cevap: /* Burç - AŞK Uyumları */
 
Alıntı:
Fredyyy Nickli Üyeden Alıntı (Mesaj 1042156303)
Merhaba iyi çalışmalar dilerim. Bu burç uyum kodunun güncel hali var mı?
Kod:
on *:text:*:#:{
  if $chan == #Burç {
    set %::ch #
    if $regex($1,/[!.]b[ıiİ]l[gq][ıiİ]/Si) {
      msg # Burçlarınızın AŞK uyumları hakkında, bilgi vermek için kodlanmıştır.
      msg # < !uyum Burç-Erkek Burç-Kadın > şeklinde kullanarak, Erkek burcu üzerinden, Kadın burcunda ki etkileri görebilirsiniz.
      msg # < !uyumk Burç-KADIN Burç-Erkek > şeklinde kullanarak, KADIN burcu üzerinden, Erkek burcunda ki etkileri görebilirsiniz.
    }
    elseif $regex($1,/[!.]uyum$/Si) { erkekuyum $2 $3 }
    elseif $regex($1,/[!.]uyumk/Si) { kadinuyum $2 $3 }
  }
}
alias afree { var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    ) | return %x }
alias burclar { return koc koç boga boğa boqa ikizler ıkızler yengec yengeç yenqec yenqeç aslan basak başak terazı terazi akrep yay oglak oğlak oqlak kova balık balik }
alias erkekuyum {
  if !$sock(uyum) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyum Burç-Erkek Burç-Kadın> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Erkeği ile,4 $gettok(%::postveri,2,32) 2Kadını AŞK uyumu getiriliyor ..
    sockopen uyum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyum
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias kadinuyum {
  if !$sock(uyumk) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyumk Burç-Kadın Burç-Erkek> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Kadını ile,4 $gettok(%::postveri,2,32) 2Erkeği AŞK uyumu getiriliyor ..
    sockopen uyumk
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyumk
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,2,32),-kadini-ile-,$gettok(%::postveri,1,32),-erkegi-uyumu/) 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:uyum:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
on *:sockopen:uyumk:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,1,32),-kadini-ile-,$gettok(%::postveri,2,32),-erkegi-uyumu/) 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:uyumk:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,8-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

Fredyyy 18 Eylül 2019 02:29
Cevap: /* Burç - AŞK Uyumları */
 
Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkür ederim. Kolay gelsin iyi forumlar dilerim..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 02:29 -->-> Daha önceki mesaj 01:31 --

Post tekrarı gibi olacak üzgünüm, yalnız statuste şöyle bir hata aldım. Nasıl düzeltmem gerekiyor sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bey, şimdiden teşekkür ederim.

* /tokenize: Satır çok uzun (Satır 45, script2.txt)

Satır 45;
on *:sockread:uyum:{
var %w | sockread -f %w | tokenize 32 %w

Emrehan 18 Eylül 2019 03:13
Cevap: /* Burç - AŞK Uyumları */
 
Kod:
on *:text:*:#:{
  if $chan == #Burç {
    set %::ch #
    if $regex($1,/[!.]b[ıiİ]l[gq][ıiİ]/Si) {
      msg # Burçlarınızın AŞK uyumları hakkında, bilgi vermek için kodlanmıştır.
      msg # < !uyum Burç-Erkek Burç-Kadın > şeklinde kullanarak, Erkek burcu üzerinden, Kadın burcunda ki etkileri görebilirsiniz.
      msg # < !uyumk Burç-KADIN Burç-Erkek > şeklinde kullanarak, KADIN burcu üzerinden, Erkek burcunda ki etkileri görebilirsiniz.
    }
    elseif $regex($1,/[!.]uyum$/Si) { erkekuyum $2 $3 }
    elseif $regex($1,/[!.]uyumk/Si) { kadinuyum $2 $3 }
  }
}
alias afree { var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    ) | return %x }
alias burclar { return koc koç boga boğa boqa ikizler ıkızler yengec yengeç yenqec yenqeç aslan basak başak terazı terazi akrep yay oglak oğlak oqlak kova balık balik }
alias erkekuyum {
  if !$sock(uyum) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyum Burç-Erkek Burç-Kadın> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Erkeği ile,4 $gettok(%::postveri,2,32) 2Kadını AŞK uyumu getiriliyor ..
    sockopen uyum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyum
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
alias kadinuyum {
  if !$sock(uyumk) {
    var %::postveri1 $1 $2
    if $gettok(%::postveri1,1,32) == $null || $gettok(%::postveri1,2,32) == $null || $gettok(%::postveri1,1,32) !isin $burclar || $gettok(%::postveri1,2,32) !isin $burclar  {
      msg %::ch 4HATA: Herhangi bir burç bilgisi girilmedi, lütfen <!uyumk Burç-Kadın Burç-Erkek> şeklinde kullanınız. | halt
    }
    set %::postveri $replace(%::postveri1,ş,s,ı,i,ç,c,ğ,g)
    msg %::ch 4 $gettok(%::postveri,1,32) 2Kadını ile,4 $gettok(%::postveri,2,32) 2Erkeği AŞK uyumu getiriliyor ..
    sockopen uyumk
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | .timer $+ $r(1,99) 1 5 sockclose uyumk
  }
  else { msg %::ch 4HATA: Zaten şuan da aktif konumdayım. }
}
on *:sockopen:uyum:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,2,32),-kadini-ile-,$gettok(%::postveri,1,32),-erkegi-uyumu/) 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:uyum:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,8,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,9,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,10-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
on *:sockopen:uyumk:{
  sockwrite -n $sockname GET $+(/astroloji/burcuyumu/,$gettok(%::postveri,1,32),-kadini-ile-,$gettok(%::postveri,2,32),-erkegi-uyumu/) 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:uyumk:{
  var %w | sockread -f %w | tokenize 32 %w
  if $regex($1-,/<\/div><p>(.+)<\/p><p>/i) {
    var %m $afree($regml(1))
    msg %::ch $+($token(%m,1,46),.)
    msg %::ch $+($token(%m,2,46),.)
    $iif($token(%m,3,46),msg %::ch $+($token(%m,3,46),.))
    $iif($token(%m,4,46),msg %::ch $+($token(%m,4,46),.))
    $iif($token(%m,5,46),msg %::ch $+($token(%m,5,46),.))
    $iif($token(%m,6,46),msg %::ch $+($token(%m,6,46),.))
    $iif($token(%m,7,46),msg %::ch $+($token(%m,7,46),.))
    $iif($token(%m,8,46),msg %::ch $+($token(%m,8,46),.))
    $iif($token(%m,9,46),msg %::ch $+($token(%m,9,46),.))
    $iif($token(%m,10-,46),msg %::ch $+($token(%m,10-,46),.))
    sockclose $sockname | return
  }
}
Bu şekilde dener misiniz?

Fredyyy 18 Eylül 2019 09:58
Cevap: /* Burç - AŞK Uyumları */
 
Statusteki hata aynı şekilde devam ediyor. Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Emrehan 18 Eylül 2019 21:34
Cevap: /* Burç - AŞK Uyumları */
 
Alıntı:
Fredyyy Nickli Üyeden Alıntı (Mesaj 1042156645)
Statusteki hata aynı şekilde devam ediyor. Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
mIRC sürümünüz en az 6.35 sürümü olmalı.

Fredyyy 18 Eylül 2019 21:57
Cevap: /* Burç - AŞK Uyumları */
 
Sayın @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkürler, mIRC sürümünü 6.17 den 6.35'e yükselttim dediğiniz gibi oldu. :(clap):Bilginize sağlık..

integer 11 Ekim 2019 15:10
Cevap: /* Burç - AŞK Uyumları */
 
Wingciim hayatda olman güzel burçlar olmazzsa olmasın .)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 10:15.
Sayfa 2 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net