Socket Bot | Sohbet.NET #Help Departmanı ve IRCd Komutları

1 Nisan 2017

Youtube link analiz botu

Youtube link analiz botu Çalışma şekli !kim youtubelinki örnek: !kim youtube.be/watch?v=PUiNB0UFwJM

## KraLaz ##
on *:text:!kim &:#: {
  ;msg # calisti döngü
  noop $regex($2,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)
  if $read(songrequest.txt,nw,$+(*,$2)) { 
    ; msg # $gettok($v1,2-,32) << 4,40 Youtube Link Dedektör  :
  }
  elseif !$regml(2) {
    msg # $nick --> url
  }
  else {
    youtube $2 $chan $nick
  }
}

alias -l sockopenmark { sockopen -e $1-3 | sockmark $1 $4- }
alias -l youtube {
  noop $regex($1,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)
  sockopenmark $+(yt.,$calc($ticks + $rand(1,99))) www.youtube.com 443 $regml(2) msg $2- 
}
on *:sockopen:yt.*:{
  tokenize 32 $sock($sockname).mark
  sockwrite -n $sockname GET /watch?v= $+ $1 HTTP/1.0 
  sockwrite -n $sockname HOST: www.youtube.com $+ $str($crlf,2)
}
on *:sockread:yt.*:{
  tokenize 32 $sock($sockname).mark
  var %v | sockread %v
  if ($regex(%v,/"name" content="(.+)"/)) { 
    var %song $replace($regml(1),&amp;amp;,$chr(38),&amp;#39;,$chr(39),&#39;,$chr(39),&amp;quot;,$chr(34),&quot;,$chr(34),&amp;,$chr(38)) $5-
    $2-3 4,40 Youtube  12Linki Verilen Parça : 1 %song 
    write songrequest.txt $4 $+ : %song $+ : 
    sockclose $sockname
  }
  elseif *</html> iswm %v { $2-3 The Song ( https://www.youtube.com/watch?v= $+ $1 ) is not exists. }
}

## KraLaz ##

on *:text:!kim &:#: {

;msg # calisti döngü

noop $regex($2,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)

if $read(songrequest.txt,nw,$+(*,$2)) {

; msg # $gettok($v1,2-,32) << 4,40 Youtube Link Dedektör :

}

elseif !$regml(2) {

msg # $nick --> url

}

else {

youtube $2 $chan $nick

}

alias -l sockopenmark { sockopen -e $1-3 | sockmark $1 $4- }

alias -l youtube {

noop $regex($1,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)

sockopenmark $+(yt.,$calc($ticks + $rand(1,99))) www.youtube.com 443 $regml(2) msg $2-

}

on *:sockopen:yt.*:{

tokenize 32 $sock($sockname).mark

sockwrite -n $sockname GET /watch?v= $+ $1 HTTP/1.0

sockwrite -n $sockname HOST: www.youtube.com $+ $str($crlf,2)

}

on *:sockread:yt.*:{

tokenize 32 $sock($sockname).mark

var %v | sockread %v

if ($regex(%v,/"name" content="(.+)"/)) {

var %song $replace($regml(1),&amp;,$chr(38),&#39;,$chr(39),',$chr(39),&quot;,$chr(34),",$chr(34),&,$chr(38)) $5-

$2-3 4,40 Youtube 12Linki Verilen Parça : 1 %song

write songrequest.txt $4 $+ : %song $+ :

sockclose $sockname

}

elseif *</html> iswm %v { $2-3 The Song ( https://www.youtube.com/watch?v= $+ $1 ) is not exists. }

}

mIRC Script / Socket Bot

1 Nisan 2017

Kanalda burç socket botu

Kodu mircinizin remote kısmına eklemeniz yeterli olacaktır. Bot komutları .burç – .burc – !burç- !burc bu komutların hepsinde çalışır. örnek: !burç kova

alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?:ko[Ççc]|bo[gğĞ]a|[İiı]k[İiı]zler|yenge[cÇç]|aslan|ba[Şşs]ak|teraz[İıi]|akrep|yay|o[Ğğg]lak|kova|bal[iİı]k)$/Si }
  else { set -e %brc $replace($lower($1),ç,c,ğ,g,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 
var %rd $r(111,999999) | sockopen $+(burc,%rd) www.saglikveguzellik.net 80 | sockmark $+(burc,%rd) %brc } }
on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf 
on *:sockread:burc*:var %a | sockread %a | if $regex(%a,/(?:&lt;p&gt;.+(&lt;\/p&gt;&lt;p&gt;)?&lt;\/p&gt;\z)/) { tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) | msg %k_ 2 $* }
;on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ 
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #

alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?:ko[Ççc]|bo[gğĞ]a|[İiı]k[İiı]zler|yenge[cÇç]|aslan|ba[Şşs]ak|teraz[İıi]|akrep|yay|o[Ğğg]lak|kova|bal[iİı]k)$/Si }

else { set -e %brc $replace($lower($1),ç,c,ğ,g,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2

var %rd $r(111,999999) | sockopen $+(burc,%rd) www.saglikveguzellik.net 80 | sockmark $+(burc,%rd) %brc } }

on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf

on *:sockread:burc*:var %a | sockread %a | if $regex(%a,/(?:<p>.+(<\/p><p>)?<\/p>\z)/) { tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) | msg %k_ 2 $* }

;on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/

on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }

on $*:text:$($fltr):#:fltr $2 #

Category: Socket Bot

Youtube link analiz botu

Kanalda burç socket botu

Son Yorumlar

Etiketler

Kategoriler

Eklenen Son Yazılar