sozluk Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Türkçe Sözlük

03 Ekim 2015 • 11:51 OxiGeN Addonlar, Hazır Kodlar, Türkçe mIRC

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 […]

» Devamını Oku

Yorum yaz hazır kodlar, mirc, Mirc indir, scripting, sozluk, Türkçe, turkce mırc

ING – TR / TR – ING Ceviri Addon

22 Şubat 2014 • 15:27 OxiGeN Hazır Kodlar

alias htmlfree {
  var %x, %i =  $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/gi,$null,%x),  %x = $remove(%x,&amp;nbsp;, )
  return %x
}
on *:sockopen:ceviri*: {
  sockwrite -n $sockname GET $+(/,%tr-ing,.php?,%dtr-ing,=,$sock($sockname).mark)  HTTP/1.1
  sockwrite -n $sockname Host: guzelsozluk.com $+ $crlf $+ $crlf
}
on *:Sockread:ceviri*: {
  var %ceviri
  sockread %ceviri 
  tokenize 32 %ceviri
  if (*button.gif" title="dinle"* iswm %ceviri) {
    echo -a Cevirilcek Sozcuk: $replace($qt($sock($sockname).mark),+,$chr(32))
    echo -a Ceviri: $qt($htmlfree(%ceviri))
  }
}
alias pck {
  inc %63
  sockopen $+(ceviri,%63) guzelsozluk.com 80
  sockmark $+(ceviri,%63) $replace($1-,$chr(32),+) 
}
alias cevir {
  if ($1 == ing) {
    set %tr-ing turkce
    set %dtr-ing ing
    pck $2-
  }
  if ($1 == tr) {
    set %tr-ing ingilizce
    set %dtr-ing tur
    pck $2-
  }

----

Cevirilcek Sozcuk: "merhaba"
Ceviri: "Hi"
Cevirilcek Sozcuk: "hi"
Ceviri: "merhaba"

alias htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x,&nbsp;, )

return %x

}

on *:sockopen:ceviri*: {

sockwrite -n $sockname GET $+(/,%tr-ing,.php?,%dtr-ing,=,$sock($sockname).mark) HTTP/1.1

sockwrite -n $sockname Host: guzelsozluk.com $+ $crlf $+ $crlf

}

on *:Sockread:ceviri*: {

var %ceviri

sockread %ceviri

tokenize 32 %ceviri

if (*button.gif" title="dinle"* iswm %ceviri) {

echo -a Cevirilcek Sozcuk: $replace($qt($sock($sockname).mark),+,$chr(32))

echo -a Ceviri: $qt($htmlfree(%ceviri))

}

alias pck {

inc %63

sockopen $+(ceviri,%63) guzelsozluk.com 80

sockmark $+(ceviri,%63) $replace($1-,$chr(32),+)

}

alias cevir {

if ($1 == ing) {

set %tr-ing turkce

set %dtr-ing ing

pck $2-

}

if ($1 == tr) {

set %tr-ing ingilizce

set %dtr-ing tur

pck $2-

}

----

Cevirilcek Sozcuk: "merhaba"

Ceviri: "Hi"

Cevirilcek Sozcuk: "hi"

Ceviri: "merhaba"

Tags: addon, ceviri, mirc, sozluk

» Devamını Oku

Yorum yaz addon, ceviri, mirc, sozluk