Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - cooliojazz

Pages: 1 2 [3]
31
TI Z80 / Celtic III/XLib Sprite/Map Editor
« on: November 20, 2009, 11:04:35 pm »
Does what the title says. NO USER FRIENDLINESS!!!! I might add that later just for the heck of it :P
I might add a screenie in a bit. Emulator's being stupid.
The prompt P is for pic number to work on. Map is stored in [A]. Don't try to edit one smaller than 8x12. Also uses (B] just a warning.
Keys:
     Arrows; navigate in either map edit or sprite edit screen
     X,T,O,n; in map edit, goes to sprite edit for current tile, in sprite edit saves current tile and goes back to map edit
     2nd; in map edit places current tile at current position, in sprite edit inverts current pixel
     Clear; in sprite edit cancels back to map edit without changes
     Mode; in map edit quits
     +/-; in map edit changes current tile
I think thats all the keys but I could be wrong...
Also, it's not that pretty, just functional the flashing/grey tile/pixel is the currently selected one. I think that's all...

32
TI Z80 / Ti Basic Editor
« on: August 14, 2009, 11:08:34 pm »
Hey, mines alive, I just didn't think you guys cared that much about it...
Also, I was going for a general file editor, so it could open programs, pics, strings, matricies etc. Only the first two work so far. Anyways though, If you guys want it, I can start posting progress and junk about it... :)

And here I am doing exactly that.

Ok, current features:
-opening of 8xp and 83p files
-opening of 8xi files (this routine is not perfect yet)
-umm, not much else

most of my time has been spent on a library that looks like this:
Code: [Select]
       If HexValue = "2D" Then Return "!"
        If HexValue = "2E" Then Return "CubicReg "
        If HexValue = "2F" Then Return "QuartReg "
        If HexValue = "30" Then Return "0"
        If HexValue = "31" Then Return "1"
        If HexValue = "32" Then Return "2"
        If HexValue = "33" Then Return "3"
        If HexValue = "34" Then Return "4"
        If HexValue = "35" Then Return "5"
        If HexValue = "36" Then Return "6"
        If HexValue = "37" Then Return "7"
        If HexValue = "38" Then Return "8"
        If HexValue = "39" Then Return "9"
        If HexValue = "3A" Then Return "."
        If HexValue = "3B" Then Return "û"
        If HexValue = "3C" Then Return " or "
        If HexValue = "3D" Then Return " xor "
        If HexValue = "3E" Then Return ":"
        If HexValue = "3F" Then Return vbCrLf
        If HexValue = "40" Then Return " and "
        If HexValue = "41" Then Return "A"
Which is currently 675 lines long. The reson I havn't done saving yet is because I will have to make another library the same size, but backwards and differsnt, so...
Also, it uses the TI-83Plus font, so sadly you cannot copy code from it to here. I've tried, but you guys use a standard font, since it's a webpage...

33
TI-BASIC / Platformer (NOT FOR CONTEST!) Help
« on: July 18, 2009, 10:53:21 pm »
OK, so I saw the platformer contest.  I was like Yes, I have awesome skills at calculator programming! I will win by far!  Now, here I am, a month later, feeling stupid, realizing, I, so far, cannot do platformers.  The thing is though, I would love to learn.  So, I am going to post my code here and ask for you people to help me see why it is so stupid and inneffective so maybe I can learn to do these... maybe
Code: [Select]
1:real(0:If not(Ans:Then:ClrDraw:Text(-1,0,24,"Requires":Repeat Ans:AüC:BüD:randInt(0,12üA:randInt(1,7üB:Text(-1,8D,6C,"    ":Text(("B0 31" is an invalid token)1,8B,6A,"XLib":getKey:End:Output(1,1,"":Stop:End
RectGC:CoordOff:GridOff:AxesOff:LabelOff:ExprOff:Degree:Func:Normal:Float:Connected:Sequential:Real:Full
[[29,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,0,0,0,0,0,7,13,13,13,13,13,9,0,0,0,0,0,0,0][5,0,0,0,0,0,11,0,0,0,0,0,14,0,0,0,0,0,0,0][5,0,0,6,0,0,11,0,0,0,0,0,14,0,0,0,0,0,0,0][5,0,0,0,0,0,11,0,0,0,0,0,14,0,0,0,0,0,0,0][5,0,0,0,0,0,11,0,0,0,0,0,14,0,0,0,0,0,0,0][5,0,2,2,3,0,11,0,0,0,0,0,14,0,0,0,0,0,0,0][5,0,0,0,0,0,8,12,12,12,12,12,10,0,0,0,0,0,0,0][5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]]ü[A]
[[0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0]]ü[B]
real(7,0
0üX:0üY:5üdim(LGUY:1üLGUY(1:1üLGUY(2:2üdim(LMAP:0üLMAP(1:0üLMAP(2:0üLGUY(5
100üT

Real(12,0,80,1,80,62,0:Real(12,0,95,1,95,62,0:Real(12,0,81,0,94,0,0:Real(12,0,81,63,94,63,0
Lbl 1
Real(2,1,0,0,10,8,0,10,0,8,100,0,8,0
Real(2,0,LMAP(2),LMAP(1),10,8,0,10,0,8,100,2,8,1
While 1
If T÷0:Goto FN
T-.2üT
Real(8
AnsüK
dim([A])üLDIM
LGUY(2üLGUY(4:LGUY(1üLGUY(3
If K=3:LGUY(2)+1üLGUY(2
If K=2:LGUY(2)-1üLGUY(2
If LGUY(5)=1:Then:LGUY(1)-2üLGUY(1:2üLGUY(5:End
If K=54 and LGUY(5)=0:Then:LGUY(1)-2üLGUY(1:1üLGUY(5:End
If K=1:LGUY(1)-1üLGUY(1)
If K=55:Goto FN
LGUY(1)+1üLGUY(1)
If LGUY(2)<1:1üLGUY(2)
If LGUY(1)<1:1üLGUY(2)
If [A](LGUY(1),LGUY(2))ø0:Then
If [A](LGUY(1),LGUY(4))=0:Then:LGUY(4üLGUY(2:0üLGUY(5:End
If [A](LGUY(2),LGUY(3))=0:LGUY(3üLGUY(1
End
If LGUY(1)>LMAP(1)+4:LMAP(1)+1üLMAP(1
If LGUY(1)<LMAP(1)+4:LMAP(1)-1üLMAP(1
If LGUY(2)>LMAP(2)+5:LMAP(2)+1üLMAP(2
If LGUY(2)<LMAP(2)+5:LMAP(2)-1üLMAP(2
If LMAP(2)<0:0üLMAP(2
If LMAP(2)>LDIM(2)-10:LDIM(2)-10üLMAP(2
If LMAP(1)<0:0üLMAP(1
If LMAP(1)>LDIM(1)-8:LDIM(1)-8üLMAP(1
If LGUY(2)øLGUY(4) or LGUY(1)øLGUY(3:Then:0ü[A](LGUY(3),LGUY(4)):29ü[A](LGUY(1),LGUY(2:LGUY(1üLGUY(3:LGUY(2üLGUY(4:Goto 1:End
End




Lbl FN
ClrHome:Output(1,1,"":Stop
NOTE: Uses XLIb.  Currently I have (tried) to implement loading a map, moving a guy (back and forth with gravity and jumping), and guy tracking (I do like this part, I think it's awesome.  Maybe that's just me though...)
Oh, and pic 100:

34
Other Calculators / Impossible? Or not...
« on: July 15, 2009, 09:29:40 pm »
Does anyone here have an idea on whether this is possible?

Cause if it is...

35
Computer Projects and Ideas / A DnD Idea
« on: July 08, 2009, 01:52:20 pm »
First how many people actually play DnD?  If no one plays obviously no one would care, but if some of you guys do...

36
General Calculator Help / Screen Shots
« on: June 16, 2009, 09:38:51 pm »
How can you take animated screenshots on the calculator?   I know you can take at each stage of the program execution etc. with screen capture, then run them all into a gif, but there's gotta be a better way.  Doesn't there?

37
Miscellaneous / I'm missing something...
« on: June 10, 2009, 12:18:56 am »
I am missing something here.  I see all these references to Illusiat, but I have not seen anywhere what it is. So what the **** is Illusiat?!?!?!?!?!?!?!?!!!!!!!!!!!!!!!!!??!??!?!??!!?!?!? ??? >:(

38
TI-BASIC / Calculator tricks
« on: May 26, 2009, 12:17:26 am »
Just a thought, how about we have this where everyone post any calculator (basic) coding tricks they know of(such as the large Text( function) to help every one who needs those (like me). Oh, and im not sure if this should go under help/support?

Pages: 1 2 [3]