Routines

[DJ Omnimaga]

That said, it is very possible to do cool stuff with the old functions already. A lot of the new stuff that got added is much more low level or technical, like fixed points, which I never got able to understand, even with the tutorials. I still recommend using the latest Axe, though, for optimization and safety.

[Quigibo]

By the way, I think I forgot to mention during the last update the additional uses for the inData() command because its more powerful than it looks.

First thing, yes, it can be used to find the position of a character in a string:

Code: Select All | Copy To Clipboard

1	inData('I',"IGNITION")->L

To find the second, third, etc. instance of 'I', you could loop through this.

Code: Select All | Copy To Clipboard

1	inData('I',"IGNITION"+L)->L

This moves the pointer to the spot directly after the last character found so it starts looking at the 'G' until it gets to the end.

Another use for this is to see if a number is part of a specific group.  The only problem with this is that 0 is always found at the end since its the terminating character.  So you should check for 0 before using the inData() command usually.  Another thing to mention is that inData() only works with bytes so make sure you guarantee that your input is restricted to numbers between 0 to 255 or -128 to 127.

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12

.Inefficient If (A=3 or (A=5) or (A=20) or (A=28) or (A=61)) .Some code End .Efficient If A   If inData(A,Data(3,5,20,28,61,0))   .Some code   End End

This is probably unnoticeable slower, but its much smaller and the routine is a subroutine so using it more than once in your program will definitely be a large size optimization.

[LordConiupiter]

wow! nice hint! I myself wouldn't have thought of it. I'm really gonna use this.

[coolsnake]

Ow just the thing I needed, thank you

[Builderboy]

Wow, looks like the inData is a really powerful command!  Im going to have to use this now in all of my programs

[DJ Omnimaga]

Nice, that could become useful eventually

[Deep Thought]

Wow, inData( is pretty useful...

[ztrumpet]

I've seen some people wanting to use Text input routines, so here's the one I use in Axe Snake, SpiderAx, and Jump.  Press Second when done typing, del to backspace, and Clear to quit.
At the end of the routine, the string is null terminated and begins at L1.  It also Displays it again because I wanted to show how to display it and waits for you to press second again.

If you use this routine, you may credit me, but it is not necessary.

[ACagliano]

Is there a length limit on the input?

[ztrumpet]

Yes.  There's a comment in the source just before the line that would need to be changed.

[DJ Omnimaga]

Wow nice! Thanks a lot for this.

[shmibs]

/\Very! thanks
since i havent seen one put out for display yet, here is a smoothscrolling tilemapper(works for left/right and up/down)
this is also partially for my own benefit because i have a lot riding on this routine and if there's anywhere it can be optimized it would be nice to know =D

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

:0->A->BClrDraw :For(L,0,11:For(M,0,7 :Pt-on(L*8,M*8,{M*[MapWidth]+8+[MapData]}*8+[TileData] :End:End :StorePic :Repeat getkey(15) :If getkey(3) xor getkey(2) ::If getkey(3) :Horizontal - :For(L,0,8 :Pt-Off(95-(A^8),L*8-(B^8),{B/8+L*[MapWidth]+12+(A/8)+[MapData]}*8+[TileData] :End:A+1->AElse :Horizontal + :For(L,0,8 :Pt-Off(1-(A^8),L*8-(B^8),{B/8+L*[MapWidth]+(A/8)+[MapData]}*8+[TileData] :End:A-1->AEnd :End :If getkey(1) xor getkey(4) :If getkey(1) :Vertical - :For(L,0,12 :Pt-Off(L*8-(A^8-(A^8),63-(B^8),{B/8+8*[MapWidth]+L+(A/8)+[MapData]}*8+[TileData] :End:B+1->BElse :Vertical+ :For(L,0,12 :Pt-Off(L*8-(A^8),1-(B^8),{B/8*[MapWidth]+L+(A/8)+[MapData]}*8+[TileData] :End:B-1->BEnd :End :Dispgraph :End

this can be easily converted to do gray as well, although you shouldn't use vertical scrolling and the axe grayscale routines together as the result will look gross. also, make sure that A and B remain greater than 0, or you'll end up with errors

[DJ Omnimaga]

Nice! I assume I can try this right away with no other code?

EDIT: You should maybe post a 8xp or SourceCoder-compatible code, because I do not feel like typing everything out

[shmibs]

well, you do need a tileset(8*8 monochrome) and map data(anything larger than 13*9) as well, but all the code is there, yes.
if you really want one i can post an .8xp tomorrow-ish. i have work to do right now, though.

[DJ Omnimaga]

Ah ok, I guess I could quickly do a map or something when I have some time.