BatLib

[Munchor]

I could, but I opted not to I figured lines were easier to count than tokens.

On another note, I am going to be late for an appointment so I need to go, but here is the newest update of BatLib. I will go into more detail later about the fixes and added stuff

It's on my calculator already.

I see the source code is included =D

[Xeda112358]

Hehe, yep Okay, so here are all of the additions and fixes:
-fixed up the > command in ReCode
-added commenting to ReCode using //
-In the last version, I added the ability for the newer commands to use either the number of a list or direct lists. Now all list options can be either the list number (0=L1, 1=L2), a name (like "_LHELLO") or a direct list (like {0,1,2,5}).
-Added DelElements command. This lets you delete elements from a list at a given offset. I didn't know of an easy BASIC method.
-Added InsElements command. This lets you insert zeros into a list at a given offset.
-Added InsList command. This inserts a list into another list at a given offset

As a note, there is no error checking for deleting or inserting elements outside of the list, so take care not to do that. Other than that, I cannot think of any other additions or fixes

EDIT: Also, I added some stuff that I use to develop BatLib as well as the "source" that I use to compile

[ztrumpet]

Oooh, cool.  I really like the added three commands, though I take pride in knowing how to do it as easy as possible in basic.   Nice work, Xeda!

[Xeda112358]

Is there an easy way to do it in BASIC? I know how, but the code was a bit time consuming compared to this. Also, in the next update I plan to have it so that if you try to insert or delete zero elements, it gets read as 1. That way any extreme optimisers out there can omit that argument if they simply want to do one element Also, I have to add in the /Then...comments...End command to ReCode (which is only 5 bytes of code to add ).

[Munchor]

An example of BatLib // comments.

[ztrumpet]

Is there an easy way to do it in BASIC? I know how, but the code was a bit time consuming compared to this.

No, it's quite difficult.  For instance, the "easy" way to do command 91 (deleting) would be like this, assuming A holds the element to start deleting at, B holds the number of elements to delete, and Ans holds the list:
augment(seq(Ans(I),I,1,A-1),seq(Ans(I),I,A+B,dim(Ans
Easy, huh? 

[Xeda112358]

Yep, easy enough Now to do command 92 and 93 you would need 2 augments, right? And that is without Ans as an input and you would need to use If statements for when adding or deleting at the beginning or end So I guess I'm glad I made those commands...

[ztrumpet]

That's true...
For command 91 to work at the beginning or end, this is how it would have to look:
:augment({0},augment(Ans,{0
:augment(seq(Ans(I),I,1,A),seq(Ans(I),I,A+B+1,dim(Ans
:seq(Ans(I),I,2,dim(Ans)-2

[Munchor]

BatLib Doubt:

Inside a block:

Code: Select All | Copy To Clipboard

1 2 3 4

Repeat A=15 End

How to check if the user presses a key (that is not [CLEAR]).

This is Basic, not Recode, but it's for BatLib purposes, so I posted it here.

[Xeda112358]

In just wanted to make a note that your question was resolved on IRC I do not know how long it will be until the next update, but here are some things I am thinking of adding:
-String routines similar to the last three list commands
-an Input routine for ReCode
-Lbl/Goto for ReCode?
-Maaaaaaybe a routine, finally, for jumping to labels or spots in other programs

[Munchor]

I really really want strings, sprites and Goto/Lbl in Recode, that would make it super awesome and almost finished.

[Xeda112358]

Yeah, if I can correct the strings and finalise the sprite commands, that would be awesome I also need to add in tilemapping and data editing while I am at it

[Munchor]

Yeah, if I can correct the strings and finalise the sprite commands, that would be awesome I also need to add in tilemapping and data editing while I am at it

If you could make sprite display like in Axe would be awesome:

Code: Select All | Copy To Clipboard

1 2 3 4 5

Pt-On(X,Y,Pic     ;Type ;Example: [[FFFFFFFFFFFFFFFF]->Pic1 Pt-On(0,40,Pic1

[calc84maniac]

That's true...
For command 91 to work at the beginning or end, this is how it would have to look:
:augment({0},augment(Ans,{0
:augment(seq(Ans(I),I,1,A),seq(Ans(I),I,A+B+1,dim(Ans
:seq(Ans(I),I,2,dim(Ans)-2

How about seq(Ans(I+B(I≥A)),I,1,dim(Ans)-B

[ztrumpet]

That's true...
For command 91 to work at the beginning or end, this is how it would have to look:
:augment({0},augment(Ans,{0
:augment(seq(Ans(I),I,1,A),seq(Ans(I),I,A+B+1,dim(Ans
:seq(Ans(I),I,2,dim(Ans)-2

How about seq(Ans(I+B(I≥A)),I,1,dim(Ans)-B

Nah, too simple...
*facepalm*
Nice one.  Time for me to hide in a corner of shame...