Parte11-Fragmentos de código Lua (Snippet)

Invitado

SI PULSAS DERECHA O IZQUIERDA (No creo que puedas pulsar los dos a la vez)

Código:

if pad:right() or pad:analogX() > SA then
mensaje_enviado = mensaje_enviado .. "R"
mueve_sprite_derecha( 1 )
elseif pad:left() or pad:analogX() < -SA then
mensaje_enviado = mensaje_enviado .. "L"
mueve_sprite_izquierda( 1 )
else
mensaje_enviado = mensaje_enviado .. "F"
-- no hay movimiento --
end

SI PULSAS CRUZ

Código:

if pad:cross() and oldpad:cross() ~= pad:cross() then
mensaje_enviado = mensaje_enviado .. "C"
accion_sprite( 1 )
else
mensaje_enviado = mensaje_enviado .. "F"
-- no hay botón pulsado --
end

Código:

else

Si te han matado pero durante algún tiempo sigue la partida

Código:

mensaje_enviado = string.char(mensaje) .. "FFF"

Código:

end

Trasmitimos el mensaje a prueba de fallos de transmisión

Código:

fin_espera = false
repeat
Adhoc.send(mensaje_enviado)
System.sleep(10)
for espera = 1, 5 do
mensaje_recibido = Adhoc.recv()
if string.sub( mensaje_recibido, 1, 1) == string.char(mensaje) then
fin_espera = true
break
end
if mensaje_recibido == ultimo_mensaje_recibido then
Adhoc.send(ultimo_mensaje_enviado)
System.sleep(10)
end
System.sleep(10)
end
until fin_espera
ultimo_mensaje_recibido = mensaje_recibido
ultimo_mensaje_enviado = mensaje_enviado
mensaje = mensaje + 1
if mensaje > 122 then mensaje = 65 end

Código:

oldpad = pad -- (También se me ha olvidado)

if jugador[2].accion then -- Jugador contrario u remoto. --

SI EL CONTRARIO PULSA ARRIBA O ABAJO

Código:

caracter = string.sub( mensaje_recibido, 2, 2 )
if caracter == "U" then
mueve_sprite_arriba( 2 )
elseif caracter == "D" then
mueve_sprite_abajo( 2 )
else
-- no hay movimiento --
end

SI EL CONTRARIO PULSA DERECHA O IZQUIERDA

Código:

caracter = string.sub( mensaje_recibido, 3, 3 )
if caracter == "R" then
mueve_sprite_derecha( 2 )
elseif caracter == "L" then
mueve_sprite_izquierda( 2 )
else
-- no hay movimiento --
end

SI EL CONTRARIO PULSA CRUZ

Código:

caracter = string.sub( mensaje_recibido, 4, 4 )
if caracter == "C" then
accion_sprite( 2 )
else
-- no hay botón pulsado --
end

Código:

else

Si has matado al jugador remoto pero durante algún tiempo sigue la partida

Código:

end

dibujar_sprites()

mostrar_marcadores()

muestra_pantalla()

determina_fin_partida_y_ganador()

until fin_partida

Trasmitimos el último mensaje a prueba de fallos de transmisión pero esta vez para evitar que una consola se quede pillada en un bucle cerrado, solo hacemos cinco bucles de prueba y salimos.

Código:

fin_espera = false
for esperando = 1, 5 do
Adhoc.send(mensaje_enviado)
System.sleep(10)
for espera = 1, 5 do
mensaje_recibido = Adhoc.recv()
if string.sub( mensaje_recibido, 1, 1) == string.char(mensaje) then
fin_espera = true
break
end
if mensaje_recibido == ultimo_mensaje_recibido then
Adhoc.send(ultimo_mensaje_enviado)
System.sleep(10)
end
System.sleep(10)
end
if fin_espera then break end
end
ultimo_mensaje_recibido = mensaje_recibido
ultimo_mensaje_enviado = mensaje_enviado
mensaje = mensaje + 1
if mensaje > 122 then mensaje = 65 end

Código:

until fin_juego

Adhoc.term() -- Cerramos el Adhoc -----
System.sleep(500)

System.memclean() -- Limpiamos la Memoria --
System.sleep(500)

System.Quit() -- Salida al XMB ---------

Por pipagerardo