I wonder if you could optimize it

Just ask and you shall get.
The version I gave you is 496 bytes.

Optimizing the two For loops, we can get down to 477 bytes
[0007C000003FFC0000F81F0001F70F8007CF8BC00FCF89C01E6709E03C2000707810183070003C3860003C38E0001818E03C0018E07E001CF07E001CD83C039CCC00079CC200031C6000081870000338708001B839C000F039E000F01CC801E00E0803C00738078001F00E0000E01800003FF00000078000]->Pic1
[0007C000003FFC0000FFFF0001FF1F8007FF9FC00FEF8FC01FE79FE03FF319F07C783C70781C7E7870027E38E0383C18E07C0018F07E001CFC7E031CFC7E079CFC1C07BCE300433C7080193870208FF879D083F839E903F03DEB03F01ECE03E00FF807C007FC1F8001FEFE0000FFF800003FF00000078000]->Pic2
ClrDraw^^r^^r
0
For(4)
 ->X
 ~1->Y
 For(30)
  {Y+1->Y*4+X->r1+Pic1}->{Y*12+X->r2+L6}
  {r1+Pic2}->{r2+L3}
 End
 X+1
End
While 1
DispGraph^^r
EndIf getKey(15)

Then, changing the algorithm a bit, we can get down to  467 bytes
[0007C000003FFC0000F81F0001F70F8007CF8BC00FCF89C01E6709E03C2000707810183070003C3860003C38E0001818E03C0018E07E001CF07E001CD83C039CCC00079CC200031C6000081870000338708001B839C000F039E000F01CC801E00E0803C00738078001F00E0000E01800003FF00000078000]->Pic1
[0007C000003FFC0000FFFF0001FF1F8007FF9FC00FEF8FC01FE79FE03FF319F07C783C70781C7E7870027E38E0383C18E07C0018F07E001CFC7E031CFC7E079CFC1C07BCE300433C7080193870208FF879D083F839E903F03DEB03F01ECE03E00FF807C007FC1F8001FEFE0000FFF800003FF00000078000]->Pic2
ClrDraw^^r^^r
~1->r1
~9->r2
For(120)
 {Select(r1+1,->r1 and 3??r2+8->r2)+Pic1}->{r2+1->r2+L6}
 {r1+Pic2}->{r2+L3}
End
While 1
DispGraph^^r
EndIf getKey(15)

Now ask Runer112 and you'll get down to 5 bytes.

edit
I am so stupid, this can be done in 457 bytes
[0007C000003FFC0000F81F0001F70F8007CF8BC00FCF89C01E6709E03C2000707810183070003C3860003C38E0001818E03C0018E07E001CF07E001CD83C039CCC00079CC200031C6000081870000338708001B839C000F039E000F01CC801E00E0803C00738078001F00E0000E01800003FF00000078000]->Pic1
[0007C000003FFC0000FFFF0001FF1F8007FF9FC00FEF8FC01FE79FE03FF319F07C783C70781C7E7870027E38E0383C18E07C0018F07E001CFC7E031CFC7E079CFC1C07BCE300433C7080193870208FF879D083F839E903F03DEB03F01ECE03E00FF807C007FC1F8001FEFE0000FFF800003FF00000078000]->Pic2
ClrDraw^^r^^r
~4->r1
~12->r2
For(30)
 Copy(r1+4->r1+Pic1,r2+12->r2+L6,4)
 Copy(r1+Pic2,r2+L3,4)
End
While 1
DispGraph^^r
EndIf getKey(15)


---

For the code with Bitmaps commands, I don't see a lot to optimize except the two Clrdraws to put in a ClrDraw^^r^^r and the "0,0," to transorm into "0,,".

See why I said "if I made no errors this time" ?
Just tested my code, and there are some things to change, but you get the idea.
Here's the full working (unoptimized) code to display that cookie:
[0007C000003FFC0000F81F0001F70F8007CF8BC00FCF89C01E6709E03C2000707810183070003C3860003C38E0001818E03C0018E07E001CF07E001CD83C039CCC00079CC200031C6000081870000338708001B839C000F039E000F01CC801E00E0803C00738078001F00E0000E01800003FF00000078000]->Pic1
[0007C000003FFC0000FFFF0001FF1F8007FF9FC00FEF8FC01FE79FE03FF319F07C783C70781C7E7870027E38E0383C18E07C0018F07E001CFC7E031CFC7E079CFC1C07BCE300433C7080193870208FF879D083F839E903F03DEB03F01ECE03E00FF807C007FC1F8001FEFE0000FFF800003FF00000078000]->Pic2
ClrDraw(L6)
ClrDraw(L3)
For(X,0,3)
 For(Y,0,29)
  {Y*4+X->r1+Pic1}->{Y*12+X->r2+L6}
  {r1+Pic2}->{r2+L3}
 End
End
While 1
DispGraph^^r
EndIf getKey(15)

edit just thought of an easier way to put it lol (but I like playing with bytes, I made my own sprite routine in Omniblade so that the player sprite loops )
[201D]->Pic1
[0007C000003FFC0000F81F0001F70F8007CF8BC00FCF89C01E6709E03C2000707810183070003C3860003C38E0001818E03C0018E07E001CF07E001CD83C039CCC00079CC200031C6000081870000338708001B839C000F039E000F01CC801E00E0803C00738078001F00E0000E01800003FF00000078000]
[201D]->Pic2
[0007C000003FFC0000FFFF0001FF1F8007FF9FC00FEF8FC01FE79FE03FF319F07C783C70781C7E7870027E38E0383C18E07C0018F07E001CFC7E031CFC7E079CFC1C07BCE300433C7080193870208FF879D083F839E903F03DEB03F01ECE03E00FF807C007FC1F8001FEFE0000FFF800003FF00000078000]
ClrDraw(L6)
ClrDraw(L3)
Bitmap(0,0,Pic1,L6)
Bitmap(0,0,Pic2,L3)
While 1
DispGraph^^r
EndIf getKey(15)


Why not use nicknames then ?

This is just my thought, but maybe children want their names as nickname but the net can't support an infinite number of Arthur and Kimia
So either the children have to accept to be called Arthur89 and Kimia57 or let them be called the way they want but differentiate them with those friend codes.

The problem with your code (and I guess with my code) is that the 0->{L1+2} puts the 0 a bit too far, so you have a random byte (that correspond to the L) between the character you are trying to display and the end of the string. Try the same with a L1+1, it should work.
The reason why ClrDraw's code works is because he doesn't place a zero, he places a whole bunch of them
But his code only works for strings shorter than 20 characters while mine (once fixed) would work for any.

Also, I thought about another code that doesn't waste RAM.

"Imma Absol again"->°String
Text(0,6)
°String+2-1->r1
For(4)
 Text {r1+1->r1}>Char
End

For example, I played Donkey Kong (DK5ION) that saved highscores to an appvar. I unarchived it, opened Calcsys, figured out the format of the highscore list, and edited it.

Did you mean you cheated ?


But yeah, an "editor" that changes bytes is easy to do, what's not so easy is to change those bytes in a smart way. For example, in KoFiX, you first have a string that says that this appvar is for KoFiX, and if you don't know that, you'll just think "What are those random bytes ? They don't look like notes at all".

Is there an equivalent of sub( in BASIC for use in Axe?

Try this code.

"Imma Absol"[00]->°String
Text(0,0,°String)
Text(0,6,°String+1)
Text(0126,°String+2)

This will be the output (if I didn't make a typo):

Imma Absol
mma Absol
ma Absol

Why ? Because pointers.
So if you want to display part of a string, just copy the part of the string you like somewhere, add a zero behind and you're ok. Try this code for example,

"Imma Absol"[00]->°String
Copy(°String+2,L1,4)
0->{L1+5}
Text(0,,L1)

And can you store a string to a Pic (sprite)?

"Pic" is a pointer, not an object, you can't store anything inside
But what do you mean with "store a string to a Pic" ? Like doing "Imma Absol"[00]->Pic1 ? Well, that would work since Pic1 is a pointer like any other one.

"I'll never gonna give you up, never gonna let you down"
 - Rick Astley

I agree that this was funny
But let's not get this board spammy, it can be interesting to see which quotes people like to know them better. For example, reading the quote I like, you now know that I am pessimistic.

The graphics look a lot like the ones used by leafy in LightsOff. If you used those sprites, be sure to add him in the credits


LightsOff by leafy