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/)
-   -   Turkce Sozluk (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/381085-turkce-sozluk.html)

Set 05 Şubat 2011 09:19

Turkce Sozluk
 
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
}

Konunun Ismı Uzerine Turkce Sozluk , Ins. isinize yarar hayirli IF'ler.

Kullanimi ; !sozluk Kelime

Gorsel ;

PHP- Kodu:

[09:11] <Sinan> !sozluk Dinlemek
[09:11] <AegDinlemek Kelimesi Taraniyor Lutfen Bekleyiniz..
[
09:11] <AegDinlemek AnlamiTürkçe anlamıdinlemekbirinin sözünüöğüdünü kabul edip gereğince davranmakişitmek için kulak vermek.
[
09:11] <Sinan> !sozluk emek
[09:11] <AegEmek Kelimesi Taraniyor Lutfen Bekleyiniz..
[
09:11] <AegEmek AnlamiTürkçe anlamıemekbir şeyin yaratılması ya da üretilmesi için harcanan beden ve kafa gücü.
[
09:11] <AegOrnek Detay Bilgi ~
[
09:11] <AegEmek sermaye sağlamanın ya da ticari bir girişimde bulunmanın doğal bir parçası olan riskleri üstlenmenin dışındaüretim sürecine katkıda bulunan her türlü insan etkinliğine denirtümü 


xMicrosofT 05 Şubat 2011 17:26

Cevap: Turkce Sozluk
 
Eline Emeğine Sağlık...
Paylasımlarının Devamını Dilerim..

OperServ 29 Ocak 2012 12:36

Cevap: Turkce Sozluk
 
calismiyor


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

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