w""wџВ+џџВ+џw2#ww2#ww2#wџ2#џџ2#џР Р Р Р Р Р Р Р эннэнннннэннннннэннонннннэннннэннэ"ђоэ"ђннюџнэ"ђээ"ђнэ"ђэнюџнэ"ђ/"он/"ооџюнн/"он/"он/"оэџюнн/"ооw""wџТ+џ§В,пw""ww2#ww""wџВ+џ§""пw""w§В,пџТ+џw""ww2#ww""w§В+пџ""џоннннноннннэнннннононнннононннннээ"ђнэ"ђннюџнэ"ђоэ"ђнэ"ђннюџоэ"ђ/"оэ/"онџюнэ/"он/"оо/"онџюнн/"оэџџџџODDєOУ<єOУ<єOУ<єOУ<єODDєџџџџџџџџODDєOЬ3єOУ<єO3ЬєO3УєODDєџџџџџџџџODDєOЬ3єO<<єO3УєO3УєODDєџџџџџџџџODDєO3ЬєOУ<єOЬ3єO<3єODDєџџџџџџџџODDєO3ЬєOУУєO<3єO<3єODDєџџџџwffwџЦkџ§ЖkпwffwwVewwVewџЖkџ§ffпwffw§ЖlпџЖkџwffwwVewwVew§Жkпџffџw™™w§Йœ§џЩ›џ—™™y—ЊЊy—Љšy§Й›§џ™™џw™™wџЙ›џ§Йœ§—™™y—ЊЊy—ЉšyџЙ›џ§™™§‡ˆˆx§Ш‹пџИŒџ‡‚(x‡""x‡‚(x§И‹пџˆˆџ‡ˆˆxџИ‹џ§Ш‹п‡‚(x‡""x‡‚(xџИ‹џ§ˆˆпw33wпУ<§џГ;џ74Cs7C4s74CsпГ;§џ33џw33wџГ;џпУ<§74Cs7C4s74CsџГ;џп33§Ў~ €                 Р?§џнннннэн."ЬЬЬЬ№"тнннэннннн џўпннонннэўЬЬЬЬ№яононннонон џппнннннн."ЬЬЬЬ№"тннннннннн џнянонэно."ЬЬЬЬ№"тэнэнэнонэ §џннннннн."ЬЬЬЬ№"тннннннннн нонннонноэўЬЬЬЬ№яонэнэнннон ннонннонн."ЬЬЬЬ№"тнонннннно нннэннннн."№"тнэннннонннэнннэнэн."№"тэннэннннн нннонннонэў№яонннннонон ннннннннн."№"тннннннннн энэнэнэно."№"тннэнэнонэ ннннннннн."№"тноннннннн нэнэнэнноэў№яонэнэнннон ннннннннн."№"тэннннннно нннэннннн."№"тноонноонннэнннэнэн."№"тннннннннн нннонннонэў№яонононннон ннннннннн."№"тннннннннн энэнэнэно."№"тэнонэнонэ §пннннннн."№"тннннннннн џянэнэнноэў№яонннонннон §пннннннн."№"тнонноннно ўпнооннон."ЬЬЬЬ№"тнэнннэннн џџнннннэн."ЬЬЬЬ№"тэннэнннэн нонннонннэўЬЬЬЬ№яонннннонннннннннннн."ЬЬЬЬ№"тннннннннн онэнонэно."ЬЬЬЬ№"тннэнэнэнэ ннннннннн."ЬЬЬЬ№"тноннннннн нонннонноэўЬЬЬЬ№яонэнэнэнэн ннонннонн."ЬЬЬЬ№"тэнннннннн нннэнннно."ЬЬЬЬ№"тнноннюннн нэнннэннн."ЬЬЬЬ№"тэннннннэн нннонннонэўЬЬЬЬ№яонннонннннннннннннн."ЬЬЬЬ№"тннннннннн энэнэнээн."ЬЬЬЬ№"тннонэнэнэ ннннннннн."ЬЬЬЬ№"тноннннннн нэнэнэнннэўЬЬЬЬ№яонннонэнэн нннннннэн."ЬЬЬЬ№"тэнннонннн нннноннон."ЬЬЬЬ№"тноонноонннэнннннэн."ЬЬЬЬ№"тннннннннн нннононннэўЬЬЬЬ№яонононннон ннннннннн."ЬЬЬЬ№"тннннннннн энэнонэно."ЬЬЬЬ№"тэнонэнонэ ннннннннн."ЬЬЬЬ№"тннннннннн нэнннонноэўЬЬЬЬ№яонннонннон ннннннонн."ЬЬЬЬ№"тнонноннно нннноннон."№"тнноннюннн нэнннннэн."№"тэннннннэн нннононннэў№яонннонннннннннннннн."№"тннннннннн энэнонэно."№"тннонэнэнэ ннннннннн."№"тноннннннн нэнннонноэў№яонннонэнэн ннннннонн."№"тэнннонннн нннэнннно."№"тнэннннонннэнннэннн."№"тэннэннннн нннонннонэў№яонннннонон ннннннннн."№"тннннннннн энэнэнээн."№"тннэнэнонэ ннннннннн."№"тноннннннн нэнэнэнннэў№яонэнэнннон нннннннэн."№"тэннннннно нннноннон."ЬЬЬЬ№"тнноннюннн нэнннннэн."ЬЬЬЬ№"тэннннннэн нннононннэўЬЬЬЬ№яонннонннннннннннннн."ЬЬЬЬ№"тннннннннн энэнонэно."ЬЬЬЬ№"тннонэнэнэ ннннннннн."ЬЬЬЬ№"тноннннннн нэнннонноэўЬЬЬЬ№яонннонэнэн ннннннонн."ЬЬЬЬ№"тэнннонннн нннэннннн."ЬЬЬЬ№"тннонноонннэнннэнэн."Ь`fffЬЬ№"тэнннннннн нннонннонэўЬ`fffЬЬ№яонннонннон ннннннннн."Ьа§oЖЫlіп ЬЬ№"тннннннннн энэнэнэно."Ьа§oЖЫlіп ЬЬ№"тннонэнонэ ннннннннн."Ь№џoЖЛkіџЬЬ№"тноннннннн нэнэнэнноэўЬ№џoЖЛkіџЬЬ№яонннонннон ннннннннн."Ь`fffЬЬ№"тэннноннно оннооннон."Ь`fffЬЬ№"тнноннюннн нннннннэн."Ь`VUeЬЬ№"тэннннннэн нонннонннэўЬ`VUeЬЬ№яонннонннннннннннннн."Ь`VUeЬЬ№"тннннннннн онэнонэно."Ь`VUeЬЬ№"тннонэнэнэ ннннннннн."Ьа§oЖЛkіп ЬЬ№"тноннннннн нонннонноэўЬа§oЖЛkіп ЬЬ№яонннонэнэн ннонннонн."Ь№џofffіџЬЬ№"тэнннонннн нннэнннно."№џofffіџ№"тннонноонннэнннэннн."№"тэнннннннн нннонннонэў№яонннонннон ннннннннн."""""№"тннннннннн энэнэнээн."""""№"тннонэнонэ ннннннннн."џџ"ЬЛ"џџ№"тноннннннн нэнэнэнннэўџџ"ЬЛ"џџ№яонннонннон нннннннэн."нџ"ЛЬ"џн№"тэннноннно онноонноо."нџ"ЛЬ"џн№"тнооннооннннннннннн."""""№"тннннннннн нонннонннэў""""№яонононннон ннннннннн.""33"№"тннннннннн онэнонээн.""33"№"тэнонэнонэ ннннннннн."""""№"тннннннннн нонннонннэў""""№яонннонннон нноннноэн."џџ"ЛЛ"џџ№"тнонноннно оннюннннн."Ьџџ"ЛЛ"џџЬЬ№"тнэннннонннннннэнэн."Ьнџ""""џнЬЬ№"тэннэннннн нонннннонэўЬнџ""""џнЬЬ№яонннннонон ннннннннн."ЬЬЬЬ№"тннннннннн онэнэнэно."ЬЬЬЬ№"тннэнэнонэ ннннннннн."ЬЬЬЬ№"тноннннннн нонэнэнноэўЬЬЬЬ№яонэнэнннон ннонннннн."ЬЬЬЬ№"тэннннннно нннэннннн."ЬЬЬЬ№"тннонноонннэнннэнэн."ЬЬЬЬ№"тэнннннннн нннонннонэўЬЬЬЬ№яонннонннон ннннннннн."ЬЬЬЬ№"тннннннннн энэнэнэно."ЬЬЬЬ№"тннонэнонэ ннннннннн."ЬЬЬЬ№"тноннннннн нэнэнэнноэўЬЬЬЬ№яонннонннон ннннннннн."ЬЬЬЬ№"тэннноннно нннэннннн."ЬЬЬЬ№"тннонноонннэнннэнэн."ЬЬЬЬ№"тэнннннннн нннонннонэўЬЬЬЬ№яонннонннон ннннннннн."ЬЬЬЬ№"тннннннннн энэнэнэно."ЬЬЬЬ№"тннонэнонэ ннннннннн."ЬЬЬЬ№"тноннннннн нэнэнэнноэўЬЬЬЬ№яонннонннон ннннннннн."ЬЬЬЬ№"тэннноннно нннэннннн."№"тнноннюннн нэнннэнэн."№"тэннннннэн нннонннонэў№яонннонннннннннннннн."№"тннннннннн энэнэнэно."№"тннонэнэнэ ннннннннн."№"тноннннннн нэнэнэнноэў№яонннонэнэн ннннннннн."№"тэнннонннн нннноннон."№"тнноннюннн -- title: Speed 100% -- author: OdiStudio Games, odistudio4444@gmail.com, etc. -- desc: Speed fast always fast!!! -- site: website link -- license: all right reserved(c) -- version: 0.1 -- script: lua rnd=math.random volume=7 -- player={} pldy=0 function addPlayer(x,y) local p={} p.x=x p.dx=0 p.y=y p.t=0 p.tt=0 table.insert(player,p) end function ticPlayer() for k,p in pairs(player) do p.t=p.t+p.tt -- graphisme spr(17+p.t%20/10,p.x,p.y,7,2) -- control if btn(2) and p.tt>0 then p.dx=p.dx-0.3 p.x=p.x-0.4 end if btn(3) and p.tt>0 then p.dx=p.dx+0.3 p.x=p.x+0.4 end -- beahvior p.x=p.x+p.dx if p.x<=23 then p.x=23 p.dx=-p.dx/1.2 p.tt=p.tt/1.2 end if p.x>=201 then p.x=201 p.dx=-p.dx/1.2 p.tt=p.tt/1.2 end -- if p.dx>=0.2 then p.dx=p.dx-0.2 elseif p.dx<=-0.2 then p.dx=p.dx+0.2 else p.dx=0 end -- -- collision witch other car for s,c in pairs(car) do if p.x>=c.x-4 and p.x<=c.x+17 and p.y>=c.y-4 and p.y<=c.y+17 then print("collision",10,5) if p.x>=c.x-4 then p.x=p.x-6 c.x=c.x+6 p.dx=-p.dx/1.2 p.tt=p.tt-2 elseif p.x<=c.x+17 then p.x=p.x+6 c.x=c.x-6 p.dx=-p.dx/1.2 p.tt=p.tt-2 elseif p.y>=c.y-4 then c.y=c.y-6 p.dx=p.dx/1.2 p.tt=p.tt+2 elseif p.y<=c.y+17 then c.y=c.y+6 p.dx=p.dx/1.2 p.tt=p.tt-2 end end end -- if vir==1then elseif vir==2 then p.dx=p.dx+0.25 elseif vir==3 then p.dx=p.dx+0.35 elseif vir==4 then p.dx=p.dx-0.25 elseif vir==5 then p.dx=p.dx-0.35 end -- mt=mt-p.tt pldy=p.tt if btn(5) then vt=vt+1 sfx(0,"F-2",10,0,volume) -- p.tt=p.tt+0.05 elseif p.tt>=0.1 then sfx(0,"D-1",10,0,volume-1) p.tt=p.tt-0.05 vt=vt+1 else p.tt=p.tt-0.05 end if p.tt>=30 then p.tt=30 elseif p.tt<=0 then p.tt=0 p.dx=0 end -- cant mouvement end end -- other car car={} function addCar(x,y) local c={} c.x=x c.y=y c.ptx=rnd(80,140) c.ptt=0 c.dx=0 c.dy=0 c.o=0 c.oo=0 c.t=0 c.tt=0 table.insert(car,c) end function ticCar() for k,c in pairs(car) do c.t=c.t+c.tt -- graphisme spr(49+c.t%20/10,c.x,c.y,7,2) -- control c.ptt=c.ptt+1 if c.ptt>30 then c.ptt=0 c.ptx=rnd(80,140) end -- if c.tt>0 and c.ptx>c.x+3 then c.dx=c.dx+0.3 c.x=c.x+0.4 end if c.tt>0 and c.ptx=201 then c.x=201 c.dx=-c.dx*1.2 c.tt=c.tt/1.2 end -- if c.dx>=0.2 then c.dx=c.dx-0.2 elseif c.dx<=-0.2 then c.dx=c.dx+0.2 else c.dx=0 end -- if vir==1then elseif vir==2 then c.dx=c.dx+0.25 elseif vir==3 then c.dx=c.dx+0.35 elseif vir==4 then c.dx=c.dx-0.25 elseif vir==5 then c.dx=c.dx-0.35 end -- collision witch other car if c.o==0 then c.o=1 c.oo=#car end for s,o in pairs(car) do if c.x>=o.x-4 and c.x<=o.x+17 and c.y>=o.y-4 and c.y<=o.y+17 and c.oo~=o.oo then print("collision",10,5) if c.x>=o.x-4 then c.x=c.x-6 o.x=o.x+6 c.dx=-c.dx/1.2 elseif c.x<=o.x+17 then c.x=c.x+6 o.x=o.x-6 o.tt=o.tt-3 c.tt=c.tt-3 c.dx=-c.dx/1.2 elseif c.y>=o.y-4 then c.y=c.y-6 c.dx=c.dx/1.2 c.tt=c.tt+3 o.tt=o.tt-3 elseif c.y<=o.y+17 then c.y=c.y+6 c.dx=c.dx/1.2 c.tt=c.tt-3 o.tt=o.tt+3 end end end -- c.tt=c.tt+0.03 c.y=c.y-c.tt c.y=c.y+pldy sfx(0,"F-2",10,0,volume-3) if c.tt>=27then c.tt=27 elseif c.tt<=0 then c.tt=0 c.dx=0 end -- cant mouvement end end -- gameTicks=0 road=2 speed=3 frames=2 function remap(tile,x,y) local outTile,flip,rotate=tile,0,0 if tile==road then outTile=outTile+math.floor(gameTicks*speed)%frames end return outTile,flip,rotate --or simply `return outTile`. end -- start=0 mt=0 function draw() cls(0) -- map map(0,0+mt%50/10,30,30,-1,-1,remap) gameTicks=gameTicks+1 -- ticPlayer() ticCar() -- add player if btnp(4) and start==0 then addPlayer(90,90) end if btnp(6) and start==0 then addCar(90,90) end end -- vt=0 vs=0 vir=0 vit=0 function virage() if vt>=300 and vs==0 then vt=0 vit=rnd(5) vs=1 end if vt>=200 and vs==1 then vir=vit vt=0 vs=0 vit=0 end -- if vit==0 then vit=1 end -- print(vir) print(vit,0,20) if vs==1 then if vit==1 then spr(33,105,5,0,2) elseif vit==2 then spr(34,105,5,0,2) elseif vit==3 then spr(35,105,5,0,2) elseif vit==4 then spr(36,105,5,0,2) elseif vit==5 then spr(37,105,5,0,2) end end end -- function TIC() draw() virage() end