Codigos
opers_amistad
opers valencia
codigo para que no te den arroba si no esta y chan entra
comando
activa con /no@
desactiva /no@
;IRcap8 eca04d73e3da7094a8f3161b241975ad
ON *:OP:#: {
if ($opnick == $me) {
if (%no@ == ON) {
mode $chan -o $me
}
}
}
alias no@ {
if ($1 == $null) {
if (%no@ != ON) {
set %no@ ON
echo -a Desde este momento no serás "opeado"
}
else {
set %no@ OFF
echo -a Desde este momento podrás ser "opeado"
}
}
}
;Fin =)
codigo simple para evitar que los nick con la palabra webchat teabran privado
;IRcap8 23beea0d69a7c5770204943527d81d15
on 1:open:?: {
if (*webchat* iswm $nick)
msg = 4En estos momentos no acepto querys. Por favor, espera unos minutos.
ignore $address($2,2) | close -m $2
}
addons youtube
on *:text:*:#irc-ayuda: {
if (!%YOUTUBE-PARSERversion) || (!%YOUTUBE-PARSERversion != v0.1) { set %YOUTUBE-PARSERversion v0.1 }
tokenize 32 $strip($1-,burci)
if (youtube.com isin $1-) { var %yt_t $gettok($1-,2,61) | set %yt_c # | _youtube %yt_t }
if (youtu.be isin $1-) { var %yt_t $gettok($1-,3,47) | set %yt_c # | _youtube %yt_t }
}
on *:action:*:#: {
tokenize 32 $strip($1-,burci)
if (youtube.com isin $1-) { var %yt_t $gettok($1-,2,61) | set %yt_c # | _youtube %yt_t }
if (youtu.be isin $1-) { var %yt_t $gettok($1-,3,47) | set %yt_c # | _youtube %yt_t }
}
alias _YouTube {
sockclose $+(Ytb,.,$1)
sockopen -e $+(Ytb,.,$1) www.googleapis.com 443
}
on *:sockopen:*: {
if (Ytb* iswm $sockname) {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -nt $sockname GET /youtube/v3/videos?id= $+ $remove($sockname,Ytb.) $+ &key=AIzaSyCzHxG53pxE0hWrWBIMMGm75PRHBQ8ZP8c&part=snippet,contentDetails,statistics,topicDetails HTTP/1.1
sockwrite -nt $sockname Host: www.googleapis.com
sockwrite -nt $sockname $crlf
}
}
on *:sockread:*: {
if (Ytb* iswm $sockname) {
if ($sockerr) { return }
var %read
sockread -f %read
while ($sockbr) {
if (%read) {
if ("title" isin $gettok(%read,1,32)) { set %yt_title $left($noqt($gettok(%read,2-,32)),-2) }
if ("categoryId" isin $gettok(%read,1,32)) {
var %a = $left($noqt($gettok(%read,2-,32)),-2)
set %yt_category $replace(%a,1,Film & Animation,02,Autos & Vehicles,10,Music,15,Pets & Animals,17,Sports,18,Short Movies,19,Travel & Events,20,Gaming,21,Videoblogging,22,People & Blogs,23,Comedy,24,Entertainment,25,News & Politics,26,Howto & Style,27,Education,28,Science & Technology,29,Nonprofits & Activism,30,Movies,31,Anime/Animation,32,Action/Adventure,33,Classics,34,Comedy,35,Documentary,36,Drama,37,Family,38,Foreign,39,Horror,40,Sci-Fi/Fantasy,41,Thriller,42,Shorts,43,Shows,44,Trailers)
}
if ("viewCount" isin $gettok(%read,1,32)) { set %yt_views $left($noqt($gettok(%read,2-,32)),-2) }
if ("likeCount" isin $gettok(%read,1,32)) { set %yt_likes $left($noqt($gettok(%read,2-,32)),-2) }
if ("dislikeCount" isin $gettok(%read,1,32)) { set %yt_dislikes $left($noqt($gettok(%read,2-,32)),-2) }
if ("channelTitle" isin $gettok(%read,1,32)) { set %yt_uploaded $left($noqt($gettok(%read,2-,32)),-2) }
if ("duration" isin $gettok(%read,1,32)) { set %yt_duration $get_duration($left($noqt($gettok(%read,2-,32)),-1)) }
if ("commentCount" isin $gettok(%read,1,32)) {
set %yt_comments $noqt($gettok(%read,2-,32))
sockclose $sockname
msg %yt_c 1,0You00,04Tube: 1Titulo14:1 %yt_title 1Duracion1:12 %yt_duration
unset %yt_*
return
}
}
sockread -f %read
}
}
}
alias get_duration {
if (!$1) { return 0 }
var %d = $1
var %d = $remove(%d,P,T)
var %d = $replacex(%d,W,wk $chr(32),D,days $chr(32),h,hrs $chr(32),M,mins $chr(32),S,secs)
var %d = $duration(%d,3)
var %dd = $duration(%d,3)
return $iif(%dd,$v1,00:00:00)
}
alias get_date {
if (!$1-) { return 0 }
var %d = $1-
var %d = $remove($replace(%d,$chr(84),$chr(32)),$chr(90))
if (*.* iswm %d) {
var %tmp_d = $gettok(%d,1,32)
var %tmp_t = $remove($gettok(%d,2,32),.)
var %d = %tmp_d $gettok(%tmp_t,1,58) $+ : $+ $gettok(%tmp_t,2,58) $+ : $+ $mid($gettok(%tmp_t,3,58),4)
}
var %d = $ctime($remove(%d,$chr(44)))
var %d = $date(%d,ddd ddoo mmm yyyy HH:nn:ss)
if (!$prop) { return %d }
if ($prop) && ($prop == date) { return $iif(%d,$v1,0) }
if ($prop) && ($prop == ctime) { return $iif($ctime(%d),$v1,0) }
}
alias -l comma {
var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
return %a
}
_________________________________________________________________
GESTOR DE PRIVADOS
On *:Load: {
echo -s -
echo -s 10*1 Gestor de Privis cargado correctamente.
echo -s 10*1 Autor: Nieves Rocafermata
echo -s Retocado por Overdrive (traducción, añadir menu, y auto ignore de los privados del nick rechazado durante 300 segundos)
}
On *:Unload: {
unset %a
echo -s 10*1 Gestor de Privis descargado correctamente.
}
menu menubar,status {
-
Gestor de privis creado por Nieves Rocafermata
.-
.Descargar: if ($?!="¿Descargar Gestor de Privis?" == $true) { .unload -rs " $+ $scriptdira-privs.mrc $+ " } | else { halt }
.Recargar: if ($?!="¿Recargar Gestor de Privis?" == $true) { .load -rs " $+ $scriptdira-privs.mrc $+ " } | else { halt }
}
dialog qc {
title "Query Control By SeiferAlmas y retocado por Overdrive"
size -1 -1 140 51
option dbu
edit "", 3, 4 10 132 10, read
text "From:", 5, 4 24 14 8
edit "", 7, 20 22 116 10, read
button "Aceptar", 1, 5 34 37 12, flat
button "Rechazar", 2, 44 34 37 12, flat
box "Control de Privados", 4, 1 1 138 49
}
on *:dialog:qc:sclick:1:{
/window -w %qnick
/msg %qnick $ewrap(Tu privado ha sido aceptado, este es el contestador de $me en breves momentos seras contestad@ gracias)
/dialog -x qc
/window -a %qnick
/unset %qnick
}
on *:dialog:qc:sclick:2:{
close -m %qnick
/msg %qnick $ewrap(Tu privado no ha podido ser aceptado, y los mensajes que escribas en esta ventana no podran ser leidos, hablame por el canal gracias.)
/dialog -x qc
/ignore -pu300 %qnick
unset %qnick
}
on *:OPEN:?: {
if ($dialog(qc)) {
.msg $nick $ewrap(Lo siento $nick $+ , pero estoy ocupado o no me encuentro delante del pc, por favor, intentalo mas tarde.)
close -m $nick
}
else {
/set %qnick $nick
/window -h %qnick
/msg %qnick $ewrap(Por favor, espera a que tu privado sea aceptado o rechazado, gracias)
/dialog -m qc qc
did -a qc 7 %qnick
did -a qc 3 $1-
}
}
alias ewrap {
var %msg
var %tok = 1
var %word
while ($gettok($1-,%tok,32) != $null) {
%word = $gettok($1-,%tok,32)
%msg = %msg 15 $+ $upper($left(%word,1)) $+ 15 $+ $right(%word,-1)
inc %tok
}
return 12,1(15 $+ %msg $+ 12)
}
aqui