/* Atrapa los 7 Fugitivos * Juego con LCD 2x16 y Arduino * By !!!"elpro#egarcia"co$ co$ponentes co$prados en !!!"dinastiatecnologica"co$ * Atrapa los #ugitivos al poner tierra en el puerto analogo A% */ &include 'Li(uidCrystal") Li(uidCrystal lcd+12, 11, %, -, ., 20
// Con#igura pines de salida para el LCD
// de#ino los nuevo caracter o i$agenes yte letra134 5 B111, B111, B111, B1, B11111, B1, B11, B11 80 // #ugitivo yte letra234 5 B111, B111, B111, B111, B111, B1, B11, B11 80 yte letra.34 5 B1, B1, B1, B1, B1, B11111, B111, B1 80 //#lec)a yte letra34 5 B, B, B, B, B, B, B, B 80 // lanco yte letra-34 5 B111, B111, B111, B11111, B111, B111, B11, B1111 80 // atrapado int int int int int int int
x50 y510 retardo520 presos50 lires570 #allas50 punta9e50
void setup+ lcd"egin+16, 20 lcd"createC)ar+1, lcd"createC)ar+2, lcd"createC)ar+., lcd"createC)ar+, lcd"createC)ar+-, 8
letra10 letra20 letra.0 letra0 letra-0
// Con#igura el LCD con 16 colu$nas y 2 #ilas // asigna los nuevos caracteres por nu$eros
void loop+
lcd"setCursor+, 0 lcd"print+presos0 lcd"setCursor+2, 0 lcd"print+;F;0 lcd"setCursor+., 0 lcd"print+#allas0 lcd"setCursor+, 10 lcd"print+lires0
// :osicion del letrero en , // :osicion del letrero en 2, // :osicion del letrero en ., // :osicion del letrero en ,1
lcd"setCursor+x,y0 lcd"!rite+yte+10 delay+retardo0
// i$agen #ugitivo 1
lcd"setCursor+x,y0 lcd"!rite+yte+20 delay+retardo0
// i$agen #ugitivo 2
lcd"clear+0
// orrar :antalla
lcd"setCursor+1-,0 // Flec)a en posicion lcd"!rite+yte+.0 lcd"setCursor+%, 0 // :osicion del letrero lcd"print+;Atrapelo;0 i# +analog
// =i es opri$ido el interruptor A% // =e orra la #lec)a // Ba9a la #lec)a
i# +x 55 1- // =i coincide en la posicion 1- y es capturado lcd"setCursor+%, 0 lcd"print+;Bien ";0 lcd"setCursor+x,y0 // Coloca i$agen de capturado lcd"!rite+yte+-0 presos>>0 lires??0 8 else // Cuando no es capturado lcd"setCursor+%, 0 lcd"print+;Fallo ";0 lcd"setCursor+x,y0 // donde (uedo el corredor, @$agen de (ue sigue lire lcd"!rite+yte+20 #allas>>0 8 delay+.0 // spera . segundos 8 x5x>10
// avana el corredor
i# +x516 x50 8
// al pasar regresa al inicio
retardo 5 rando$+1,1%0
// scoge un retardo aleatorio
i# +#allas 55 . // =i coincide en la posicion 1- y es capturado lcd"clear+0 // orrar :antalla lcd"setCursor+., 0 lcd"print+; :ED """;0 punta9e5presos?#allas0 lcd"setCursor+., 10 lcd"print+;:unta9e;0 lcd"setCursor+12, 10 lcd"print+punta9e0 delay +70 presos50 lires570 #allas50 lcd"clear+0 // orrar :antalla 8 i# +lires 55 // =i coincide en la posicion 1- y es capturado lcd"clear+0 // orrar :antalla
lcd"setCursor+., 0 i# +#allas 55 lcd"print+;CLGHHHH;0 8 else lcd"print+;:ED IJ
// si ter$ino pero con alguna #alla
punta9e5presos?#allas0 lcd"setCursor+., 10 lcd"print+;:unta9e;0 lcd"setCursor+12, 10 lcd"print+punta9e0 // :unta9e #inal delay +70 presos50 lires570 #allas50 lcd"clear+0 // orrar :antalla
8 8
// =i no )uo #allas