And dithering and lightning with texture ?

Ok so i'm at 325 with the bug correction.....

I resume :
1) Runer112 !
2)Themachine02
3)nikitouzz

For this 3 participant can you share you re source code to verifie it  !

My code :

:.A
:While 1
: For(64)r
: If Pxl-Test(→r1,0,[AA55AA55AA55AA55])
: Pxl-On(r1 and 7A(),r1/2/2/2+B and 63)
: End
: r1+1
:End
:getKey(1)-getKey(4)+B→B
:getKey(3)-getKey(2)A()→A
:DispGraphClrDraw
:EndIf getKey(15)
: Lbl A
:+A+96
:While →C≥96
: C-96
:End
:C

I have 318 with a little bug.... but as i have say, the "contest" will finish wensday !

Hhéhé i wait, i wait :p

But seriously, themachine's code is better than me (he dont show all the code by partialy) i can optimise his code who make 324B !

and i think that i cam make lower than 324 Byte :p

I have 327 now !!!!! :p

I'am at 334Byte for the moment !!!!!

Hey guys, i propose a little contest that i've started with matref and hayleia in axe !

rules :
-make on programme who represent a sprite 8x8 who scrool smoothly with the keys 1/2/3/4 (axe keys)
-the programme need to be the more smaller on size !
-WARNING : ASM() IS BANNED YOU CAN't USE THIS COMMAND
-the programme need to be in axe pur.
-the sprite need stocked as this : [XXXXXXXXXXXXXXXX]→PIC0

EXAMPLES :

i've make the programme and i have 336Byte try to make better !  EDIT : For the moment I have 324Byte !!!



Good luck !






So the Winner his (before verification...)
1)RUNER112 !!!

code :

.S

ᴇ847A→°SX
ᴇ8481→°SY

FnOff

While 1
DispGraphClrDraw
(Select((getKey(3)+SX+1-getKey(2)??96)-97,PutSprite())?+96)PutSprite()
getKey(1)-getKey(4)+SY→SY
EndIf getKey(15)

Lbl PutSprite
→SX
64
While 1
If pxl-Test(-1→r₁, and 0,[AA55AA55AA55AA55])
Pxl-On(r₁ and 7+SX,r₁*32/256+SY and 63)
End
End!If r₁
Return

2)nikitouzz !!!

code :

:.A
:While 1
: For(64)r
: If Pxl-Test(→r1,0,[AA55AA55AA55AA55])
: Pxl-On(r1 and 7A(),r1/2/2/2+B and 63)
: End
: r1+1
:End
:getKey(1)-getKey(4)+B→B
:getKey(3)-getKey(2)A()→A
:DispGraphClrDraw
:EndIf getKey(15)
: Lbl A
:+A+96
:While →C≥96
: C-96
:End
:C3)themachine02 !!!

code :

[AA55AA55AA55AA55]→pic0

While 1

    For(8)^r
      →r1
      pic0
         For(8)^r
            If {→r2}er1
               pxl-on(r1+X^96,Y+r2 and 63)
            End
            r2+1
         End
      r1+1
     End

getKey(1)-getKey(4)+Y→Y
getKey(3)-getKey(2)+X→X

DispGraphClrDraw
EndIf getKey(15)


Themachine make 324 and me 325 but themachine code bug when X arrive to 65535 !