Inicio de sesión
Navegación
Actualmente hay 0 usuarios y 11 invitados en línea.
Rompecabezas
- Inicie sesión o regístrese para enviar comentarios
Rompecabezas
Lun, 10/04/2006 - 10:36
Hola a todos, esta es la primera vez que propongo un reto, y creo que no es muy fácil que digamos, se trata de un juego, y voy a tratar de transmitirle lo que tengo en mente. Es un como un rompecabezas, el cual tal vez en alguna ocasión ustedes habrán jugado; consiste en una figura dividida en 16 segmentos y uno de ellos no existe, por lo general el inferior derecho, quedando en total 15 elementos los cuales se pueden desplazar para armar la figura.
Lo que tengo en mente es crear ese juego, el cual va a utilizar un grob del tamaño de la pantalla 131x64 píxeles, de entrada debe contener al menos un grob guardado el cual puede ser uno que lleve los números del 1 al 15, también debe ser capaz de que si existe un grob en la pila lo utilice, lo cual tiene dos problemas que sea menor o mayor a 131x64 por lo que en ambos casos hay que expandir o completar con espacios en blanco en caso de ser menor, y recortar o minimizar en caso de ser mayor.
La idea es que cuando ya se tiene el grob sea capaz de dividirlo en 16 pequeños grobs dejandolos en forma aleatoria, para que siempre se tenga un juego distinto, hay que tomar en cuenta que el último grob (el 16 o inferior izquirdo) debe desaparecer o muy bien ser blanco o negro para no confundir con la el resto de la imagen,el problema se presenta en la manera de como el usuario desplace el grob 16 (ya sea arriba, abajo, derecha, izquierda), considerando por ejemplo que si esta en un borde como el la posición 4 solo puede moverse abajo o a la izquierda. Pienso que se puede colocar un 0 WAIT para esperar una tecla, aun no se me corre cuales teclas asignar, y dependiendo de la que se seleccione mover el cuadro 16, ademas dando un error en caso de intentar dezplazar para el lado de uno de los bordes.
Digamos que se tiene este grob:
Luego se debe ver algo como esto (es solo referencial no tiene que se neccesariamente asi):
Bueno me despido, alli les dejo eso proyecto.
ReMat 2006
- Inicie sesión o regístrese para enviar comentarios
Otros temas de interes
- como hacer una barra de menus ??
- Nueva Calculadora HP?? HP 39gII spécification
- ROM 2.10-7 Spreadsheet & Geometry manuales y biblioteca.
- Ayuda con Raices
- [PROYECTOS] EoEiProEngLib, MathEngProLib, EquatnEngProLib & and HP50GNKLib
- ayuda con integral exponencial
- programa tipo excell que permita introducir formulas en las tablas
- como aprender tantos comandos en SYSTEM?
- [PROYECTO] Universal Font Library for HP50G CAS para recuperar "Hello World" 3 ->GROB de la HP48GX (1994)
Hola Remat, interesante el reto.
Bueno presento la siguiente propuesta, pero por el momento tiene que haber un GROB de 131x64 en la pila.
\<< \->STR 8 "2" REPL OBJ\-> # 21h # 10h BLANK NEG # 63h # 30h 2 \->LIST SWAP REPL { } 0 3
FOR I 0 3
FOR J OVER # 21h I * # 10h J * OVER # 20h + OVER # Fh + 2 \->LIST ROT ROT 2 \->LIST SWAP SUB +
NEXT
NEXT SWAP DROP DUP EVAL 16 2
FOR I I RAND * CEIL 1 + ROLL I ROLLD -1
STEP 16 \->LIST 16 \-> A
\<<
DO
IF KEY
THEN
CASE 25 OVER ==
THEN DROP A 4 MOD
\<< DUP A GET OVER A 1 + GET ROT A ROT PUT A 1 + ROT PUT A 1 + 'A' STO
\>>
\<< 200 .1 BEEP
\>> IFTE
END 34 OVER ==
THEN DROP A 13 <
\<< DUP A GET OVER A 4 + GET ROT A ROT PUT A 4 + ROT PUT A 4 + 'A' STO
\>>
\<< 200 .1 BEEP
\>> IFTE
END 35 OVER ==
THEN DROP A 3 + 4 MOD
\<< DUP A GET OVER A 1 - GET ROT A ROT PUT A 1 - ROT PUT A 1 - 'A' STO
\>>
\<< 200 .1 BEEP
\>> IFTE
END 36 OVER ==
THEN DROP A 4 >
\<< DUP A GET OVER A 4 - GET ROT A ROT PUT A 4 - ROT PUT A 4 - 'A' STO
\>>
\<< 200 .1 BEEP
\>> IFTE
END DROP 200 .1 BEEP
END
END 0 3
FOR I 0 3
FOR J PICT OVER I 4 * J + 1 + GET I # 21h * J # 10h * 2 \->LIST SWAP REPL
NEXT
NEXT { # 0h # 0h } PVIEW
UNTIL DUP2 SAME
END
\>> DROP2 "LO LOGRASTE" MSGBOX { } PVIEW
\>>Bytes: 1167
La cuestión en la vida no es saber mucho, sino olvidarse de poco.
http://www.edwincordoba.com/
- Inicie sesión o regístrese para enviar comentarios
deberian de poner una opcion para seleccionar preguntas interezantes para poder leerlas cuando uno kisiera, algo asi como guardar en favoritos
y como se hace correr ese programa ??
- Inicie sesión o regístrese para enviar comentarios
Integró: 05/06/2003
Envíos: 343
MonedasHP: 186
En navegadores como Firefox y otros existe la opción para guardar marcadores, es decir, si esta página le parece un favorito, debería agregarlo como marcador, y agrupar todo en un contenedor HP por ejemplo, opciones si existen.
- Gaak -
- Inicie sesión o regístrese para enviar comentarios
Edwin, muy interesante voy a analizar lo que enviastes y me dejastes asombrado, por que no pense que hiba a encontrar una propuesta tan rápida de este reto, felicitaciones
Román Barrios
Blog:Roman's Blog
Web: Roman Barrios