porque desde esta linea seme queda el codigo pegao a la izquierda en remotes muchas gracias espero las respuesta
}
Alias -l Print2 Sha.Query $Hget(Trivia,Salon) $1-
Alias Pista.Respuesta Return $Mid($2,1-,$Ceil($Calc(($Len($2) * $1) /100)))
Alias Vocales { Var %1 = $Replace($1-,b,*,c,*,d,*,f,*,g,*,h,*,j,*,k,*,l,*,m,*,n,*,p,*,q,*,r,*,s,*,t,*,v,*,w,*,x,*,y,*,z,*) | Return %1 }
Alias Consonantes { Var %1 = $Replace($1-,a,*,e,*,i,*,o,*,u,*) | Return %1 }
Alias Pista { Var %Respuesta = $Gettok($Read(Preguntas.txt,%Numero.Pregunta),2,42), %Porciento = $Iif($1 = 1,40,65) | Print2 * Pista: $Pista.Respuesta(%Porciento,%Respuesta) }
Alias FinPreg {
Timer.Trivia* off
;Print2 * Se acabo el tiempo(O) ; La respuesta era: $Gettok($Read(Preguntas.txt,%Numero.Pregunta),2,42)
Print2 * Se acabo el tiempo(O) ; No les voy a dar la respuesta (6) Estudien (a)
set %Numero.Pregunta $r(1,$lines(preguntas.txt))
Timer.Trivia.Siguiente 1 5 Preguntas
}
Alias Preguntas {
If (!%Numero.Pregunta) set %Numero.Pregunta $r(1,$lines(preguntas.txt))
If ($Read(Preguntas.txt,%Numero.Pregunta)) {
Print2 Pregunta[ $+ %Numero.Pregunta $+ ] $Encoding_Fix($Gettok($Read(Preguntas.txt,%Numero.Pregunta),1,42))
Echo $Hget(Trivia,Salon) La respuesta es: $Gettok($Read(Preguntas.txt,%Numero.Pregunta),2,42)
Timer.Trivia.Pista1 1 30 Pista 1 | Timer.Trivia.Pista2 1 60 Pista 2 | Timer.Trivia.Fin 1 90 FinPreg
}
Else { Print2 Se acabaron las preguntas | Unset %Numero.Pregunta | Set %Trivia.Status. [ $+ [ $1 ] ] Apagada }
}
Alias Encoding_Fix { Var %1 $Replace($1-,©,©,«,«,á,Âá,é,Âé,í,Âí,ó,Âó,ú,Âú) | Return %1 }
Alias Posicion { Var %1 1, %Output 0 | While ($Read(Puntos.ini,%1)) { If ($Gettok($Read(Puntos.ini,%1),2,61) >= $Readini(Puntos.ini,Puntos,$Address($1,1))) { Inc %Output 1 | Inc %1 1 } | Else { Inc %1 1 } } | Return %Output }
