API tools faq
paste
Guest User

Untitled

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