mac = Adhoc.getMac()
nick = System.nickName()
mac = tostring(mac)
nick = tostring(nick)
Adhoc.init()
Adhoc.connect()
Adhoc.send("Noticia: "..nick.." se ha unido al chat")
Adhoc.send("Con Mac:"..mac)
green = Color.new(255,255,255)
negro = Color.new(0,0,0)
x = 0
limpiar = 0
fuente = Font.load("./Acens.ttf")
fuente:setPixelSizes(0,20)
 
oldpad = Controls.read()
while true do
 
pad = Controls.read() 
 
datos = Adhoc.recv()
 
dado = math.random(1,6)
dado2 = math.random(1,6)
suma = dado + dado2
dado = tonumber(dado)
dado2 = tonumber(dado2)
suma = tonumber(suma)
 
 
 
if datos ~= "" then
x = x + 20
   if tonumber(x) == 260 then
   x = 20
   limpiar = limpiar + 1
   screen:clear(negro)
   screen.flip()
   screen:fontPrint(fuente,10,x,datos,green) 
   screen.flip()
   screen.waitVblankStart()
   else 
   screen:fontPrint(fuente,10,x,datos,green)
   screen.flip()
   screen.waitVblankStart()
end
end
 
 
if pad:r() then
x = x + 20
osk = System.startOSK("","Introduce tu mensaje")
       if tonumber(x) == 260 then
       x = 20
       limpiar = limpiar + 1
       screen:clear(negro)
       screen.flip()
       screen:fontPrint(fuente,10,x,"Yo: "..osk,green)
       screen.flip() 
       screen.waitVblankStart()
       else
       screen:fontPrint(fuente,10,x,"Yo: "..osk,green)
       screen.flip()
       screen.waitVblankStart()
       end
Adhoc.send(nick..": "..osk)
end
 
 
if pad:cross() and not oldpad:cross() then
x = x + 20
Adhoc.send(nick.." ha tirado los dados y ha sacado "..suma)
   if tonumber(x) == 260 then
   x = 20
   limpiar = limpiar + 1
   screen:clear(negro)
   screen.flip()
   screen:fontPrint(fuente,10,x,"Has sacado "..suma.." tirando los dados",green) 
   screen.flip()
   screen.waitVblankStart()
   else 
   screen:fontPrint(fuente,10,x,"Has sacado "..suma.." tirando los dados",green)
   screen.flip()
   screen.waitVblankStart()
   end
end
if tonumber(limpiar) == 4 then
System.memclean()
end
end