µLua DS - Forum officiel | Official forum Index du Forum

µLua DS - Forum officiel | Official forum
Le bon endroit pour en savoir plus sur MicroLua et pour parler de vos projets ! | The right place to learn more about MicroLua and talk about your projects !

 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer   ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

[fun]t&f

 
Poster un nouveau sujet   Répondre au sujet    µLua DS - Forum officiel | Official forum Index du Forum -> Section française -> Homebrews
Sujet précédent :: Sujet suivant  
Auteur Message
geeker


Hors ligne

Inscrit le: 23 Déc 2012
Messages: 363

MessagePosté le: Ven 26 Avr 2013 - 16:06    Sujet du message: [fun]t&f Répondre en citant

Quand je m'ennuie en vacances, ça rigole pas ! J'ai fais un (très) petit homebrew, basé sur le principe de Track&Field (d'où le nom), où il faut appuyer sur A et B le plus rapidement possible pour faire un bon score .
Mon score: 527 (nds)
Meilleurs scores:
 -thermo_nono
(429, MLS)
 -SANdall (375, hardware)
Comme le jeu ne comporte qu'un seul fichier, je le poste ici:

Code:

time = Timer.new()
mode = 1

while Keys.held.A or Keys.held.B do
 Controls.read()
end

while not Keys.held.A and not Keys.held.B do
 Controls.read()
 screen.print(SCREEN_DOWN, 0, 0, "Ready? Press A or B to start !")
 screen.print(SCREEN_UP, 0, 0, "Press A and B ... FAST !!!")
 screen.print(SCREEN_DOWN, 0, 8, "use < and > to change mode.")
 if Keys.newPress.Left and mode ~= 1 then
  mode = mode - 1
 elseif Keys.newPress.Right and mode ~= 3 then
  mode = mode + 1 
 end
 if mode == 1 then
  screen.print(SCREEN_DOWN, 0, 16, "Number mode")
 elseif mode == 2 then
  screen.print(SCREEN_DOWN, 0, 16, "Time mode")
 elseif mode == 3 then
  screen.print(SCREEN_DOWN, 0, 16, "Stylus mode")
 end
 render()
end

if mode == 1 then
 time:start()
 last = ""
 score = 0
 while time:time() <= 60000 do
  Controls.read()
  screen.print(SCREEN_DOWN, 0, 0, "Time out: "..((time:time()-60000)/1000).."sec")
  screen.print(SCREEN_DOWN, 0, 8, "Score: "..score)
  if Keys.newPress.A and last ~= "A" then
   score = score + 1
   last = "A"
  elseif Keys.newPress.B and last ~= "B" then
   score = score + 1
   last = "B"
  end
  if Keys.held.Start then
   time:stop()
   while Keys.held.Start do
    Controls.read()
    screen.print(SCREEN_DOWN, 0, 0, "Pause")
    render()
   end
   time:start()
  end
  render()
 end
 time:stop()
 time = nil
end

if mode == 2 then
 time:start()
 score = 0
 last = ""
 held = 0
 while held < 500 do
  Controls.read()
  screen.print(SCREEN_DOWN, 0, 0, "ToPress: "..500-held)
  screen.print(SCREEN_DOWN, 0, 8, "Score: "..time:time()/1000)
  if Keys.newPress.A and last ~= "A" then
   last = "A"
   held = held + 1
  elseif Keys.newPress.B and last ~= "B" then
   last = "B"
   held = held + 1
  end
  if Keys.held.Start then
   time:stop()
   while Keys.held.Start do
    Controls.read()
    screen.print(SCREEN_DOWN, 0, 0, "Pause")
    render()
   end
   time:start()
  end
  render()
 end
 time:stop()
 score = time:time()/1000
 time = nil
end

if mode == 3 then
 last = ""
 score = 0
 time:start()
 while time:time() <= 60000 do
  Controls.read()
  screen.print(SCREEN_DOWN, 0, 0, "Time out: "..(60000-time:time()))
  screen.print(SCREEN_DOWN, 0, 8, "score: "..score)
  if Stylus.deltaX >= 20 and last ~= "+" then
   last = "+"
   score = score + 1
  elseif Stylus.deltaX <= -20 and last ~= "-" then
   last = "-"
   score = score + 1
  end
  render()
 end
end

while not Keys.held.Start do
 Controls.read()
 screen.print(SCREEN_DOWN, 0, 0, "score: "..score)
 screen.print(SCREEN_DOWN, 0, 8, "Press Start to quit.")
 render()
end

log = io.open(ULUA_DIR.."microlua.log", "a")
--log:write("\n<t&f>score: "..score)
log:close()
log = nil

if time then
 time:stop()
 time = nil
end
score = nil
mode = nil


Les trois modes de jeu:
-Number mode: faire le plus de A/B en 1 minute.
-Time mode: 500 A/B en le moins de temps possible.
-Stylus mode: comme le number mode, avec le stylet Wink

Voilà c'est tout ! C'était bref, mais le jeu vaut vraiment le coup ... Ou pas !
Postez vos scores ici ... Le meilleur sera sur le premier post !
_________________
Beta-testeur de l'extrème
Tox: FFBDC8B34DC3CDE51F8F1CB0A628147DE740ACD1D44682EB5492A681F6541E32E8D8BB6052B3
CtrµLua: ctrulua.github.io
Des p'tits true, des p'tits true, toujours des p'tits true ...


Dernière édition par geeker le Dim 19 Mai 2013 - 12:09; édité 3 fois
Revenir en haut
Visiter le site web du posteur
Publicité






MessagePosté le: Ven 26 Avr 2013 - 16:06    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
thermo_nono
Modérateur

Hors ligne

Inscrit le: 31 Déc 2008
Messages: 2 415
Localisation: La Géhenne

MessagePosté le: Ven 26 Avr 2013 - 16:22    Sujet du message: [fun]t&f Répondre en citant

Okay
score: 429 (sur MLS) 
_________________
“Qui reçoit une idée de moi reçoit de la connaissance sans diminuer la mienne, comme celui qui allume sa chandelle à la mienne reçoit la lumière sans me plonger dans l’obscurité.” - Thomas Jefferson


Revenir en haut
Visiter le site web du posteur MSN
SANdall


Hors ligne

Inscrit le: 12 Mai 2013
Messages: 26
Localisation: cakeland

MessagePosté le: Dim 19 Mai 2013 - 12:07    Sujet du message: [fun]t&f Répondre en citant

Geeker nous propose ses nouveaux exercices de musculation de doigt avec t&f.
Avec aussi un mode défonçage d'écran: Stylus mode Mr. Green

Bon moi je suis pas allé bien loin : 375 A/B avec ma ds light
_________________
Vous voulez des videos impressionament géniales?
[url=http://www.youtube.com/channel/UC1kPJ2vihg3j5MNct2mtiCQ]


Revenir en haut
Skype
Contenu Sponsorisé






MessagePosté le: Aujourd’hui à 10:26    Sujet du message: [fun]t&f

Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    µLua DS - Forum officiel | Official forum Index du Forum -> Section française -> Homebrews Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com