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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - google soru kod socket (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/1027804-google-soru-kod-socket.html)

google soru kod socket

Kullanim: !google sorunuz
Kanallari kendinize gore ayarlamayi unutmayin.

Kod:

on $*:Text:/^[!.]g(o+)?gle(.+)/i:#sohbet,#felseefe,#radyo,#mirchelp:{

  if %sorchan {

    msg # < $+ $nick $+ > Soru sorgulamasi yaparken 10 sn beklemelisiniz.

    return

  }

  .set -u10 %sorchan $chan

  soru $2-

}

alias soru {

  set %sor_ $replace($trkarakter($1-),?,$chr(32) $+ ?)

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

}

on *:sockopen:sorular:{

  if $sockerr { .sockclose $sockname | echo -a Socket Hatasi }

  var %ko = sockwrite -n $sockname

  %ko GET /search?client=opera&q=diğer+sorular+ $+ $replacex(%sor_,$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:sorular:{

  var %sor, %sorpat

  sockread -f %sor

  var %sorpat = /(.+)BNeawe s3v9rd AP7Wnd\\x22\\x3e(.+)\\x3c/div\\x3e\\x3c/div\\x3e\\x3c/div\\x3e\\x3c/div\\x3e\\x3c/div\\x3e\\x3cdiv class(.+)div class(.+)https(.+)/i  

  if $regex(%sor,%sorpat) { 

    var %dize =  $xturkcex($remove($regml(2),\x3d\x22FCUp0c,rQMQod,\x22,\x3e,\x3c,/span,span,class,\u2022,\u201c,\u201d,\x26amp;)) 

    if sub*r0bn4c* !iswm %dize { 

      msg %sorchan %dize

    }

  }

  ;echo -a :::::::::::::: %sor

}

alias -l xturkcex { 

  return $replacex($1-,\x27,',\u015f,ş,\u0131,ı,\xfc,ü,\u011f,ğ,\u0130,İ,\xf6,ö,\xe7,ç,\xd6,Ö,\u015e,Ş,\xc7,Ç,\xdc,Ü,\xe2,a,\xb0,°,\u2013,~)

}

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))