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
}
}