Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
;==========================[ Server Counter v2.01 Final ^ daRk|0rd ]==========================
;
;  To install unzip to anywhere and type "/Load -rs <Your-Path>\Server-Counter.mrc
;
;  Type the alias >>: /Serv :<< to view who is serving in your status window
;
;  The users trigger is >>: !servers :<<
;
;  Thanx to Skastaman for the idea.
;
;=============================[ If you like it thank Skastaman ]==============================

;
; Initialise
;
on *:load:{ s.c.initial }
on *:start: {
  s.c.wo
  if (%s.you.serv == on) { %s.tot.serv = 1 | aline @SC-Serve $me }
  if (%s.you.serv == off) { %s.tot.serv = 0 | %s.totfiles = %s.rsf }
}
on *:connect: {
  sc.rset
  if (%s.status == on) { 
    echo -s 00,14(01I)00,02 Server Counter $scvers - Starting message timer 00,14(01I)
    .timerSCMsg 0 8 SC.message
  }
  if (%s.topic == on) {
    echo -s 00,14(01I)00,02 Server Counter $scvers - Starting topic timer 00,14(01I)
    .timerSCTpc 0 $calc( %s.c.toptime * 60 ) SC.topic
  }
}
on *:disconnect: { sc.rset }
;
; Various Checks
;
on *:PART:%s.channel:{ SC.Left | if (%s.tmpdln != $null) { if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Removed9 %s.nick 0and9 %s.ctf 0files - Total Now9 %s.totfiles 14-15-0(8Left Channel0)15-14- 00,14(01I) } } }
on *:QUIT:{ SC.Left | if (%s.tmpdln != $null) { if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Removed9 %s.nick 0and9 %s.ctf 0files - Total Now9 %s.totfiles 14-15-0(8Quit IRC0)15-14- 00,14(01I) } } }
on *:BAN:%s.channel:{ %s.c.gt = b | SC.Left | if (%s.tmpdln != $null) { if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Removed9 %s.nick 0and9 %s.ctf 0files - Total Now9 %s.totfiles 14-15-0(8Banned0)15-14- 00,14(01I) } } }
on *:KICK:%s.channel:{ %s.c.gt = k | SC.Left | if (%s.tmpdln != $null) { if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Removed9 %s.nick 0and9 %s.ctf 0files - Total Now9 %s.totfiles 14-15-0(8Kicked0)15-14- 00,14(01I) } } }
on *:NICK: {
  %s.new = $newnick | %s.old = $nick | %c = 1
  %s.tmpsrch = $null | %s.tmpsrch = $fline(@SC-Serve,%s.old,1,0)
  if (%s.tmpsrch != $null) { 
    dline @SC-Serve %s.tmpsrch | aline @SC-Serve %s.new
    if ($dialog(server.count)) { s.inidia }
  }
}
on *:DEVOICE:%s.channel:{
  %s.nick = $vnick | %c = 1 | %s.in = 0
  if (%s.nick == $me) return
  s.c.rtrack
  %s.tmpsrch = $null | %s.tmpsrch = $fline(@SC-Serve,%s.nick,1,0)
  if (%s.tmpsrch != $null) {
    dline @SC-Serve %s.tmpsrch
    if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Removed9 %s.nick 0and9 %s.ctf 0files - Total Now9 %s.totfiles 14-15-0(8Devoiced0)15-14- 00,14(01I) }
    if ($dialog(server.count)) { s.inidia }
  }
}
on *:JOIN:%s.channel:{
  if (($nick == $me) && (%s.you.serv == on)) { %s.tot.serv = 1 | aline @SC-Serve $me }
  if ((%s.shoot == on) && ($nick != $me)) {
    %sc.tmpte = j
    sc.addmsg
    if (%s.trig == on) { aline @SC-Mes $nick %s.c.mainmes3 }
  }
}
on *:text:!servers:%s.channel:{
  if (%s.trig == off) return
  %sc.tmpte = t
  sc.addmsg
}
alias sc.addmsg {
  totconv
  %c1 = 1 | %c2 = 1 | %s.tmp2 = $replace(%s.c.mainmes1,*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv)
  %s.trk = 0 | %s.nl = 0
  while (%c1 <= %s.tot.serv) {
    if ((%c1 < 2) || (%c1 == 27)) { %s.tmp1 = %s.c.nickcol $+ $line(@SC-Serve,%c1) }
    else { %s.tmp1 = $line(@SC-Serve,%c1) }
    if (%c1 < 2) { %s.tmp2 = %s.tmp2 %s.tmp1 }
    if ((%c1 > 1) && (%s.nl == 0)) { %s.tmp2 = %s.tmp2 $+ , %s.tmp1 }
    if ((%c1 > 1) && (%s.nl == 1)) { %s.tmp2 = %s.tmp2 $+ , %s.tmp1 }
    inc %c1 1 | inc %c2 1
    if (%c1 == $calc(%s.tot.serv + 1)) { 
      %s.tmp3 = $mid(%s.tmp2,1,1)
      if (%s.tmp3 == $chr(44)) { %s.tmp4 = $mid(%s.tmp2,3,$len(%s.tmp2)) | %s.tmp2 = %s.tmp4 }
      %s.c.tmpla =  $+ %s.c.nickcol $+ %s.tmp2
      if (%sc.tmpte == j) { aline @SC-Mes $nick %s.c.tmpla %s.c.mainmes2 }
      else { aline @SC-Mes $nick %s.tmp2 %s.c.mainmes2 (Server Counter $scversa $+ ) }
    }
    if ((%c2 > 24) && (%c1 < %s.tot.serv)) {
      %s.c.tmpla =  $+ %s.c.nickcol $+ %s.tmp2
      aline @SC-Mes $nick %s.c.tmpla
      set %s.tmp2 $null
      inc %s.trk
      %c2 = 1 | %s.nl = 1
    }
  }
}

;
; Menu's
;
menu status,channel,menubar {
  -
  Server Counter
  .Main Menu:{
    totconv
    if (%SDfilesinlist isnum) %s.rsf = %SDfilesinlist
    if (%SMP3.Filenum isnum) %s.rsf = %SMP3.Filenum
    if (%SDfilesinlist isnum && %SMP3.Filenum isnum) %s.rsf = 0
    if ($dialog(server.count)) {
      if (%sc.ontop == on) { dialog -oiev server.count }
      else { dialog -niev server.count }
    }
    else {
      if (%sc.ontop == on) { dialog -omd server.count server.count }
      else { dialog -nmd server.count server.count }
    }
  }
  .Unload
  ..Are You Sure
  ...!! Do it !!:{
    echo -s 00,14(01I)00,02 Server Counter $scvers - Removing Server Counter 00,14(01I) 
    .timerSCMsg off
    if (%s.topic == on) { .timerSCTpc off }
    .unset %s.*
    .unload -rs server-counter.mrc
  }
  -
}
;
; Dialogs
;
dialog server.count {
  title Server-Counter
  size -1 -1 180 148
  option dbu
  box ":Server-Counter v2.01 Final - Setup Options:",1,1 4 159 4
  box "",30,172 4 8 4
  box "Active Channel",2,4 12 92 24,left
  edit %s.channel,3,7 20 86 11,autohs
  radio "Ø",25,161 2 10 10, push
  box "Counter Options",9,96 40 80 62
  check "Send server list on-join",4,98 48 74 10,left
  check "Use !servers trigger",6,98 58 74 10,left
  check "Include yourself",5,98 68 74 10,left
  check "Status Window Messages",7,98 78 74 10,left
  check "Use Topic Message",14,98 88 74 10,left
  button "Apply Changes",8,113 117 47 11
  button "Custom Messages",20,113 105 47 11
  box "Serving",10,4 40 92 66
  list 11, 7 48 86 65, autovs
  edit %s.totfiles,12, 4 108 93 10,read
  edit %s.tot.serv $+ $chr(32) $+ Total servers detected,13, 4 118 93 10,read
  text "#Files in your list",15,98 22 42 11
  edit %s.rsf,16,140 20 35 11,autohs
  button "F!n!shed",100,75 133 30 12,ok default
}
on *:DIALOG:server.count:init:0:s.inidia
alias s.inidia {
  %c1 = 1
  did -r server.count 11 | did -r server.count 12 | did -r server.count 13
  totconv
  did -ra server.count 12 %s.tpchar $chr(32) Total files
  did -ra server.count 13 %s.tot.serv $chr(32) Total servers detected
  if (%s.shoot == on) did -c server.count 4
  if (%s.topic == on) did -c server.count 14
  if (%s.you.serv == on) did -c server.count 5
  if (%s.trig == on) did -c server.count 6
  if (%s.status == on) did -c server.count 7
  if (%sc.ontop == on) { did -c server.count 25 }
  while (%c1 <= %s.tot.serv) {
    %s.tmp1 = $line(@SC-Serve,%c1) | %s.tmp2 = $null
    %s.ctl = $line(@SC-Track,0) | %s.cts = 1 | %s.do = 0
    while (%s.cts <= %s.ctl) {
      %s.ctlr = $line(@SC-Track,%s.cts) | %s.ctn = $gettok(%s.ctlr,1,255)
      if (%s.tmp1 == %s.ctn) %s.do = %s.cts
      inc %s.cts
    }
    if (%s.do != 0) { %s.cttf = $gettok($line(@SC-Track,%s.do),-1,255) | %s.tmp2 = ( $+ %s.cttf $+ ) Files }
    else { 
      if (%s.tmp1 == $me) { %s.tmp2 = ( $+ %s.rsf $+ ) Files }
    }
    did -a server.count 11 %s.tmp1 %s.tmp2
    inc %c1
  }
}
on *:dialog:server.count:sclick:4: {
  if (%s.shoot == on) { %s.shoot = off | .timerSCMsg off }
  else { %s.shoot = on | .timerSCMsg 0 8 SC.message }
}
on *:dialog:server.count:sclick:5: {
  if (%s.you.serv == on) %s.you.serv = off
  else %s.you.serv = on
}
on *:dialog:server.count:sclick:6: {
  if (%s.trig == on) %s.trig = off
  else %s.trig = on
}
on *:dialog:server.count:sclick:7: {
  if (%s.status == on) %s.status = off
  else %s.status = on
}
on *:dialog:server.count:sclick:8: {
  set %s.channel $did(3)
  fixchan 3 1 %s.channel
  you_serve | s.c.wo
  set %s.rsf $did(16)
  %s.totfiles = %s.rsf
  .timer 1 3 s.inidia
}
on *:dialog:server.count:sclick:14: {
  if (%s.topic == on) { %s.topic = off | .timerSCTpc off }
  else { %s.topic = on | .timerSCTpc 0 $calc( %s.c.toptime * 60 ) SC.topic }
}
on *:dialog:server.count:sclick:20: {
  if ($dialog(custom.msg)) dialog -iev custom.msg
  else dialog -md custom.msg custom.msg
}
on *:dialog:server.count:sclick:25: {
  if (%sc.ontop == on) { did -u server.count 25 | %sc.ontop = off | dialog -niev server.count }
  else { did -c server.count 25 | %sc.ontop = on | dialog -oiev server.count }
}
dialog custom.msg {
  title Server-Counter
  size -1 -1 260 126
  option dbu
  box ":Server-Counter v2.01 Final - daRk|0rd - Custom Message Options:",1,1 4 258 4
  text "Main message (Beginning) [ *files=Total Files . *Channel=Channel . *Servers=Total servers ]",2,6 17 230 9
  text "Main message (End)",3,6 39 50 9
  text "Servers (!Servers) trigger message",4,6 61 100 9
  text "Topic message [ *files=Total Files . *Channel=Channel . *Servers=Total servers ]",5,6 83 220 9
  text "Topic timer (Minutes)",6,204 83 50 9
  text "Nick Colour",7,204 39 40 9
  edit %s.c.mainmes1,10, 4 27 252 10,autohs
  edit %s.c.mainmes2,11, 4 49 195 10,autohs
  edit %s.c.mainmes3,12, 4 71 252 10,autohs
  edit %s.c.topmes,13, 4 93 195 10,autohs
  edit %s.c.toptime,14, 202 93 54 10,autohs
  edit %s.c.nickcol,15, 202 49 54 10,autohs
  button "Test",99,95 110 30 12,ok default
  button "F!n!shed",100,135 110 30 12,ok default
}
on *:DIALOG:Custom.msg:init:0:{ }
on *:dialog:Custom.msg:sclick:99:{ Test }
on *:dialog:Custom.msg:sclick:100:{
  %s.c.mainmes1 = $did(10) | %s.c.mainmes2 = $did(11) | %s.c.mainmes3 = $did(12)
  %s.c.topmes = $did(13) | %s.c.toptime = $did(14) | %s.c.nickcol = $did(15)
  if (%s.topic == on) { .timerSCTpc 0 $calc( %s.c.toptime * 60 ) SC.topic }
}
;
; Slot,Mp3 and Voice Detection
;
on *:VOICE:%s.channel: {
  %s.nick = $vnick | %s.tmpsrch = $null 
  if (%s.nick == $me) return
  %s.tmpsrch = $fline(@SC-Serve,%s.nick,1,0)
  if (%s.tmpsrch == $null) { 
    inc %s.tot.serv
    aline @SC-Serve %s.nick
    if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Added9 %s.nick 14-15-0(8Voiced0)15-14- 00,14(01I) }
    if ($dialog(server.count)) { s.inidia }
  }
}
ctcp *:SLOTS:%s.channel: {
  %s.ctcps = $8 | %s.nick = $nick
  s.c.atrack
  %s.tmpsrch = $null | %s.tmpsrch = $fline(@SC-Serve,%s.nick,1,0)
  if (%s.tmpsrch == $null) { 
    inc %s.tot.serv
    aline @SC-Serve %s.nick
    if ($dialog(server.count)) { s.inidia }
  }
}
ctcp *:MP3:%s.channel: {
  %s.nick = $nick | %s.tmpsrch = $null | %s.tmpsrch = $fline(@SC-Serve,%s.nick,1,0)
  if (%s.tmpsrch == $null) { 
    inc %s.tot.serv
    aline @SC-Serve %s.nick
    if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Added9 %s.nick 14-15-0(8Playing Mp3's0)15-14- 00,14(01I) }
    if ($dialog(server.count)) { s.inidia }
  }
}
ctcp 1:version:?: { .ctcpreply $nick VERSION Server Counter $scversa }
;
; Alias' and Calls
;
alias serv {
  echo -s -
  echo -s 00,14(01I)09,02 Server Counter $scvers 00,14(01I)
  echo -s -
  echo -s 00,14(01I)00,02 -: Anyone serving not listed, needs to 'shoot' 8ctcp's0 for 9'adverts' (Slots)0 or 9'play messages' (Mp3)0 to the channel for them to register :- 00,14(01I)
  echo -s -
  if ((%s.tot.serv == 0) || ($server == $null)) { echo -s 8,1 ]0:15- 4 No-one 0is serving 15 -0:8[  }
  totconv 
  %c1 = 1 | %c2 = 1 | %s.tmp2 = $replace(%s.c.mainmes1,*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) | %s.nl = 0
  if ($server != $null) {
    totconv
    %c1 = 1 | %c2 = 1 | %s.tmp2 = $replace(%s.c.mainmes1,*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) | %s.trk = 0 | %s.nl = 0
    while (%c1 <= %s.tot.serv) {
      if ((%c1 < 2) || (%c1 == 27)) { %s.tmp1 = %s.c.nickcol $+ $line(@SC-Serve,%c1) }
      else { %s.tmp1 = $line(@SC-Serve,%c1) }
      if (%c1 < 2) { %s.tmp2 = %s.tmp2 %s.tmp1 }
      if ((%c1 > 1) && (%s.nl == 0)) { %s.tmp2 = %s.tmp2 $+ , %s.tmp1 }
      if ((%c1 > 1) && (%s.nl == 1)) { %s.tmp2 = %s.tmp2 $+ , %s.tmp1 }
      inc %c1 1 | inc %c2 1
      if (%c1 == $calc(%s.tot.serv + 1)) { 
        %s.tmp3 = $mid(%s.tmp2,1,1)
        if (%s.tmp3 == $chr(44)) { %s.tmp4 = $mid(%s.tmp2,3,$len(%s.tmp2)) | %s.tmp2 = %s.tmp4 }
        %s.c.tmpla =  $+ %s.c.nickcol $+ %s.tmp2
        echo -s %s.c.tmpla %s.c.mainmes2
      }
      if ((%c2 > 24) && (%c1 < %s.tot.serv)) {
        %s.c.tmpla =  $+ %s.c.nickcol $+ %s.tmp2
        echo -s %s.c.tmpla
        set %s.tmp2 $null
        inc %s.trk
        %c2 = 1 | %s.nl = 1
      }
    }
  }
  echo -s -
  if (%s.trig == on) { echo -s %s.c.mainmes3 | echo -s - } 
  if (%s.topic == on) { echo -s Topic : $replace(%s.c.topmes,*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) -=- Changed every %s.c.toptime minutes | echo -s - } 
  echo -s 00,14(01I)9,2 Server Counter $scvers 00,14(01I)
  echo -s -
}
alias test {
  echo -s 00,14(01I)9,2 Server Counter $scvers - Test Messages 00,14(01I)
  echo -s -
  echo -s : $replace($did(10),*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) $did(15) $+ <Nick>,Nick>,<Nick> $did(11)
  echo -s -
  echo -s : $did(12)
  echo -s -
  echo -s : Topic : $replace($did(13),*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) -=- Changed every $did(14) minutes
  echo -s -
  echo -s 00,14(01I)9,2 Server Counter $scvers - Test Messages 00,14(01I)
  echo -s -
}
alias servercount { dialog -m server.count server.count }
alias you_serve {
  s.c.wo
  if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - 04Changes Applied 00-09-03-{09 $+ %s.channel 00-09 %s.rsf Files in your list03}-09-00-04 Resetting Servers 04,15:05,00[ }
  if (%s.you.serv == on) { %s.tot.serv = 1 | %s.totfiles = %s.rsf | .timer 1 3 sc.addu }
  if (%s.you.serv == off) { %s.tot.serv = 0 | %s.totfiles = 0 }
}
alias sc.addu aline @SC-Serve $me
alias -l Fixchan { did -o server.count $1- }
alias s.c.atrack {
  %s.ctl = $line(@SC-Track,0) | %s.cts = 1 | %s.do = 1 | %s.epo = $null | %s.efi = $null
  while (%s.cts <= %s.ctl) {
    %s.ctlr = $line(@SC-Track,%s.cts) | %s.ctn = $gettok(%s.ctlr,1,255) | %s.ctfic = $gettok(%s.ctlr,-1,255)
    if ((%s.nick == %s.ctn) && (%s.ctcps == %s.ctfic)) { %s.do = 0 }
    if ((%s.nick == %s.ctn) && (%s.ctcps != %s.ctfic)) { %s.do = 2 | %s.epo = %s.cts | %s.efi = %s.ctfic }
    inc %s.cts
  }
  if (%s.do == 0) return  
  if (%s.do == 1) {
    %s.atl = %s.nick $+ $chr(255) $+ %s.ctcps
    aline @SC-Track %s.atl
    %s.totfiles = $calc( %s.totfiles + %s.ctcps )
    if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Added9 %s.nick 0and9 %s.ctcps 0files - Total now9 %s.totfiles 14-15-0(8Advertising Slots0)15-14- 00,14(01I) }
  }
  if (%s.do == 2) {
    %s.totfiles = $calc( %s.totfiles - %s.efi )
    %s.atl = %s.nick $+ $chr(255) $+ %s.ctcps
    dline @SC-Track %s.epo
    aline @SC-Track %s.atl
    %s.totfiles = $calc( %s.totfiles + %s.ctcps )
    if (%s.status == on) { echo -s 00,14(01I)00,02 Server Counter $scvers - Added9 %s.nick 0a new list of9 %s.ctcps 0files - Adjusted Total now9 %s.totfiles 14-15-0(8Advertising Slots - New List0)15-14- 00,14(01I) }
  }
  if ($dialog(server.count)) { s.inidia }
}
alias s.c.rtrack {
  %s.ctf = Zero detected
  %s.ctl = $line(@SC-Track,0) | %s.cts = 1 | %s.do = 0
  while (%s.cts <= %s.ctl) {
    %s.ctlr = $line(@SC-Track,%s.cts) | %s.ctn = $gettok(%s.ctlr,1,255)
    if (%s.nick == %s.ctn) { %s.do = %s.cts }
    inc %s.cts
  }
  if (%s.do != 0) {
    %s.ctlr = $line(@SC-Track,%s.do) | %s.ctn = $gettok(%s.ctlr,1,255) | %s.ctf = $gettok(%s.ctlr,-1,255) | %s.totfiles = $calc( %s.totfiles - %s.ctf )
    dline @SC-Track %s.do
  }
}
alias totconv {
  %s.tpcharb = $null | %s.ts = $len(%s.totfiles) | %s.te = 1 | %s.tc = 0 | %s.tc2 = 0
  while (%s.te <= %s.ts) {
    %s.tcharb = $mid(%s.totfiles,%s.ts,1)
    if ((%s.tc == 3) && (%s.tc2 != $len(%s.totserv))) { %s.tpcharb = %s.tpcharb $+ , | %s.tc = 0 }
    %s.tpcharb = %s.tpcharb $+ %s.tcharb
    inc %s.tc | inc %s.tc2 | dec %s.ts
  }
  %s.tpchar = $null | %s.ts = $len(%s.tpcharb) | %s.te = 1
  while (%s.te <= %s.ts) {
    %s.tchar = $mid(%s.tpcharb,%s.ts,1) | %s.tpchar = %s.tpchar $+ %s.tchar
    dec %s.ts
  }
}
alias SC.Left {
  if ((%s.c.gt != b) && (%s.c.gt != k)) {
    if ($nick == $me) { sc.rset | return }
    %s.nick = $nick | %c = 1 | %s.in = 0
  }
  if (%s.c.gt == b) { 
    if $bnick = $me { sc.rset | return }
    %s.nick = $bnick | %c = 1 | %s.in = 0
  }
  if ((%s.c.gt == k)) {
    if ($knick == $me) { sc.rset | return }
    %s.nick = $knick | %c = 1 | %s.in = 0
  }
  %s.c.gt = $null 
  s.c.rtrack 
  %s.tmpdln = $null | %s.tmpdln = $fline(@SC-Serve,%s.nick,1,0)
  if (%s.tmpdln != $null) { 
    dline @SC-Serve %s.tmpdln
  }
  if ((%s.do != 0) || (%s.tmpdln != $null)) { 
    dec %s.tot.serv
    if ($dialog(server.count)) { s.inidia }
  }
}
alias SC.topic { .TOPIC %s.channel $replace(%s.c.topmes,*files,%s.tpchar,*channel,%s.channel,*servers,%s.tot.serv) }
alias SC.message {
  %s.tl = $line(@SC-Mes,0)
  if (%s.tl == 0) return
  %s.pm = $line(@SC-Mes,1)
  .notice %s.pm
  dline @SC-Mes 1
}
alias s.c.initial {
  if ($version < 5.52) { echos -s 4You need mIRC v5.52 or higher to user this script - unload it | return }
  %s.rsf = 0 | %s.regserv = 0 | %s.status = on
  %s.tot.serv = 0 | %s.totfiles = %s.rsf | %s.you.serv = on 
  %s.channel = #Channel_To_Be_Set | %s.shoot = off | %s.topic = off 
  %s.trig = off | %s.c.nickcol = 
  %s.c.mainmes1 = There are *servers detected servers playing MP3's and serving about *files files in *channel, they are : 
  %s.c.mainmes2 = : (+)Voice for servers.
  %s.c.mainmes3 = Also you can use the 5>4>8,2 !Servers 4<5< trigger anytime to find out who is serving.
  %s.c.topmes = We have *servers detected servers, serving *files files.
  %s.c.toptime = 5 | %sc.ontop = off
  s.c.wo
  echo -s Server Counter initialised and loaded >> See commands -> Server Counter <<
}
alias s.c.wo {
  if (!$window(@SC-Serve)) window -lhk0s @SC-Serve @SC-Serve 90 90 80 200
  else { window -c @SC-Serve | window -lhk0s @SC-Serve @SC-Serve 90 90 80 200 }
  if (!$window(@SC-Track)) window -lhk0s @SC-Track @SC-Track 100 100 80 200
  else { window -c @SC-Track | window -lhk0s @SC-Track @SC-Track 100 100 80 200 }
  if (!$window(@SC-Mes)) window -lhk0 @SC-Mes @SC-Mes 110 110 300 200
  else { window -c @SC-Mes | window -lhk0 @SC-Mes @SC-Mes 110 110 300 200 }
}
alias sc.rset {
  %s.tot.serv = 0 | %s.totfiles = %s.rsf
  s.c.wo
  if ($dialog(server.count)) { s.inidia }
}
alias scvers return v2.01 Final
alias scversa return v2.01 Final






; === [AUTO STATS en #mp3download] ===

; === [AUTO STATS en #mp3download] ===

on *:JOIN:#mp3download:{
  if ($nick == $me) {
    ; Activamos el timer al entrar al canal
    .enable #AutoStatsMP3
    .timerMP3Stats 0 600 doMP3Stats
  }
}

on *:PART:#mp3download:{
  if ($nick == $me) {
    ; Detenemos el timer al salir del canal
    .disable #AutoStatsMP3
    .timerMP3Stats off
  }
}

on *:EXIT:{
  ; Por si acaso salimos de mIRC
  .timerMP3Stats off
}

#AutoStatsMP3 on
alias doMP3Stats {
  var %servers = $($(%s.tot.serv),2)
  var %files = $($(%s.totfiles),2)
  msg #mp3download 12,00*** Actualmente hay4,00 %servers 12,00usuarios compartiendo4,00 %files 12,00archivos en04,00 #mp3download 12,00¡Únete y comparte lo tuyo también! ***
}
#AutoStatsMP3 end
Explorando: ./mrc

Vista previa de: ServerCounter.mrc
