Solo Addons

Ver el tema anterior Ver el tema siguiente Ir abajo

Re: Solo Addons

Mensaje  Pr0T3aN el Jue Oct 04, 2007 9:46 am

Addon: Control Ignore
Utilidad: Usa con facilidad opciones del ignore.
Link: http://terra-alternativos.iespana.es/ControlIgnore.php
Codigo:
Código:

on *:load:{
  echo -s Addon Control Ignore cargado.
  echo -s GyoX 29/09/07
}

on *:unload:{
  unset %cig.*
}

menu nicklist {
  -
  Control Ignore : set %cig.nick $$1 | dialog -md cig cig
}

dialog cig {
  title "Control Ignore"
  size 50 50 500 325
  text "Nick:", 1, 5 5 50 25, default
  edit "", 2, 55 5 200 18, disabled
  text "Ident:", 3, 5 35 50 25, default
  edit "", 4, 55 35 200 18, disabled
  text "Host:", 5, 5 65 50 25, default
  edit "", 6, 55 65 200 18, disabled
  text "Name:", 7, 5 95 50 25, default
  edit "", 8, 55 95 200 18, disabled
  text "Channels:", 9, 5 125 50 75, default
  edit "", 10, 55 125 200 36,multi disabled
  box "Tipo", 11, 260 5 235 43
  check "Nick", 12, 290 20 55 18
  check "Ident", 13, 350 20 55 18
  check "Host", 14, 410 20 55 18
  button "Ignorar", 15, 5 190 55 25, default
  edit "",16, 65 190 430 25, disabled
  box "Ignorar", 17, 260 53 235 130
  check "Borrar", 18, 265 68 105 18
  check "Privados", 19, 265 91 105 18
  check "Mensajes canal", 20, 265 114 105 18
  check "Notices", 21, 265 137 105 18
  check "Ctcps", 22, 385 68 105 18
  check "Codigos de control", 23, 385 91 105 18
  check "Invites", 24, 385 114 105 18
  check "Todo", 25, 385 137 105 18
  check "Temporal", 26, 265 160 70 18
  edit "0", 27, 335 160 40 18, disabled
  text "segs.", 28, 385 162 25 18, default
  box "Texto", 29, 5 220 490 100
  combo 30, 10 235 480 25, drop
  button "Añadir", 31, 10 260 40 18, default
  edit "", 32, 55 260 435 18
  text "* Para obtener tu nick usar rem.me, para el objetivo rem.nick.", 33, 10 288 480 18, default
}

on *:dialog:cig:edit:*:{
  if ( $did == 27 ) {
    rwcmd
  }
}

on *:dialog:cig:sclick:*:{
  if ( $did == 15 ) {
    ignore $mid(%cig.cmd,8)
    say $did(cig,30).text
  }
  if ( $did >= 12 ) && ( $did <= 14 ) {
    rwobj
  }
  if ( $did == 31 ) {
    if ( $len($did(cig,32).text) > 0 ) {
      set %cig.init 0
      while ( %cig.init < $lines(ignore.txt) ) {
        did -d cig 30 1
        inc %cig.init
      }
      write -i ignore.txt $did(cig,32).text
      recharge
    }
  }
  if ( $did >= 18 ) && ( $did <= 26 ) {
    if ( $did(26).state == 1 ) {
      did -e cig 27
      rwcmd
    }
    else {
      set %cig.temp
      did -b cig 27
      did -ra cig 27 0
      rwcmd
    }
    if ( $did(25).state == 1 ) {
      did -u cig 18
      did -c cig 19
      did -c cig 20
      did -c cig 21
      did -c cig 22
      did -c cig 23
      did -c cig 24
    }
    if ( $did(18).state == 1 ) {
      did -b cig 27
      set %cig.init 19
      while ( %cig.init <= 26 ) {
        did -u cig %cig.init
        inc %cig.init
      }
    }
    rwparam
  }
}

on *:dialog:cig:init:0:{
  unset %cig.ident
  unset %cig.host
  unset %cig.name
  recharge
  if ( $isfile(ignore.txt) == $false ) {
    write -i ignore.txt Todo un ignore para ti rem.nick, juega con el un rato.
    write -i ignore.txt  Tssss a callar perra, Yo rem.me, te lo ordeno.
  }
  set %cig.cmd ignore
  set %cig.ident
  set %cig.host
  set %cig.name
  set %cig.channels
  did -ra cig 16 %cig.cmd
  did -ra cig 2 %cig.nick
  .enable #capturewhois
  .whois %cig.nick
}


#capturewhois off
raw 311:*:{
  set %cig.ident $3
  set %cig.host $4
  set %cig.name $strip($6-)
  did -ra cig 4 %cig.ident
  did -ra cig 6 %cig.host
  did -ra cig 8 %cig.name
}

raw 319:*:{
  set %cig.channels $3-
  did -ra cig 10 %cig.channels
}

raw 318:*:{
  .disable #capturewhois
}
#capturewhois end

alias rwparam {
  set %cig.param
  set %cig.guion 0
  if ( $did(cig,18).state == 1 ) { set %cig.param -r }
  if ( $did(cig,19).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -p
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ p
    }
  }
  if ( $did(cig,20).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -c
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ c
    }
  }
  if ( $did(cig,21).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -n
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ n
    }
  }
  if ( $did(cig,22).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -t
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ t
    }
  }
  if ( $did(cig,23).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -k
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ k
    }
  }
  if ( $did(cig,24).state == 1  ) {
    if ( %cig.guion == 0 ) {
      set %cig.param -i
      set %cig.guion 1
    }
    else {
      set %cig.param %cig.param $+ i
    }
  }
  rwcmd
}

alias rwcmd {
  set %cig.cmd ignore $+ $chr(32) $+ %cig.param
  if ( $did(cig,26).state == 1 ) {
    set %cig.temp -u $+ $did(27).text
  }
  if ( $len(%cig.temp) > 0 ) {
    if ( $did(cig,18).state != 1 ) {
      set %cig.cmd %cig.cmd $+ $chr(32) $+ %cig.temp
    }
  }
  set %cig.cmd %cig.cmd $+ $chr(32) $+ %cig.obj
  did -ra cig 16 %cig.cmd
}

alias recharge {
  set %cig.init 1
  set %cig.top $lines(ignore.txt)
  while ( %cig.init <= %cig.top ) {
    did -a cig 30 $replace($replace($read(ignore.txt,%cig.init),rem.nick,%cig.nick),rem.me,$me)
    inc %cig.init
  }
}

alias rwobj {
  set %cig.obj
  if ( $did(cig,12).state = 1 ) {
    set %cig.obj %cig.nick $+ !
  }
  else {
    set %cig.obj *¡
  }
  if ( $did(cig,13).state = 1 ) {
    set %cig.obj %cig.obj  $+ %cig.ident $+ @
  }
  else {
    set %cig.obj %cig.obj  $+ *@
  }
  if ( $did(cig,14).state = 1 ) {
    set %cig.obj %cig.obj $+ %cig.host
  }
  else {
    set %cig.obj %cig.obj $+ *
  }
  rwcmd
}

Pr0T3aN
Admin

Cantidad de envíos : 43
Localización : Madrid
Fecha de inscripción : 10/09/2007

Ver perfil de usuario http://gyox.blogspot.com/

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.