API tools faq
paste
Guest User

Untitled

a guest
Apr 1st, 2018
737
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 65.69 KB | None | 0 0
raw download clone embed print report
  1. ;IRcap8 9d9fcc0bdf1ef58fccb5f5883bfea5b5
  2. ;IRcap8 9d9fcc0bdf1ef58fccb5f5883bfea5b5
  3.  
  4. menu @GUIMGEN {
  5. uclick: {
  6. if $mouse.y < 32 {
  7. var %a = $calc($window($active).w - 26)
  8. if $inrect($mouse.x,$mouse.y,%a,4,20,18) { guicierra $active | return }
  9. dec %a 20 | if $inrect($mouse.x,$mouse.y,%a,4,14,18) { window -n $active | return }
  10. }
  11. else { if (%guidrop) guidrop | if ($isalias(UCLICK. $+ $active)) { UCLICK. $+ $active $mouse.x $mouse.y } }
  12. unset %tmp.vel
  13. }
  14. mouse: {
  15. if ($mouse.key & 1) && (%tmp.wmueve != on) {
  16. }
  17. }
  18. dclick: {
  19. if $mouse.y > 32 {
  20. var %ractive = $remove($active,@)
  21. var %n = 1 | :LLdi | var %b = [ %ractive $+ [ .ls $+ [ %n ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 2 %ractive $+ .ls $+ %n | inc %n | goto LLdi }
  22. }
  23. }
  24. sclick: {
  25. if ($mouse.y > 32) {
  26. var %active = $active , %ractive = $remove($active,@) | unset %guidrop
  27.  
  28. guipulsaop $mouse.x $mouse.y % [ $+ [ %ractive $+ .op ] ]
  29.  
  30. guipulsatx $mouse.x $mouse.y % [ $+ [ %ractive $+ .tx ] ]
  31. if (%pulsado != $null) guidibtx %active % [ $+ [ %ractive $+ .tx ] ]
  32.  
  33. guipulsacb $mouse.x $mouse.y % [ $+ [ %ractive $+ .cb ] ]
  34. guipulsabt $mouse.x $mouse.y % [ $+ [ %ractive $+ .bt ] ]
  35.  
  36. var %n = 1 | :LLi | var %b = [ %ractive $+ [ .ls $+ [ %n ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 1 %ractive $+ .ls $+ %n | inc %n | goto LLi }
  37.  
  38. var %n = 1 | :LPe | var %b = [ %ractive $+ [ .pñ $+ [ %n ] ] ] | if (% [ $+ [ %b ] ]) { gpestana %ractive $+ .pñ $+ %n | inc %n | goto LPe }
  39.  
  40. if ($isalias(SCLICK. $+ %active)) { SCLICK. $+ %active $mouse.x $mouse.y }
  41.  
  42. if (% [ $+ [ %ractive $+ [ .skla ] ] ]) { if ($calc($window(%active).w - $mouse.x) < 16) { if ($calc($window(%active).h - $mouse.y) < 16) { .timerREDIMDIAG -o 0 0 redimdiag | window %active @NOguimgen } } }
  43.  
  44. ; echo -s $mouse.x $mouse.y
  45. return
  46. }
  47. if ($mouse.x < $calc($window($active).w - 60)) { wmueve $active $calc($mouse.dx - $window($active).x) $calc($mouse.dy - $window($active).y) }
  48. }
  49. $guimenus
  50. }
  51. alias -l guimenus .disable #guimgen.* | .enable #guimgen. $+ $active
  52.  
  53.  
  54. on 1:input:@edita: cierraedigui $1- | halt
  55. on 1:KEYDOWN:@edita:13: if ($editbox(@edita) == $null) CIERRAEDIGUI $editbox(@edita)
  56. on 1:KEYDOWN:@edita:9: {
  57. CIERRAEDIGUI $editbox(@edita)
  58. var %i = $gettok(%edita.tab,1,32) | inc %i | var %a = % [ $+ [ $remove($gettok(%edita.tab,2,32),@) ] $+ .tx ] | var %gtoka = $gettok(%a,%i,124) | if %gtoka == $null return
  59. set %edig.v $gettok(%edita.tab,2,32) | set %edig.edita $gettok(%gtoka,4,32)
  60. window -eh +d @edita $calc($gettok(%gtoka,1,32) + $window(%edig.v).x + 3) $calc($gettok(%gtoka,2,32) + $window(%edig.v).y + $window(%edig.v).h - $window(%edig.v).dh + 1) $calc($gettok(%gtoka,3,32) - 4) 14 Verdana 9
  61. editbox @edita % [ $+ [ $gettok(%gtoka,4,32) ] ]
  62. window -a @edita
  63. .timerEDIGUI -om 0 50 edigui
  64. set %pulsado tx | sss clik
  65. %edita.tab = %i %edig.v
  66. halt
  67. }
  68.  
  69.  
  70.  
  71. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ayudante ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  72. alias santocambio { if ($read($mircdirusr\nicks.txt,%nncik100) == $null) { %nncik100 = 1 }
  73. var %unonick = $read($mircdirusr\nicks.txt,%nncik100)
  74. .nick %unonick
  75. %nncik100 = %nncik100 + 1 }
  76.  
  77. alias hIRCapModificado {
  78. run $mircdirIRCapModificado.chm
  79. }
  80.  
  81. alias lisnickmio {
  82. loads listador | $listador($mg(pnic1),$mg(pnic2),$nofile(%perfil) $+ nicks.txt,nick <item>,1)
  83. }
  84.  
  85. alias SANTOSCOMAN {
  86. loads listador | $listador(Selecciona una linea y haz doble click, Ejecuta el Comando, $mircdir\addons\ayudante\comandoschanta.txt,<item>,0)
  87. }
  88.  
  89. alias quits {
  90. if (%quits == $null) { set %quits custom.txt 100 }
  91. if ($dialog(quits) == $null) { dialog -m quits quits | did -f quits $gettok(%quits,2,32) } | else { dialog -c quits }
  92. }
  93.  
  94. dialog quits {
  95. title "Netchat.cl - Quit Mensajes"
  96. size -1 -1 198 170
  97. option dbu
  98. tab "Personalizado", 100, 5 5 190 145
  99. tab "Tipicos de IRC", 200
  100. tab "Miscelaneos", 300
  101. tab "Citas/Frases", 400
  102. box "Selecciona el mensaje para salir", 10, 10 25 180 120
  103. text <Ayudante de Santa>,11,120 21 90 7,disable
  104. list 1, 15 35 170 95, sort
  105. text "Caracteres:", 20, 145 130 28 10
  106. text "0", 21, 174 130 15 10
  107. edit "", 25, 15 128 127 11, autohs
  108. button "Cerrar", 30, 120 154 30 10, cancel
  109. button "Quit!", 40, 150 154 30 10, ok
  110. button "Agregar", 50, 20 154 30 10
  111. button "Eliminar", 60, 50 154 30 10
  112. button "Actualizar", 70, 80 154 30 10
  113. }
  114.  
  115. on 1:dialog:quits:*:*:{
  116. if ($devent == init) { if ($server == $null) { did -b quits 40 } | squits %quits }
  117. if (($devent == edit) && ($did == 25)) { if ($len($did(25).text)) { did -o quits 21 1 $len($did(25).text) } | else { did -o quits 21 1 0 } }
  118. if ($devent == sclick) {
  119. if ($did == 1) { did -o quits 25 1 $did(1,$did(1).sel).text | did -o quits 21 1 $len($did(25).text) }
  120. if ($did == 40) { if ($did(25).text) { quit $did(25).text } | else { halt } }
  121. if ($did == 50) { if ($did(25).text) { .timer 1 0 add.quit } }
  122. if ($did == 60) { if ($did(25).text) { did -d quits 1 $did(1).sel | .timer 1 0 del.quit } }
  123. if ($did == 70) { if ($did(25).text) { .timer 1 0 act.quit } }
  124. if ($did == 100) { set %quits custom.txt $did | squits %quits }
  125. if ($did == 200) { set %quits irc.txt $did | squits %quits }
  126. if ($did == 300) { set %quits misc.txt $did | squits %quits }
  127. if ($did == 400) { set %quits citas.txt $did | squits %quits }
  128. }
  129. if (($devent == dclick) && ($server != $null) && ($did == 1) && ($did(25).text != $null)) { quit $did(25).text | dialog -k quits }
  130. }
  131.  
  132. alias -l squits {
  133. var %q.ruta = $mircdir\addons\ayudante\quits\ $+ $1
  134. if ($exists(%q.ruta) == $false) { run $mircdirreport ERROR: El archivo de Quits requerido no existe. Reinstale el script. | dialog -c quits | return }
  135. var %q.lines = $lines(%q.ruta), %q.line = 1 | did -r quits 1,25 | did -o quits 21 1 0
  136. while (%q.line <= %q.lines) { if ($read -nl $+ %q.line %q.ruta) { did -a quits 1 $strip($ifmatch) } | inc %q.line }
  137. }
  138.  
  139. alias -l add.quit {
  140. set -u0 %q.ruta $mircdir\addons\ayudante\quits\ $+ $gettok(%quits,1,32)
  141. write %q.ruta $strip($replace($did(quits,25).text,",')) | squits %quits
  142. }
  143.  
  144. alias -l del.quit {
  145. set -u0 %q.ruta $mircdir\addons\ayudante\quits\ $+ $gettok(%quits,1,32)
  146. write -ds $+ " $+ $strip($did(quits,25).text) $+ " %q.ruta | squits %quits
  147. }
  148.  
  149. alias -l act.quit {
  150. set -u0 %q.ruta $mircdir\addons\ayudante\quits\ $+ $gettok(%quits,1,32)
  151. write -ds $+ " $+ $did(quits,1,$did(quits,1).sel).text $+ " %q.ruta
  152. write %q.ruta $strip($replace($did(quits,25).text,",')) | squits %quits
  153. }
  154.  
  155. alias lisnickmio {
  156. loads listador | $listador($mg(pnic1),$mg(pnic2),$nofile(%perfil) $+ nicks.txt,nick <item>,1)
  157. }
  158.  
  159. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ayudante ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  160.  
  161.  
  162.  
  163.  
  164. alias -l REDIMDIAG {
  165. if (!$mouse.key & 1) { .timerREDIMDIAG off | REDIM. $+ $active fin | window $active @guimgen | return }
  166. var %w = $calc($mouse.mx - $window($active).x) , %h = $calc($mouse.my - $window($active).y) , %a = % [ $+ [ $remove($active,@) $+ [ .skla ] ] ]
  167. if (%w < $gettok(%a,1,32)) { %w = $gettok(%a,1,32) } | if (%h < $gettok(%a,2,32)) { %h = $gettok(%a,2,32) }
  168. if (%w > $window(-3).w) { %w = $window(-3).w } | if (%h > $window(-3).h) { %h = $window(-3).h }
  169. window $active $window($active).x $window($active).y %w %h | REDIM. $+ $active
  170. }
  171.  
  172. alias SMENU {
  173. .timerSMENU off | %sbm.alias = $$1 | %sbm.op = $3- | %sbm.ptn = $active | %sbm.ee = 99
  174. window -c @submenu | window -pkhB +bd @submenu $calc($mouse.mx - 2) $calc($mouse.my - 0) $$2 $calc($numtok($3-,22) * 16 + 4) @submenu
  175. if (%combo.pos != $null) { window @submenu %combo.pos | unset %combo.pos }
  176. if ($calc($window(@submenu).y + $window(@submenu).h) > $window(-3).h) { window @submenu $window(@submenu).x $calc($window(-3).h - $window(@submenu).h - 8) }
  177. smenudibu 0 | window -a @submenu
  178. .timerSMENU -om 0 100 SMENUTIM
  179. }
  180.  
  181. alias SMENUDIBU {
  182. if %sbm.ee == %sbm.e { return }
  183. var %sbm.n = 0 | var %sbm.co = $calc($window(@submenu).w - 2) | var %sbm.nu = $numtok(%sbm.op,22)
  184. var %r = %skinr | %skinr = 0
  185. cua @submenu 0 0 $calc($window(@submenu).w - 1) $calc($window(@submenu).h - 1) $gettok(%gui.cc2,10,44) $gettok(%gui.cc2,11,44) $gettok(%gui.cc2,9,44)
  186. %skinr = %r
  187. :L1
  188. var %li = $gettok(%sbm.op,$calc(%sbm.n + 1),22)
  189. if (%li == -) { cua @submenu 1 $calc(%sbm.n * 16 + 8) $calc(%sbm.co - 1) 1 $gettok(%gui.cc2,11,44) $gettok(%gui.cc2,10,44) $gettok(%gui.cc2,9,44) | goto L2 }
  190. if ($calc(%sbm.n + 1) != $$1) { drawtext -rcn @submenu $gettok(%gui.cc2,15,44) Verdana 9 8 $calc(%sbm.n * 16 + 3) 333 33 %li }
  191. else { cua @submenu 1 $calc(%sbm.n * 16 + 2) $calc(%sbm.co - 1) 15 $gettok(%gui.cc2,13,44) $gettok(%gui.cc2,14,44) $gettok(%gui.cc2,12,44) | drawtext -rcn @submenu $gettok(%gui.cc2,16,44) Verdana 9 8 $calc(%sbm.n * 16 + 3) 333 33 %li }
  192. :L2
  193. inc %sbm.n 1 | if (%sbm.n < %sbm.nu) goto L1
  194. drawline @submenu
  195. set %sbm.ee %sbm.e
  196. }
  197.  
  198. alias SMENUTIM {
  199. if ($active != @submenu) || ($window(%sbm.ptn).state != normal) { window -c @submenu | unset %sbm.* | .timerSMENU off }
  200. }
  201.  
  202. menu @submenu {
  203. mouse {
  204. set %sbm.e $int($calc($mouse.y / 16 + 1))
  205. smenudibu %sbm.e
  206. }
  207. sclick { %sbm.click = on }
  208. uclick { if %sbm.click == on { window -c @submenu | .timerSMENU off | if ($gettok(%sbm.op,%sbm.e,22)) && $gettok(%sbm.op,%sbm.e,22) != - { $replace(%sbm.alias,_,$chr(32)) %sbm.e } | unset %sbm.* } }
  209. }
  210.  
  211. alias Kombo {
  212. %combo.vr = $4 | %edig.v = $active | %combo.t = $5- | set -u3 %combo.pos $1 $2
  213. smenu kombobongo $3 $replace($5-,,)
  214. }
  215.  
  216. alias kombobongo {
  217. set % $+ [ %combo.vr ] $gettok(%combo.t,$1,22)
  218. if ($window(%edig.v).state == normal) { guidibcb %edig.v % [ $+ [ $remove(%edig.v,@) ] $+ .cb ] | drawline %edig.v }
  219. var %onedit = oncombo. $+ $active | if $isalias(%onedit) { %onedit %combo.vr }
  220. unset %combo.* %edig.*
  221. }
  222.  
  223. menu @barra {
  224. uclick: {
  225. clickicobarra $mouse.x $mouse.y uclick
  226. }
  227.  
  228. sclick: {
  229. clickicobarra $mouse.x $mouse.y sclick
  230. }
  231. }
  232.  
  233. on 1:active:*: {
  234. if (%barracid != $window(@barra).cid) { .timer -mo 1 20 bar -cl } | %barracid = $window(@barra).cid
  235. if ($group(#paner) == on) { paner | .timerPANCIERRA -mo 1 50 panercierra }
  236. }
  237.  
  238. #sidebar on
  239. alias SBARRA {
  240. unset %sba.*
  241.  
  242. if $1 == ini { %sbarra = 160 sba.notify 9999 }
  243.  
  244. var %a = $calc($window(-3).h - $window(@barra).h)
  245. if (redib isin $1-) window @sBa 0 $window(@barra).h $gettok(%sbarra,1,32) $calc(%a - 2)
  246. else { window -c @sba | window -pBhwzi +d @sBa 0 $window(@barra).h $gettok(%sbarra,1,32) $calc(%a - 2) @sbarra arial 12 }
  247. if (%skintile) && (%skinbtex == on) { drawpic $gettok(%skintile,1,32) $+ n @sba 0 0 $window(@sba).w $window(@sba).h " $+ $mircdirskin\ $+ %skin $+ \ $+ $gettok(%skintile,2-99,32) $+ " }
  248. else drawrect -frn @sBa $gettok(%gui.cc,1,44) 1 0 0 $window(@sba).w $window(@sba).h
  249. drawrect -frn @sBa 2631720 1 $calc($window(@sba).w - 1) 0 1 $window(@sba).h
  250.  
  251. var %y = 16 , %i = 2
  252. :L1
  253. var %al = $gettok(%sbarra,$calc(%i + 1),32)
  254. if (%al != $null) {
  255. inc %y 12
  256. if ($calc(%y + %al) > $window(@sba).h) { %al = $calc($window(@sba).h - %y + 6) }
  257. $gettok(%sbarra,%i,32) %y %al $1
  258. inc %y %al | inc %i 2 | goto L1
  259. }
  260.  
  261. guidib @sba
  262.  
  263. if redib !isin $1- {
  264. window -a @sBa
  265. window -a "Status Window"
  266. }
  267. }
  268.  
  269.  
  270. alias SBA.SUB {
  271. goto $1
  272. :MUEVE
  273. if ($2 == inicia) { .timerSBA.MUEVE -om 0 30 sba.sub mueve | window -pBwzh +d @eje | if ($abs($calc($window(@sba).w - $window(Status Window).x)) < 8) { %sbat.ps = on } | %tikññ = $ticks | %tiknññ = 0 | %sbat.tik = 0 | return }
  274. if (!$mouse.key & 1) {
  275. unset %tikññ %tiknññ
  276. .timerSBA.MUEVE off | window -c @eje | sbarra redib
  277. if (%sbat.ps == on) { var %w = Status Window | writeini mirc.ini Windows Status $window(%w).x $+ , $+ $window(%w).w $+ , $+ $window(%w).y $+ , $+ $window(%w).h $+ ,0,1,0 }
  278. unset %sbat.* | return
  279. }
  280. var %tik = $ticks , %mx = $mouse.mx | if %mx < 125 { %mx = 125 }
  281. window -a @eje %mx $window(@barra).h 1 $window(@sba).h
  282. %sbarra = %mx $gettok(%sbarra,2-,32)
  283. if (%sbat.tik == 0) sbarra redib | if ($calc($ticks - %tik) > 500) { %sbat.tik = 1 }
  284. inc %tiknññ
  285. if (%sbat.ps == on) { scon -a window "Status Window" $window(@sba).w $window(Status Window).y }
  286. return
  287.  
  288. :MUEVEH
  289. if ($2 == inicia) { if $3 == 2 return | %sbat.i = $3 | %sbat.d = $mouse.my | %sbat.cop = %sbarra | %sbat.tik = 0 | .timerSBA.MUEVE -om 0 30 sba.sub mueveh | window -pBwzh +d @eje | return }
  290. if (!$mouse.key & 1) { .timerSBA.MUEVE off | window -c @eje | sbarra redib | unset %sbat.* | return }
  291.  
  292. var %tik = $ticks , %my = $mouse.my
  293. if $calc(%my - $window(@sba).y) < 1 { %my = $window(@sba).y }
  294. if $calc(%my + $window(@sba).y) > $calc($window(@sba).h + $window(@sba).y) { %my = $calc($window(@sba).h - $window(@sba).y) }
  295.  
  296. window -a @eje $window(@sba).x %my $window(@sba).w 1
  297. var %des = $calc(%sbat.d - %my) , %sb = %sbarra
  298. inc %sbat.i
  299. var %a = $gettok(%sbat.cop,%sbat.i,32) | %a = $calc(%a + %des) | %sbarra = $puttok(%sbarra,%a,%sbat.i,32)
  300. dec %sbat.i 2
  301. %a = $gettok(%sbat.cop,%sbat.i,32) | %a = $calc(%a - %des) | %sbarra = $puttok(%sbarra,%a,%sbat.i,32)
  302. inc %sbat.i
  303. var %i = 3 | :L1 | %a = $gettok(%sbarra,%i,32) | if (%a != $null) { if (%a < 6) { %sbarra = %sb } | inc %i 2 | goto L1 }
  304. if (%sbat.tik == 0) sbarra redib | if ($calc($ticks - %tik) > 500) { %sbat.tik = 1 }
  305. return
  306.  
  307. :AJUSTAW
  308. var %i = $window(*,0) | while (%i > 0) {
  309. var %w = $window(*,%i)
  310. if ($window(%w).x < $gettok(%sbarra,1,32)) {
  311. if (%w == Status Window) {
  312. window $replace(%w,Status Window,"Status Window") $gettok(%sbarra,2,32) $window(%w).y | writeini mirc.ini Windows Status $window(%w).x $+ , $+ $window(%w).w $+ , $+ $window(%w).y $+ , $+ $window(%w).h $+ ,0,1,0
  313. }
  314. }
  315. dec %i
  316. }
  317. if $2 == pegastatus { var %w = Status Window | scon -a window $replace(%w,Status Window,"Status Window") $gettok(%sbarra,1,32) $window(%w).y | writeini mirc.ini Windows Status $window(%w).x $+ , $+ $window(%w).w $+ , $+ $window(%w).y $+ , $+ $window(%w).h $+ ,0,1,0 }
  318. return
  319.  
  320. :POSY
  321. var %y = 16 , %i = 2
  322. :P1
  323. var %al = $gettok(%sbarra,$calc(%i + 1),32)
  324. if (%al) {
  325. inc %y 12
  326. if ($calc(%y + %al) > $window(@sba).h) { %al = $calc($window(@sba).h - %y - 4 + 10) }
  327. if ($gettok(%sbarra,%i,32) == $2) { return %y %al }
  328. inc %y %al | inc %i 2 | goto P1
  329. }
  330. return
  331. }
  332.  
  333. menu @SBARRA {
  334. uclick: if (%guidrop) guidrop | .signal SBACLICK Uclick | unset %tmp.vel
  335. mouse: {
  336. if ($mouse.key & 1) {
  337. }
  338. }
  339. dclick: {
  340. var %ractive = $remove($active,@)
  341. var %n = 2 | :LLdi
  342. var %i = $remove($gettok(%sbarra,%n,32),sba.) | if (%i) {
  343. var %b = [ %ractive $+ [ .ls1. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 2 %b }
  344. var %b = [ %ractive $+ [ .ls2. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 2 %b }
  345. inc %n 2 | goto LLdi
  346. }
  347. }
  348. sclick: {
  349. var %active = $active , %ractive = $remove($active,@) | unset %guidrop
  350. guipulsaop $mouse.x $mouse.y % [ $+ [ %ractive $+ .op ] ]
  351.  
  352. guipulsatx $mouse.x $mouse.y % [ $+ [ %ractive $+ .tx ] ]
  353. if (%pulsado != $null) guidibtx %active % [ $+ [ %ractive $+ .tx ] ]
  354.  
  355. guipulsacb $mouse.x $mouse.y % [ $+ [ %ractive $+ .cb ] ]
  356. guipulsabt $mouse.x $mouse.y % [ $+ [ %ractive $+ .bt ] ]
  357.  
  358. var %n = 2 | :LLi
  359. var %i = $remove($gettok(%sbarra,%n,32),sba.) | if (%i) {
  360. var %b = [ %ractive $+ [ .ls1. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 1 %b }
  361. var %b = [ %ractive $+ [ .ls2. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gguilista 1 %b }
  362. inc %n 2 | goto LLi
  363. }
  364.  
  365. var %n = 2 | :LPe
  366. var %i = $remove($gettok(%sbarra,%n,32),sba.) | if (%i) {
  367. var %b = [ %ractive $+ [ .pñ1. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gpestana %b }
  368. var %b = [ %ractive $+ [ .pñ2. $+ [ %i ] ] ] | if (% [ $+ [ %b ] ]) { gpestana %b }
  369. inc %n 2 | goto LPe
  370. }
  371.  
  372. if ($abs($calc($mouse.mx - $gettok(%sbarra,1,32))) < 10) { sba.sub mueve inicia | return }
  373.  
  374. var %y = 16 , %i = 2 , %my = $mouse.y | :L2
  375. var %al = $gettok(%sbarra,$calc(%i + 1),32)
  376. if (%al != $null) {
  377. if ($abs($calc(%my - %y)) < 4) { sba.sub mueveh inicia %i }
  378. inc %y 12 | inc %y %al | inc %i 2 | goto L2
  379. }
  380. .signal SBACLICK sclick
  381. }
  382. $sbarramenus
  383. }
  384.  
  385. alias -l sbarramenus {
  386. .disable #sba.*
  387. var %y = 16 , %i = 2
  388. :L1
  389. var %yy = $gettok(%sbarra,$calc(%i + 1),32) | if (!%yy) return
  390. if ($mouse.y > %y) && ($mouse.y < $calc(%yy + %y)) {
  391. .enable $chr(35) $+ $gettok(%sbarra,%i,32)
  392. if ($isalias($gettok(%sbarra,%i,32) $+ .menu2)) { $gettok(%sbarra,%i,32) $+ .menu2 }
  393. return
  394. }
  395. else { inc %i 2 | inc %y %yy | inc %y 12 | goto L1 }
  396. }
  397. alias onedit.@sba .signal SBAEDIT $1-
  398.  
  399. alias SBATIT {
  400. var %a = $width($2-,verdana,9,0)
  401. drawline -nr @sba $gettok(%gui.cc,16,44) 1 0 $calc($1 + 2) 8 $calc($1 + 2) 8 $calc($1 - 8) $calc(%a + 12) $calc($1 - 8) $calc(%a + 26) $1 $calc($gettok(%sbarra,1,32) - 1) $1
  402. drawline -nr @sba $gettok(%gui.cc,17,44) 1 0 $calc($1 + 1) 7 $calc($1 + 1) 7 $calc($1 - 9) $calc(%a + 12) $calc($1 - 9) $calc(%a + 26) $calc($1 - 1) $calc($gettok(%sbarra,1,32) - 1) $calc($1 - 1)
  403. ;drawtext -nr @sba $gettok(%gui.cc2,18,44) Verdana 9 13 $calc($1 - 7) $2-
  404. ;drawtext -nr @sba $gettok(%gui.cc2,17,44) Verdana 9 12 $calc($1 - 8) $2-
  405. }
  406.  
  407. #sidebar end
  408.  
  409.  
  410. alias LARBOL {
  411. goto $prop
  412. :ANA
  413. if ($gettok($2-,2,8) == i) { var %g = $fline($1,$gettok($2,1,8) $+ g***,1) | if ($gettok($line($1,%g),6,8) == 2) return }
  414. var %a = $fline($1,$gettok($2,1-3,8) $+ ***,1)
  415. if (%a == $null) { aline $1 $2 } | else { rline $1 %a $2 }
  416. return
  417. :DEL
  418. var %a = $fline($1,$gettok($2,1-3,8) $+ ***,1)
  419. if (%a) { dline $1 %a }
  420. return
  421. :DELG
  422. var %i = $line($1,0) | :L1 | if %i == 0 return | var %a = $line($1,%i)
  423. if $gettok(%a,1,8) == $2 {
  424. if ($3 != g) && ($gettok(%a,2,8) != g) || ($3 == g) { dline $1 %i }
  425. }
  426. dec %i | goto L1
  427. }
  428.  
  429. alias PANERini {
  430. if $1 == off {
  431. .timerPANER -coi 0 1 PANER2 | .disable #paner | unset %paner* | var %pñ = $window(@paner-*,0) | if %pñ == 0 return
  432. :L1 | window -c $window(@paner-*,%pñ) | dec %pñ 1 | if (%pñ > 0) goto L1 | return
  433. }
  434. .enable #paner | .timerPANER -cmoi 0 300 PANER
  435. }
  436.  
  437. #paner on
  438. alias PANER {
  439. if ($mouse.win == @barra) { bartoltip 3 }
  440. if (%maxi.win == on) { WINGEST | goto L1 }
  441. var %mño1 = $mouse.key , %mño2 = $timer(paner).mmt
  442. if (%mño1 == 1) && ($left($mouse.win,1) != @) && (%mño2 == $false) { .timerPANER -hi 0 1 PANER }
  443. if (%mño1 == 0) && (%mño2 != $false) { .timerPANER -cmoi 0 300 PANER }
  444. :L1
  445. if $window($active).state == normal {
  446. var %panerw = $active
  447. if ($left($active,1) == $chr(35)) { panerdib $active c | return }
  448. if ($active == $query($active)) { panerdib $active p | return }
  449. if ($remove($active,=) == $chat($remove($active,=))) { panerdib $active p | return }
  450. }
  451. %paner.ult = )&(
  452. }
  453.  
  454. alias PANERdib {
  455. var %pñ = $replace($1,$chr(44),$chr(32)) | var %pññ = @paner- $+ $window($1).cid $+ - $+ $1
  456. if ($window(%pñ).w != $window(%pññ).w) goto L1
  457. if $window(%pññ).state == normal {
  458. if ($window(%pñ).x != $window(%pññ).x) || ($calc($window(%pñ).y + $window(%pñ).h) != $window(%pññ).y) window %pññ $window(%pñ).x $calc($window(%pñ).y + $window(%pñ).h)
  459. if (%pñ $+ - $+ $window(%pñ).cid != %paner.ult) { window -a %pññ | window -a %pñ }
  460. %paner.ult = %pñ $+ - $+ $window(%pñ).cid
  461. return
  462. }
  463. :L1
  464. if $window(%pññ).state == $null { window -phkB +bd %pññ }
  465. window -pkB +bd %pññ $window(%pñ).x $calc($window(%pñ).y + $window(%pñ).h) $calc($window(%pñ).w - 0) 14 @paner
  466. if $$2 == c { var %c = %pcpanel.c $+  $+ %pcpanel.p } | else { var %c = %pcpanel.p }
  467. drawrect -frn %pññ $gettok(%gui.cc,1,44) 1 0 0 $window(%pñ).w 14
  468. var %i = 1 , %x = 6 , %c1 = $gettok(%gui.cc,8,44) , %c2 = $gettok(%gui.cc,16,44) , %c3 = $gettok(%gui.cc,17,44)
  469. :L2
  470. var %a = $gettok(%c,%i,22)
  471. if (%a) {
  472. var %an = $width(%a,verdana,9,0)
  473. drawtext -rn %pññ %c1 verdana 9 %x 0 %a
  474. drawline -rn %pññ %c2 1 $calc(%x + %an + 2) 0 $calc(%x + %an + 9) 14
  475. drawline -rn %pññ %c3 1 $calc(%x + %an + 3) 0 $calc(%x + %an + 10) 14
  476. inc %i 2 | inc %x %an | inc %x 10 | goto L2
  477. }
  478. if $window(%pññ).state == hidden { window -a %pññ | window -a %pñ }
  479. }
  480.  
  481. menu @paner {
  482. uclick {
  483. var %pñ = $remove($active,@paner- $+ $cid $+ -) | window -a %pñ
  484. var %mx = $mouse.x , %i = 1 , %x = 6 , %nick = $remove(%pñ,=) , %c = %pcpanel.p
  485. if ($chr(35) isin %pñ) { %c = %pcpanel.c $+  $+ %c | var %nick = $sline(%pñ,1) , %canal = %pñ }
  486. :L1
  487. var %a = $gettok(%c,%i,22)
  488. if (%a) {
  489. var %an = $width(%a,verdana,9,0)
  490. if $inrect(%mx,5,%x,0,$calc(%an + 4),14) {
  491. if (cbots isin $gettok(%c,$calc(%i + 1),22)) && ($chr(35) !isin $active) { cbots 1 - $remove($active,=) }
  492. else $replace($gettok(%c,$calc(%i + 1),22),&1,%nick,&2,%canal,&3,$active)
  493. return
  494. }
  495. inc %i 2 | inc %x %an | inc %x 10 | goto L1
  496. }
  497. return
  498. }
  499. }
  500.  
  501. alias panerOP {
  502. if $2 == $me { if ($me !isop $1) mcs op $1 $me }
  503. else {
  504. if ($me isop $1) { if $2 isop $1 mode $1 -o $2 | else mode $1 +o $2 }
  505. if ($me !isop $1) { if $2 isop $1 mcs deop $1- | else mcs op $1- }
  506. }
  507. }
  508.  
  509. alias PANERCIERRA {
  510. var %pñ = $window(@paner-*,0) | if %pñ == 0 return
  511. :L1
  512. var %pññ = $window(@paner-*,%pñ)
  513. var %sc = $gettok(%pññ,2,45)
  514. if ($scid(%sc) == $null) { window -c %pññ }
  515. else { scid $gettok(%pññ,2,45) | if ($window($remove(%pññ,@paner- $+ %sc $+ -)).state != normal) { window -c %pññ | return } }
  516. dec %pñ 1 | if (%pñ > 0) goto L1
  517. }
  518. #paner end
  519.  
  520.  
  521. alias PANER2 {
  522. if ($mouse.win == @barra) { bartoltip 2 }
  523. if (%maxi.win == on) { WINGEST }
  524. }
  525.  
  526.  
  527. alias WINGEST {
  528. if ($window($active).type isin channel query chat status) || (@jab> isin $active) {
  529. if ($window($active).state == maximized) window -r $active
  530. var %w = $calc($window(-3).w - $window(@sba).w - 2) , %h = $calc($window(-3).h - $window(@barra).h - 2) | if ($group(#paner) == on) && ($window($active).type isin chat query channel) { dec %h 14 }
  531. if ($window($active).x $window($active).y $window($active).w $window($active).h != $window(@sba).w $window(@barra).h %w %h) {
  532. unset %noparpa | window $replace($active,Status Window,"Status Window") $window(@sba).w $window(@barra).h %w %h
  533. }
  534. }
  535. }
  536.  
  537. ctcp 1:PING: echo $iif(%m.c == on,-atq,-stq) $tma(ctcp,$nick,$address,$1,$2-) | if ($2 isnum) && (%ctcp.cloak != on) { .ctcpreply $nick $nexe($1-2) } | meflod | sss ctcp | halt
  538. ctcp 1:VERSION: echo $iif(%m.c == on,-atq,-stq) $tma(ctcp,$nick,$address,$1,$2-) | if (%ctcp.cloak != on) && (%versionreply == $null) { .timerVREP 1 2 .ctcpreply $nick VERSION IRcap %ircapv configurado para Netchat.cl - http://www.netchat.cl } | meflod | meflod | sss ctcp | halt
  539. ctcp 1:TIME: echo $iif(%m.c == on,-atq,-stq) $tma(ctcp,$nick,$address,$1,$2-) | if (%ctcp.cloak != on) .ctcpreply $nick time Son las  $time  del $date  | meflod | sss ctcp | halt
  540.  
  541. ctcp 1:DCC: {
  542. dosno nicknuke
  543. echo -stq $tma(dcc,$nick,$address,$1-)
  544. if ( %pflood.d == on ) {
  545. inc %ultchat | .timerDCCPROT 1 20 unset %ultchat
  546. if (%ultchat >= 6) {
  547. ignore -tdu60 $wildsite | echo -stqe $tma(flood,$nick,$address,DCC FLOOD)
  548. if (%ultchat >= 8) { echo -stq $tma(flood,$nick,$address,DCC FLOOD NET) | ignore -tdu30 *!*@* | echo -s $mg(dccflod) }
  549. .timerWHOIS off
  550. alarma | halt
  551. }
  552. if $len($nopath($filename)) > 225 { echo -stq $tma(flood,$nick,$address,DCC Exploit (mIRC 6.12)) | alarma | halt }
  553. }
  554. if (%priv.no == on) && ($ulevel < 10) { .timerNOPRIV 1 3 qc notice $nick $remp(%raznopriv) | .ignore -ptu15 $wildsite | halt }
  555. if (%priv.w == on) .timerWHOIS 1 3 whois $nick
  556. if ($2 == SEND) {
  557. sss send
  558. if (%dcc.osi == on) && ($tipoext($3-,%dcc.si)) { if ((3- isin %dcc.autoe || 4- isin %dcc.autoe) && $notify($nick)) || ((2- isin %dcc.autoe || 4- isin %dcc.autoe) && $ulevel == 10) || (1- isin %dcc.autoe) { .sreq +m auto | .timer -o 1 1 .sreq -m ask | .timerWHOIS off | return } }
  559. if (%dcc.ono == on) { if ($tipoext($3-,%dcc.no)) { .timerDCCNO 1 3 qc notice $nick $mg(dccno) | echo -se $logo $mg(dccno2,$nick) | halt } }
  560. if (%tmp.autocoge isin $1-) { .sreq +m auto | .timer -o 1 1 .sreq -m ask | return }
  561. if ($appstate == tray) { echo -st $logo $mg(dtry) | halt }
  562. }
  563. if ($2 == CHAT) {
  564. sss priv
  565. dosno limitaprivados
  566. if ((3- isin %dcc.auto || 4- isin %dcc.auto) && $notify($nick)) || ((2- isin %dcc.auto || 4- isin %dcc.auto) && $ulevel == 10) { .creq auto | .timer -o 1 1 .creq ask | .timer 1 3 focus =$nick $cid }
  567. else if ($appstate == tray) { echo -st $logo $mg(dtry) | halt }
  568. if ($appstate != tray) .timerDCFLA -m 1 500 flash -r9 : $nick DCC
  569. }
  570. }
  571.  
  572. ctcp 1:*: {
  573. if ($findtok(sound mp3,$1,32)) && ($group(#LlegaSonido) == on) goto L2
  574. if ($ctcp. [ $+ [ $1 $+ .noecho ] ]) goto L2
  575. var %e = echo $iif(%m.c == on,-atq,-stq)
  576. if $left($target,1) == $chr(35) { %e = echo -tq $target }
  577. if $target == $me && $chat($nick) != $null { %e = echo -tq =$nick }
  578. if $target == $me && $query($nick) != $null { %e = echo -tq $nick }
  579. %e $tma(ctcp,$nick,$address,$1,$2-)
  580. :L2
  581. if (!$findtok(sound slots mp3,$1,32)) && (!$ctcp. [ $+ [ $1 $+ .nosonido ] ]) sss ctcp
  582. if (!$findtok(%pflood.no,$1,32)) { meflod } | else { meflod 10 no }
  583. halt
  584. }
  585.  
  586.  
  587. on 1:ctcpreply:PING*MIDOLAG: {
  588. if ($nick == $me) {
  589. var %lag2 = $round($calc(($ticks - $2) / 1000),1)
  590. set %lag. [ $+ [ $cid ] ] $gettok(%lag2 %lag. [ $+ [ $cid ] ],1-20,32)
  591. var %a = $sba.sub(posy,sba.lag) | if (%a) { sba.lag %a - $cid | drawline @sba }
  592. if ($cid == $window(@barra).cid) && (%bar.lag == on) { bar -l }
  593. halt
  594. }
  595. }
  596.  
  597. on 1:ctcpreply:*: {
  598. if ($1 == PING) && ($2 isnum) { ecot $iif(%m.c == on,-at,-ste) $logo <c4>[<c3> $nick <c2> $+ LAG $+ <c4>] $replace($duration($calc($ctime - $2)),sec,$chr(32) segundo,secs,$chr(32) segundos) | meflod | halt }
  599. echo $iif(%m.c == on,-atq,-stq) $tma(ctcpreply,$nick,$address,$target,$1,$2-) | meflod | halt
  600. }
  601.  
  602. on 1:DCCSERVER:chat: dosno nicknuke | echo -ste $logo $mg(dccserver,$nick,$address) | if ($server) .timerWHOIS 1 3 whois $nick | sss priv
  603. on 1:DCCSERVER:send: dosno nicknuke | echo -ste $logo $mg(dccserver2,$nick,$address,$nopath($filename)) | if ($server) .timerWHOIS 1 3 whois $nick | sss send
  604.  
  605. on ^1:open:?: {
  606. if $nick == $me && $1- == æD halt
  607. inc %tmp.floodpriv | .timerULTQUERY 1 20 unset %tmp.floodpriv
  608. if (%tmp.floodpriv > 8) && (%pflood.q == on) { .ignore -u60 $wildsite | .ignore -pu60 *!*@* | echo -st $tma(flood,$nick,$address,$mg(qeryflod)) | .timerNOPRIV 1 3 qc notice $nick $mg(qeryflod2,%tmp.floodpriv) | alarma | .timerWHOIS off | halt }
  609. dosno nicknuke
  610. if $NOSPAM($1-) && %spam.usa == on {
  611. echo -ste $logo $mg(nospamp) ( $nick > $nexe($left($1-,10)) ..)
  612. teflod | teflod | if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (msg) : $1-
  613. if ($comchan($nick,1)) .timer 1 9 .signal -n flood NOTI $nick $site $ifmatch
  614. halt
  615. }
  616. if (%priv.no == on) && ($ulevel < 10) { .timerNOPRIV 1 3 qc msg $nick $remp(%raznopriv) | .ignore -ptu15 $wildsite | halt }
  617. dosno limitaprivados
  618. if (%away.con == on) { if ($ulevel != 69) && ($away) && ($nick != $me) { away -contesta $nick $site $1- | teflod | teflod | teflod | halt } }
  619. }
  620.  
  621. on 1:open:?: {
  622. echo -st $tma(query,$nick,$address)
  623. if ($appstate != tray) flash -r9 : $nick QUERY
  624. if ($ulevel != 69) .timer 1 3 focus $nick $cid
  625. .timerRIIING 1 1 sss priv
  626. if (%priv.bu == on) { if ($exists(" $+ $logdir $+ $mknickfn($nick) $+ .log")) loadbuf 20 -pc14 $nick " $+ $logdir $+ $mknickfn($nick) $+ .log" }
  627. if (%priv.w == on) .timerWHOIS 1 3 whois $nick
  628. }
  629.  
  630. on 1:open:=: {
  631. if (%priv.bu == on) loadbuf 20 -pc14 =$nick " $+ $logdir $+ $mknickfn($nick) $+ .log"
  632. if %dcc.query == on close -mic $nick | echo -st $logo $nick IP: $chat($nick).ip
  633. }
  634.  
  635.  
  636. on ^1:JOIN:#: {
  637. if $nick == $me {
  638. if $window($chan).x < $window(@sba).w window $chan $calc($gettok(%sbarra,1,32) + $rand(0,50)) $window($chan).y
  639. set -u30 %tmp.scc. [ $+ [ # $+ . $+ [ $cid ] ] ] on
  640. %ultcanal = $chan $gettok($remtok(%ultcanal,$chan,32),1-7,32)
  641. cline $gettok(%skinl,1,44) $chan $me
  642.  
  643. var %acc = usr\ $+ $remove(#,$chr(35)) $+ .cch
  644. set %cpo. $+ # $+ .dat $readini %acc i dat | if %cpo. [ $+ [ # $+ .dat ] ] == $null { unset %cpo. [ $+ [ # $+ .dat ] ] }
  645. .timer 1 1 _ca entrando $chan
  646. .timer 1 3 remini usr\infrac.tmp #
  647. tma.canal canal0 #
  648. sss join
  649. set -u15 %tmp.noname on
  650. if (%afund == on) { if ($dapass(canal. $+ $nnet,$chan) != $null) { mcs * identify $chan $ifmatch } }
  651. halt
  652. }
  653.  
  654. if ($kprot($chan,2) == 1) && ($ipef($nick) != falsa) { if $ial($address($nick,2),0) > 1 { .timerEHCLONES 1 1 echo -tq $chan $tma(clones,$gettok($address($nick,2),2,64),$clones($nick),$chan) | .timerCLONES 1 1 sss clon } }
  655. if ($kprot(#,4) == 1) { if $_ca(rnick,$site,$nick) != $null { var %ea = ( $+ $mg(entroantes) $+  $ifmatch $+ ) } }
  656. if ($kprot(#,35) != 1) echo -tq $chan $tma($iif(%tma.addr == on,join,join2),$nick,$address,$chan,%ea)
  657. if ($kprot(#,32) == 1) .timerWENTRAS 1 3 whois $nick
  658. if ($kprot(#,38) == 1) && ($me isop #) .timerAVOZ $+ # 1 3 qc mode # +v $nick
  659. _ca saluda $nick 33 saludo
  660. if $me isop # _ca ulist join
  661. halt
  662. }
  663.  
  664.  
  665. raw 324:*: {
  666. if (%tmp.scc. [ $+ [ $2 $+ . $+ [ $cid ] ] ] == on) {
  667. var %a = %tmp.tp. [ $+ [ $2 $+ . $+ [ $cid ] ] ] | unset %tmp.tp. [ $+ [ $2 $+ . $+ [ $cid ] ] ]
  668. unset %tmp.scc. [ $+ [ $2 $+ . $+ [ $cid ] ] ]
  669. $tma.canal(canal1,$2,$gettok(%a,1,32),$gettok(%a,2,32))
  670. _ca scan $2
  671. }
  672. }
  673.  
  674. on ^1:PART:#: {
  675. if $nick == $me { unset %cpo. [ $+ [ # $+ .* ] ] | return }
  676. if ($kprot(#,35) != 1) echo -tq $chan $tma($iif(%tma.addr == on,part,part2),$nick,$address,$chan,$1-)
  677. _ca saluda $nick 34 despide
  678. if ($kprot(#,4) == 1) { _ca rnickw $site $nick }
  679. if %takop == on .timer 1 1 TAKOP #
  680. halt
  681. }
  682. on ^1:QUIT: {
  683. var %spam.mquit = $1- | if %spam.quit == on { nospam $1- | if $result != $null { %spam.mquit = noSpam } }
  684. var %a = $tma($iif(%tma.addr == on,quit,quit2),$nick,$address,%spam.mquit) | var %i = $comchan($nick,0) | while (%i > 0) { if ($kprot($comchan($nick,%i),35) != 1) { echo -tqi100 $comchan($nick,%i) $iif(($window($comchan($nick,%i)).stamp),$remove(%a,$strip($timestamp)),%a) } | dec %i }
  685. if $query($nick) == $nick echo -t $nick %a
  686. if ($kprot(#,4) == 1) { _ca rnickw $site $nick }
  687. if %takop == on .timer 1 1 TAKOP
  688. halt
  689. }
  690.  
  691. on ^1:NICK: {
  692. if $nick == $me {
  693. .timer 1 1 ja yo20
  694. if $window(@setup) { %setup.tmpnic = $newnick | refres }
  695. if (%tmp.nickgpass) .timer 1 1 _ca nickguardapass %tmp.nickgpass | unset %tmp.nickgpass
  696. }
  697. var %a = $tma(nick,$nick,$newnick,$address) | var %i = $comchan($newnick,0) | while (%i > 0) { if ($kprot($comchan($newnick,%i),35) != 1) echo -tq $comchan($newnick,%i) %a | dec %i } | if $nick == $me echo -stq $tma(nickme,$nick,$newnick,$address)
  698. halt
  699. }
  700.  
  701. on ^1:KICK:#: {
  702. if $knick == $me {
  703. echo -stq $mg(kick,$nick,#,$1-)
  704. alarma
  705. if (%pflood.bot == on) && ($nick != $me) { if ($nick != $gettok($netcon(4),1,64)) { var %b = $netcon(1) $+ .protchan | if $isalias(%b) { %b KICK } } }
  706. if (%reban == on) { set %reentra $chan | .timerREBAN 0 30 reentra | window -c @reentra | window -k @Reentra 1000 $window(@barra).h 225 62 arial 11 }
  707. }
  708. echo -tq # $tma(kick,#,$nick,$knick,$1-)
  709. if ($kprot(#,4) == 1) && ($knick != $me) { _ca rnickw $remove($address($knick,2),*!*@) $knick }
  710. if (%au.op == on) && ($me isop #) _ca ulist kick
  711. if $nick == $me sss kick
  712. halt
  713. }
  714.  
  715. on 1:DEOP:#: {
  716. if $opnick == $me {
  717. if ($nick != $me) {
  718. echo -setq $mg(deop,$nick,$chan) | .timerOPS -m 1 200 sss deop
  719. if (%pflood.bot == on) { if ($nick != $gettok($netcon(4),1,64)) && (%tmp.fkem != on) { var %b = $netcon(1) $+ .protchan | if $isalias(%b) { %b DEOP } | set -u6 %tmp.fkem on } }
  720. }
  721. }
  722. if (%au.op == on) && ($me isop #) _ca ulist deop
  723. }
  724.  
  725. on 1:OP:#: {
  726. if $opnick == $me {
  727. echo -setq $mg(op,$nick,$chan) | .timerOPS -m 1 200 sss op
  728. if (%tmp.quitaban. [ $+ [ # $+ . $+ [ $cid ] ] ] != $null) { mode # -b $ifmatch | unset %tmp.quitaban. [ $+ [ # $+ . $+ [ $cid ] ] ] }
  729. if (%tmp.kickban) { if (# == $gettok(%tmp.kickban,1,32)) && ($gettok(%tmp.kickban,2,32) ison #) _ca pckickban %tmp.kickban | unset %tmp.kickban | mode # -o $me }
  730. if %au.mop == on .timer 1 5 _ca ulist exe P #
  731. }
  732. }
  733.  
  734.  
  735. on 1:BAN:#: {
  736. if ($banmask iswm $address($me,5)) {
  737. echo -setq $logo $mg(ban,$nick,#,$banmask)
  738. alarma
  739. if (%pflood.ban == on) && ($nick != $me) {
  740. set %tmp.quitaban. [ $+ [ # $+ . $+ [ $cid ] ] ] $banmask
  741. if $me isop $chan { if %tmp.fkem != on { dopa $chan $nick | set -u6 %tmp.fkem on | mode $chan -b $banmask } }
  742. }
  743. if (%pflood.bot == on) && ($nick != $me) { if ($nick != $gettok($netcon(4),1,64)) && (%tmp.fkem != on) { var %b = $netcon(1) $+ .protchan | if $isalias(%b) { %b BAN } | set -u6 %tmp.fkem on } }
  744. }
  745. if $_ca(baneaos,$banmask,#) != $null { echo -t $chan $logo $mg(ban2) $+ : $ifmatch }
  746. }
  747.  
  748. on 1:UNBAN:#: if $_ca(baneaos,$banmask,#) != $null { echo -t $chan $logo $mg(dban2) $+ : $ifmatch }
  749.  
  750. on ^1:TOPIC:#: echo -tq # $tma(topic,#,$nick,$1-) | halt
  751. on ^1:RAWMODE:#: echo -tq # $tma(mode,#,$nick,$1,$2-) | halt
  752. on ^1:ACTION:*:*: if ($len($1-) > 50) { teflod $len($1-) } | if (%spam.sex == on) { if ($nick !isop $chan) { var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { halt | var %prh = 0 } | dec %prh } } } | var %t = $target | if %t == $me { %t = $nick } | echo -tqbf %t $tma(action,$nick,$1-) | halt
  753. on ^1:INVITE:#: var %a = -setq | if %m.ni == on { var %a = -aetq } | echo %a $logo $mg(invite,$nick,$chan) | meflod | .timerNOTISS 1 1 sss noti | halt
  754.  
  755. on ^1:NOTICE:*:*: {
  756. if $ulevel == 69 return
  757. teflod $len($1-)
  758. if %spam.usa == on {
  759. if $nospam($1-) != $null {
  760. if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (notice) : $1-
  761. .timerNOSALUDOS 1 8 echo -se $logo $mg(nospamn) ( $nick > $nexe($left($1-,10)) ..)
  762. if ($comchan($nick,1)) .timer 1 9 .signal -n flood NOTI $nick $site $ifmatch
  763. halt
  764. }
  765. }
  766. .timerNOTISS 1 1 sss noti
  767. var %m = $tma(notice,$nick,$address,$1-) | if $chr(35) isin $left($target,2) { %m = $tma(noticecanal,$nick,$address,$target,$1-) }
  768. if %m.ni == on { echo -atq %m | halt }
  769. if $chr(35) isin $left($target,2) { echo -tq $remove($target,@) %m | halt }
  770. if $target == $me && $chat($nick) != $null && $1 != DCC { echo -tq =$nick %m | halt }
  771. if $target == $me && $query($nick) != $null && $1 != DCC { echo -tq $nick %m | halt }
  772. echo -stq %m | halt
  773. }
  774.  
  775. on ^+20:USERMODE: if $nick == $me { echo -stqe $logo $mg(modo,$me,$1-,$usermode) | halt }
  776.  
  777. on ^1:NOTIFY: {
  778. var %t = $logo $mg(notify,$nick) $iif($notify($nick).note,<c4>( $+ $notify($nick).note $+ <c4>))
  779. if (%m.n == on) ecot -atq %t | else { ecot -stq %t | .timerNOTIFY 1 1 raya }
  780. if ($query($nick)) ecot -tq $nick %t
  781. var %w = $readini(%perfil,notifywav,$nick) | if (%w) { if ($exists(%w)) .timer -m 1 100 slocal %w }
  782. if $nick == %siguenick loadu g-siguenick $nick
  783. if ($notify($nick).whois) qc w $nick
  784. halt
  785. }
  786. on ^1:UNOTIFY: {
  787. var %t = $logo $mg(unotify,$nick)
  788. if (%m.n == on) echo -atq %t | else { echo -stq %t | .timerNOTIFY 1 1 raya }
  789. if ($query($nick)) && (!$comchan($nick,0)) echo -tq $nick %t
  790. if (%reloca == on) {
  791. var %rebu = $gettok($notify($nick).addr,2,64)
  792. if (%rebu) { if (.dal.net !isin %rebu) && ($ipef2(%rebu) != falsa) { set %nwho 1 | .enable #rewhowas | set %rquery $nick | who %rebu } }
  793. else { set %nwho 1 | if ($netcon(1) != croom.inb) whowas $nick 1 | else whowas $nick }
  794. }
  795. halt
  796. }
  797.  
  798.  
  799. on ^+69:OPEN:*: {
  800. identificanick $1-
  801. var %a
  802. if (*ltima hora * la red:* iswm $1-) {
  803. var %m = $strip($1-)
  804. var %a = $replace($gettok(%m,7,32),Ene,01,Feb,02,Mar,03,Abr,04,May,05,Jun,06,Jul,07,Ago,08,Sep,09,Oct,10,Nov,11,Dic,12) $gettok(%m,6,32)
  805. var %a = ( $+ $replace($duration($calc($ctime($date $time) - $ctime(%a)),2),wk,semana,day,día) $+ )
  806. }
  807. if ($window(@cbots)) cbotinfo  $+ $Nick $+ : $1- %a
  808. if %bot.prv != on { echo -stq $botecho($Nick) $1- %a | .timerBOTSEP 1 1 linesep | halt }
  809. }
  810. on ^+69:TEXT:*:*: identificanick $1-
  811. on ^+69:NOTICE:*:*: {
  812. identificanick $1-
  813. if ($window(@cbots)) cbotinfo  $+ $Nick $+ : $1-
  814. echo -stq $botecho($Nick) $1- | .timerBOTSEP 1 1 linesep | halt
  815. }
  816.  
  817. #dccque off
  818. on 1:TEXT:$(@ $+ $me $+ *):*: {
  819. teflod | teflod
  820. if ($1 == @ $+ $me $+ -que) { dccola -stat $nick | return }
  821. if ($1 == @ $+ $me $+ -remove) { dccola -bor $nick $2- | return }
  822. }
  823. #dccque end
  824.  
  825. #enviofichero on
  826. on 1:TEXT:$(! $+ $me *):*: if ($2-) { ecot -ste <c4>[ $+ $nick GET] $2- | teflod | teflod | teflod | teflod | dosno concon $2- | .signal envfichero $nick $2- }
  827. #enviofichero end
  828.  
  829. #cuac on
  830. on 1:TEXT:*:*: if ($me isin $strip($1-)) { cuac $1- | if ($away) && ($chan) && (%away.noti == on) { .timerRAWAY 1 3 qc notice $nick $mg(notiaw,$nexe($awaymsg)) } }
  831. on 1:ACTION:*:*: if ($me isin $strip($1-)) { cuac $1- }
  832. on 1:CHAT:*: if ($me isin $strip($1-)) { cuac $1- }
  833. #cuac end
  834. alias -l CUAC echo -set $tm.h $chan < $+ $nick $+ > $nexe($1-) | .timerCUAC 1 1 sss cuac | .signal -n cuac $iif($chan,$chan,$m(46)) $nick $nexe($1-)
  835.  
  836. on ^1:TEXT:*:#: {
  837. if ($len($1-) > 50) teflod $len($1-)
  838. if (%spam.sex == on) { if ($nick !isop $chan) { var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { halt } | dec %prh } } }
  839. if (%nick@ == on) { var %tma.p = %tma.n2 $+ $left($remove($nick($chan,$nick).pnick,$nick),1) }
  840. var %ni.ck = %tma.n1 $+ %tma.p $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  841. if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,$chan,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $chan %ni.ck $+  $1- }
  842. halt
  843. }
  844.  
  845. on ^1:TEXT:*:?:{
  846. if ($len($1-) > 50) teflod $len($1-)
  847. if (%spam.jix == on) {
  848. if ($ulevel < 7) {
  849. var %prh = $numtok(%spam.txt,22) | while (%prh > 0) { if ($gettok(%spam.txt,%prh,22) iswm $1-) { if ($nnet != $nnet($site)) { window -c $nick | ignore -pu30 $site | if %spam.log == on write " $+ $logdir $+ SPAM.log" $timestamp $nnet $Nick (msg) : $1- | echo -ste $logo $mg(nospamp) ( $nick > $nexe($left($1-,10)) ..) | halt } } | dec %prh }
  850. }
  851. }
  852. var %ni.ck = %tma.n1 $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  853. if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,$nick,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an $nick %ni.ck $+  $1- }
  854. halt
  855. }
  856.  
  857. on ^1:CHAT:*: {
  858. if (%pflood.d == on) && (%tmp.fsnoflod != on) { inc %dclok | .timerDC 1 10 unset %dclok | if (%dclok > 80) { unset %dclok | close -c $nick | echo -ste $tma(flood,$nick,$address,$mg(dccloq)) | halt } }
  859. if ($strip($1) == PONGdcc) && ( $2 isnum ) { msg =$nick 3Lag =12 $calc($ctime - $2) $mg(seg) | inc %dclok 3 }
  860. if ($strip($1) == PINGdcc) && ( $2 isnum ) { msg =$nick 3PONG0,0dcc $2 | inc %dclok 3 }
  861. if ($1- == [\]) && (%viserv == on) { inc %dclok 5 | ja liserv $nick }
  862.  
  863. if $gettok($1-,1,32) == ACTION { echo $colour(action) -tq =$nick $tma(action,$nick,$remove($gettok($1-,2-99,32),)) | halt }
  864. var %ni.ck = %tma.n1 $+ %tma.n3 $+ $nick $+ %tma.n4 , %ni.an = $calc($len($strip(%ni.ck)) * %tma.tab + 1)
  865. if ($isalias(tma.text)) { $tma.text(-tbfli $+ %ni.an,=$nick,$nick,%ni.ck,$1-) } | else { echo -tbfli $+ %ni.an =$nick %ni.ck $+  $1- }
  866. halt
  867. }
  868. on 1:SERV:*: if (%pflood.d == on) { inc %dclok 5 | .timerDC 1 10 unset %dclok | if (%dclok > 80) { unset %dclok | close -f $nick | echo -se $tma(flood,$nick,$address,$mg(dccloq)) | halt } }
  869.  
  870. #hablo on
  871. on *:input:#: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
  872. on *:input:?: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
  873. on *:input:=: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
  874. on *:input:!: if ($left($1,1) != /) { escribiendo $active $1- | halt } | else decoprot $1-
  875. #hablo end
  876. on *:input:*: if ($left($1,1) == /) decoprot $1-
  877. alias ESCRIBIENDO {
  878. if (!$2-) { return }
  879. %mi^frase = $2-
  880. if (!$ctrlenter) {
  881. mod^ncomp $2-
  882. mod^correc $2-
  883. mod^conv $2-
  884. mod^crip $2-
  885. ;;;;;;;;;;;;;;
  886. inc %contador^1970
  887. if (%contador^1970 !isnum 1-3) { %contador^1970 = 1 }
  888. if (%mi^frase == %repet^frase1970) { if (%numero^frase1970 == 1) { %numero^frase1970 = 2 } | else { if (%numero^frase1970 == 2) { %numero^frase1970 = 3 } | else { %numero^frase1970 = 1 } } }
  889. Else { %numero^frase1970 = 1 }
  890. %repet^frase1970 = %mi^frase
  891. if (%hassci.nume !isnum 33-127) { %hassci.nume = 46 | if ($dialog(santaprotec)) { did -o santaprotec 513 1 %hassci.nume } }
  892. if (%Pro.Ezspa == si) { if ((%numero^frase1970 == 2) && (%repeti.espa2 == si)) { %numero^frase1970 = 3 | %mi^frase = $replace(%mi^frase,$chr(32),$chr(%hassci.nume)) } | if ((%numero^frase1970 == 3) && (%repeti.espa3 == si)) { %mi^frase = $replace(%mi^frase,$chr(32),$chr(%hassci.nume)) } }
  893. if (%Pro.wweb == si) { if (%contador^1970 == 2) { %mi^frase = $replace(%mi^frase,www,www,http,http,http://www,http://www) } | if (%contador^1970 == 3) { %mi^frase = $replace(%mi^frase,www,www,http,http,http://www,http://www) } | if (%contador^1970 == 1) { %mi^frase = $replace(%mi^frase,www,www,http,http,http://www,http://www) } }
  894. ;;;;;;;;;;;;;;
  895. mod^ascii
  896. .signal -n MODOESCRITURA $2-
  897. }
  898. if (%frase^halt != on) {
  899. .msg $active %nick^comp %mi^frase | var %a = $mi^nick , %ni.an = $calc($len($strip(%a)) * %tma.tab + 1)
  900. if ($isalias(tma.say)) { $tma.say(%ni.an,$active,%a,%nick^comp,%mi^frase) }
  901. else { echo $color(own) -tli $+ %ni.an $active %a %nick^comp %mi^frase }
  902. }
  903. unset %mi^frase %nick^comp %frase^halt
  904. }
  905.  
  906. #mi^nick on
  907. alias MI^NICK {
  908. var %a | if (%nick@ == on) { if ($me isvoice $active) { %a = %tma.m2 $+ + } | if ($me isop $active) { %a = %tma.m2 $+ @ } } | return %tma.m1 $+ %a $+ %tma.m3 $+ $me $+ %tma.m4 $+ 
  909. }
  910. #mi^nick end
  911. alias MI^NICK return %tma.m4 $+ 
  912.  
  913. alias SAY { escribiendo $active $1- | haltdef }
  914.  
  915. #mod^ncomp on
  916. alias mod^ncomp {
  917. unset %nick^comp
  918. if ($1 ison $active ) {
  919. var %NCc = 1
  920. while ( $gettok($1-,%NCc,32) ison # && %NCc < 4 ) {
  921. var %auxiliarnick^comp = $gettok($1-,%NCc,32)
  922. if ($gettok(%mod^ncomp,3,8) != off) { %auxiliarnick^comp = $ [ $+ [ $replace($ifmatch,<t>,%auxiliarnick^comp) ] ] }
  923. %auxiliarnick^comp = $gettok(%mod^ncomp,1,8) $+ %auxiliarnick^comp $+  $+ $gettok(%mod^ncomp,2,8) $+ 
  924. var %auxiliarcomplete = $addtok(%auxiliarcomplete,%auxiliarnick^comp,32)
  925. %nick^comp = %auxiliarcomplete
  926. %mi^frase = $deltok(%mi^frase,1,32)
  927. inc %Ncc
  928. }
  929. }
  930. unset %auxiliarnick^comp
  931. unset %Ncc
  932. unset %auxiliarcomplete
  933. }
  934. #mod^ncomp end
  935. alias mod^ncomp return
  936.  
  937. #mod^correc on
  938. alias mod^correc {
  939. var %a = %mi^frase
  940. if (%corrector.may == on) { if (%nick^comp == $null) { %a = $upper($left(%a,1)) $+ $mid(%a,2,9999) } }
  941. var %n = 1 | :L1
  942. var %pa = $gettok(%a,%n,32) | if %pa == $null { %mi^frase = %a | return }
  943. if $hget(corrector,%pa) != $null { %a = $puttok(%a,$ifmatch,%n,32) $+ $chr(32) }
  944. if (%corrector.url == on) { if (www. isin %pa) || (http: isin %pa) { %a = $puttok(%a,12 $+ %pa $+ ,%n,32) } }
  945. inc %n | goto L1
  946. }
  947. #mod^correc end
  948. alias mod^correc return
  949.  
  950. #mod^conv on
  951. alias mod^conv {
  952. var %vab = $matchtok(%mi^frase,&,1,32)
  953. if %vab != $null {
  954. var %vabp = $findtok(%mi^frase,%vab,1,32) , %vabr = $uniconv(%vab)
  955. if (%vabr != $null) { %mi^frase = $reptok(%mi^frase,%vab,%vabr,1,32) }
  956. }
  957. }
  958. #mod^conv end
  959. alias mod^conv return
  960.  
  961. #mod^crip off
  962. alias mod^crip {
  963. if ($remove($active,=) isin %ncrip) {
  964. var %crpass = $readini %perfil CRIPT $remove($active,=)
  965. if (%crpass != $null) { echo $color(own) -t $active $mi^nick 4¬ %nick^comp %mi^frase | crip %crpass %nick^comp %mi^frase | %mi^frase = 4¬ $result | .msg $active %mi^frase | echo | %frase^halt = on }
  966. }
  967. }
  968. #mod^crip end
  969. alias mod^crip return
  970.  
  971. #mod^ascii on
  972. alias mod^ascii {
  973. %mi^frase = $replace(%mi^frase,$chr(44),$chr(30))
  974. if (%Pro.Adhor == si) { if (%contador^1970 == 2) { %mi^frase = %mi^frase $+  } | if (%contador^1970 == 3) { %mi^frase = %mi^frase $+  $+  } }
  975. if ($gettok(%mod^texto,1,8) != off) { %mi^frase = $ [ $+ [ $replace($ifmatch,<t>,%mi^frase) ] ] }
  976. if ($gettok(%mod^texto,2,8) != off) { %mi^frase = $ [ $+ [ $replace($ifmatch,<t>,%mi^frase) ] ] }
  977. if ($gettok(%mod^texto,6,8) != off) { %mi^frase = $ifmatch $+ %mi^frase
  978. var %mfrase33 = $ifmatch $+ hola
  979. if ($pos(%mfrase33,) != $null) { %mi^frase = %mi^frase $+  }
  980. }
  981. %mi^frase = $replace(%mi^frase,$chr(30),$chr(44))
  982. if ($gettok(%mod^texto,3,8) == on) { var %a =  $+ $gettok(%mod^texto,4,8) | if ($gettok(%mod^texto,5,8) != off) { %a = %a $+ , $+ $ifmatch } | %mi^frase = %a $+ $chr(32) $+ %mi^frase $+ $chr(32) $+ %a }
  983. if ($gettok(%mod^texto,7,8) == on) { %mi^frase = $gettok(%mod^texto,8,8) $+ %mi^frase $+  $+ $gettok(%mod^texto,9,8) }
  984. }
  985. #mod^ascii end
  986. alias mod^ascii return
  987.  
  988.  
  989.  
  990. on ^1:SNOTICE:*: {
  991. var %i = 1 | while ($gettok(%sfiltro,%i,44)) { if $ifmatch iswm $1- halt | inc %i }
  992. var %a = $remove($1-,*** Notice -- )
  993. if $window(@snotices) { echo @snotices $timestamp $iif($scon(0) > 1,$nnet :) %a } | else { echo -st $serverecho($nnet) %a | .timerSNOTI 1 1 raya }
  994. halt
  995. }
  996. on ^1:WALLOPS:*: {
  997. var %i = 1 | while ($gettok(%sfiltro,%i,44)) { if $ifmatch iswm $1- halt | inc %i }
  998. if $window(@snotices) { echo @snotices $timestamp $iif($scon(0) > 1,$nnet) %tma.n1 $+ $nick $+ %tma.n4 $+  $1- } | else echo -st $serverecho($nick) $1-
  999. halt
  1000. }
  1001.  
  1002. #whoix on
  1003. raw 301:*: {
  1004. if ($1 == $me) && (%noad != 1) tm.v 301 $1- | halt
  1005. }
  1006. raw 311:*: {
  1007. %_w = ecot -st | if %m.w == on { %_w = ecot -at }
  1008. set %uw $2 | set %pais $sacapais($4)
  1009. var %tuserr = $2 $+ ! $+ $3 $+ @ $+ $4 | var %tuser = $level(%tuserr) | unset %tm.wuser
  1010. if (69 isin %tuser) { %tm.wuser = BOT $ulist(%tuserr).info }
  1011. if (68 isin %tuser) { %tm.wuser = Eggdrop }
  1012. if (5 isin %tuser) { %tm.wuser = AutoKICK- $+ $group(#noentra) $+ - $ulist(%tuserr).info }
  1013. if (7 isin %tuser) { %tm.wuser = AutoVOZ- $+ $group(#autovoz) $+ - $ulist(%tuserr).info }
  1014. if (10 isin %tuser) { %tm.wuser = AutoOP- $+ $group(#autoop) $+ - $ulist(%tuserr).info }
  1015. unset %whoixclon | if ($ial($address($2,2),0) > 1) && ($ipef($2) != falsa) { %whoixclon = $clones($2) <c2>[ $+ $ial($address($2,2),0) $+ ] }
  1016. %tm.pais = $readini s\irsys\paises.txt paises $gettok($4,-1,46)
  1017. tm.v 311 $1-
  1018. if (%tmp.buscoclon) { echo -ste $logo $mg(bclon,$2,$4) | lwho $4 | unset %tmp.buscoclon }
  1019. halt
  1020. }
  1021. raw 319:*: {
  1022. var %a = $remove($replace($3-,$chr(32),$chr(44)),@,+,%)
  1023. if (%tmp.veocanal) { echo -st $logo $mg(canalve,$2) | if ($numtok(%a,44) == 1) { .enable #datolistcanal | .raw list %a } | else { names %a } }
  1024. if (%tmp.entrocanal) { echo -st $logo $mg(canalen,$2) | echo -st $logo %a | join %a }
  1025. unset %tmp.veocanal %tmp.entrocanal
  1026. tm.v 319 $1- | halt
  1027. }
  1028. raw 312:*: tm.v 312 $1- | halt
  1029. raw 313:*: tm.v 313 $1- | halt
  1030. raw 317:*: tm.v 317 $1- | halt
  1031. raw 318:*: {
  1032. if ($group(#hotlwhois) == on) && (%tmp.nowhois == $null) .timer -m 1 100 %_w $_tm(<c3> $+ $2 $+  $+ $color(background) $+ $chr(1) <c2>.Bot_info. .Query. .Whois. .Clones. .Ping. .Chat.) | .timer -m 1 130 raya
  1033. tm.v 318 | unset %tm.pais %tmp.nowhois %tm.wuser %pais | if ($group(#hotlwhois) == !on) raya | halt
  1034. }
  1035. raw 401:*: borranickque $2 | rebusca $2 | halt
  1036. raw 402:*: borranickque $2 | rebusca $2 | halt
  1037.  
  1038. raw 314:*: {
  1039. if (%nwho == 1) && ($len($4) > 4) && (%qflod != 1) && ($ipef2($4) != falsa) { .enable #rewhowas | set %rquery $2 | qc who $4 }
  1040. tm.v 314 $1-
  1041. unset %nwho | halt
  1042. }
  1043. raw 406:*: ecot -t %wdonde <c3> $+ $2 $+  $+ $color(background) $+ $chr(1) $+  $+ $mg(noww) $iif($group(#hotlwhois) == on,<c2>.Bot_info.) | halt
  1044. raw 369:*: halt
  1045.  
  1046. raw 295:*: tm.v extra $1- | halt
  1047. raw 307:*: tm.v extra $1- | halt
  1048. raw 308:*: tm.v extra $1- | halt
  1049. raw 309:*: tm.v extra $1- | halt
  1050. raw 310:*: tm.v extra $1- | halt
  1051. raw 316:*: tm.v extra $1- | halt
  1052. raw 320:*: tm.v extra $1- | halt
  1053. raw 325:*: tm.v extra $1- | halt
  1054. raw 342:*: tm.v extra $1- | halt
  1055. raw 378:*: tm.v extra $1- | halt
  1056. raw 379:*: tm.v extra $1- | halt
  1057. #whoix end
  1058.  
  1059. alias tm.v {
  1060. if (%tmp.nowhois) return
  1061. tm.w $1-
  1062. }
  1063.  
  1064. #rewhowas off
  1065. raw 352:*: {
  1066. var %a = -st | if %m.n == on { var %a = -at }
  1067. echo %a $logo $mg(reloc,%rquery,$6 ( $+ $3 $+ @ $+ $4 $+ )) | if ($timer(REWWHOIS) == $null) .timerREWWHOis 1 1 whois $6
  1068. if $active == %rquery {
  1069. if ($6 != com1) && ($6 != com2) && ($6 != com3) && ($6 != com4) && ($6 != lpt1) && ($6 != lpt2) && ($6 != ps1) && ($6 != ps2) query $6
  1070. }
  1071. .timerNOWHAS 1 1 .disable #rewhowas | unset %nwho | halt
  1072. }
  1073. raw 315:*: .disable #rewhowas | unset %nwho | halt
  1074. #rewhowas end
  1075.  
  1076. #scancanal off
  1077. raw 352:* {
  1078. if ($ipef2($4) != falsa) {
  1079. if ($4 isin %scc.todos) && ($len($4) > 4) { inc %scc.clon | if $len(%scc.lclon) < 850 { %scc.lclon = %scc.lclon $6 } } | else { if $len(%scc.todos) < 850 { %scc.todos = %scc.todos $4 } }
  1080. }
  1081. if (* isin $7) { inc %scc.cop | %scc.lcop = %scc.lcop $6 | if ($cnick($6).color != $gettok(%skinl,3,44)) { cline $gettok(%skinl,2,44) %scc.canal $6 } }
  1082. halt
  1083. }
  1084. raw 315:* {
  1085. .disable #scancanal
  1086. $tma.canal(canal2,%scc.canal,%scc.cop,%scc.lcop,%scc.clon,%scc.lclon)
  1087. unset %scc.lclon %scc.lcop %scc.todos %scc.clon %scc.cop %scc.canal
  1088.  
  1089. if $gettok(%scc.que,0,32) > 0 {
  1090. %scc.clon = 0 | %scc.cop = 0
  1091. %scc.canal = $gettok(%scc.que,1,32) | .enable #scancanal | who %scc.canal
  1092. %scc.que = $deltok(%scc.que,1,32) | if $len(%scc.que) < 2 { unset %scc.que }
  1093. }
  1094. halt
  1095. }
  1096. #scancanal end
  1097.  
  1098. raw 332:*: if %tmp.noname == on halt
  1099. raw 333:*: set -u30 %tmp.tp. [ $+ [ $2 $+ . $+ [ $cid ] ] ] $3- | if %tmp.noname == on halt
  1100.  
  1101. #WINWHO off
  1102. raw 352:*: {
  1103. if (%tmp.buscanal != $null ) { if ($remove(%tmp.buscanal,*) !isin $1-) halt }
  1104. if $window(@LWho).state != normal { window -bhlsk -t12,50,58,84 @LWho $readini ircap.ini ww lwho }
  1105. var %who.flg = $iif(* isin $7,COP) $+ $iif(@ isin $7,@) $+ $iif(+ isin $7,+) $+ $iif(. isin $7,ow) $+ $iif(G isin $7,aw) | if %who.flg == $null { %who.flg = - }
  1106. aline @LWho $6 $chr(9) $3 $+ @ $+ $4 $chr(9) %who.flg $chr(9)  $+ $5 ( $+ $8 $+ ) $chr(9) $9- ( $2 )
  1107. halt
  1108. }
  1109. raw 315:*: .disable #winwho | unset %tmp.buscanal | if $line(@lwho,0) > 0 { iline @LWho 1 0,12 $m(194) 12 $+ $str(_,30) $+ $chr(9) $+ 0,12 $m(246) 12 $+ $str(_,30) $+ $chr(9) $+ 0,12 $m(247) 12 $+ $str(_,30) $+ $chr(9) $+ 0,12 $m(248) 12 $+ $str(_,30) $+ $chr(9) $+ 0,12 $m(249) 12 $+ $str(_,99) | titlebar @LWho $2 ( $calc($line(@lwho,0) - 1) nicks ) | window -a @LWho | sss wina } | else { echo -s $logo $mg(nonick,$2) | raya } | halt
  1110. #WINWHO end
  1111.  
  1112.  
  1113. #WHOX on
  1114. raw 352:*: {
  1115. inc %cwho | if (%cwho == 1) { ecot -st <c4>----(<c2>Who<c4>)---------------------------------------------------------- }
  1116. if (!%tmp.nowho) ecot -sti100 <c1> $6 <c4>[<c2> $+ $strip($3) $+ <c4>@<c2> $+ $4 $+ <c4>] * $9-  <c2> $7 $8 $2 | %uw = $6 | halt
  1117. }
  1118. raw 315:*: {
  1119. if (!%tmp.nowho) ecot -st <c4>---<c3> $2 <c2> $+ $mg(who1,%cwho) $+ <c4>---------------------------------- | raya | unset %cwho %tmp.nowho | halt
  1120. }
  1121. raw 353:*: if (%tmp.noname) { if ($chan($3).logfile) { write " $+ $logdir $+ $mklogfn($3) $+ " $logo Nicks: $4- } | halt } | echo -sti100 $logo $mg(who2,$3,$4-) | %nnic = $numtok($4-,32) | halt
  1122. raw 366:*: if (%tmp.noname) halt | echo -st $logo  $+ $2  $+ %nnic  $+ $mg(who3) | unset %nnic | raya | halt
  1123. #whox end
  1124.  
  1125. #datolistcanal off
  1126. raw 322:*: window -c "channels list" | set -u30 %tmp.datolist $2- | halt
  1127. raw 323:*: window -c "channels list" | .disable #datolistcanal | echo -st  $+ $gettok(%tmp.datolist,1,32) ( $gettok(%tmp.datolist,2,32) $mg(usrs) ) | echo -st $logo $mg(topicen,$gettok(%tmp.datolist,1,32)) : $nexe($gettok(%tmp.datolist,3-,32)) | names $gettok(%tmp.datolist,1,32) | mode $gettok(%tmp.datolist,1,32) | halt
  1128. #datolistcanal end
  1129.  
  1130. raw 367:*: if (%borraban) { qc mode $2 -b $3 } | if (%estoyyviendo33) { if ($3 iswm $address($me,5)) { .echo -s 4 $2 2 $3  $4 $asctime($5,(ddd mmm dd HH:nn:ss))  | .halt } }
  1131. raw 368:*: unset %borraban | unset %estoyyviendo33
  1132.  
  1133. raw 004:*: {
  1134. var %a = s\net\ $+ $gettok($2,$calc($numtok($2,46) - 1),46) $+ . $+ $gettok($2,$numtok($2,46),46) $+ .net
  1135. if $exists(%a) {
  1136. set %netcon. [ $+ [ $cid ] ] $readini %a net menu $readini %a net popup $readini %a net var
  1137. if ($readini %a net ip != $null) .auser 69 $ifmatch
  1138. cargabots | return
  1139. }
  1140. if (Conference isin $3) || ($left($3,2) == CR) { set %netcon. [ $+ [ $cid ] ] croom.inb CRoom Nickserv Chanserv Memoserv - - *If this is your nickname* }
  1141. cargabots
  1142. }
  1143.  
  1144. #autoghost on
  1145. raw 433:*: {
  1146. if $online < 3 { .timerGHOSTCON. $+ $cid -o 60 1 ghostcon $me | return }
  1147. var %a = %netcon. [ $+ [ $cid ] ] | if (!%a) || (!$dapass(nick. $+ $nnet,$2)) return
  1148. if (%tmp.nghost. [ $+ [ $cid ] ] != on) {
  1149. var %b = $readini s\net\ $+ $gettok(%a,1,32) botcom ghost
  1150. $replace(%b,<nickserv>,$gettok(%a,3,32),<pass>,$dapass(nick. $+ $nnet,$2),<me>,$2)
  1151. .timer 1 8 nick $2
  1152. set -u30 %tmp.nghost. [ $+ [ $cid ] ] on
  1153. }
  1154. }
  1155. #autoghost end
  1156.  
  1157. alias GHOSTCON if $status == connected { .timerGHOSTCON. $+ $cid off | .timer 1 3 nick $1 }
  1158.  
  1159. raw 306:*: {
  1160. var %a = %tmp.away. [ $+ [ $cid ] ]
  1161. if ($gettok(%a,1,32) == -) || ( isin $gettok(%a,1,32)) {
  1162. if ( isin $gettok(%a,1,32)) { set %tmp.away. [ $+ [ $cid ] ] $strip($gettok(%a,1,32)) $gettok(%a,2-,32) }
  1163. else {
  1164. set %tmp.away. [ $+ [ $cid ] ] $me $ctime $gettok(%a,3-,32)
  1165. if (%away.cnick == on) nick $remp(%away.nick)
  1166. }
  1167. echo -stq $logo $mg(away1,$gettok(%a,3-,32))
  1168. echo -stq $logo $mg(away2,%away.con,%away.cnick,%away.anun,%away.seg) | raya
  1169. .timerAWAYSEGS $+ $cid 0 300 away -suma
  1170. .timer 1 2 away -deop d
  1171. if %away.anun == on { .timerAWAYANUN $+ $cid 0 $calc(%away.seg * 60) away -anun | .timer 1 5 away -anun }
  1172. if ($window(@setup)) && (%apartado == setaway) setaway
  1173. }
  1174. halt
  1175. }
  1176.  
  1177. raw 305:*: {
  1178. var %a = %tmp.away. [ $+ [ $cid ] ]
  1179. if (%away.cnick == on) nick $gettok(%a,1,32)
  1180. .timerAWAYSEGS $+ $cid off
  1181. .timerAWAYANUN $+ $cid off | if %away.anun == on { $ame2(%away.tx2 [ $duration($calc($ctime - $gettok(%a,2,32))) ausente ],a,%away.canal,%away.canalno) }
  1182. .timer 1 2 away -deop o
  1183. echo -stq $logo $mg(away3,$duration($calc($ctime - $gettok(%a,2,32)))) | raya
  1184. unset %tmp.away. [ $+ [ $cid ] ]
  1185. resetidle
  1186. if ($window(@setup)) && (%apartado == setaway) .timer -m 1 500 setaway
  1187. halt
  1188. }
  1189.  
  1190. on 1:DNS: {
  1191. if %tmp.dns != $null { DNSque %tmp.dns $iaddress | unset %tmp.dns | halt }
  1192. var %i = 1
  1193. while (%i <= $dns(0)) {
  1194. ecot -st $logo <c3> $+ $nick <c2>DNS: $dns(%i).ip $iif($dns(%i).addr != $null,( $dns(%i).addr )) <c4>.clip.
  1195. .timerDNR 1 1 raya | inc %i
  1196. }
  1197. halt
  1198. }
  1199.  
  1200. on 1:FILERCVD:*: {
  1201. var %f = $filename , %e = $gettok($filename,-1,46)
  1202. if ($findtok(mp3 wma ogg wav mid,%e,32)) && ($nofile(%f) != %dir.audio) && (%dir.audio) { %f = %dir.audio $+ $nopath($filename) | rename " $+ $filename $+ " " $+ %f $+ " }
  1203. if ($findtok(mpeg mpg avi asf rm mp4,%e,32)) && ($nofile(%f) != %dir.video) && (%dir.video) { %f = %dir.video $+ $nopath($filename) | rename " $+ $filename $+ " " $+ %f $+ " }
  1204. ddc reg <Recibidos> $nick %f
  1205. ecot -s <c4> ,- $timestamp <c4>--- $mg(rcv1) <c4> $+ $str(-,30)
  1206. ecot -s <c4> |<c2> $mg(rcv2,$nopath(%f),$nick)
  1207. ecot -s <c4> |<c2> $mg(rcv3,$nofile(%f),$lof(%f))
  1208. ecot -s <c4> |<c2> $mg(rcv4,F10) | %firu = %f
  1209. if ($findtok(exe com bat vbs hta scr zip rar pif,%e,32)) && ($exists(%avp)) ecot -s <c4> |<c2> $mg(rcv5,Control + F10)
  1210. ecot -s <c4> ` $+ $str(-,80)
  1211. var %a = $readini %perfil dccstats get | inc %a 1 | writeini %perfil dccstats get %a
  1212. var %a = $readini %perfil dccstats bget | inc %a $file($filename).size | writeini %perfil dccstats bget %a
  1213. }
  1214. on 1:FILESENT:*: {
  1215. ddc reg <Enviados> $nick $filename
  1216. var %i = $send($nick,0) | while (%i > 0) {
  1217. if ($nopath($filename) == $send($nick,%i).file) {
  1218. var %record = $readini %perfil DCCstats record | inc %record
  1219. if ($send($nick,%i).cps > %record) { writeini %perfil DCCstats record $send($nick,%i).cps | writeini %perfil DCCstats campeon $nick | echo -se $logo $mg(record,$round($calc($send($nick,%i).cps / 1024),1),$nick) }
  1220. }
  1221. dec %i
  1222. }
  1223. var %a = $readini %perfil dccstats send | inc %a 1 | writeini %perfil dccstats send %a
  1224. var %a = $readini %perfil dccstats bsend | inc %a $file($filename).size | writeini %perfil dccstats bsend %a
  1225. .timer 1 2 dccola -sig
  1226. var %c = $shortfn($filename) | %ultsend = $gettok(%c $+  $+ $remtok(%ultsend,%c,1,22),1-4,22)
  1227. }
  1228. on 1:SENDFAIL:*: {
  1229. if (%tmp.noreenv == on) || (. isin $nick) { unset %tmp.noreenv | echo -ste $logo $mg(sfail,$nopath($filename),$nick) | .timer 1 2 dccola -sig | halt }
  1230. set -u90 %tmp.noreenv on | dcc send -l $nick " $+ $filename $+ " | .timer -m 1 100 echo -ste $logo $mg(sfail,$nopath($filename),$nick) $+ . $mg(sfail2)
  1231. var %c = $shortfn($filename) | %ultsend = $gettok(%c $+  $+ $remtok(%ultsend,%c,1,22),1-4,22)
  1232. }
  1233. on 1:GETFAIL:*: ddc reg <pendientes> $nick $filename | if $tipoext($filename,%dcc.si) && (%dcc.repide == on) { .timer 1 3 msg $comcha($nick) ! $+ $nick $nopath($filename) } | sss fallo
  1234.  
  1235. raw 0:*: echo -st $logo Silence $1- | halt
  1236. raw 481:*: echo -stqe $logo $mg(r481) | halt
  1237. raw 482:*: echo -stqe $logo $2 $mg(r482) | halt
  1238. raw 421:*: if $2 == silence halt | echo -stqe $logo $2 $mg(r421) | fallo | halt
  1239. raw 474:*: echo -stqe $logo $2 $mg(r474) | halt
  1240. raw 433:*: echo -stqe $logo $2 $mg(r433) | halt
  1241. raw 471:*: echo -stqe $logo $2 $mg(r471) | halt
  1242. raw 473:*: echo -stqe $logo $2 $mg(r473) | halt
  1243. raw 475:*: echo -stqe $logo $2 $mg(r475) | halt
  1244. raw 404:*: echo -t $2 $logo $mg(r404) | fallo | halt
  1245. raw 501:*: echo -stq $logo $mg(r501) | halt
  1246.  
  1247. #motd on
  1248. alias IRMOTD {
  1249. var %motd.d = $readini motd.txt FECHA fecha , %motd.d = $ctime(%motd.d) | inc %motd.d 604800 | if ($ctime < %motd.d) { .play -setMOTD motd.txt 1 | return }
  1250. sockclose MOTD | unset %motdct | %motd.dom = $urlcap(1) | sockopen MOTD %motd.dom 80
  1251. write -c motd.txt [FECHA] | write motd.txt fecha= $+ $date | write motd.txt [MOTD]
  1252. }
  1253. on 1:sockopen:MOTD: {
  1254. if $sockerr > 0 { echo -ste $logo MOTD error | return }
  1255. var %a = sockwrite -n motd
  1256. %a GET http:// $+ %motd.dom $+ /mdd- $+ $replace(%idioma,ek,es,ga,es,cat,es) $+ .mdd HTTP/1.1
  1257. %a Accept: *.*, */*
  1258. %a User-Agent: motd socks
  1259. %a Range: bytes=0-
  1260. %a Host: %motd.dom $+ :80
  1261. %a $crlf
  1262. unset %motd.dom
  1263. }
  1264. on 1:sockread:motd: {
  1265. sockread %motd
  1266. if (%motd == +desactiva motd+) { .disable #motd | return }
  1267. if (%motd == +fin+) { unset %motd %motdct | sockclose motd | .play -setMOTD motd.txt 1 }
  1268. if (%motdct == graba) { write motd.txt %motd }
  1269. if (%motd == +ini+) { %motdct = graba }
  1270. }
  1271. on 1:sockclose:motd: unset %motd %motdct | .play -setMOTD motd.txt 1
  1272. #motd end
  1273.  
  1274. #contadorkicks on
  1275. alias kick inc %cckik | kick $1- $replace(%cckikt,&n,%cckik)
  1276. #contadorkicks end
  1277.  
  1278. #hotlwhois on
  1279. on ^*:hotlink:.*.:*: return
  1280. on *:hotlink:.*.:*: {
  1281. if $1 == .clip. { if ($remove($gettok($hotline,-5,32),.) isnum) { clipboard $gettok($hotline,-5,32) | echo -ste $logo ClipBoard: $cb } | return }
  1282. var %a = $gettok($hotline,1,32) | if ($window($active).stamp) { %a = $gettok($hotline,2,32) }
  1283. if ($chr(1) isin %a) { %a = $strip($gettok(%a,1,1)) } | else return
  1284. if $1 == .bot_info. mns info %a
  1285. if $1 == .query. q %a
  1286. if $1 == .chat. dcc chat %a
  1287. if $1 == .whois. w %a
  1288. if $1 == .clones. { set -u30 %tmp.nowhois on | set -u30 %tmp.buscoclon on | whois %a }
  1289. if $1 == .ping. ctcp %a PING
  1290. halt
  1291. }
  1292. #hotlwhois end
  1293.  
  1294. on ^*:hotlink:*.mp3*:*: return
  1295. on *:hotlink:*.mp3*:*: {
  1296. if (www. isin $hotline) || (http isin $hotline) return
  1297. var %h = $mid($hotline,$pos($hotline,!,1),999) , %hn = $strip($remove($gettok(%h,1,32),!)) , %h3 = $strip($gettok(%h,2-99,32)) , %hp = $pos(%h3,.mp3,1)
  1298. %h3 = $left(%h3,$calc(%hp + 4)) | msg $comcha(%hn) ! $+ %hn %h3 | echo -se $logo $mg(pidemp,$comcha(%hn),! $+ %hn,%h3)
  1299. }
  1300.  
  1301. on 1:sockopen:TCPING: {
  1302. if ($calc($ctime - %tmp.tcpping) > 16) { echo -ste $logo $mg(tpingno,$sock($sockname).mark ( $+ $sock($sockname).ip $+ )) }
  1303. else { echo -ste $logo $mg(tping,$sock($sockname).mark ( $+ $sock($sockname).ip $+ ),$calc($ctime - %tmp.tcpping)) }
  1304. sockclose $sockname | unset %tmp.tcpping
  1305. }
  1306.  
  1307. menu @LWho {
  1308. dclick { w $lvho(1) }
  1309. $lvho(1)
  1310. .$m(205): w $lvho(1)
  1311. .$m(233): q $lvho(1)
  1312. .$m(48): dcc chat $lvho(1)
  1313. .$m(41): dcc send $lvho(1)
  1314. .-
  1315. .ctcp ping: ctcp $lvho(1) ping
  1316. .ctcp version: ctcp $lvho(1) version
  1317. -
  1318. $m(202)
  1319. .$m(194): clipboard $lvho(1)
  1320. .ip: clipboard $gettok($lvho(2),2,64)
  1321. .$m(248): clipboard $lvho(4)
  1322. -
  1323. ip
  1324. .$m(212): dns $gettok($lvho(2),2,64)
  1325. .$m(57): ipa ping $lvho(1)
  1326. .$m(56): who $gettok($lvho(2),2,64)
  1327. .-
  1328. .$m(48): dcc chat $gettok($lvho(2),2,64)
  1329. .$m(41): dcc send $gettok($lvho(2),2,64)
  1330. -
  1331. $m(248)
  1332. .$lvho(4): motd $lvho(4)
  1333. .-
  1334. .$m(250) $lvho(4): server $lvho(4)
  1335. .$m(251): server -m $lvho(4)
  1336. -
  1337. $m(fijpos): writeini ircap.ini ww lwho $window(@LWho).x $window(@LWho).y $window(@LWho).w $window(@LWho).h @LWho $window(@LWho).font $window(@LWho).fontsize
  1338. }
  1339. alias -l lvho return $strip($gettok($remove($sline(@Lwho,1),$chr(9)),$1,32))
  1340.  
  1341.  
  1342.  
  1343. on 1:start:{
  1344. titlebar · IRcap 8.2 - http://www.netchat.cl
  1345. %ircapv = 8.2
  1346. if (!$exists(skin\ $+ %skin $+ \bar.png)) { echo -ste $logo SKIN %skin error | if ($isalias(sbarra)) { .disable #sidebar | .timer 1 2 .enable #sidebar | .timer 1 2 sbarra } | skin base }
  1347. idioma carga %idioma
  1348. unset %away.rnick* %repoaway* %away.segs* %ncrip %dcque %tmp.*
  1349. unset %clon.* %snik %snik.ip %cl.* %saltakline %ezomime %banner.con %playlist %play.ext %liserv.nick %lag.* %netcon.*
  1350. .disable #encripto
  1351. %apartado = setGENERAL | %perfil = usr\ircapusr.cfg
  1352. if (%arranques < 1) { %farranque = $date | .timer -m 1 2222 loads inicio | .nick IR $+ $rand(999,9999) | .anick CAP $+ $rand(999,9999) } | inc %arranques
  1353. if %m.barra == off bar off | else bar
  1354. if $group(#sidebar) == on sbarra | else { window -pBhwzi +d @sBa 0 40 1 100 | window -h @sBa 0 40 0 100 }
  1355. if $group(#paner) == on panerini on | else panerini off
  1356. if %@noti == on { window -k @sNotices }
  1357. .rlevel 20
  1358. serverz
  1359. bar -c
  1360. if %arranques > 2 { if $exists($mircdirusr\copiavariables.ca8) { if ($read -l2 $mircdirusr\copiavariables.ca8 != $date) { .timer 1 5 dina cfg.guarda $mircdirusr\copiavariables.ca8 } } | else .timer 1 5 dina cfg.guarda $mircdirusr\copiavariables.ca8 }
  1361. .sound off | .dqwindow off
  1362. %canalcfg.pro = $readini usr\canalglobal.ini i dat
  1363. .timestamp -f $_tm($tstamp)
  1364. %urlcap = 7[1IRcap7]1 - 7[1www.12N1etchat.cl7]1
  1365. if $group(#mod^correc) == on { .timer 1 6 hmake corrector | .timer 1 6 hload corrector usr/corrector.hash }
  1366.  
  1367. .timerTIM10 -io 0 10 TIM10
  1368. if ($readini %perfil autocon autoconectar == on) { echo -ste $logo $mg(autocon,Shift + F12,5) | .timerAUTOCON 1 5 autoMconex }
  1369. .write -c $logdir $+ #logs.log
  1370. .write -c $logdir $+ #billar_con_apuesta.log
  1371. titlebar · IRcap · %ircapv - [Netchat.cl]
  1372. echo -s Bienvenido a 12N1etchat.cl - El Chat de Chile
  1373. echo -s Sitio Web:5 http://www.netchat.cl - 1Foros:5 http://www.netchat.cl/foros - 1Blog:5 http://blog.netchat.cl
  1374. echo -s En caso de dudas sobre comandos ingresar a canal #Ayuda o visitar 5http://ayuda.netchat.cl
  1375. echo -s Para dudas, reclamos o sugerencias puedes contactarse via correo a: 5contacto@netchat.cl
  1376. echo -s -
  1377. echo -s 12Redes Sociales: 
  1378. echo -s Facebook:5 https://www.facebook.com/netchat
  1379. echo -s Twitter:5 https://twitter.com/netchatchile
  1380. echo -s -
  1381. echo -s 12Recomiendanos:
  1382. echo -s Recomienda Netchat.cl con tus amigos, sólo ingresa a 5http://goo.gl/f5VYA1 y cuentales a todos sobre el Chat de Chile
  1383. echo -s -
  1384. echo -s 12Validar IRCap:
  1385. echo -s 1) Ir a Help y Luego a Register.
  1386. echo -s 2) Ingresar nombre de Usuario: YeReMaT y Código:4230-362513
  1387. echo -s -
  1388. 
  1389. var %f = lng\ $+ %idioma $+ \ $+ %idioma $+ .id , %i = 1 | :L1 | var %a = $readini(%f,lang,%i) | if (%a) { ecot -s  %a | inc %i | goto L1 }
  1390. raya
  1391. if ($readini ircap.ini WAV ini) sss ini
  1392. if %tipofday == on && %arranques > 1 tip
  1393. }
  1394.  
  1395.  
  1396. on 1:connect:{
  1397. .auser 20 $me
  1398. join -n #chile
  1399. list
  1400. bar -cl
  1401. pmodo
  1402. if %mlag == on midelag on
  1403. if (%tmp.away. [ $+ [ $cid ] ]) && (%away.aum !isin %tmp.away. [ $+ [ $cid ] ]) away -recon
  1404. unset %scc.que %lag. [ $+ [ $cid ] ]
  1405. .disable #scancanal
  1406. if ($group(#motd) == on) && (%motdd == 1) { .timerMOTD 1 10 irmotd | unset %motdd } | var %motd.d = $readini ircap.ini var wmotd | %motd.d = $ctime(%motd.d) | inc %motd.d 604800 | if ($ctime >= %motd.d) { writeini ircap.ini var wmotd $date | url -n http:// $+ $urlcap }
  1407. .timerRECAN 1 5 recan
  1408. .timerAUTOJ. $+ $cid 1 6 autojoin
  1409. if %arrseq == on .play -sc usr/arrseq.txt 0
  1410. if $readini ircap.ini abrir canalfav == on { .timerCFAV1 -m 1 500 loadu g-canalfav }
  1411. sss login
  1412. }
  1413.  
  1414. on 1:disconnect: {
  1415. unset %netcon. [ $+ [ $cid ] ] %lag. [ $+ [ $cid ] ]
  1416. echo -stqe * $mg(discon,$server,$duration($online)) : %quitmzg
  1417. if ($active != @barra) && ($active != @conn) .timer -m 1 100 sss cae
  1418. .timer -oi 1 1 cargabots
  1419. var %a = $gettok($readini(s\net\ $+ $nnet $+ .net,net,ip),1,32) | if (%a) && (*!-@- !isin %a) { .ruser 69 %a }
  1420. bar -cl
  1421. unset %recan | var %i = 1 | while ($chan(%i) <= $chan(0)) { if ($chan(%i).key) %recan = %recan $+ $chan(%i) $chan(%i).key $+ , | else %recan = %recan $+ $chan(%i) $+ , | inc %i }
  1422. }
  1423. on ^*:LOGON:*: {
  1424. var %t = $left($readini %perfil conex tipo,1) { if %t == 3 { play -asc bouncerreplace usr\bouncer.txt 0 | return } }
  1425.  
  1426. var %a = s\net\ $+ $nnet $+ .net | %a = $readini %a net menu $readini %a net popup $readini %a net var
  1427. if $gettok(%a,1,32) == hispano.inb {
  1428. var %vpass = $dapass(nick. $+ $nnet,$me)
  1429. if (%vpass) {
  1430. .raw nick $me $+ ! $+ %vpass | return
  1431. .raw nick $me %vpass
  1432. }
  1433. }
  1434. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!