µLua DS - Forum officiel | Official forum Forum Index

µ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   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister   ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

[fun]t&f

 
Post new topic   Reply to topic    µLua DS - Forum officiel | Official forum Forum Index -> Section française -> Homebrews
Previous topic :: Next topic  
Author Message
geeker


Offline

Joined: 23 Dec 2012
Posts: 363

PostPosted: Fri 26 Apr 2013 - 16:06    Post subject: [fun]t&f Reply with quote

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 ...


Last edited by geeker on Sun 19 May 2013 - 12:09; edited 3 times in total
Back to top
Visit poster’s website
Publicité






PostPosted: Fri 26 Apr 2013 - 16:06    Post subject: Publicité

PublicitéSupprimer les publicités ?
Back to top
thermo_nono
Modérateur

Offline

Joined: 31 Dec 2008
Posts: 2,415
Localisation: La Géhenne

PostPosted: Fri 26 Apr 2013 - 16:22    Post subject: [fun]t&f Reply with quote

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


Back to top
Visit poster’s website MSN
SANdall


Offline

Joined: 12 May 2013
Posts: 26
Localisation: cakeland

PostPosted: Sun 19 May 2013 - 12:07    Post subject: [fun]t&f Reply with quote

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]


Back to top
Skype
Contenu Sponsorisé






PostPosted: Today at 06:01    Post subject: [fun]t&f

Back to top
Display posts from previous:   
Post new topic   Reply to topic    µLua DS - Forum officiel | Official forum Forum Index -> Section française -> Homebrews All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  

Index | Create a forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group