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/)
-   -   Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1026517-ingilizce-turkce-turkce-ingilizce-tercume-kodu-socket.html)

Forbidden 19 Ocak 2024 23:21
Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
Kodun amacý kelimeleri yada cümleleri hem türkçe hem de ingilizce olarak çevirme.

Komut: !cevir kelime
Komut: !cevir cümle

Örnek komut: !cevir Merhaba nasýlsýn?
Örnek Komut: What do you do in your free times?

Kod:
on $*:Text:/^[!.]([cçÇ]evir)(.+)/i:#sohbet,#felsefe,#radyo,#mirchelp:{
  if %cevirchan {
    msg # > Cevir sorgulamasi yaparken 10 sn beklemelisiniz.
    return
  }
  .set -u10 %cevirchan $chan
  cevir $2-
}
alias cevir {
  set -u10 %cevir_ $remove($trkarakter($1-),?,.)
  sockclose cevir | sockopen cevir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
}
on *:sockopen:cevir:{
  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
  var %ko = sockwrite -n $sockname
  %ko GET /search?client=opera&q=google+translate+ $+ $replacex(%cevir_,$chr(32),+) $+ &sourceid=opera&ie=UTF-8&oe=UTF-8 HTTP/1.0
  %ko Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
on *:sockread:cevir:{
  var %cev
  sockread -f %cev
  if $regex(%cev,/input value="(.+)" disabled="disabled" name="tlitett"/i) { msg %cevirchan [Ceviri] $xforbiturkcex($regml(1)) }
}
alias -l xforbiturkcex {
  return $replacexcs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$ˆR,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,',A¼,ü,A¶,ö,ı,ý,ÅŸ,þ)

}

alias -l trkarakter return $replacex($1-,ý,$eval(%C4%B1,0),Ý,$eval(%C4%B0,0),ð,$eval(%C4%9F,0),Ð,$eval(%C4%9E,0),Þ,$eval(%C5%9E,0),þ,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0))
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

SpinoZi 19 Ocak 2024 23:22
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], emeðine saðlýk.

eLsaa 19 Ocak 2024 23:40
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yine güzel çalýþma..

emeðine saðlýk. 🌺

OperServ 20 Ocak 2024 01:48
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
Yeni bir coderimiz doðuyor emeðinize saðlýk

manikdepresif 21 Ocak 2024 00:56
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
sadece ingilizce turkce ceviri yapmýyor ki tüm dillerde yapiyor hemen hemen ceviri
.cevir arapça çevir seni seviyorum
.cevir italyanca çevir seni seviyorum
.cevir almanca çevir seni seviyorum
.cevir fransýzca çevir seni seviyorum

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazýlan mesaj 00:56 -->-> Daha önceki mesaj 00:23 --

Anahtar kelimeyi buldum sanýrým.

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

helloweenfs 30 Nisan 2024 07:21
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
Bu kodun kendimize göre input haline göre uyarlama þansýmýz olabilir mi

Forbidden 30 Nisan 2024 21:21
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
Alýntý:
helloweenfs Nickli Üyeden Alýntý (Mesaj 1042892128)
Bu kodun kendimize göre input haline göre uyarlama þansýmýz olabilir mi
Kod:
on *:input:#:{
  if $regex($1,/^[!.][cçÇ]evir$/i) {
    if %cevirchan {
      msg # > Cevir sorgulamasi yaparken 10 sn beklemelisiniz.
      return
    }
    .set -u10 %cevirchan $chan
    cevir $2-
  }
}
alias cevir {
  set -u10 %cevir_ $remove($trkarakter($1-),?,.)
  sockclose cevir | sockopen cevir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
}

on *:sockopen:cevir:{
  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }
  var %ko = sockwrite -n $sockname
  %ko GET /search?client=opera&q=google+translate+ $+ $replacex(%cevir_,$chr(32),+) $+ &sourceid=opera&ie=UTF-8&oe=UTF-8 HTTP/1.0
  %ko Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
on *:sockread:cevir:{
  var %cev
  sockread -f %cev
  if $regex(%cev,/input value="(.+)" disabled="disabled" name="tlitett"/i) { msg %cevirchan [Ceviri] $xforbiturkcex($regml(1)) }
}
alias -l xforbiturkcex {
  return $replacexcs($1-,î,i,â,a,Ãœ,Ü,Åž,Þ,Äž,Ð,Ç,Ç,Ä°,Ý,Ö,Ö,ü,ü,ÅŸ,þ,ÄŸ,ð,ç,ç,ı,ý,ö,ö,ê,ê,“,$chr(32),”,$chr(32),’,",‘,',“,",–,-,É™,e,',',Ö,Ö,ü,ü,Ý,I,ý,i,Ö,Ö,ö,ö,Ü,Ü,ü,ü,Ç,Ç,ç,ç,Ð,Ð,ð,ð,Þ,Þ,þ,þ,$&
    Ccedil;,Ç,A»,û,circ;s,s,icirc;,i,Uuml;,Ü,i ldquo;,i,hrdquo;,h,acirc;,a,ı,ý,circ;I,I,uml;B,B,nýrsquo;,`,$chr(195),A,$ˆR,R,rsquo;yi,`yi,ccedil;,ç,ouml;,ö,ç,ç,uuml;,ü,rsquo;,',A¼,ü,A¶,ö,ı,ý,ÅŸ,þ)
}


alias -l trkarakter return $replacex($1-,ý,$eval(%C4%B1,0),Ý,$eval(%C4%B0,0),ð,$eval(%C4%9F,0),Ð,$eval(%C4%9E,0),Þ,$eval(%C5%9E,0),þ,$eval(%C5%9F,0),ö,$eval(%C3%B6,0),Ö,$eval(%C3%96,0),ç,$eval(%C3%A7,0),Ç,$eval(%C3%87,0),ü,$eval(%C3%BC,0),Ü,$eval(%C3%9C,0))

helloweenfs 01 Mayýs 2024 00:32
Cevap: Ýngilizce/türkçe Türkçe/ingilizce tercüme kodu socket
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok teþekkür ederim kod çalýþtý þimdi saðolasýn


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

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