ROMPECABEZAS VINTAGE

[serge_girard]

Thanks for sharing Louis!

[LOUIS]

Hola Amigos del HMGforum

Por aquí con una actualización, debido a que la última vez me emocioné mucho y subí el prg, luego me dí cuenta que faltó ciertos detalles.
Cuando decía que lo resolvió con o sin Comodín, podía pedir otro juego o salir, pero no mostraba el tiempo que hizo.

También ahora cuenta con una label para pedir otro Juego, a partir del #2 va mostrando cuántos juegos van.
Cuando pide el segundo juego y de ahí en adelante, los "botones" de los números aparecen en color negro/blanco, pero a medida que va dando click, van cambiando a su propio color blanco/azul (eso es algo que no puedo controlar, si alguien de uds lo quiere corregir, adelante).

Al dar escape, el programa salía sin decir nada, ahora ya no, lo pasa por el Gato

Saludos
Louis

P.D.- Insisto si alguien quiere modificar, grabando el nombre de los 10 jugadores que resolvieron con menor # de movimientos, go ahead !

[LOUIS]

Amigos os pido una disculpa, encontré 2 errorres, por lo tanto, corregid esto en el prg ...

En el primero, al definir windows vintage, suprimid la label que decía new game 1234, sólo dejad así:

Code: Select all

   @ 000,0975 LABEL L0 WIDTH 360 HEIGHT 105 FONT "TAHOMA" FONTCOLOR WHITE BOLD SIZE 33 VALUE "ROMPECABEZAS VINTAGE" TRANSPARENT UNDERLINE CENTERALIGN
   @ 055,1300 LABEL L7 WIDTH 060 HEIGHT 052 FONT "TAHOMA" FONTCOLOR BLACK BOLD SIZE 33 VALUE "" TRANSPARENT
   @ 140,0975 LABEL L1 WIDTH 360 HEIGHT 175 FONT "ARIAL" FONTCOLOR WHITE BOLD SIZE 24 VALUE "HAY QUE ORDENARLO DEL 1 AL 15 + EL CUADRO NEGRO AL FINAL !" TRANSPARENT CENTERALIGN

   @ 650,0999 LABEL L3 VALUE "NÚMERO DE MOVIMIENTOS" WIDTH 190 HEIGHT 60 FONT "ARIAL" SIZE 20 BOLD FONTCOLOR WHITE BACKCOLOR BLUE
   @ 650,1189 LABEL L4 VALUE ""                      WIDTH 111 HEIGHT 60 FONT "ARIAL" SIZE 40 BOLD FONTCOLOR WHITE BACKCOLOR BLUE

   @ 725,0999 BUTTON B1 CAPTION "COMODIN" WIDTH 99 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK USAR_COMODIN() TOOLTIP 'SÓLO SE USA UNA VEZ POR JUEGO !'
   @ 725,1125 BUTTON B2 CAPTION "H E L P" WIDTH 75 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK AYUDA()
   @ 725,1225 BUTTON B3 CAPTION "Q U I T" WIDTH 75 HEIGHT 30 FONT "ARIAL" SIZE 12 BOLD ONCLICK SALIR() TOOLTIP 'ABORTA EL JUEGO Y SALE'

En el segundo en la function reiniciar, suprimid 2 líneas, dejad así:

Code: Select all

*-----------------
FUNCTION REINICIAR

VINTAGE.L2.RELEASE
ENTRADA:=TIME()
JUEGOS=JUEGOS+1
VINTAGE.L7.VALUE := ALLTRIM(STR(JUEGOS))   // CONTADOR DE JUEGOS

VINTAGE.L5.RELEASE
IF JUEGOS > 1
   FOR i := 1 TO 15
       DoMethod ("VINTAGE", "H"+ALLTRIM(STR(i)), "RELEASE")
   NEXT
ENDIF
IF JUEGOS > 2
   FOR i := 1 TO 15
       DoMethod ("VINTAGE", "G"+ALLTRIM(STR(i)), "RELEASE")
   NEXT
ENDIF

COMODIN:=0
MOV:=0
VINTAGE.L4.VALUE := " "+ALLTRIM(STR(MOV))	// CONTADOR DE MOVIMIENTOS

FOR i := 1 TO 16
    DoMethod ("VINTAGE", "X"+ALLTRIM(STR(i)), "RELEASE")
NEXT

DO EVENTS
MODELO()
DESORDENAR()
RETURN

Creo que ahora sí quedó sin error, disculpad.

Saludos
Louis