on 1:connect:{
  .timerpromos 0 32 activapromos
  set %numsajo 1
}

on 1:text:*:#services-diagnostics:{
  if ($nick == Scorpions) {
    if ($1 == !forcepromo) { activapromos2 }
    if ($1 == !delforcepromo) { activapromos3 }
  }
}

alias activapromos2 {
  msg #services-diagnostics Activando Forsado Promos de Salas.
  set %sajoinpromos on
  .enable #sajoinpromos
}

alias activapromos3 {
  msg #services-diagnostics Desactivando Forsado Promos de Salas.
  set %sajoinpromos off
  .disable #sajoinpromos
}

alias activapromos {
  if (19:00: isin $time) {
    set %promo 1
    while (%promo <= $lines(promos.txt)) {
      hop $gettok($read -l $+ %promo promos.txt,1,32)
      inc %promo
    }
  }
  if (20:30: isin $time) {
    set %promo 1
    while (%promo <= $lines(promos.txt)) {
      hop $gettok($read -l $+ %promo promos.txt,1,32)
      inc %promo
    }
  }
  if (20:45: isin $time && %activapromo == off) {
    set %promo 1
    while (%promo <= $lines(promos.txt)) {
      hop $gettok($read -l $+ %promo promos.txt,1,32)
      inc %promo
    }
    msg #services-diagnostics Activando Forsado Promos de Salas. (21:00 a 23:00)
    set %activapromo on
    set %sajoinpromos on
    .enable #sajoinpromos
  }
  if (23:00: isin $time && %activapromo == on) {
    msg #services-diagnostics Desactivando Forsado Promos de Salas. (21:00 a 23:00)
    set %activapromo off
    set %sajoinpromos off
    .disable #sajoinpromos
  }
}
on 1:rawmode:#:{
  if ($read(promos.txt,w,$chan $+ *)) {
    if ($nick == chanserv) {
      if ($1 == +o || $1 == +v || $1 == +ao) {
        if ($read($chan $+ .txt,w,$2) != $null) { write -dl $+ $readn $chan $+ .txt }
      }
    }
  }
}
on 1:join:#:{
  if ($read(promos.txt,w,$chan $+ *) != $null) {
    if ($nick == $me) { write -c $chan $+ .txt }
    if ($nick != $me) { write $chan $+ .txt $nick }
  }
}
on 1:part:#:{
  if ($read(promos.txt,w,$chan $+ *) != $null) {
    if ($nick == $me) { join $chan }
    if ($nick != $me) {
      if ($read($chan $+ .txt,w,$nick) != $null) { write -dl $+ $readn $chan $+ .txt }
    }
  }
}

raw 352:*:{
  if (& isin $7 || @ isin $7 || $me == $6) { halt } 
  if ($read(promos.txt,w,$2 $+ *) != $null) {
    write $2 $+ .txt $6
  }
}
on 1:snotice:*:{
  if ($3 == exiting:) {
    set %numquit 1
    while (%numquit <= $lines(promos.txt)) {
      if ($read($gettok($read -l $+ %numquit promos.txt,1,32) $+ .txt,w,$3) != $null) { write -dl $+ $readn $gettok($read -l $+ %numquit promos.txt,1,32) $+ .txt }
      inc %numquit
    }
  }
  if ($3 == connecting:) {
    if (staff isin $10) { halt }
    if (%numsajo == 1) { set %nicksajo $4 | promo1 | halt }
    if (%numsajo == 2) { set %nicksajo $4 | promo2 | halt }
    if (%numsajo == 3) { set %nicksajo $4 | promo3 | halt }
    if (%numsajo == 4) { set %nicksajo $4 | promo4 | halt }
    if (%numsajo == 5) { set %nicksajo $4 | promo5 | halt }
    if (%numsajo == 6) { set %nicksajo $4 | promo6 | halt }
    if (%numsajo == 7) { set %nicksajo $4 | promo7 | halt }
    if (%numsajo == 8) { set %nicksajo $4 | promo8 | halt }
    if (%numsajo == 9) { set %nicksajo $4 | promo9 | halt }
    if (%numsajo == 10) { set %nicksajo $4 | promo10 | halt }
    if (%numsajo == 11) { set %nicksajo $4 | promo11 | halt }
    if (%numsajo == 12) { set %nicksajo $4 | promo12 | halt }
    if (%numsajo == 13) { set %nicksajo $4 | promo13 | halt }
    if (%numsajo == 14) { set %nicksajo $4 | promo14 | halt }
    if (%numsajo == 15) { set %nicksajo $4 | promo15 | halt }
    if (%numsajo == 16) { set %nicksajo $4 | promo16 | halt }
    if (%numsajo == 17) { set %nicksajo $4 | promo17 | halt }
    if (%numsajo == 18) { set %nicksajo $4 | promo18 | halt }
    if (%numsajo == 19) { set %nicksajo $4 | promo19 | halt }
    if (%numsajo == 20) { set %nicksajo $4 | promo20 | halt }
    if (%numsajo == 21) { set %nicksajo $4 | promo21 | halt }
    if (%numsajo == 22) { set %nicksajo $4 | promo22 | halt }
    if (%numsajo == 23) { set %nicksajo $4 | promo23 | halt }
    if (%numsajo == 24) { set %nicksajo $4 | promo24 | halt }
    if (%numsajo == 25) { set %nicksajo $4 | promo25 | halt }
    if (%numsajo == 26) { set %nicksajo $4 | promo26 | halt }
    if (%numsajo == 27) { set %nicksajo $4 | promo27 | halt }
    if (%numsajo == 28) { set %nicksajo $4 | promo28 | halt }
    if (%numsajo == 29) { set %nicksajo $4 | promo29 | halt }
    if (%numsajo == 30) { set %nicksajo $4 | promo30 | halt }
  }
}
on 1:nick:{
  set %numnick 1
  while (%numnick <= $lines(promos.txt)) {
    if ($read($gettok($read -l $+ %numnick promos.txt,1,32) $+ .txt,w,$nick) != $null) { write -l $+ $readn $gettok($read -l $+ %numnick promos.txt,1,32) $+ .txt $newnick }
    inc %numnick
  }
}
alias promo1 {
  if ($gettok($read -l1 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l1 promos.txt,1,32) $+ .txt) <= $gettok($read -l1 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l1 promos.txt,1,32) | inc %numsajo }
  else { inc %numsajo | promo2 }
}
alias promo2 {
  if ($gettok($read -l2 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l2 promos.txt,1,32) $+ .txt) <= $gettok($read -l2 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l2 promos.txt,1,32) | inc %numsajo }
  else { inc %numsajo | promo3 }
}
alias promo3 {
  if ($gettok($read -l3 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l3 promos.txt,1,32) $+ .txt) <= $gettok($read -l3 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l3 promos.txt,1,32) | inc %numsajo }
  else { inc %numsajo | promo4 }
}
alias promo4 {
  if ($gettok($read -l4 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l4 promos.txt,1,32) $+ .txt) <= $gettok($read -l4 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l4 promos.txt,1,32) | inc %numsajo }
  else { inc %numsajo | promo5 }
}
alias promo5 {
  if ($gettok($read -l5 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l5 promos.txt,1,32) $+ .txt) <= $gettok($read -l5 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l5 promos.txt,1,32)) | inc %numsajo }
  else { inc %numsajo | promo6 }
}
alias promo6 {
  if ($gettok($read -l6 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l6 promos.txt,1,32) $+ .txt) <= $gettok($read -l6 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l6 promos.txt,1,32) | inc %numsajo }
  else { inc %numsajo | promo7 }
}
alias promo7 {
  if ($gettok($read -l7 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l7 promos.txt,1,32) $+ .txt) <= $gettok($read -l7 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l7 promos.txt,1,32) $gettok($read -l7 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo8 }
}
alias promo8 {
  if ($gettok($read -l8 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l8 promos.txt,1,32) $+ .txt) <= $gettok($read -l8 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l8 promos.txt,1,32) $gettok($read -l8 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo9 }
}
alias promo9 {
  if ($gettok($read -l9 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l9 promos.txt,1,32) $+ .txt) <= $gettok($read -l9 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l9 promos.txt,1,32) $gettok($read -l9 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo10 }
}
alias promo10 {
  if ($gettok($read -l10 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l10 promos.txt,1,32) $+ .txt) <= $gettok($read -l10 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l10 promos.txt,1,32) $gettok($read -l10 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo11 }
}
alias promo11 {
  if ($gettok($read -l11 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l11 promos.txt,1,32) $+ .txt) <= $gettok($read -l11 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l11 promos.txt,1,32) $gettok($read -l11 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo12 }
}
alias promo12 {
  if ($gettok($read -l12 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l12 promos.txt,1,32) $+ .txt) <= $gettok($read -l12 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l12 promos.txt,1,32) $gettok($read -l12 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo13 }
}
alias promo13 {
  if ($gettok($read -l13 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l13 promos.txt,1,32) $+ .txt) <= $gettok($read -l13 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l13 promos.txt,1,32) $gettok($read -l13 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo14 }
}
alias promo14 {
  if ($gettok($read -l14 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l14 promos.txt,1,32) $+ .txt) <= $gettok($read -l14 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l14 promos.txt,1,32) $gettok($read -l14 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo15 }
}
alias promo15 {
  if ($gettok($read -l15 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l15 promos.txt,1,32) $+ .txt) <= $gettok($read -l15 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l15 promos.txt,1,32) $gettok($read -l15 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo16 }
}
alias promo16 {
  if ($gettok($read -l16 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l16 promos.txt,1,32) $+ .txt) <= $gettok($read -l16 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l16 promos.txt,1,32) $gettok($read -l16 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo17 }
}
alias promo17 {
  if ($gettok($read -l17 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l17 promos.txt,1,32) $+ .txt) <= $gettok($read -l17 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l17 promos.txt,1,32) $gettok($read -l17 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo18 }
}
alias promo18 {
  if ($gettok($read -l18 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l18 promos.txt,1,32) $+ .txt) <= $gettok($read -l18 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l18 promos.txt,1,32) $gettok($read -l18 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo19 }
}
alias promo19 {
  if ($gettok($read -l19 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l19 promos.txt,1,32) $+ .txt) <= $gettok($read -l19 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l19 promos.txt,1,32) $gettok($read -l19 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo20 }
}
alias promo20 {
  if ($gettok($read -l20 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l20 promos.txt,1,32) $+ .txt) <= $gettok($read -l20 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l20 promos.txt,1,32) $gettok($read -l20 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo21 }
}
alias promo21 {
  if ($gettok($read -l21 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l21 promos.txt,1,32) $+ .txt) <= $gettok($read -l21 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l21 promos.txt,1,32) $gettok($read -l21 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo22 }
}
alias promo22 {
  if ($gettok($read -l22 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l22 promos.txt,1,32) $+ .txt) <= $gettok($read -l22 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l22 promos.txt,1,32) $gettok($read -l22 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo23 }
}
alias promo23 {
  if ($gettok($read -l23 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l23 promos.txt,1,32) $+ .txt) <= $gettok($read -l23 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l23 promos.txt,1,32) $gettok($read -l23 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo24 }
}
alias promo24 {
  if ($gettok($read -l24 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l24 promos.txt,1,32) $+ .txt) <= $gettok($read -l24 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l24 promos.txt,1,32) $gettok($read -l24 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo25 }
}
alias promo25 {
  if ($gettok($read -l25 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l25 promos.txt,1,32) $+ .txt) <= $gettok($read -l25 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l25 promos.txt,1,32) $gettok($read -l25 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo26 }
}
alias promo26 {
  if ($gettok($read -l26 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l26 promos.txt,1,32) $+ .txt) <= $gettok($read -l26 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l26 promos.txt,1,32) $gettok($read -l26 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo27 }
}
alias promo27 {
  if ($gettok($read -l27 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l27 promos.txt,1,32) $+ .txt) <= $gettok($read -l27 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l27 promos.txt,1,32) $gettok($read -l27 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo28 }
}
alias promo28 {
  if ($gettok($read -l28 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l28 promos.txt,1,32) $+ .txt) <= $gettok($read -l28 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l28 promos.txt,1,32) $gettok($read -l28 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo29 }
}
alias promo29 {
  if ($gettok($read -l29 promos.txt,2,32) == $null) { set %numsajo 1 }
  if ($lines($gettok($read -l29 promos.txt,1,32) $+ .txt) <= $gettok($read -l29 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l29 promos.txt,1,32) $gettok($read -l29 promos.txt,2,32) | inc %numsajo }
  else { inc %numsajo | promo30 }
}
alias promo30 {
  if ($gettok($read -l30 promos.txt,2,32) == $null) { set %numsajo  }
  if ($lines($gettok($read -l30 promos.txt,1,32) $+ .txt) <= $gettok($read -l30 promos.txt,2,32)) { sajoin %nicksajo $gettok($read -l30 promos.txt,1,32) $gettok($read -l30 promos.txt,2,32) | set %numsajo 1 }
  else { set %numsajo 1 | halt }
}
on 1:text:*:#services-diagnostics:{
  if ($nick isin Scorpions,Ray-Skate) {
    if ($1 == !resetpromo) {
      msg $chan Salas con Promo reseteadas.
      promos
    }
  }
}
alias promos {
  set %resetpromo 1
  while (%resetpromo <= $lines(promos.txt)) {
    part $gettok($read -l $+ %resetpromo promos.txt,1,32)
    .timer 1 1 join $gettok($read -l $+ %resetpromo promos.txt,1,32)
    inc %resetpromo
  }
}