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

OperServ · 08 Şubat 2012, 22:18

s.a Set aradasimizin yapgidi turkce sozluk calismiyor neden olabilir kod bu

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

kimse yardim etmiyecekmi

Set · 13 Şubat 2012, 17:59

sitenin index sistem'i degişmiş o sebeble calismiyor.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bos vaktim olursa halletmeye calısırım ins.

OperServ · 15 Şubat 2012, 19:05

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

Narsinha · 22 Şubat 2012, 18:31

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

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.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

değiştir dene

OperServ · 22 Şubat 2012, 19:03

Malesef olmadi

Narsinha · 22 Şubat 2012, 19:13

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

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

Ama denedim olmadi

Narsinha · 22 Şubat 2012, 21:14

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

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

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
sozluk.tcl [download]	SaW	TCL Scriptler	18	14 Şubat 2012 20:25
Turkce Sozluk	Set	mIRC Scripting Hazır Kodlar	2	29 Ocak 2012 12:36
QT Sozluk	Ocean	GNU, Linux ve UNIX	0	18 Mayıs 2008 02:42

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

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.