API tools faq
paste
Skreffnet

Parrilla mIRC conversor a HTML

Skreffnet
Oct 22nd, 2019 (edited)
249
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 84.25 KB | Music | 0 0
raw download clone embed print report
  1. ;------------- parrilla de diario -------------------;
  2. parrilla {
  3.   if ($1 == hora) {
  4.     if ($2 == 00) { return $gettok($gettok($read($ruta(parrilla),19),2,62),1,60) }
  5.     if ($2 == 01) { return $gettok($gettok($read($ruta(parrilla),23),2,62),1,60) }
  6.     if ($2 == 02) { return $gettok($gettok($read($ruta(parrilla),27),2,62),1,60) }
  7.     if ($2 == 03) { return $gettok($gettok($read($ruta(parrilla),31),2,62),1,60) }
  8.     if ($2 == 04) { return $gettok($gettok($read($ruta(parrilla),35),2,62),1,60) }
  9.     if ($2 == 05) { return $gettok($gettok($read($ruta(parrilla),39),2,62),1,60) }
  10.     if ($2 == 06) { return $gettok($gettok($read($ruta(parrilla),43),2,62),1,60) }
  11.     if ($2 == 07) { return $gettok($gettok($read($ruta(parrilla),47),2,62),1,60) }
  12.     if ($2 == 08) { return $gettok($gettok($read($ruta(parrilla),51),2,62),1,60) }
  13.     if ($2 == 09) { return $gettok($gettok($read($ruta(parrilla),55),2,62),1,60) }
  14.     if ($2 == 10) { return $gettok($gettok($read($ruta(parrilla),59),2,62),1,60) }
  15.     if ($2 == 11) { return $gettok($gettok($read($ruta(parrilla),63),2,62),1,60) }
  16.     if ($2 == 12) { return $gettok($gettok($read($ruta(parrilla),67),2,62),1,60) }
  17.     if ($2 == 13) { return $gettok($gettok($read($ruta(parrilla),71),2,62),1,60) }
  18.     if ($2 == 14) { return $gettok($gettok($read($ruta(parrilla),75),2,62),1,60) }
  19.     if ($2 == 15) { return $gettok($gettok($read($ruta(parrilla),79),2,62),1,60) }
  20.     if ($2 == 16) { return $gettok($gettok($read($ruta(parrilla),83),2,62),1,60) }
  21.     if ($2 == 17) { return $gettok($gettok($read($ruta(parrilla),87),2,62),1,60) }
  22.     if ($2 == 18) { return $gettok($gettok($read($ruta(parrilla),91),2,62),1,60) }
  23.     if ($2 == 19) { return $gettok($gettok($read($ruta(parrilla),95),2,62),1,60) }
  24.     if ($2 == 20) { return $gettok($gettok($read($ruta(parrilla),99),2,62),1,60) }
  25.     if ($2 == 21) { return $gettok($gettok($read($ruta(parrilla),103),2,62),1,60) }
  26.     if ($2 == 22) { return $gettok($gettok($read($ruta(parrilla),107),2,62),1,60) }
  27.     if ($2 == 23) { return $gettok($gettok($read($ruta(parrilla),111),2,62),1,60) }
  28.   }
  29.   if ($1 == libre) {
  30.     if ($2 == lunes) {
  31.       if ($3 == 00) { return $gettok($gettok($read($ruta(parrilla,lunes),20),2,60),2,62) }
  32.       if ($3 == 01) { return $gettok($gettok($read($ruta(parrilla,lunes),24),2,60),2,62) }
  33.       if ($3 == 02) { return $gettok($gettok($read($ruta(parrilla,lunes),28),2,60),2,62) }
  34.       if ($3 == 03) { return $gettok($gettok($read($ruta(parrilla,lunes),32),2,60),2,62) }
  35.       if ($3 == 04) { return $gettok($gettok($read($ruta(parrilla,lunes),36),2,60),2,62) }
  36.       if ($3 == 05) { return $gettok($gettok($read($ruta(parrilla,lunes),40),2,60),2,62) }
  37.       if ($3 == 06) { return $gettok($gettok($read($ruta(parrilla,lunes),44),2,60),2,62) }
  38.       if ($3 == 07) { return $gettok($gettok($read($ruta(parrilla,lunes),48),2,60),2,62) }
  39.       if ($3 == 08) { return $gettok($gettok($read($ruta(parrilla,lunes),52),2,60),2,62) }
  40.       if ($3 == 09) { return $gettok($gettok($read($ruta(parrilla,lunes),56),2,60),2,62) }
  41.       if ($3 == 10) { return $gettok($gettok($read($ruta(parrilla,lunes),60),2,60),2,62) }
  42.       if ($3 == 11) { return $gettok($gettok($read($ruta(parrilla,lunes),64),2,60),2,62) }
  43.       if ($3 == 12) { return $gettok($gettok($read($ruta(parrilla,lunes),68),2,60),2,62) }
  44.       if ($3 == 13) { return $gettok($gettok($read($ruta(parrilla,lunes),72),2,60),2,62) }
  45.       if ($3 == 14) { return $gettok($gettok($read($ruta(parrilla,lunes),76),2,60),2,62) }
  46.       if ($3 == 15) { return $gettok($gettok($read($ruta(parrilla,lunes),80),2,60),2,62) }
  47.       if ($3 == 16) { return $gettok($gettok($read($ruta(parrilla,lunes),84),2,60),2,62) }
  48.       if ($3 == 17) { return $gettok($gettok($read($ruta(parrilla,lunes),88),2,60),2,62) }
  49.       if ($3 == 18) { return $gettok($gettok($read($ruta(parrilla,lunes),92),2,60),2,62) }
  50.       if ($3 == 19) { return $gettok($gettok($read($ruta(parrilla,lunes),96),2,60),2,62) }
  51.       if ($3 == 20) { return $gettok($gettok($read($ruta(parrilla,lunes),100),2,60),2,62) }
  52.       if ($3 == 21) { return $gettok($gettok($read($ruta(parrilla,lunes),104),2,60),2,62) }
  53.       if ($3 == 22) { return $gettok($gettok($read($ruta(parrilla,lunes),108),2,60),2,62) }
  54.       if ($3 == 23) { return $gettok($gettok($read($ruta(parrilla,lunes),112),2,60),2,62) }
  55.     }
  56.   }
  57.   if ($1 == ocupado) {
  58.     if ($2 == lunes) {
  59.       if ($3 == 00) { return $gettok($gettok($read($ruta(parrilla,lunes),20),3,60),-1,62) }
  60.       if ($3 == 01) { return $gettok($gettok($read($ruta(parrilla,lunes),24),3,60),-1,62) }
  61.       if ($3 == 02) { return $gettok($gettok($read($ruta(parrilla,lunes),28),3,60),-1,62) }
  62.       if ($3 == 03) { return $gettok($gettok($read($ruta(parrilla,lunes),32),3,60),-1,62) }
  63.       if ($3 == 04) { return $gettok($gettok($read($ruta(parrilla,lunes),24),3,60),-1,62) }
  64.       if ($3 == 05) { return $gettok($gettok($read($ruta(parrilla,lunes),40),3,60),-1,62) }
  65.       if ($3 == 06) { return $gettok($gettok($read($ruta(parrilla,lunes),44),3,60),-1,62) }
  66.       if ($3 == 07) { return $gettok($gettok($read($ruta(parrilla,lunes),48),3,60),-1,62) }
  67.       if ($3 == 08) { return $gettok($gettok($read($ruta(parrilla,lunes),52),3,60),-1,62) }
  68.       if ($3 == 09) { return $gettok($gettok($read($ruta(parrilla,lunes),56),3,60),-1,62) }
  69.       if ($3 == 10) { return $gettok($gettok($read($ruta(parrilla,lunes),60),3,60),-1,62) }
  70.       if ($3 == 11) { return $gettok($gettok($read($ruta(parrilla,lunes),64),3,60),-1,62) }
  71.       if ($3 == 12) { return $gettok($gettok($read($ruta(parrilla,lunes),68),3,60),-1,62) }
  72.       if ($3 == 13) { return $gettok($gettok($read($ruta(parrilla,lunes),72),3,60),-1,62) }
  73.       if ($3 == 14) { return $gettok($gettok($read($ruta(parrilla,lunes),76),3,60),-1,62) }
  74.       if ($3 == 15) { return $gettok($gettok($read($ruta(parrilla,lunes),80),3,60),-1,62) }
  75.       if ($3 == 16) { return $gettok($gettok($read($ruta(parrilla,lunes),84),3,60),-1,62) }
  76.       if ($3 == 17) { return $gettok($gettok($read($ruta(parrilla,lunes),88),3,60),-1,62) }
  77.       if ($3 == 18) { return $gettok($gettok($read($ruta(parrilla,lunes),92),3,60),-1,62) }
  78.       if ($3 == 19) { return $gettok($gettok($read($ruta(parrilla,lunes),96),3,60),-1,62) }
  79.       if ($3 == 20) { return $gettok($gettok($read($ruta(parrilla,lunes),100),3,60),-1,62) }
  80.       if ($3 == 21) { return $gettok($gettok($read($ruta(parrilla,lunes),104),3,60),-1,62) }
  81.       if ($3 == 22) { return $gettok($gettok($read($ruta(parrilla,lunes),108),3,60),-1,62) }
  82.       if ($3 == 23) { return $gettok($gettok($read($ruta(parrilla,lunes),112),3,60),-1,62) }
  83.     }
  84.   }
  85.   if ($1  == esc) {
  86.  
  87.     if ($2 == 00) { write -l20 $plantilla(parrilla) }
  88.     if ($2 == 01) { write -l24 $plantilla(parrilla) }
  89.   }
  90. }
  91. plantilla {
  92.   if ($1 == parrilla) { return <td id="celda1b" class="disponible"> <div align="center"><a href=" $web $+ /locutores/ $+ $lower($nick) $+ .html"> $+ $nick $+ </a></div></td>  }
  93. }
  94. creaperfil {
  95.   set %nick $lower($nick)
  96.   if ($exists($ruta(perfil)) == $false) {
  97.     msg $canal(loc) Creando perfil de 12 $+ $nick $+ 
  98.     msg $canal(debug) PERFILES: Creando Perfil de 12 $+ $nick $+   
  99.     write $ruta(perfil) 
  100.     copy -o $ruta(default) $ruta(perfil)
  101.     $titulo
  102.   }
  103.   if ($exists($ruta(perfil)) == $true) {
  104.     msg $canal(loc) Actualizando perfil de 12 $nick 
  105.     msg $canal(debug) PERFILES: Actualizando página de 12 $+ $nick $+ 
  106.   }
  107. }
  108.  
  109. perfil {
  110.   if ($1 == $null) { return /ftp upload $_ftp(host) $+ : $+ $_ftp(port) $_ftp(usuario) $_ftp(password) " $+ $ruta(perfil) $+ " "/locutores/ $+ $lower($nick) $+ .html" }
  111.   if ($1 == locutor) { return $mircdirdb\perfiles\locutores\ }
  112. }
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119. ruta {
  120.   if ($1 == horarios) { return $mircdirdb\plantillas\horarios.html }
  121.   if ($1 == parrilla) {
  122.     if ($2 == lunes) { return $mircdirdb\parrillas\lunes.html }
  123.     if ($2 == martes) { return $mircdirdb\parrillas\martes.html }
  124.     if ($2 == miercoles) { return $mircdirdb\parrillas\miercoles.html }
  125.     if ($2 == jueves) { return $mircdirdb\parrillas\jueves.html }
  126.     if ($2 == viernes) { return $mircdirdb\parrillas\viernes.html }
  127.     if ($2 == sabado) { return $mircdirdb\parrillas\sabado.html }
  128.     if ($2 == domingo) { return $mircdirdb\parrillas\domingo.html }
  129.     if ($2 == default) { return $mircdirdb\plantillas\parrilla.html }
  130.   }
  131.   if ($1 == perfil) { return $mircdirdb\perfiles\locutores\ $+ $lower($nick) $+ .html }
  132.   if ($1 == default) { return $mircdirdb\plantillas\perfiles\default.html }  
  133.   if ($1 == staff) { return $mircdirdb\staff\ }
  134.  
  135. }
  136. _dia {
  137.   if ($1 == lunes) { return $gettok($gettok($gettok($read($ruta(horarios),16),-1,34),1,60),1,62) }
  138.   elseif ($1 == martes) { return $gettok($gettok($gettok($read($ruta(horarios),17),-1,34),1,60),1,62) }
  139.   elseif ($1 == miercoles) { return $gettok($gettok($gettok($read($ruta(horarios),18),-1,34),1,60),1,62) }
  140.   elseif ($1 == jueves) { return $gettok($gettok($gettok($read($ruta(horarios),19),-1,34),1,60),1,62) }
  141.   elseif ($1 == viernes) { return $gettok($gettok($gettok($read($ruta(horarios),20),-1,34),1,60),1,62) }
  142.   elseif ($1 == sabado) { return $gettok($gettok($gettok($read($ruta(horarios),21),-1,34),1,60),1,62) }
  143.   elseif ($1 == domingo) { return $gettok($gettok($gettok($read($ruta(horarios),22),-1,34),1,60),1,62) }
  144. }
  145. _simple {
  146.   if ($1 == lunes) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),16),-1,34),1,60),1,62),1,78) }
  147.   elseif ($1 == martes) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),17),-1,34),1,60),1,62),1,82) }
  148.   elseif ($1 == miercoles) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),18),-1,34),1,60),1,62),1,69) }
  149.   elseif ($1 == jueves) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),19),-1,34),1,60),1,62),1,69) }
  150.   elseif ($1 == viernes) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),20),-1,34),1,60),1,62),1,69) }
  151.   elseif ($1 == sabado) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),21),-1,34),1,60),1,62),1,66) }
  152.   elseif ($1 == domingo) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),22),-1,34),1,60),1,62),1,77)  }
  153. }
  154. titulo {
  155.   write -l4 $ruta(perfil) <title>Perfil de $nick &nbsp;&brvbar;&nbsp; WorldtheMusic</title>
  156.   write -l35 $ruta(perfil) <h3 class="texto">PERFIL DE: <b color:blue> $nick </b></h3>
  157. }
  158. tabla { return $ruta(perfil) <td class="tabla-td1 no"><div align="center">Sin asignar</div></td> }
  159. tabla1 { return $ruta(perfil) <td class="tabla-td1 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($nick) $+ .html"> $+ $nick $+ </a></div></td> }
  160. tabla2 { return $ruta(perfil) <td class="tabla-td2 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($nick) $+ .html"> $+ $nick $+ </a></div></td> }
  161. _tabla { return $ruta(horarios) <td class="tabla-td1 no"><div align="center">Sin asignar</div></td> }
  162. _tabla1 { return $ruta(horarios) <td class="tabla-td1 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($nick) $+ .html"> $+ $nick $+ </a></div></td> }
  163. _tabla2 { return $ruta(horarios) <td class="tabla-td2 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($nick) $+ .html"> $+ $nick $+ </a></div></td> }
  164. _tabla3 { return $ruta(horarios) <td class="tabla-td1 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($2) $+ .html"> $+ $2 $+ </a></div></td> }
  165. _tabla4 { return $ruta(horarios) <td class="tabla-td2 si"><div align="center"><a href=" $+ /locutores/ $+ $lower($2) $+ .html"> $+ $2 $+ </a></div></td> }
  166.  
  167.  
  168. ;----------------- Horas ------------------;
  169. _horario {
  170.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),25),-1,34),1,60),1,62),1,58) }
  171.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),35),-1,34),1,60),1,62),1,58) }
  172.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),45),-1,34),1,60),1,62),1,58) }
  173.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),55),-1,34),1,60),1,62),1,58) }
  174.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),65),-1,34),1,60),1,62),1,58) }
  175.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),75),-1,34),1,60),1,62),1,58) }
  176.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),85),-1,34),1,60),1,62),1,58) }
  177.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),95),-1,34),1,60),1,62),1,58) }
  178.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),105),-1,34),1,60),1,62),1,58) }
  179.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),115),-1,34),1,60),1,62),1,58) }
  180.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),125),-1,34),1,60),1,62),1,58) }
  181.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),135),-1,34),1,60),1,62),1,58) }
  182.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),145),-1,34),1,60),1,62),1,58) }
  183.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),155),-1,34),1,60),1,62),1,58) }
  184.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),165),-1,34),1,60),1,62),1,58) }
  185.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),175),-1,34),1,60),1,62),1,58) }
  186.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),185),-1,34),1,60),1,62),1,58) }
  187.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),195),-1,34),1,60),1,62),1,58) }
  188.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),205),-1,34),1,60),1,62),1,58) }
  189.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),215),-1,34),1,60),1,62),1,58) }
  190.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),225),-1,34),1,60),1,62),1,58) }
  191.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),235),-1,34),1,60),1,62),1,58) }
  192.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),245),-1,34),1,60),1,62),1,58) }
  193.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),255),-1,34),1,60),1,62),1,58) }
  194. }
  195. ;---------------- Fin Horas -----------------;
  196.  
  197. ;---------------- horarios.html --------------;
  198. _comprobado {
  199.   if ($1 == Lunes) {
  200.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),26),-1,34),1,46),1,47),1,62),1,60) }
  201.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),36),-1,34),1,46),1,47),1,62),1,60) }
  202.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),46),-1,34),1,46),1,47),1,62),1,60) }
  203.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),56),-1,34),1,46),1,47),1,62),1,60) }
  204.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),66),-1,34),1,46),1,47),1,62),1,60) }
  205.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),76),-1,34),1,46),1,47),1,62),1,60) }
  206.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),86),-1,34),1,46),1,47),1,62),1,60) }
  207.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),96),-1,34),1,46),1,47),1,62),1,60) }
  208.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),106),-1,34),1,46),1,47),1,62),1,60) }
  209.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),116),-1,34),1,46),1,47),1,62),1,60) }
  210.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),126),-1,34),1,46),1,47),1,62),1,60) }
  211.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),136),-1,34),1,46),1,47),1,62),1,60) }
  212.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),146),-1,34),1,46),1,47),1,62),1,60) }
  213.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),156),-1,34),1,46),1,47),1,62),1,60) }
  214.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),166),-1,34),1,46),1,47),1,62),1,60) }
  215.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),176),-1,34),1,46),1,47),1,62),1,60) }
  216.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),186),-1,34),1,46),1,47),1,62),1,60) }
  217.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),196),-1,34),1,46),1,47),1,62),1,60) }
  218.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),206),-1,34),1,46),1,47),1,62),1,60) }
  219.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),216),-1,34),1,46),1,47),1,62),1,60) }
  220.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),226),-1,34),1,46),1,47),1,62),1,60) }
  221.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),236),-1,34),1,46),1,47),1,62),1,60) }
  222.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),246),-1,34),1,46),1,47),1,62),1,60) }
  223.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),256),-1,34),1,46),1,47),1,62),1,60) }
  224.   }
  225.   if ($1 == Martes) {
  226.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),27),-1,34),1,46),1,47),1,62),1,60) }
  227.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),37),-1,34),1,46),1,47),1,62),1,60) }
  228.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),47),-1,34),1,46),1,47),1,62),1,60) }
  229.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),57),-1,34),1,46),1,47),1,62),1,60) }
  230.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),67),-1,34),1,46),1,47),1,62),1,60) }
  231.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),77),-1,34),1,46),1,47),1,62),1,60) }
  232.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),87),-1,34),1,46),1,47),1,62),1,60) }
  233.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),97),-1,34),1,46),1,47),1,62),1,60) }
  234.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),107),-1,34),1,46),1,47),1,62),1,60) }
  235.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),117),-1,34),1,46),1,47),1,62),1,60) }
  236.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),127),-1,34),1,46),1,47),1,62),1,60) }
  237.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),137),-1,34),1,46),1,47),1,62),1,60) }
  238.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),147),-1,34),1,46),1,47),1,62),1,60) }
  239.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),157),-1,34),1,46),1,47),1,62),1,60) }
  240.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),167),-1,34),1,46),1,47),1,62),1,60) }
  241.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),177),-1,34),1,46),1,47),1,62),1,60) }
  242.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),187),-1,34),1,46),1,47),1,62),1,60) }
  243.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),197),-1,34),1,46),1,47),1,62),1,60) }
  244.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),207),-1,34),1,46),1,47),1,62),1,60) }
  245.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),217),-1,34),1,46),1,47),1,62),1,60) }
  246.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),227),-1,34),1,46),1,47),1,62),1,60) }
  247.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),237),-1,34),1,46),1,47),1,62),1,60) }
  248.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),247),-1,34),1,46),1,47),1,62),1,60) }
  249.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),257),-1,34),1,46),1,47),1,62),1,60) }
  250.   }
  251.   if ($1 == Miercoles) {
  252.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),28),-1,34),1,46),1,47),1,62),1,60) }
  253.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),38),-1,34),1,46),1,47),1,62),1,60) }
  254.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),48),-1,34),1,46),1,47),1,62),1,60) }
  255.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),58),-1,34),1,46),1,47),1,62),1,60) }
  256.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),68),-1,34),1,46),1,47),1,62),1,60) }
  257.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),78),-1,34),1,46),1,47),1,62),1,60) }
  258.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),88),-1,34),1,46),1,47),1,62),1,60) }
  259.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),98),-1,34),1,46),1,47),1,62),1,60) }
  260.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),108),-1,34),1,46),1,47),1,62),1,60) }
  261.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),118),-1,34),1,46),1,47),1,62),1,60) }
  262.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),128),-1,34),1,46),1,47),1,62),1,60) }
  263.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),138),-1,34),1,46),1,47),1,62),1,60) }
  264.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),148),-1,34),1,46),1,47),1,62),1,60) }
  265.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),158),-1,34),1,46),1,47),1,62),1,60) }
  266.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),168),-1,34),1,46),1,47),1,62),1,60) }
  267.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),178),-1,34),1,46),1,47),1,62),1,60) }
  268.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),188),-1,34),1,46),1,47),1,62),1,60) }
  269.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),198),-1,34),1,46),1,47),1,62),1,60) }
  270.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),208),-1,34),1,46),1,47),1,62),1,60) }
  271.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),218),-1,34),1,46),1,47),1,62),1,60) }
  272.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),228),-1,34),1,46),1,47),1,62),1,60) }
  273.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),238),-1,34),1,46),1,47),1,62),1,60) }
  274.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),248),-1,34),1,46),1,47),1,62),1,60) }
  275.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),258),-1,34),1,46),1,47),1,62),1,60) }
  276.   }
  277.   if ($1 == Jueves) {
  278.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),29),-1,34),1,46),1,47),1,62),1,60) }
  279.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),39),-1,34),1,46),1,47),1,62),1,60) }
  280.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),49),-1,34),1,46),1,47),1,62),1,60) }
  281.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),59),-1,34),1,46),1,47),1,62),1,60) }
  282.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),69),-1,34),1,46),1,47),1,62),1,60) }
  283.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),79),-1,34),1,46),1,47),1,62),1,60) }
  284.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),89),-1,34),1,46),1,47),1,62),1,60) }
  285.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),99),-1,34),1,46),1,47),1,62),1,60) }
  286.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),109),-1,34),1,46),1,47),1,62),1,60) }
  287.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),119),-1,34),1,46),1,47),1,62),1,60) }
  288.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),129),-1,34),1,46),1,47),1,62),1,60) }
  289.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),139),-1,34),1,46),1,47),1,62),1,60) }
  290.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),149),-1,34),1,46),1,47),1,62),1,60) }
  291.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),159),-1,34),1,46),1,47),1,62),1,60) }
  292.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),169),-1,34),1,46),1,47),1,62),1,60) }
  293.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),179),-1,34),1,46),1,47),1,62),1,60) }
  294.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),189),-1,34),1,46),1,47),1,62),1,60) }
  295.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),199),-1,34),1,46),1,47),1,62),1,60) }
  296.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),209),-1,34),1,46),1,47),1,62),1,60) }
  297.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),219),-1,34),1,46),1,47),1,62),1,60) }
  298.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),229),-1,34),1,46),1,47),1,62),1,60) }
  299.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),239),-1,34),1,46),1,47),1,62),1,60) }
  300.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),249),-1,34),1,46),1,47),1,62),1,60) }
  301.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),259),-1,34),1,46),1,47),1,62),1,60) }
  302.   }
  303.   if ($1 == Viernes) {
  304.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),30),-1,34),1,46),1,47),1,62),1,60) }
  305.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),40),-1,34),1,46),1,47),1,62),1,60) }
  306.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),50),-1,34),1,46),1,47),1,62),1,60) }
  307.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),60),-1,34),1,46),1,47),1,62),1,60) }
  308.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),70),-1,34),1,46),1,47),1,62),1,60) }
  309.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),80),-1,34),1,46),1,47),1,62),1,60) }
  310.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),90),-1,34),1,46),1,47),1,62),1,60) }
  311.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),100),-1,34),1,46),1,47),1,62),1,60) }
  312.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),110),-1,34),1,46),1,47),1,62),1,60) }
  313.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),120),-1,34),1,46),1,47),1,62),1,60) }
  314.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),130),-1,34),1,46),1,47),1,62),1,60) }
  315.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),140),-1,34),1,46),1,47),1,62),1,60) }
  316.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),150),-1,34),1,46),1,47),1,62),1,60) }
  317.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),160),-1,34),1,46),1,47),1,62),1,60) }
  318.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),170),-1,34),1,46),1,47),1,62),1,60) }
  319.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),180),-1,34),1,46),1,47),1,62),1,60) }
  320.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),190),-1,34),1,46),1,47),1,62),1,60) }
  321.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),200),-1,34),1,46),1,47),1,62),1,60) }
  322.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),210),-1,34),1,46),1,47),1,62),1,60) }
  323.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),220),-1,34),1,46),1,47),1,62),1,60) }
  324.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),230),-1,34),1,46),1,47),1,62),1,60) }
  325.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),240),-1,34),1,46),1,47),1,62),1,60) }
  326.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),250),-1,34),1,46),1,47),1,62),1,60) }
  327.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),260),-1,34),1,46),1,47),1,62),1,60) }
  328.   }
  329.   if ($1 == Sabado) {
  330.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),31),-1,34),1,46),1,47),1,62),1,60) }
  331.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),41),-1,34),1,46),1,47),1,62),1,60) }
  332.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),51),-1,34),1,46),1,47),1,62),1,60) }
  333.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),61),-1,34),1,46),1,47),1,62),1,60) }
  334.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),71),-1,34),1,46),1,47),1,62),1,60) }
  335.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),81),-1,34),1,46),1,47),1,62),1,60) }
  336.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),91),-1,34),1,46),1,47),1,62),1,60) }
  337.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),101),-1,34),1,46),1,47),1,62),1,60) }
  338.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),111),-1,34),1,46),1,47),1,62),1,60) }
  339.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),121),-1,34),1,46),1,47),1,62),1,60) }
  340.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),131),-1,34),1,46),1,47),1,62),1,60) }
  341.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),141),-1,34),1,46),1,47),1,62),1,60) }
  342.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),151),-1,34),1,46),1,47),1,62),1,60) }
  343.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),161),-1,34),1,46),1,47),1,62),1,60) }
  344.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),171),-1,34),1,46),1,47),1,62),1,60) }
  345.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),181),-1,34),1,46),1,47),1,62),1,60) }
  346.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),191),-1,34),1,46),1,47),1,62),1,60) }
  347.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),201),-1,34),1,46),1,47),1,62),1,60) }
  348.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),211),-1,34),1,46),1,47),1,62),1,60) }
  349.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),221),-1,34),1,46),1,47),1,62),1,60) }
  350.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),231),-1,34),1,46),1,47),1,62),1,60) }
  351.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),241),-1,34),1,46),1,47),1,62),1,60) }
  352.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),251),-1,34),1,46),1,47),1,62),1,60) }
  353.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),261),-1,34),1,46),1,47),1,62),1,60) }
  354.   }
  355.   if ($1 == Domingo) {
  356.     if ($2 == 00) {  return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),32),-1,34),1,46),1,47),1,62),1,60) }
  357.     elseif ($2 == 01) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),42),-1,34),1,46),1,47),1,62),1,60) }
  358.     elseif ($2 == 02) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),52),-1,34),1,46),1,47),1,62),1,60) }
  359.     elseif ($2 == 03) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),62),-1,34),1,46),1,47),1,62),1,60) }
  360.     elseif ($2 == 04) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),72),-1,34),1,46),1,47),1,62),1,60) }
  361.     elseif ($2 == 05) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),82),-1,34),1,46),1,47),1,62),1,60) }
  362.     elseif ($2 == 06) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),92),-1,34),1,46),1,47),1,62),1,60) }
  363.     elseif ($2 == 07) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),102),-1,34),1,46),1,47),1,62),1,60) }
  364.     elseif ($2 == 08) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),112),-1,34),1,46),1,47),1,62),1,60) }
  365.     elseif ($2 == 09) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),122),-1,34),1,46),1,47),1,62),1,60) }
  366.     elseif ($2 == 10) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),132),-1,34),1,46),1,47),1,62),1,60) }
  367.     elseif ($2 == 11) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),142),-1,34),1,46),1,47),1,62),1,60) }
  368.     elseif ($2 == 12) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),152),-1,34),1,46),1,47),1,62),1,60) }
  369.     elseif ($2 == 13) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),162),-1,34),1,46),1,47),1,62),1,60) }
  370.     elseif ($2 == 14) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),172),-1,34),1,46),1,47),1,62),1,60) }
  371.     elseif ($2 == 15) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),182),-1,34),1,46),1,47),1,62),1,60) }
  372.     elseif ($2 == 16) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),192),-1,34),1,46),1,47),1,62),1,60) }
  373.     elseif ($2 == 17) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),202),-1,34),1,46),1,47),1,62),1,60) }
  374.     elseif ($2 == 18) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),212),-1,34),1,46),1,47),1,62),1,60) }
  375.     elseif ($2 == 19) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),222),-1,34),1,46),1,47),1,62),1,60) }
  376.     elseif ($2 == 20) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),232),-1,34),1,46),1,47),1,62),1,60) }
  377.     elseif ($2 == 21) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),242),-1,34),1,46),1,47),1,62),1,60) }
  378.     elseif ($2 == 22) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),252),-1,34),1,46),1,47),1,62),1,60) }
  379.     elseif ($2 == 23) { return $gettok($gettok($gettok($gettok($gettok($read($ruta(horarios),262),-1,34),1,46),1,47),1,62),1,60) }
  380.   }
  381. }
  382.  
  383. _graba {
  384.   if ($1 == lunes) {
  385.     if ($2 == 00) { write -l26 $_tabla1 }
  386.     if ($2 == 01) { write -l36 $_tabla2 }
  387.     if ($2 == 02) { write -l46 $_tabla1 }
  388.     if ($2 == 03) { write -l56 $_tabla2 }
  389.     if ($2 == 04) { write -l66 $_tabla1 }
  390.     if ($2 == 05) { write -l76 $_tabla2 }
  391.     if ($2 == 06) { write -l86 $_tabla1 }
  392.     if ($2 == 07) { write -l96 $_tabla2 }
  393.     if ($2 == 08) { write -l106 $_tabla1 }
  394.     if ($2 == 09) { write -l116 $_tabla2 }
  395.     if ($2 == 10) { write -l126 $_tabla1 }
  396.     if ($2 == 11) { write -l136 $_tabla2 }
  397.     if ($2 == 12) { write -l146 $_tabla1 }
  398.     if ($2 == 13) { write -l156 $_tabla2 }
  399.     if ($2 == 14) { write -l166 $_tabla1 }
  400.     if ($2 == 15) { write -l176 $_tabla2 }
  401.     if ($2 == 16) { write -l186 $_tabla1 }
  402.     if ($2 == 17) { write -l196 $_tabla2 }
  403.     if ($2 == 18) { write -l206 $_tabla1 }
  404.     if ($2 == 19) { write -l216 $_tabla2 }
  405.     if ($2 == 20) { write -l226 $_tabla1 }
  406.     if ($2 == 21) { write -l236 $_tabla2 }
  407.     if ($2 == 22) { write -l246 $_tabla1 }
  408.     if ($2 == 23) { write -l256 $_tabla2 }
  409.   }
  410.   if ($1 == martes) {
  411.     if ($2 == 00) { write -l27 $_tabla1 }
  412.     if ($2 == 01) { write -l37 $_tabla2 }
  413.     if ($2 == 02) { write -l47 $_tabla1 }
  414.     if ($2 == 03) { write -l57 $_tabla2 }
  415.     if ($2 == 04) { write -l67 $_tabla1 }
  416.     if ($2 == 05) { write -l77 $_tabla2 }
  417.     if ($2 == 06) { write -l87 $_tabla1 }
  418.     if ($2 == 07) { write -l97 $_tabla2 }
  419.     if ($2 == 08) { write -l107 $_tabla1 }
  420.     if ($2 == 09) { write -l117 $_tabla2 }
  421.     if ($2 == 10) { write -l127 $_tabla1 }
  422.     if ($2 == 11) { write -l137 $_tabla2 }
  423.     if ($2 == 12) { write -l147 $_tabla1 }
  424.     if ($2 == 13) { write -l157 $_tabla2 }
  425.     if ($2 == 14) { write -l167 $_tabla1 }
  426.     if ($2 == 15) { write -l177 $_tabla2 }
  427.     if ($2 == 16) { write -l187 $_tabla1 }
  428.     if ($2 == 17) { write -l197 $_tabla2 }
  429.     if ($2 == 18) { write -l207 $_tabla1 }
  430.     if ($2 == 19) { write -l217 $_tabla2 }
  431.     if ($2 == 20) { write -l227 $_tabla1 }
  432.     if ($2 == 21) { write -l237 $_tabla2 }
  433.     if ($2 == 22) { write -l247 $_tabla1 }
  434.     if ($2 == 23) { write -l257 $_tabla2 }
  435.   }
  436.   if ($1 == miercoles) {
  437.     if ($2 == 00) { write -l28 $_tabla1 }
  438.     if ($2 == 01) { write -l38 $_tabla2 }
  439.     if ($2 == 02) { write -l48 $_tabla1 }
  440.     if ($2 == 03) { write -l58 $_tabla2 }
  441.     if ($2 == 04) { write -l68 $_tabla1 }
  442.     if ($2 == 05) { write -l78 $_tabla2 }
  443.     if ($2 == 06) { write -l88 $_tabla1 }
  444.     if ($2 == 07) { write -l98 $_tabla2 }
  445.     if ($2 == 08) { write -l108 $_tabla1 }
  446.     if ($2 == 09) { write -l118 $_tabla2 }
  447.     if ($2 == 10) { write -l128 $_tabla1 }
  448.     if ($2 == 11) { write -l138 $_tabla2 }
  449.     if ($2 == 12) { write -l148 $_tabla1 }
  450.     if ($2 == 13) { write -l158 $_tabla2 }
  451.     if ($2 == 14) { write -l168 $_tabla1 }
  452.     if ($2 == 15) { write -l178 $_tabla2 }
  453.     if ($2 == 16) { write -l188 $_tabla1 }
  454.     if ($2 == 17) { write -l198 $_tabla2 }
  455.     if ($2 == 18) { write -l208 $_tabla1 }
  456.     if ($2 == 19) { write -l218 $_tabla2 }
  457.     if ($2 == 20) { write -l228 $_tabla1 }
  458.     if ($2 == 21) { write -l238 $_tabla2 }
  459.     if ($2 == 22) { write -l248 $_tabla1 }
  460.     if ($2 == 23) { write -l258 $_tabla2 }
  461.   }
  462.   if ($1 == jueves) {
  463.     if ($2 == 00) { write -l29 $_tabla1 }
  464.     if ($2 == 01) { write -l39 $_tabla2 }
  465.     if ($2 == 02) { write -l49 $_tabla1 }
  466.     if ($2 == 03) { write -l59 $_tabla2 }
  467.     if ($2 == 04) { write -l69 $_tabla1 }
  468.     if ($2 == 05) { write -l79 $_tabla2 }
  469.     if ($2 == 06) { write -l89 $_tabla1 }
  470.     if ($2 == 07) { write -l99 $_tabla2 }
  471.     if ($2 == 08) { write -l109 $_tabla1 }
  472.     if ($2 == 09) { write -l119 $_tabla2 }
  473.     if ($2 == 10) { write -l129 $_tabla1 }
  474.     if ($2 == 11) { write -l139 $_tabla2 }
  475.     if ($2 == 12) { write -l149 $_tabla1 }
  476.     if ($2 == 13) { write -l159 $_tabla2 }
  477.     if ($2 == 14) { write -l169 $_tabla1 }
  478.     if ($2 == 15) { write -l179 $_tabla2 }
  479.     if ($2 == 16) { write -l189 $_tabla1 }
  480.     if ($2 == 17) { write -l199 $_tabla2 }
  481.     if ($2 == 18) { write -l209 $_tabla1 }
  482.     if ($2 == 19) { write -l219 $_tabla2 }
  483.     if ($2 == 20) { write -l229 $_tabla1 }
  484.     if ($2 == 21) { write -l239 $_tabla2 }
  485.     if ($2 == 22) { write -l249 $_tabla1 }
  486.     if ($2 == 23) { write -l259 $_tabla2 }
  487.   }
  488.   if ($1 == viernes) {
  489.     if ($2 == 00) { write -l30 $_tabla1 }
  490.     if ($2 == 01) { write -l40 $_tabla2 }
  491.     if ($2 == 02) { write -l50 $_tabla1 }
  492.     if ($2 == 03) { write -l60 $_tabla2 }
  493.     if ($2 == 04) { write -l70 $_tabla1 }
  494.     if ($2 == 05) { write -l80 $_tabla2 }
  495.     if ($2 == 06) { write -l90 $_tabla1 }
  496.     if ($2 == 07) { write -l100 $_tabla2 }
  497.     if ($2 == 08) { write -l110 $_tabla1 }
  498.     if ($2 == 09) { write -l120 $_tabla2 }
  499.     if ($2 == 10) { write -l130 $_tabla1 }
  500.     if ($2 == 11) { write -l140 $_tabla2 }
  501.     if ($2 == 12) { write -l150 $_tabla1 }
  502.     if ($2 == 13) { write -l160 $_tabla2 }
  503.     if ($2 == 14) { write -l170 $_tabla1 }
  504.     if ($2 == 15) { write -l180 $_tabla2 }
  505.     if ($2 == 16) { write -l190 $_tabla1 }
  506.     if ($2 == 17) { write -l200 $_tabla2 }
  507.     if ($2 == 18) { write -l210 $_tabla1 }
  508.     if ($2 == 19) { write -l220 $_tabla2 }
  509.     if ($2 == 20) { write -l230 $_tabla1 }
  510.     if ($2 == 21) { write -l240 $_tabla2 }
  511.     if ($2 == 22) { write -l250 $_tabla1 }
  512.     if ($2 == 23) { write -l260 $_tabla2 }
  513.   }
  514.   if ($1 == sabado) {
  515.     if ($2 == 00) { write -l31 $_tabla1 }
  516.     if ($2 == 01) { write -l41 $_tabla2 }
  517.     if ($2 == 02) { write -l51 $_tabla1 }
  518.     if ($2 == 03) { write -l61 $_tabla2 }
  519.     if ($2 == 04) { write -l71 $_tabla1 }
  520.     if ($2 == 05) { write -l81 $_tabla2 }
  521.     if ($2 == 06) { write -l91 $_tabla1 }
  522.     if ($2 == 07) { write -l101 $_tabla2 }
  523.     if ($2 == 08) { write -l111 $_tabla1 }
  524.     if ($2 == 09) { write -l121 $_tabla2 }
  525.     if ($2 == 10) { write -l131 $_tabla1 }
  526.     if ($2 == 11) { write -l141 $_tabla2 }
  527.     if ($2 == 12) { write -l151 $_tabla1 }
  528.     if ($2 == 13) { write -l161 $_tabla2 }
  529.     if ($2 == 14) { write -l171 $_tabla1 }
  530.     if ($2 == 15) { write -l181 $_tabla2 }
  531.     if ($2 == 16) { write -l191 $_tabla1 }
  532.     if ($2 == 17) { write -l201 $_tabla2 }
  533.     if ($2 == 18) { write -l211 $_tabla1 }
  534.     if ($2 == 19) { write -l221 $_tabla2 }
  535.     if ($2 == 20) { write -l231 $_tabla1 }
  536.     if ($2 == 21) { write -l241 $_tabla2 }
  537.     if ($2 == 22) { write -l251 $_tabla1 }
  538.     if ($2 == 23) { write -l261 $_tabla2 }
  539.   }
  540.   if ($1 == domingo) {
  541.     if ($2 == 00) { write -l32 $_tabla1 }
  542.     if ($2 == 01) { write -l42 $_tabla2 }
  543.     if ($2 == 02) { write -l52 $_tabla1 }
  544.     if ($2 == 03) { write -l62 $_tabla2 }
  545.     if ($2 == 04) { write -l72 $_tabla1 }
  546.     if ($2 == 05) { write -l82 $_tabla2 }
  547.     if ($2 == 06) { write -l92 $_tabla1 }
  548.     if ($2 == 07) { write -l102 $_tabla2 }
  549.     if ($2 == 08) { write -l112 $_tabla1 }
  550.     if ($2 == 09) { write -l122 $_tabla2 }
  551.     if ($2 == 10) { write -l132 $_tabla1 }
  552.     if ($2 == 11) { write -l142 $_tabla2 }
  553.     if ($2 == 12) { write -l152 $_tabla1 }
  554.     if ($2 == 13) { write -l162 $_tabla2 }
  555.     if ($2 == 14) { write -l172 $_tabla1 }
  556.     if ($2 == 15) { write -l182 $_tabla2 }
  557.     if ($2 == 16) { write -l192 $_tabla1 }
  558.     if ($2 == 17) { write -l202 $_tabla2 }
  559.     if ($2 == 18) { write -l212 $_tabla1 }
  560.     if ($2 == 19) { write -l222 $_tabla2 }
  561.     if ($2 == 20) { write -l232 $_tabla1 }
  562.     if ($2 == 21) { write -l242 $_tabla2 }
  563.     if ($2 == 22) { write -l252 $_tabla1 }
  564.     if ($2 == 23) { write -l262 $_tabla2 }
  565.   }
  566. }
  567. _borra {
  568.   if ($1 == lunes) {
  569.     if ($2 == 00) { write -l26 $_tabla }
  570.     if ($2 == 01) { write -l36 $_tabla }
  571.     if ($2 == 02) { write -l46 $_tabla }
  572.     if ($2 == 03) { write -l56 $_tabla }
  573.     if ($2 == 04) { write -l66 $_tabla }
  574.     if ($2 == 05) { write -l66 $_tabla }
  575.     if ($2 == 06) { write -l86 $_tabla }
  576.     if ($2 == 07) { write -l96 $_tabla }
  577.     if ($2 == 08) { write -l106 $_tabla }
  578.     if ($2 == 09) { write -l116 $_tabla }
  579.     if ($2 == 10) { write -l126 $_tabla }
  580.     if ($2 == 11) { write -l136 $_tabla }
  581.     if ($2 == 12) { write -l146 $_tabla }
  582.     if ($2 == 13) { write -l156 $_tabla }
  583.     if ($2 == 14) { write -l166 $_tabla }
  584.     if ($2 == 15) { write -l176 $_tabla }
  585.     if ($2 == 16) { write -l186 $_tabla }
  586.     if ($2 == 17) { write -l196 $_tabla }
  587.     if ($2 == 18) { write -l206 $_tabla }
  588.     if ($2 == 19) { write -l216 $_tabla }
  589.     if ($2 == 20) { write -l226 $_tabla }
  590.     if ($2 == 21) { write -l236 $_tabla }
  591.     if ($2 == 22) { write -l246 $_tabla }
  592.     if ($2 == 23) { write -l256 $_tabla }
  593.   }
  594.   if ($1 == martes) {
  595.     if ($2 == 00) { write -l27 $_tabla }
  596.     if ($2 == 01) { write -l37 $_tabla }
  597.     if ($2 == 02) { write -l47 $_tabla }
  598.     if ($2 == 03) { write -l57 $_tabla }
  599.     if ($2 == 04) { write -l67 $_tabla }
  600.     if ($2 == 05) { write -l77 $_tabla }
  601.     if ($2 == 06) { write -l87 $_tabla }
  602.     if ($2 == 07) { write -l97 $_tabla }
  603.     if ($2 == 08) { write -l107 $_tabla }
  604.     if ($2 == 09) { write -l117 $_tabla }
  605.     if ($2 == 10) { write -l127 $_tabla }
  606.     if ($2 == 11) { write -l137 $_tabla }
  607.     if ($2 == 12) { write -l147 $_tabla }
  608.     if ($2 == 13) { write -l157 $_tabla }
  609.     if ($2 == 14) { write -l167 $_tabla }
  610.     if ($2 == 15) { write -l177 $_tabla }
  611.     if ($2 == 16) { write -l187 $_tabla }
  612.     if ($2 == 17) { write -l197 $_tabla }
  613.     if ($2 == 18) { write -l207 $_tabla }
  614.     if ($2 == 19) { write -l217 $_tabla }
  615.     if ($2 == 20) { write -l227 $_tabla }
  616.     if ($2 == 21) { write -l237 $_tabla }
  617.     if ($2 == 22) { write -l247 $_tabla }
  618.     if ($2 == 23) { write -l257 $_tabla }
  619.   }
  620.   if ($1 == miercoles) {
  621.     if ($2 == 00) { write -l28 $_tabla }
  622.     if ($2 == 01) { write -l38 $_tabla }
  623.     if ($2 == 02) { write -l48 $_tabla }
  624.     if ($2 == 03) { write -l58 $_tabla }
  625.     if ($2 == 04) { write -l68 $_tabla }
  626.     if ($2 == 05) { write -l78 $_tabla }
  627.     if ($2 == 06) { write -l88 $_tabla }
  628.     if ($2 == 07) { write -l98 $_tabla }
  629.     if ($2 == 08) { write -l108 $_tabla }
  630.     if ($2 == 09) { write -l118 $_tabla }
  631.     if ($2 == 10) { write -l128 $_tabla }
  632.     if ($2 == 11) { write -l138 $_tabla }
  633.     if ($2 == 12) { write -l148 $_tabla }
  634.     if ($2 == 13) { write -l158 $_tabla }
  635.     if ($2 == 14) { write -l168 $_tabla }
  636.     if ($2 == 15) { write -l178 $_tabla }
  637.     if ($2 == 16) { write -l188 $_tabla }
  638.     if ($2 == 17) { write -l198 $_tabla }
  639.     if ($2 == 18) { write -l208 $_tabla }
  640.     if ($2 == 19) { write -l218 $_tabla }
  641.     if ($2 == 20) { write -l228 $_tabla }
  642.     if ($2 == 21) { write -l238 $_tabla }
  643.     if ($2 == 22) { write -l248 $_tabla }
  644.     if ($2 == 23) { write -l258 $_tabla }
  645.   }
  646.   if ($1 == jueves) {
  647.     if ($2 == 00) { write -l29 $_tabla }
  648.     if ($2 == 01) { write -l39 $_tabla }
  649.     if ($2 == 02) { write -l49 $_tabla }
  650.     if ($2 == 03) { write -l59 $_tabla }
  651.     if ($2 == 04) { write -l69 $_tabla }
  652.     if ($2 == 05) { write -l79 $_tabla }
  653.     if ($2 == 06) { write -l89 $_tabla }
  654.     if ($2 == 07) { write -l99 $_tabla }
  655.     if ($2 == 08) { write -l109 $_tabla }
  656.     if ($2 == 09) { write -l119 $_tabla }
  657.     if ($2 == 10) { write -l129 $_tabla }
  658.     if ($2 == 11) { write -l139 $_tabla }
  659.     if ($2 == 12) { write -l149 $_tabla }
  660.     if ($2 == 13) { write -l159 $_tabla }
  661.     if ($2 == 14) { write -l169 $_tabla }
  662.     if ($2 == 15) { write -l179 $_tabla }
  663.     if ($2 == 16) { write -l189 $_tabla }
  664.     if ($2 == 17) { write -l199 $_tabla }
  665.     if ($2 == 18) { write -l209 $_tabla }
  666.     if ($2 == 19) { write -l219 $_tabla }
  667.     if ($2 == 20) { write -l229 $_tabla }
  668.     if ($2 == 21) { write -l239 $_tabla }
  669.     if ($2 == 22) { write -l249 $_tabla }
  670.     if ($2 == 23) { write -l259 $_tabla }
  671.   }
  672.   if ($1 == viernes) {
  673.     if ($2 == 00) { write -l30 $_tabla }
  674.     if ($2 == 01) { write -l40 $_tabla }
  675.     if ($2 == 02) { write -l50 $_tabla }
  676.     if ($2 == 03) { write -l60 $_tabla }
  677.     if ($2 == 04) { write -l70 $_tabla }
  678.     if ($2 == 05) { write -l80 $_tabla }
  679.     if ($2 == 06) { write -l90 $_tabla }
  680.     if ($2 == 07) { write -l100 $_tabla }
  681.     if ($2 == 08) { write -l110 $_tabla }
  682.     if ($2 == 09) { write -l120 $_tabla }
  683.     if ($2 == 10) { write -l130 $_tabla }
  684.     if ($2 == 11) { write -l140 $_tabla }
  685.     if ($2 == 12) { write -l150 $_tabla }
  686.     if ($2 == 13) { write -l160 $_tabla }
  687.     if ($2 == 14) { write -l170 $_tabla }
  688.     if ($2 == 15) { write -l180 $_tabla }
  689.     if ($2 == 16) { write -l190 $_tabla }
  690.     if ($2 == 17) { write -l200 $_tabla }
  691.     if ($2 == 18) { write -l210 $_tabla }
  692.     if ($2 == 19) { write -l220 $_tabla }
  693.     if ($2 == 20) { write -l230 $_tabla }
  694.     if ($2 == 21) { write -l240 $_tabla }
  695.     if ($2 == 22) { write -l250 $_tabla }
  696.     if ($2 == 23) { write -l260 $_tabla }
  697.   }
  698.   if ($1 == sabado) {
  699.     if ($2 == 00) { write -l31 $_tabla }
  700.     if ($2 == 01) { write -l41 $_tabla }
  701.     if ($2 == 02) { write -l51 $_tabla }
  702.     if ($2 == 03) { write -l61 $_tabla }
  703.     if ($2 == 04) { write -l71 $_tabla }
  704.     if ($2 == 05) { write -l81 $_tabla }
  705.     if ($2 == 06) { write -l91 $_tabla }
  706.     if ($2 == 07) { write -l101 $_tabla }
  707.     if ($2 == 08) { write -l111 $_tabla }
  708.     if ($2 == 09) { write -l121 $_tabla }
  709.     if ($2 == 10) { write -l131 $_tabla }
  710.     if ($2 == 11) { write -l141 $_tabla }
  711.     if ($2 == 12) { write -l151 $_tabla }
  712.     if ($2 == 13) { write -l161 $_tabla }
  713.     if ($2 == 14) { write -l171 $_tabla }
  714.     if ($2 == 15) { write -l181 $_tabla }
  715.     if ($2 == 16) { write -l191 $_tabla }
  716.     if ($2 == 17) { write -l201 $_tabla }
  717.     if ($2 == 18) { write -l211 $_tabla }
  718.     if ($2 == 19) { write -l221 $_tabla }
  719.     if ($2 == 20) { write -l231 $_tabla }
  720.     if ($2 == 21) { write -l241 $_tabla }
  721.     if ($2 == 22) { write -l251 $_tabla }
  722.     if ($2 == 23) { write -l261 $_tabla }
  723.   }
  724.   if ($1 == domingo) {
  725.     if ($2 == 00) { write -l32 $_tabla }
  726.     if ($2 == 01) { write -l42 $_tabla }
  727.     if ($2 == 02) { write -l52 $_tabla }
  728.     if ($2 == 03) { write -l62 $_tabla }
  729.     if ($2 == 04) { write -l72 $_tabla }
  730.     if ($2 == 05) { write -l82 $_tabla }
  731.     if ($2 == 06) { write -l92 $_tabla }
  732.     if ($2 == 07) { write -l102 $_tabla }
  733.     if ($2 == 08) { write -l112 $_tabla }
  734.     if ($2 == 09) { write -l122 $_tabla }
  735.     if ($2 == 10) { write -l132 $_tabla }
  736.     if ($2 == 11) { write -l142 $_tabla }
  737.     if ($2 == 12) { write -l152 $_tabla }
  738.     if ($2 == 13) { write -l162 $_tabla }
  739.     if ($2 == 14) { write -l172 $_tabla }
  740.     if ($2 == 15) { write -l182 $_tabla }
  741.     if ($2 == 16) { write -l192 $_tabla }
  742.     if ($2 == 17) { write -l202 $_tabla }
  743.     if ($2 == 18) { write -l212 $_tabla }
  744.     if ($2 == 19) { write -l222 $_tabla }
  745.     if ($2 == 20) { write -l232 $_tabla }
  746.     if ($2 == 21) { write -l242 $_tabla }
  747.     if ($2 == 22) { write -l252 $_tabla }
  748.     if ($2 == 23) { write -l262 $_tabla }
  749.   }
  750. }
  751. ; ------------------- Fin de horarios.html -------------------;
  752. ;-------------------- locutores/<nick>.html ------------------;
  753. perfiles {
  754.   if ($1 == lunes) {
  755.     if ($2 == 00) { write -l57 $tabla1 }
  756.     if ($2 == 01) { write -l67 $tabla2 }
  757.     if ($2 == 02) { write -l77 $tabla1 }
  758.     if ($2 == 03) { write -l87 $tabla2 }
  759.     if ($2 == 04) { write -l97 $tabla1 }
  760.     if ($2 == 05) { write -l107 $tabla2 }
  761.     if ($2 == 06) { write -l117 $tabla1 }
  762.     if ($2 == 07) { write -l127 $tabla2 }
  763.     if ($2 == 08) { write -l137 $tabla1 }
  764.     if ($2 == 09) { write -l147 $tabla2 }
  765.     if ($2 == 10) { write -l157 $tabla1 }
  766.     if ($2 == 11) { write -l167 $tabla2 }
  767.     if ($2 == 12) { write -l177 $tabla1 }
  768.     if ($2 == 13) { write -l187 $tabla2 }
  769.     if ($2 == 14) { write -l197 $tabla1 }
  770.     if ($2 == 15) { write -l207 $tabla2 }
  771.     if ($2 == 16) { write -l217 $tabla1 }
  772.     if ($2 == 17) { write -l227 $tabla2 }
  773.     if ($2 == 18) { write -l237 $tabla1 }
  774.     if ($2 == 19) { write -l247 $tabla2 }
  775.     if ($2 == 20) { write -l257 $tabla1 }
  776.     if ($2 == 21) { write -l267 $tabla2 }
  777.     if ($2 == 22) { write -l277 $tabla1 }
  778.     if ($2 == 23) { write -l287 $tabla2 }
  779.   }
  780.   if ($1 == martes) {
  781.     if ($2 == 00) { write -l58 $tabla1 }
  782.     if ($2 == 01) { write -l68 $tabla2 }
  783.     if ($2 == 02) { write -l78 $tabla1 }
  784.     if ($2 == 03) { write -l88 $tabla2 }
  785.     if ($2 == 04) { write -l98 $tabla1 }
  786.     if ($2 == 05) { write -l108 $tabla2 }
  787.     if ($2 == 06) { write -l118 $tabla1 }
  788.     if ($2 == 07) { write -l128 $tabla2 }
  789.     if ($2 == 08) { write -l138 $tabla1 }
  790.     if ($2 == 09) { write -l148 $tabla2 }
  791.     if ($2 == 10) { write -l158 $tabla1 }
  792.     if ($2 == 11) { write -l168 $tabla2 }
  793.     if ($2 == 12) { write -l178 $tabla1 }
  794.     if ($2 == 13) { write -l188 $tabla2 }
  795.     if ($2 == 14) { write -l198 $tabla1 }
  796.     if ($2 == 15) { write -l208 $tabla2 }
  797.     if ($2 == 16) { write -l218 $tabla1 }
  798.     if ($2 == 17) { write -l228 $tabla2 }
  799.     if ($2 == 18) { write -l238 $tabla1 }
  800.     if ($2 == 19) { write -l248 $tabla2 }
  801.     if ($2 == 20) { write -l258 $tabla1 }
  802.     if ($2 == 21) { write -l268 $tabla2 }
  803.     if ($2 == 22) { write -l278 $tabla1 }
  804.     if ($2 == 23) { write -l288 $tabla2 }
  805.   }
  806.   if ($1 == miercoles) {
  807.     if ($2 == 00) { write -l59 $tabla1 }
  808.     if ($2 == 01) { write -l69 $tabla2 }
  809.     if ($2 == 02) { write -l79 $tabla1 }
  810.     if ($2 == 03) { write -l89 $tabla2 }
  811.     if ($2 == 04) { write -l99 $tabla1 }
  812.     if ($2 == 05) { write -l109 $tabla2 }
  813.     if ($2 == 06) { write -l119 $tabla1 }
  814.     if ($2 == 07) { write -l129 $tabla2 }
  815.     if ($2 == 08) { write -l139 $tabla1 }
  816.     if ($2 == 09) { write -l149 $tabla2 }
  817.     if ($2 == 10) { write -l159 $tabla1 }
  818.     if ($2 == 11) { write -l169 $tabla2 }
  819.     if ($2 == 12) { write -l179 $tabla1 }
  820.     if ($2 == 13) { write -l189 $tabla2 }
  821.     if ($2 == 14) { write -l199 $tabla1 }
  822.     if ($2 == 15) { write -l209 $tabla2 }
  823.     if ($2 == 16) { write -l219 $tabla1 }
  824.     if ($2 == 17) { write -l229 $tabla2 }
  825.     if ($2 == 18) { write -l239 $tabla1 }
  826.     if ($2 == 19) { write -l249 $tabla2 }
  827.     if ($2 == 20) { write -l259 $tabla1 }
  828.     if ($2 == 21) { write -l269 $tabla2 }
  829.     if ($2 == 22) { write -l279 $tabla1 }
  830.     if ($2 == 23) { write -l289 $tabla2 }
  831.   }
  832.   if ($1 == jueves) {
  833.     if ($2 == 00) { write -l60 $tabla1 }
  834.     if ($2 == 01) { write -l70 $tabla2 }
  835.     if ($2 == 02) { write -l80 $tabla1 }
  836.     if ($2 == 03) { write -l90 $tabla2 }
  837.     if ($2 == 04) { write -l100 $tabla1 }
  838.     if ($2 == 05) { write -l110 $tabla2 }
  839.     if ($2 == 06) { write -l120 $tabla1 }
  840.     if ($2 == 07) { write -l130 $tabla2 }
  841.     if ($2 == 08) { write -l140 $tabla1 }
  842.     if ($2 == 09) { write -l150 $tabla2 }
  843.     if ($2 == 10) { write -l160 $tabla1 }
  844.     if ($2 == 11) { write -l170 $tabla2 }
  845.     if ($2 == 12) { write -l180 $tabla1 }
  846.     if ($2 == 13) { write -l190 $tabla2 }
  847.     if ($2 == 14) { write -l200 $tabla1 }
  848.     if ($2 == 15) { write -l210 $tabla2 }
  849.     if ($2 == 16) { write -l220 $tabla1 }
  850.     if ($2 == 17) { write -l230 $tabla2 }
  851.     if ($2 == 18) { write -l240 $tabla1 }
  852.     if ($2 == 19) { write -l250 $tabla2 }
  853.     if ($2 == 20) { write -l260 $tabla1 }
  854.     if ($2 == 21) { write -l270 $tabla2 }
  855.     if ($2 == 22) { write -l280 $tabla1 }
  856.     if ($2 == 23) { write -l290 $tabla2 }
  857.   }
  858.   if ($1 == viernes) {
  859.     if ($2 == 00) { write -l61 $tabla1 }
  860.     if ($2 == 01) { write -l71 $tabla2 }
  861.     if ($2 == 02) { write -l81 $tabla1 }
  862.     if ($2 == 03) { write -l91 $tabla2 }
  863.     if ($2 == 04) { write -l101 $tabla1 }
  864.     if ($2 == 05) { write -l111 $tabla2 }
  865.     if ($2 == 06) { write -l121 $tabla1 }
  866.     if ($2 == 07) { write -l131 $tabla2 }
  867.     if ($2 == 08) { write -l141 $tabla1 }
  868.     if ($2 == 09) { write -l151 $tabla2 }
  869.     if ($2 == 10) { write -l161 $tabla1 }
  870.     if ($2 == 11) { write -l171 $tabla2 }
  871.     if ($2 == 12) { write -l181 $tabla1 }
  872.     if ($2 == 13) { write -l191 $tabla2 }
  873.     if ($2 == 14) { write -l201 $tabla1 }
  874.     if ($2 == 15) { write -l211 $tabla2 }
  875.     if ($2 == 16) { write -l221 $tabla1 }
  876.     if ($2 == 17) { write -l231 $tabla2 }
  877.     if ($2 == 18) { write -l241 $tabla1 }
  878.     if ($2 == 19) { write -l251 $tabla2 }
  879.     if ($2 == 20) { write -l261 $tabla1 }
  880.     if ($2 == 21) { write -l271 $tabla2 }
  881.     if ($2 == 22) { write -l281 $tabla1 }
  882.     if ($2 == 23) { write -l291 $tabla2 }
  883.   }
  884.   if ($1 == sabado) {
  885.     if ($2 == 00) { write -l62 $tabla1 }
  886.     if ($2 == 01) { write -l72 $tabla2 }
  887.     if ($2 == 02) { write -l82 $tabla1 }
  888.     if ($2 == 03) { write -l92 $tabla2 }
  889.     if ($2 == 04) { write -l102 $tabla1 }
  890.     if ($2 == 05) { write -l112 $tabla2 }
  891.     if ($2 == 06) { write -l122 $tabla1 }
  892.     if ($2 == 07) { write -l132 $tabla2 }
  893.     if ($2 == 08) { write -l142 $tabla1 }
  894.     if ($2 == 09) { write -l152 $tabla2 }
  895.     if ($2 == 10) { write -l162 $tabla1 }
  896.     if ($2 == 11) { write -l172 $tabla2 }
  897.     if ($2 == 12) { write -l182 $tabla1 }
  898.     if ($2 == 13) { write -l192 $tabla2 }
  899.     if ($2 == 14) { write -l202 $tabla1 }
  900.     if ($2 == 15) { write -l212 $tabla2 }
  901.     if ($2 == 16) { write -l222 $tabla1 }
  902.     if ($2 == 17) { write -l232 $tabla2 }
  903.     if ($2 == 18) { write -l242 $tabla1 }
  904.     if ($2 == 19) { write -l252 $tabla2 }
  905.     if ($2 == 20) { write -l262 $tabla1 }
  906.     if ($2 == 21) { write -l272 $tabla2 }
  907.     if ($2 == 22) { write -l282 $tabla1 }
  908.     if ($2 == 23) { write -l292 $tabla2 }
  909.   }
  910.   if ($1 == domingo) {
  911.     if ($2 == 00) { write -l63 $tabla1 }
  912.     if ($2 == 01) { write -l73 $tabla2 }
  913.     if ($2 == 02) { write -l83 $tabla1 }
  914.     if ($2 == 03) { write -l93 $tabla2 }
  915.     if ($2 == 04) { write -l103 $tabla1 }
  916.     if ($2 == 05) { write -l113 $tabla2 }
  917.     if ($2 == 06) { write -l123 $tabla1 }
  918.     if ($2 == 07) { write -l133 $tabla2 }
  919.     if ($2 == 08) { write -l143 $tabla1 }
  920.     if ($2 == 09) { write -l153 $tabla2 }
  921.     if ($2 == 10) { write -l163 $tabla1 }
  922.     if ($2 == 11) { write -l173 $tabla2 }
  923.     if ($2 == 12) { write -l183 $tabla1 }
  924.     if ($2 == 13) { write -l193 $tabla2 }
  925.     if ($2 == 14) { write -l203 $tabla1 }
  926.     if ($2 == 15) { write -l213 $tabla2 }
  927.     if ($2 == 16) { write -l223 $tabla1 }
  928.     if ($2 == 17) { write -l233 $tabla2 }
  929.     if ($2 == 18) { write -l243 $tabla1 }
  930.     if ($2 == 19) { write -l253 $tabla2 }
  931.     if ($2 == 20) { write -l263 $tabla1 }
  932.     if ($2 == 21) { write -l273 $tabla2 }
  933.     if ($2 == 22) { write -l283 $tabla1 }
  934.     if ($2 == 23) { write -l293 $tabla2 }
  935.   }
  936. }
  937.  
  938. borra {
  939.   if ($1 == lunes) {
  940.     if ($2 == 00) { write -l57 $tabla }
  941.     if ($2 == 01) { write -l67 $tabla }
  942.     if ($2 == 02) { write -l77 $tabla }
  943.     if ($2 == 03) { write -l87 $tabla }
  944.     if ($2 == 04) { write -l97 $tabla }
  945.     if ($2 == 05) { write -l107 $tabla }
  946.     if ($2 == 06) { write -l117 $tabla }
  947.     if ($2 == 07) { write -l127 $tabla }
  948.     if ($2 == 08) { write -l137 $tabla }
  949.     if ($2 == 09) { write -l147 $tabla }
  950.     if ($2 == 10) { write -l157 $tabla }
  951.     if ($2 == 11) { write -l167 $tabla }
  952.     if ($2 == 12) { write -l177 $tabla }
  953.     if ($2 == 13) { write -l187 $tabla }
  954.     if ($2 == 14) { write -l197 $tabla }
  955.     if ($2 == 15) { write -l207 $tabla }
  956.     if ($2 == 16) { write -l217 $tabla }
  957.     if ($2 == 17) { write -l227 $tabla }
  958.     if ($2 == 18) { write -l237 $tabla }
  959.     if ($2 == 19) { write -l247 $tabla }
  960.     if ($2 == 20) { write -l257 $tabla }
  961.     if ($2 == 21) { write -l267 $tabla }
  962.     if ($2 == 22) { write -l277 $tabla }
  963.     if ($2 == 23) { write -l287 $tabla }
  964.   }
  965.   if ($1 == martes) {
  966.     if ($2 == 00) { write -l58 $tabla }
  967.     if ($2 == 01) { write -l68 $tabla }
  968.     if ($2 == 02) { write -l78 $tabla }
  969.     if ($2 == 03) { write -l88 $tabla }
  970.     if ($2 == 04) { write -l98 $tabla }
  971.     if ($2 == 05) { write -l108 $tabla }
  972.     if ($2 == 06) { write -l118 $tabla }
  973.     if ($2 == 07) { write -l128 $tabla }
  974.     if ($2 == 08) { write -l138 $tabla }
  975.     if ($2 == 09) { write -l148 $tabla }
  976.     if ($2 == 10) { write -l158 $tabla }
  977.     if ($2 == 11) { write -l168 $tabla }
  978.     if ($2 == 12) { write -l178 $tabla }
  979.     if ($2 == 13) { write -l188 $tabla }
  980.     if ($2 == 14) { write -l198 $tabla }
  981.     if ($2 == 15) { write -l208 $tabla }
  982.     if ($2 == 16) { write -l218 $tabla }
  983.     if ($2 == 17) { write -l228 $tabla }
  984.     if ($2 == 18) { write -l238 $tabla }
  985.     if ($2 == 19) { write -l248 $tabla }
  986.     if ($2 == 20) { write -l258 $tabla }
  987.     if ($2 == 21) { write -l268 $tabla }
  988.     if ($2 == 22) { write -l278 $tabla }
  989.     if ($2 == 23) { write -l288 $tabla }
  990.   }
  991.   if ($1 == miercoles) {
  992.     if ($2 == 00) { write -l59 $tabla }
  993.     if ($2 == 01) { write -l69 $tabla }
  994.     if ($2 == 02) { write -l79 $tabla }
  995.     if ($2 == 03) { write -l89 $tabla }
  996.     if ($2 == 04) { write -l99 $tabla }
  997.     if ($2 == 05) { write -l109 $tabla }
  998.     if ($2 == 06) { write -l119 $tabla }
  999.     if ($2 == 07) { write -l129 $tabla }
  1000.     if ($2 == 08) { write -l139 $tabla }
  1001.     if ($2 == 09) { write -l149 $tabla }
  1002.     if ($2 == 10) { write -l159 $tabla }
  1003.     if ($2 == 11) { write -l169 $tabla }
  1004.     if ($2 == 12) { write -l179 $tabla }
  1005.     if ($2 == 13) { write -l189 $tabla }
  1006.     if ($2 == 14) { write -l199 $tabla }
  1007.     if ($2 == 15) { write -l209 $tabla }
  1008.     if ($2 == 16) { write -l219 $tabla }
  1009.     if ($2 == 17) { write -l229 $tabla }
  1010.     if ($2 == 18) { write -l239 $tabla }
  1011.     if ($2 == 19) { write -l249 $tabla }
  1012.     if ($2 == 20) { write -l259 $tabla }
  1013.     if ($2 == 21) { write -l269 $tabla }
  1014.     if ($2 == 22) { write -l279 $tabla }
  1015.     if ($2 == 23) { write -l289 $tabla }
  1016.   }
  1017.   if ($1 == jueves) {
  1018.     if ($2 == 00) { write -l60 $tabla }
  1019.     if ($2 == 01) { write -l70 $tabla }
  1020.     if ($2 == 02) { write -l80 $tabla }
  1021.     if ($2 == 03) { write -l90 $tabla }
  1022.     if ($2 == 04) { write -l100 $tabla }
  1023.     if ($2 == 05) { write -l110 $tabla }
  1024.     if ($2 == 06) { write -l120 $tabla }
  1025.     if ($2 == 07) { write -l130 $tabla }
  1026.     if ($2 == 08) { write -l140 $tabla }
  1027.     if ($2 == 09) { write -l150 $tabla }
  1028.     if ($2 == 10) { write -l160 $tabla }
  1029.     if ($2 == 11) { write -l170 $tabla }
  1030.     if ($2 == 12) { write -l180 $tabla }
  1031.     if ($2 == 13) { write -l190 $tabla }
  1032.     if ($2 == 14) { write -l200 $tabla }
  1033.     if ($2 == 15) { write -l210 $tabla }
  1034.     if ($2 == 16) { write -l220 $tabla }
  1035.     if ($2 == 17) { write -l230 $tabla }
  1036.     if ($2 == 18) { write -l240 $tabla }
  1037.     if ($2 == 19) { write -l250 $tabla }
  1038.     if ($2 == 20) { write -l260 $tabla }
  1039.     if ($2 == 21) { write -l270 $tabla }
  1040.     if ($2 == 22) { write -l280 $tabla }
  1041.     if ($2 == 23) { write -l290 $tabla }
  1042.   }
  1043.   if ($1 == viernes) {
  1044.     if ($2 == 00) { write -l61 $tabla }
  1045.     if ($2 == 01) { write -l71 $tabla }
  1046.     if ($2 == 02) { write -l81 $tabla }
  1047.     if ($2 == 03) { write -l91 $tabla }
  1048.     if ($2 == 04) { write -l101 $tabla }
  1049.     if ($2 == 05) { write -l111 $tabla }
  1050.     if ($2 == 06) { write -l121 $tabla }
  1051.     if ($2 == 07) { write -l131 $tabla }
  1052.     if ($2 == 08) { write -l141 $tabla }
  1053.     if ($2 == 09) { write -l151 $tabla }
  1054.     if ($2 == 10) { write -l161 $tabla }
  1055.     if ($2 == 11) { write -l171 $tabla }
  1056.     if ($2 == 12) { write -l181 $tabla }
  1057.     if ($2 == 13) { write -l191 $tabla }
  1058.     if ($2 == 14) { write -l201 $tabla }
  1059.     if ($2 == 15) { write -l211 $tabla }
  1060.     if ($2 == 16) { write -l221 $tabla }
  1061.     if ($2 == 17) { write -l231 $tabla }
  1062.     if ($2 == 18) { write -l241 $tabla }
  1063.     if ($2 == 19) { write -l251 $tabla }
  1064.     if ($2 == 20) { write -l261 $tabla }
  1065.     if ($2 == 21) { write -l271 $tabla }
  1066.     if ($2 == 22) { write -l281 $tabla }
  1067.     if ($2 == 23) { write -l291 $tabla }
  1068.   }
  1069.   if ($1 == sabado) {
  1070.     if ($2 == 00) { write -l62 $tabla }
  1071.     if ($2 == 01) { write -l72 $tabla }
  1072.     if ($2 == 02) { write -l82 $tabla }
  1073.     if ($2 == 03) { write -l92 $tabla }
  1074.     if ($2 == 04) { write -l102 $tabla }
  1075.     if ($2 == 05) { write -l112 $tabla }
  1076.     if ($2 == 06) { write -l122 $tabla }
  1077.     if ($2 == 07) { write -l132 $tabla }
  1078.     if ($2 == 08) { write -l142 $tabla }
  1079.     if ($2 == 09) { write -l152 $tabla }
  1080.     if ($2 == 10) { write -l162 $tabla }
  1081.     if ($2 == 11) { write -l172 $tabla }
  1082.     if ($2 == 12) { write -l182 $tabla }
  1083.     if ($2 == 13) { write -l192 $tabla }
  1084.     if ($2 == 14) { write -l202 $tabla }
  1085.     if ($2 == 15) { write -l212 $tabla }
  1086.     if ($2 == 16) { write -l222 $tabla }
  1087.     if ($2 == 17) { write -l232 $tabla }
  1088.     if ($2 == 18) { write -l242 $tabla }
  1089.     if ($2 == 19) { write -l252 $tabla }
  1090.     if ($2 == 20) { write -l262 $tabla }
  1091.     if ($2 == 21) { write -l272 $tabla }
  1092.     if ($2 == 22) { write -l282 $tabla }
  1093.     if ($2 == 23) { write -l292 $tabla }
  1094.   }
  1095.   if ($1 == domingo) {
  1096.     if ($2 == 00) { write -l63 $tabla }
  1097.     if ($2 == 01) { write -l73 $tabla }
  1098.     if ($2 == 02) { write -l83 $tabla }
  1099.     if ($2 == 03) { write -l93 $tabla }
  1100.     if ($2 == 04) { write -l103 $tabla }
  1101.     if ($2 == 05) { write -l113 $tabla }
  1102.     if ($2 == 06) { write -l123 $tabla }
  1103.     if ($2 == 07) { write -l133 $tabla }
  1104.     if ($2 == 08) { write -l143 $tabla }
  1105.     if ($2 == 09) { write -l153 $tabla }
  1106.     if ($2 == 10) { write -l163 $tabla }
  1107.     if ($2 == 11) { write -l173 $tabla }
  1108.     if ($2 == 12) { write -l183 $tabla }
  1109.     if ($2 == 13) { write -l193 $tabla }
  1110.     if ($2 == 14) { write -l203 $tabla }
  1111.     if ($2 == 15) { write -l213 $tabla }
  1112.     if ($2 == 16) { write -l223 $tabla }
  1113.     if ($2 == 17) { write -l233 $tabla }
  1114.     if ($2 == 18) { write -l243 $tabla }
  1115.     if ($2 == 19) { write -l253 $tabla }
  1116.     if ($2 == 20) { write -l263 $tabla }
  1117.     if ($2 == 21) { write -l273 $tabla }
  1118.     if ($2 == 22) { write -l283 $tabla }
  1119.     if ($2 == 23) { write -l293 $tabla }
  1120.   }
  1121. }
  1122. lunes {
  1123.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),26),-1,34),1,60),1,62),1,58) }
  1124.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),36),-1,34),1,60),1,62),1,58) }
  1125.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),46),-1,34),1,60),1,62),1,58) }
  1126.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),56),-1,34),1,60),1,62),1,58) }
  1127.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),66),-1,34),1,60),1,62),1,58) }
  1128.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),76),-1,34),1,60),1,62),1,58) }
  1129.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),86),-1,34),1,60),1,62),1,58) }
  1130.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),96),-1,34),1,60),1,62),1,58) }
  1131.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),106),-1,34),1,60),1,62),1,58) }
  1132.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),116),-1,34),1,60),1,62),1,58) }
  1133.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),126),-1,34),1,60),1,62),1,58) }
  1134.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),136),-1,34),1,60),1,62),1,58) }
  1135.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),146),-1,34),1,60),1,62),1,58) }
  1136.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),156),-1,34),1,60),1,62),1,58) }
  1137.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),166),-1,34),1,60),1,62),1,58) }
  1138.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),176),-1,34),1,60),1,62),1,58) }
  1139.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),186),-1,34),1,60),1,62),1,58) }
  1140.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),196),-1,34),1,60),1,62),1,58) }
  1141.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),206),-1,34),1,60),1,62),1,58) }
  1142.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),216),-1,34),1,60),1,62),1,58) }
  1143.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),226),-1,34),1,60),1,62),1,58) }
  1144.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),236),-1,34),1,60),1,62),1,58) }
  1145.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),246),-1,34),1,60),1,62),1,58) }
  1146.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),256),-1,34),1,60),1,62),1,58) }
  1147. }
  1148.  
  1149. martes {
  1150.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),27),-1,34),1,60),1,62),1,58)  }
  1151.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),37),-1,34),1,60),1,62),1,58) }
  1152.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),47),-1,34),1,60),1,62),1,58) }
  1153.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),57),-1,34),1,60),1,62),1,58) }
  1154.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),67),-1,34),1,60),1,62),1,58) }
  1155.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),77),-1,34),1,60),1,62),1,58) }
  1156.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),87),-1,34),1,60),1,62),1,58) }
  1157.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),97),-1,34),1,60),1,62),1,58) }
  1158.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),107),-1,34),1,60),1,62),1,58) }
  1159.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),117),-1,34),1,60),1,62),1,58) }
  1160.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),127),-1,34),1,60),1,62),1,58) }
  1161.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),137),-1,34),1,60),1,62),1,58) }
  1162.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),147),-1,34),1,60),1,62),1,58) }
  1163.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),157),-1,34),1,60),1,62),1,58) }
  1164.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),167),-1,34),1,60),1,62),1,58) }
  1165.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),177),-1,34),1,60),1,62),1,58) }
  1166.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),187),-1,34),1,60),1,62),1,58) }
  1167.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),197),-1,34),1,60),1,62),1,58) }
  1168.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),207),-1,34),1,60),1,62),1,58) }
  1169.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),217),-1,34),1,60),1,62),1,58) }
  1170.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),227),-1,34),1,60),1,62),1,58) }
  1171.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),237),-1,34),1,60),1,62),1,58) }
  1172.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),247),-1,34),1,60),1,62),1,58) }
  1173.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),257),-1,34),1,60),1,62),1,58) }
  1174. }
  1175. miercoles {
  1176.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),28),-1,34),1,60),1,62),1,58)  }
  1177.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),38),-1,34),1,60),1,62),1,58) }
  1178.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),48),-1,34),1,60),1,62),1,58) }
  1179.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),58),-1,34),1,60),1,62),1,58) }
  1180.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),68),-1,34),1,60),1,62),1,58) }
  1181.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),78),-1,34),1,60),1,62),1,58) }
  1182.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),88),-1,34),1,60),1,62),1,58) }
  1183.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),98),-1,34),1,60),1,62),1,58) }
  1184.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),108),-1,34),1,60),1,62),1,58) }
  1185.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),118),-1,34),1,60),1,62),1,58) }
  1186.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),128),-1,34),1,60),1,62),1,58) }
  1187.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),138),-1,34),1,60),1,62),1,58) }
  1188.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),148),-1,34),1,60),1,62),1,58) }
  1189.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),158),-1,34),1,60),1,62),1,58) }
  1190.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),168),-1,34),1,60),1,62),1,58) }
  1191.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),178),-1,34),1,60),1,62),1,58) }
  1192.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),188),-1,34),1,60),1,62),1,58) }
  1193.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),198),-1,34),1,60),1,62),1,58) }
  1194.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),208),-1,34),1,60),1,62),1,58) }
  1195.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),218),-1,34),1,60),1,62),1,58) }
  1196.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),228),-1,34),1,60),1,62),1,58) }
  1197.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),238),-1,34),1,60),1,62),1,58) }
  1198.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),248),-1,34),1,60),1,62),1,58) }
  1199.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),258),-1,34),1,60),1,62),1,58) }
  1200. }
  1201. jueves {
  1202.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),29),-1,34),1,60),1,62),1,58)  }
  1203.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),39),-1,34),1,60),1,62),1,58) }
  1204.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),49),-1,34),1,60),1,62),1,58) }
  1205.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),59),-1,34),1,60),1,62),1,58) }
  1206.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),69),-1,34),1,60),1,62),1,58) }
  1207.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),79),-1,34),1,60),1,62),1,58) }
  1208.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),89),-1,34),1,60),1,62),1,58) }
  1209.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),99),-1,34),1,60),1,62),1,58) }
  1210.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),109),-1,34),1,60),1,62),1,58) }
  1211.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),119),-1,34),1,60),1,62),1,58) }
  1212.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),129),-1,34),1,60),1,62),1,58) }
  1213.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),139),-1,34),1,60),1,62),1,58) }
  1214.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),149),-1,34),1,60),1,62),1,58) }
  1215.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),159),-1,34),1,60),1,62),1,58) }
  1216.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),169),-1,34),1,60),1,62),1,58) }
  1217.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),179),-1,34),1,60),1,62),1,58) }
  1218.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),189),-1,34),1,60),1,62),1,58) }
  1219.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),199),-1,34),1,60),1,62),1,58) }
  1220.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),209),-1,34),1,60),1,62),1,58) }
  1221.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),219),-1,34),1,60),1,62),1,58) }
  1222.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),229),-1,34),1,60),1,62),1,58) }
  1223.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),239),-1,34),1,60),1,62),1,58) }
  1224.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),249),-1,34),1,60),1,62),1,58) }
  1225.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),259),-1,34),1,60),1,62),1,58) }
  1226. }
  1227. viernes {
  1228.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),30),-1,34),1,60),1,62),1,58)  }
  1229.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),40),-1,34),1,60),1,62),1,58) }
  1230.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),50),-1,34),1,60),1,62),1,58) }
  1231.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),60),-1,34),1,60),1,62),1,58) }
  1232.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),70),-1,34),1,60),1,62),1,58) }
  1233.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),80),-1,34),1,60),1,62),1,58) }
  1234.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),90),-1,34),1,60),1,62),1,58) }
  1235.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),100),-1,34),1,60),1,62),1,58) }
  1236.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),110),-1,34),1,60),1,62),1,58) }
  1237.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),120),-1,34),1,60),1,62),1,58) }
  1238.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),130),-1,34),1,60),1,62),1,58) }
  1239.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),140),-1,34),1,60),1,62),1,58) }
  1240.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),150),-1,34),1,60),1,62),1,58) }
  1241.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),160),-1,34),1,60),1,62),1,58) }
  1242.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),170),-1,34),1,60),1,62),1,58) }
  1243.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),180),-1,34),1,60),1,62),1,58) }
  1244.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),190),-1,34),1,60),1,62),1,58) }
  1245.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),200),-1,34),1,60),1,62),1,58) }
  1246.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),210),-1,34),1,60),1,62),1,58) }
  1247.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),220),-1,34),1,60),1,62),1,58) }
  1248.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),230),-1,34),1,60),1,62),1,58) }
  1249.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),240),-1,34),1,60),1,62),1,58) }
  1250.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),250),-1,34),1,60),1,62),1,58) }
  1251.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),260),-1,34),1,60),1,62),1,58) }
  1252. }
  1253.  
  1254. sabado {
  1255.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),31),-1,34),1,60),1,62),1,58)  }
  1256.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),41),-1,34),1,60),1,62),1,58) }
  1257.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),51),-1,34),1,60),1,62),1,58) }
  1258.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),61),-1,34),1,60),1,62),1,58) }
  1259.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),71),-1,34),1,60),1,62),1,58) }
  1260.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),81),-1,34),1,60),1,62),1,58) }
  1261.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),91),-1,34),1,60),1,62),1,58) }
  1262.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),101),-1,34),1,60),1,62),1,58) }
  1263.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),111),-1,34),1,60),1,62),1,58) }
  1264.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),121),-1,34),1,60),1,62),1,58) }
  1265.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),131),-1,34),1,60),1,62),1,58) }
  1266.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),141),-1,34),1,60),1,62),1,58) }
  1267.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),151),-1,34),1,60),1,62),1,58) }
  1268.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),161),-1,34),1,60),1,62),1,58) }
  1269.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),171),-1,34),1,60),1,62),1,58) }
  1270.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),181),-1,34),1,60),1,62),1,58) }
  1271.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),191),-1,34),1,60),1,62),1,58) }
  1272.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),201),-1,34),1,60),1,62),1,58) }
  1273.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),211),-1,34),1,60),1,62),1,58) }
  1274.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),221),-1,34),1,60),1,62),1,58) }
  1275.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),231),-1,34),1,60),1,62),1,58) }
  1276.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),241),-1,34),1,60),1,62),1,58) }
  1277.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),251),-1,34),1,60),1,62),1,58) }
  1278.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),261),-1,34),1,60),1,62),1,58) }
  1279. }
  1280. domingo {
  1281.   if ($1 == 00) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),32),-1,34),1,60),1,62),1,58)  }
  1282.   elseif ($1 == 01) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),42),-1,34),1,60),1,62),1,58) }
  1283.   elseif ($1 == 02) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),52),-1,34),1,60),1,62),1,58) }
  1284.   elseif ($1 == 03) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),62),-1,34),1,60),1,62),1,58) }
  1285.   elseif ($1 == 04) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),72),-1,34),1,60),1,62),1,58) }
  1286.   elseif ($1 == 05) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),82),-1,34),1,60),1,62),1,58) }
  1287.   elseif ($1 == 06) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),92),-1,34),1,60),1,62),1,58) }
  1288.   elseif ($1 == 07) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),102),-1,34),1,60),1,62),1,58) }
  1289.   elseif ($1 == 08) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),112),-1,34),1,60),1,62),1,58) }
  1290.   elseif ($1 == 09) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),122),-1,34),1,60),1,62),1,58) }
  1291.   elseif ($1 == 10) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),132),-1,34),1,60),1,62),1,58) }
  1292.   elseif ($1 == 11) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),142),-1,34),1,60),1,62),1,58) }
  1293.   elseif ($1 == 12) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),152),-1,34),1,60),1,62),1,58) }
  1294.   elseif ($1 == 13) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),162),-1,34),1,60),1,62),1,58) }
  1295.   elseif ($1 == 14) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),172),-1,34),1,60),1,62),1,58) }
  1296.   elseif ($1 == 15) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),182),-1,34),1,60),1,62),1,58) }
  1297.   elseif ($1 == 16) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),192),-1,34),1,60),1,62),1,58) }
  1298.   elseif ($1 == 17) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),202),-1,34),1,60),1,62),1,58) }
  1299.   elseif ($1 == 18) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),212),-1,34),1,60),1,62),1,58) }
  1300.   elseif ($1 == 19) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),222),-1,34),1,60),1,62),1,58) }
  1301.   elseif ($1 == 20) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),232),-1,34),1,60),1,62),1,58) }
  1302.   elseif ($1 == 21) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),242),-1,34),1,60),1,62),1,58) }
  1303.   elseif ($1 == 22) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),252),-1,34),1,60),1,62),1,58) }
  1304.   elseif ($1 == 23) { return $gettok($gettok($gettok($gettok($read($ruta(horarios),262),-1,34),1,60),1,62),1,58) }
  1305. }
Tags: html CSS Musica ftp mirc irc Addons mirc scripting parrilla
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!