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 Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Türkçe Sözlük (https://www.ircforumlari.net/mirc-parca-kodlar/717776-turkce-sozluk.html)

YouMyCure 02 Aralýk 2015 19:14
Türkçe Sözlük
 
Kod Amacý: Türkçe Kelimelerin Sözlük Anlamlarýný Bulmak.
Kodu mircinizin remote (ALT+R) bölümüne ekleyiniz.
Kod:
on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalý Kullaným Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalý Kullaným Tek Kelimeden Oluþan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
  }
}
Kullanýmý:Kanalda veya Özelde; .sözlük kelime

mercenary 25 Kasým 2019 10:58
Cevap: Türkçe Sözlük
 
Hocam emeðinize saðlýk kod gayet güzel çalýþýyor fakat, web sayfasýndan gelenler türkçe karakterlerin bozuk çýktýðýndan yakýnýyor, bir öneri sunarsanýz memnun olurum.

Alper 25 Kasým 2019 23:42
Cevap: Türkçe Sözlük
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


Kod:
alias duzlt return $replace($1,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32))

Yukardaki aliasý kodun olduðu yere ekleyip,



Kod:
msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))

Kýsmý


Kod:
msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<)))

olarak deðiþ.

UBUT 03 Mart 2020 12:31
Cevap: Türkçe Sözlük
 
Alýntý:
YouMyCure Nickli Üyeden Alýntý (Mesaj 1041703783)
Kod Amacý: Türkçe Kelimelerin Sözlük Anlamlarýný Bulmak.
Kodu mircinizin remote (ALT+R) bölümüne ekleyiniz.
Kod:
on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalý Kullaným Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalý Kullaným Tek Kelimeden Oluþan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
  }
}
Kullanýmý:Kanalda veya Özelde; .sözlük kelime

kod çalýþýyor sýkýntý yok ama ikinci bir anlamý olan kelimelerde ikinci satýra geçmiyor bunu düzenleme þansýmýz var mýdýr?

Subzero 09 Aralýk 2020 01:53
Cevap: Türkçe Sözlük
 
Alýntý:
YouMyCure Nickli Üyeden Alýntý (Mesaj 1041703783)
Kod Amacý: Türkçe Kelimelerin Sözlük Anlamlarýný Bulmak.
Kodu mircinizin remote (ALT+R) bölümüne ekleyiniz.
Kod:
on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalý Kullaným Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalý Kullaným Tek Kelimeden Oluþan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
  }
}
Kullanýmý:Kanalda veya Özelde; .sözlük kelime


s.a bu kodda þöle bir sýkýntý oluyor

[01:50]» <Subzero> .sözlük deneme
[01:50]» <Subzero> Kelimeniz; deneme
[01:50]» <Subzero> Sozluk Anlami;

bunun bir çözümü varmýdýr þimdiden teþekkürler birde bunu kendim ve belirlediðim kanalda kullanmak istiyorum mümkünse.

UBUT 09 Aralýk 2020 03:12
Cevap: Türkçe Sözlük
 
Alýntý:
Subzero Nickli Üyeden Alýntý (Mesaj 1042406060)
s.a bu kodda þöle bir sýkýntý oluyor

[01:50]» <Subzero> .sözlük deneme
[01:50]» <Subzero> Kelimeniz; deneme
[01:50]» <Subzero> Sozluk Anlami;

bunun bir çözümü varmýdýr þimdiden teþekkürler birde bunu kendim ve belirlediðim kanalda kullanmak istiyorum mümkünse.
bu kodu deneyerek yapýn bende sorunsuz çalýþýyor...

Kod:
on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<)))
  }
}
on *:input:*: {
  if $regex($1,/^([.!]s[oÖö]zl[üÜu]k)/Si) {
    if !$2 { msg $active Hatalý Kullaným Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalý Kullaným Tek Kelimeden Oluþan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
  }
}

alias duzlt return $replace($1,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32))


on *:sockopen:trsorgula: {
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÖZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(<)))
  }
}

alias duzlt return $replace($1,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),ı,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ç,$chr(199),ç,$chr(231),Ãœ,$chr(220),ö,$chr(246),Ö,$chr(214),ü,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32))

Subzero 10 Aralýk 2020 00:29
Cevap: Türkçe Sözlük
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teþekkürler çalýþýyor kod

[00:28]» <Subzero> !sözlük þair
[00:28]» <Subzero> Kelimeniz; þair
[00:28]» <Subzero> Sozluk Anlami; Þžiir söyleyen veya yazan kimse:
[00:28]» <Subzero> !sözlük deneme
[00:28]» <Subzero> Kelimeniz; deneme
[00:28]» <Subzero> Sozluk Anlami; Denemek iþi, sýnama, deneyim, tecrübe:


Tüm Zamanlar GMT +3 Olarak Ayarlanmýþ. Þuanki Zaman: 17:36.

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