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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   sozluk hakkinda (https://www.ircforumlari.net/mirc-scripting-sorunlari/450848-sozluk-hakkinda.html)

OperServ 08 Şubat 2012 22:18
sozluk hakkinda
 
s.a Set aradasimizin yapgidi turkce sozluk calismiyor neden olabilir kod bu

Kod:
on *:text:*:#KANAL: {
  if ($1 == !sozluk) {
    if (%tarat) { msg # Lutfen 3 saniye bekleyiniz yeni tarama yapmak icin. | halt }
    if (!$2) { msg # Sozcuk girmediniz! | halt }
    if ($3) { msg # Sadece tek kelime kullanabilirsiniz , Ornek: !sozluk Sinan | halt }
    set -u3 %tarat 1
    msg #  $+ $2 Kelimesi Taraniyor Lutfen Bekleyiniz..
    set %kanal #
    tarat $2
  }
}
alias tarat { var %63 $rand(0,$str(9,100)) | sockopen $+(sozluk*,%63) turkcebilgi.com 80 | sockmark $+(sozluk*,%63) $1 | set %kelime $1 }
on *:sockopen:sozluk*:{
  var %s sockwrite -n $sockname
  %s GET / $+ $+ $sock($sockname).mark $+ /sozluk HTTP/1.1
  %s Host: turkcebilgi.com
  %s $crlf
}
on *:sockread:sozluk*:{ 
  var %sozluk [ $+ [ $sockname ] ]
  sockread %sozluk [ $+ [ $sockname ] ]
  if (*<h4>* iswm %sozluk [ $+ [ $sockname ] ]) {
    set %genisanlam $afree(%sozluk [ $+ [ $sockname ] ])
  }
  if (*height:60px* iswm %sozluk [ $+ [ $sockname ] ]) {
    var %var evet
    msg %kanal $+(,$sock($sockname).mark,) Anlami: $afree(%sozluk [ $+ [ $sockname ] ])
    if (%genisanlam !== $null) { msg %kanal Ornek Detay Bilgi ~ | msg %kanal %genisanlam | unset %genisanlam }
    unset %kanal
    sockclose $sockname
    halt
  }
  if (*This object may be found* iswm %sozluk [ $+ [ $sockname ] ]) {
    msg %kanal $sock($sockname).mark Hakkinda bilgi bulunmamaktadir.
    unset %kanal
    unset %genisanlam
    sockclose $sockname
  }
}
alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}

OperServ 09 Şubat 2012 22:05
Cevap: sozluk hakkinda
 
kimse yardim etmiyecekmi

Set 13 Şubat 2012 17:59
Cevap: sozluk hakkinda
 
sitenin index sistem'i degişmiş o sebeble calismiyor. :) bos vaktim olursa halletmeye calısırım ins.

OperServ 15 Şubat 2012 19:05
Cevap: sozluk hakkinda
 
acelem var ama :)

Narsinha 22 Şubat 2012 18:31
Cevap: sozluk hakkinda
 
Kod:
on *:sockopen:sozluk*:{
  var %s sockwrite -n $sockname
  %s GET / $+ $+ $sock($sockname).mark $+ /sozluk HTTP/1.1
  %s Host: turkcebilgi.com
  %s $crlf
}
kısmını

Kod:
on *:sockopen:sozluk*:{
  var %s sockwrite -n $sockname
  %s GET /sozluk/ $+ $sock($sockname).mark HTTP/1.1
  %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dene

OperServ 22 Şubat 2012 19:03
Cevap: sozluk hakkinda
 
Malesef olmadi

Narsinha 22 Şubat 2012 19:13
Cevap: sozluk hakkinda
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

o kısmı dediğim şekilde değişince resimdeki gibi geliyor veri ama eskiden nasıl çalışıyordu kod bilgim yok.

OperServ 22 Şubat 2012 19:18
Cevap: sozluk hakkinda
 
Ama denedim olmadi

Narsinha 22 Şubat 2012 21:14
Cevap: sozluk hakkinda
 
Kod:
on *:text:*:#kanal: {
  if ($1 == !sozluk) {
    if (%tarat) { msg # Lutfen 3 saniye bekleyiniz yeni tarama yapmak icin. | halt }
    if (!$2) { msg # Sozcuk girmediniz! | halt }
    if ($3) { msg # Sadece tek kelime kullanabilirsiniz , Ornek: !sozluk Sinan | halt }
    set -u3 %tarat 1
    msg #  $+ $2 Kelimesi Taraniyor Lutfen Bekleyiniz..
    set %kanal #
    tarat $2
  }
}
alias tarat { var %63 $rand(0,$str(9,100)) | sockopen $+(sozluk*,%63) turkcebilgi.com 80 | sockmark $+(sozluk*,%63) $1 | set %kelime $1 }
on *:sockopen:sozluk*:{
  var %s sockwrite -n $sockname
  %s GET /sozluk/ $+ $sock($sockname).mark HTTP/1.1
  %s Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:sozluk*:{ 
  var %sozluk [ $+ [ $sockname ] ]
  sockread %sozluk [ $+ [ $sockname ] ]
  if (*<h4>* iswm %sozluk [ $+ [ $sockname ] ]) {
    set %genisanlam $afree(%sozluk [ $+ [ $sockname ] ])
  }
  if (*height:60px* iswm %sozluk [ $+ [ $sockname ] ]) {
    var %var evet
    msg %kanal $+(,$sock($sockname).mark,) Anlami: $afree(%sozluk [ $+ [ $sockname ] ])
    if (%genisanlam !== $null) { msg %kanal Ornek Detay Bilgi ~ | msg %kanal %genisanlam | unset %genisanlam }
    unset %kanal
    sockclose $sockname
    halt
  }
  if (*This object may be found* iswm %sozluk [ $+ [ $sockname ] ]) {
    msg %kanal $sock($sockname).mark Hakkinda bilgi bulunmamaktadir.
    unset %kanal
    unset %genisanlam
    sockclose $sockname
  }
}
alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;, )
  return %x
}
Sözcük bulunamazsa bulunamadı demiyor sadece yukarıdaki şekilde kod çalışıyor.Biraz uğraşırsan o kısmı da yaparsın.

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


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

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