Omnimaga
Calculator Community => Other Calc-Related Projects and Ideas => TI Z80 => Topic started by: Eeems on June 19, 2009, 03:54:12 pm
-
ok here is the code I am using for my map editor, after this project is done I will try to make it better, right now it only supports 22*16 maps, but it can easily be customized to support more. The mapmaker also includes a converter to convert your map to a binstring so you can use it with the stringtile command in Celtic III, and it also will display a minimap of the current map from a hex string (0h format not 00h) which I am going to cut from the final version because it is unnecessary. and doesn't work with the output by the program. The reason I am posting this is because I want people to take a look and tell me of any optimizations they can see. I also want to post this code so people can use it as a reference on how to make quick map editors for their own projects.
The code also is commented so it is easier to understand:ClrHome //
:Disp "1=CONVERT","2=DISPLAY","3=MAPEDIT","0=QUIT //menu
:Input "□",A //
:A
:If Ans=3:Then //if map edit
:DelVar K
:ClrDraw
:Disp "1=NEW","0=KEEP //map menu
:Input "□",S //
:If S:Then //if new map
:{16,22→dim([A] //reset map
:Fill 5,[A] //fill it with the default background tile
:End
:For(A,0,33) //start loading map
:Pxl-On(A,45 //draw map outline
:Pxl-On(A,0 //
:End //
:For(B,0,44) //draw map outline
:Pxl-On(33,B //
:Pxl-On(0,B //
:End //
:For(A,‾1,1) //
:Pxl-On(38+A,0 //draw loading bar left edge
:End //
:For(A,‾1,1) //
:Pxl-On(38+A,17 //draw loading bar right edge
:End //
:For(B,1,17) //
:Pxl-On(39,B //draw loading bar
:Pxl-On(37,B //
:End //
:For(A,1,16) //start loading map
:Pxl-On(38,A //
:For(B,1,22) //
:[A](A,B→S //
:If 3=S //display default hard tile
:Then //
:Pxl-On(A+40,B //display on minimap
:For(θ,0,1) //
:For(Z,0,1) //
:Pxl-On(2A-Z,2B-θ //display on building map
:End:End //
:Else //
:If 6=S //display spike tile
:Then //
:Pxl-On(2A,2B //display on building map
:Else //
:If 10=S //display ladder tile
:Then //display on building map
:Pxl-On(A2,B2 //
:Pxl-On(A2,B2-1 //
:Else //
:If 11=S:Then //display water tile
:Pxl-On(A2-1,B2 //display on building map
:Pxl-On(A2,2B-1 //
:End:End:End:End:End:End //
:For(B,0,17) //
:For(A,‾1,1) //clear loading bar
:Pxl-Off(38+A,B //
:End:End //end loading map
:1→A:1→B
:While K≠105 //loop until user presses enter
:DelVar K //clear keyvalue
:Repeat K //loop until keyvalue
:For(Z,0,1) //
:For(θ,0,1) //change the current tile to negative
:Pxl-Change(2A-θ,2B-Z //
:End:End //
:getKey→K //getkey to keyvalue
:For(θ,0,1) //
:For(Z,0,1) //change current tile back
:Pxl-Change(2A-θ,2B-Z //
:End:End //
:End
:A-(K=25 and A≠1)+(K=34 and A≠16→A //change Y of current tile
:B-(K=24 and B≠1)+(K=26 and B≠22→B //change X of current tile
:If K=31:Then //if keyvalue is Alpha
:Pxl-On(A2,B2 //change pixels to spike tile
:Pxl-Off(A2-1,B2-1 //
:Pxl-Off(A2,2B-1 //
:Pxl-Off(A2-1,B2 //change matrix value to spike tile
:6→[A](A,B
:Else
:If K=22:Then //if keyvalue is mode
:Pxl-On(2A,2B-1 //change pixels to ladder tile
:Pxl-On(A2,B2 //
:Pxl-Off(2A-1,2B-1 //
:Pxl-Off(2A-1,2B //
:10→[A](A,B //change matrix value to ladder tile
:Else
:If K=32:Then //if keyvalue is X,T,theta,n
:Pxl-On(2A-1,B2 //change pixels to water tile
:Pxl-On(A2,2B-1 //
:Pxl-Off(A2,B2 //
:Pxl-Off(A2-1,B2-1 //
:11→[A](A,B //change matrix to water tile
:Else
:If K=21:Then //if keyvalue is 2nd
:[A](A,B→S //get matrix value
:If S≠3 and S≠4 and S≠9:Then //if matrix value is not a solid tile
:Pxl-On(A+40,B //turn on pixel on minimap
:Else
:Pxl-Off(A+40,B //else turn it off
:End
:For(θ,0,1) //
:For(Z,0,1) //
:If S=5:Then //display tile on buildermap
:Pxl-On(2A-θ,2B-Z //
:Else //
:Pxl-Off(2A-θ,2B-Z //
:End:End:End //
:If S≠5:Then //if not solid
:5→T //make solid
:Else
:3→T //otherwise make it the default solid
:End
:T→[A](A,B //insert value to matrix
:End:End:End:End:End:Else
:ClrDraw //this is the converter portion of the program
:If Ans=1:Then
:"0000000000000000000000000000000000000000000000→Str1 //this is the initial setup of the String
:For(A,1,16)
:For(B,1,22)
:1+[A](A,B→S //grabs teh tile value+1 from the matrix
:Str1+"0"+sub("0123456789ABCDEF",S,1→Str1 //inserts a "0" and the right value into the string
:If S=3 or S=4 or S=9 //if tile is solid
:Pxl-On(A-1,B-1 //turn on the pixel for the minimap
:End
:End
:det(17,Str1→Str1 //convert string to bin
:Else
:If Ans=2:Then //this is the display minimap
:For(A,1,16) //it requires a hex string (0h not 00h format)
:For(B,1,22)
:If inString("349",sub(Str1,22A-22+B,1 //if solid tile
:Pxl-On(A-1,B-1 //turn on minimap
:End:End:End
:ClrHome
-
nice this might be useful if i decided to use this map format for a future game
-
:) and the great thing about it is that it uses matrices and bin strings so you can develop for either with it
-
Optimization? I will look. All those For( loops and matrix commands maybe arise some possibilities to optimize.
-
hmm? how so?
-
Oh I see! He means changing For(A,0,33) to For(A,0,33
But be careful with that stuff, due to the TI-OS glitch.
-
yeah, I tend to leave them closed just in case
-
uhhh.. *il start leaving some stuff closed..*
-
To save confusion, the glitch is VERY rare.
If your program isn't all that big, then you can close them no problem.
If you're pressing for space, getting rid of extra parentheses should be your first optimization.
Of course, have a back up just in case. (which you should do all the time anyway) Then run the program through to test it.
If the problem doesn't occur, (and 99% of the time it won't) then you're good.
-
Well
from what I saw in TI|BD wiki, the slow down occurs only when the For( loop only contains a If instruction with no Then/Else and if the condition is false. I have no clue when the glitch causes the calc remains slows for the remainder of program execution, though. I used such For( loop at various places I think and only had such slow down occur in the last attempt
I don't remember exactly Metroid II and Zelda DLQ code, but maybe I used such For( loop in them and I sometimes wonder if this isn't what causes these games to run that slow. Metroid II running so slow when walking around is something I never understood, considering the walking loop isn't that big. It could be because of the large amount of sub-programs but I noticed the game doesn't even run faster if I delete most of them
-
Yep. Cut parentheses in all For( unless they do a large loop or you see an If inside.
hmm? how so?
:{16,22→dim([A] //reset map
:Fill 5,[A] //fill it with the default background tile
I was looking in matrix commands to optimize. But just happens this is the smallest.
Alternatives were using identity( but it is not a "square" matrix. Also Something like 0[A]+5->[A] doesn't even works and is bigger.
Some For( like this one:
:For(A,1,16) //it requires a hex string (0h not 00h format)
:For(B,1,22)
:If inString("349",sub(Str1,22A-22+B,1 //if solid tile
:Pxl-On(A-1,B-1 //turn on minimap
:End:End
See if changes in step and values can optimize things. Sort of this: (not tested and was rushed)
:For(A,22,352,22) //nah this one actually increases size.
:For(B,-21,0)
:If inString("349",sub(Str1,A+B,1 //if solid tile
:Pxl-On(A/22-1,B+21 //this seems to kill the optimization in above lines even if A/22 is always integer
:End:End
But this kind of changes can be used in other loops. See if you find know you know this.
:DelVar K //clear keyvalue
Are you sure this line is needed?
:For(θ,0,1) //
:For(Z,0,1) //
:If S=5:Then //display tile on buildermap
:Pxl-On(2A-θ,2B-Z //
:Else //
:Pxl-Off(2A-θ,2B-Z //
:End:End
There you can use Line( ?
Like this:
Line(2B,2A-1,2B-1,2A,S=5 // don't forget pixels change in arguments (row and column to x and y)
the last argument if is 1 (true) then it is a black line, otherwise (false) a white line.
:For(B,0,44) //draw map outline
:Pxl-On(33,B //
:Pxl-On(0,B //
:End
I think this is not a loading bar. So you could optimize by speed and see if size into Line( ?
-
Some For( like this one:
:For(A,1,16) //it requires a hex string (0h not 00h format)
:For(B,1,22)
:If inString("349",sub(Str1,22A-22+B,1 //if solid tile
:Pxl-On(A-1,B-1 //turn on minimap
:End:End
See if changes in step and values can optimize things. Sort of this: (not tested and was rushed)
:For(A,22,352,22) //nah this one actually increases size.
:For(B,-21,0)
:If inString("349",sub(Str1,A+B,1 //if solid tile
:Pxl-On(A/22-1,B+21 //this seems to kill the optimization in above lines even if A/22 is always integer
:End:End
lol, yeah, that does kind of kill the optimization
:DelVar K //clear keyvalue
Are you sure this line is needed?
yes I do need that or else it will not enter the key loop and you will be stuck doing the exact same thing until you press [on]
see there:
:DelVar K //clear keyvalue
:Repeat K //loop until keyvalue
:For(Z,0,1) //
:For(θ,0,1) //change the current tile to negative
:Pxl-Change(2A-θ,2B-Z //
:End:End //
:getKey→K //getkey to keyvalue
:For(θ,0,1) //
:For(Z,0,1) //change current tile back
:Pxl-Change(2A-θ,2B-Z //
:End:End //
:End:For(θ,0,1) //
:For(Z,0,1) //
:If S=5:Then //display tile on buildermap
:Pxl-On(2A-θ,2B-Z //
:Else //
:Pxl-Off(2A-θ,2B-Z //
:End:End
There you can use Line( ?
Like this:
Line(2B,2A-1,2B-1,2A,S=5 // don't forget pixels change in arguments (row and column to x and y)
the last argument if is 1 (true) then it is a black line, otherwise (false) a white line.
yes, I guess I could use two line statements, but then I would have to add a piece of code at the start to setup the window dimensions, and I always did hate trying to get that to work perfectly. I'll try it though, thanks!
:For(B,0,44) //draw map outline
:Pxl-On(33,B //
:Pxl-On(0,B //
:End
I think this is not a loading bar. So you could optimize by speed and see if size into Line( ?
I know that I could use a line here, which I should have, but I always dislike working with lines because of the problems of window dimensions, I should probably do that though, although, I do like my line drawing routine that I came up with for using pxl-on( it's nice and quick. XD I probably wasn't the first to use it though
-
Hum, in Repeat you enter in the loop no matter what. getkey being stored to K in the middle makes no use to DelVar K. If was a while, then the loop can be skipped.
eh problems setting windows setting?
I use this to set top border to (0,62). To get y is 62-Y
ZStandard
84->Xmin
52->Ymin
ZInteger
And this to (0,0) But Y is always negative. So to get Y
ZStandard
84->Xmin
-72->Ymin // I think I got even a smaller version here... I don't where I used.
ZInteger
They never disappointed me. And is the smallest I can get.
EDIT: wonderful I have beaten TI|BD Friendly Graphing Window in size >_>
http://tibasicdev.wikidot.com/friendly-window
I will edit it someday.
-
hmm, I forgot about that, it's a old habit from when I coded with While statements instead of Repeat, because I didn't know how to use Repeat. I know about user friendly windows, I'll have to do that, thanks :) good thing that this was only a quick 30 minute program that I made not one I've been working on for a while XD
-
Glad to see alot of optimizations/edits going on. Btw, how do I get onto irc with a ipod touch?
-
go search up a irc app for it, Ti-newb, I would appreciate it if you stayed on topic, if you want to get replies about this on the forum, make another topic
thanks
-
I'd like to see it. I've tried to make one but I sometimes run into issues.
-
ah, ok, I'll post the code and a new screenshot in a little bit, wait for the edit
EDIT: ok here is the screenshot, I'll get the code soon
EDIT2:ok here is the code:AxesOff
:SetUpEditor
:{X,Y,V,I→L2
:{16,22→dim([A]
:[A]→[B]
:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J
:4→A:6→B
:real(0,0
:Repeat K=15
:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0
:If J and Z and C<L2(1) and D<L2(2
:Then
:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0
:End
:If M and dim(L4
:Then
:For(θ,1,dim(L4),4)
:If L4(θ+2)>C and D<L4(θ+3
:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0
:End:End
:real(12,5,8B-9,8A-9,8B,8A,0
:real(12,2,8B-9,8A-9,8B-9,8A-9,0
:real(12,2,8B,8A,8B,8A,0
:real(12,2,8B,8A-9,8B,8A-9,0
:real(12,2,8B-9,8A,8B-9,8A,0
:If L
:Then
:Text(0,0,"(",B+C,",",A+D,")
:Text(6,0,"(",S,"/",[A](A+D,B+C),")
:Text(12,0,"Events:
:Text(18,0,"Enemy:
:If M:Then
:Text(12,24,"on
:Else
:Text(12,24,"off
:End
:If J:Then
:Text(18,24,"on
:Else
:Text(18,24,"off
:End:End
:real(6
:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End
:Repeat Ans
:getKey:End
:Ans→K
:If K=45:Then
:Fill 0,[A]
:[A]→[B]
:Else
:If K=23:Then
:0→[A](A+D,B+C
:Else
:If K=83:Then
:0→C:0→D
:Else
:If K=41:Then
:1→X:1→Y
:Repeat K=21 or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If Y=8 and (X=12 or X=4
:Then
:Input "TEXT:",Str2
:If X=4:Str2→Str8
:If X=12:Str2→Str9
:End
:If K=21:Then
:X-1→L4(1+dim(L4
:Y-1→L4(1+dim(L4
:B+C→L4(1+dim(L4
:A+D→L4(1+dim(L4
:End
:DelVar K
:Else
:If K=44:Then
:0→dim(L4
:Else
:If K=51:Then
:{B+C,A+D→L2
:Input "DIRECTION: ",Z
:Input "HEALTH: ",R
:End:End:End:End:End:End
:J-(K=13 and J)+(K=13 and not(J→J
:M-(K=12 and M)+(K=12 and not(M→M
:G-(K=31 and G)+(K=31 and not(G→G
:L-(K=11 and L)+(K=11 and not(L→L
:A+(K=34 and A≠8)-(25=K and A≠1→A
:B+(B≠12 and K=26)-(K=24 and B≠1→B
:C+(K=84 and C<10)-(K=82 and C→C
:D+(K=93 and D<8)-(K=73 and D→D
:S+(K=95 and S≠100)-(K=85 and S→S
:S→[B](A+D,B+C
:End
:DelVar [B]
:ClrDraw
:"00000000000000000000000000000000000000000000→Str1
:Text(6,0,"TILES CONVERTED...
:getKey
:For(A,1,16)
:For(B,1,22)
:If getKey=15:Then
:16→A
:22→B
:End
:Text(0,0,22A+B,"/",374
:1+[A](A,B→S
:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F",2S-1,2→Str1
:End
:End
:Str1→Str2
:det(17,Str1→Str1
:real(0,1
:Str2
:DelVar Str2
:L2(1→X
:L2(2→Y
:ClrHome
-
ok, I updated the code again, now you don't have to scroll through all the tiles to reach one, you can now just press [trace] and you can then select the right tile like when you are selecting an event.
:AxesOff
:SetUpEditor
:rand(3
:If getKey=15:Goto 1
:{X,Y,V,I→L2
:{16,22→dim([A]
:[A]→[B]
:DelVar SDelVar CDelVar DDelVar GDelVar LDelVar MDelVar J
:4→A:6→B
:real(0,0
:Repeat K=15
:real(2,1,C,D,22,16,0,12,0,12,13,0,8,0
:If J and Z and C<L2(1) and D<L2(2
:Then
:identity(5,"FFC3A59999A5C3FF",8(L2(1)-C)-8,8(L2(2)-D)-8,1,8,0,0,0
:End
:If M and dim(L4
:Then
:For(θ,1,dim(L4),4)
:If L4(θ+2)>C and D<L4(θ+3
:real(1,8(L4(θ+2)-C)-8,8(L4(θ+3)-D)-8,1,8,13,L4(θ),8L4(θ+1),0,0,0
:End:End
:real(12,5,8B-9,8A-9,8B,8A,0
:real(12,2,8B-9,8A-9,8B-9,8A-9,0
:real(12,2,8B,8A,8B,8A,0
:real(12,2,8B,8A-9,8B,8A-9,0
:real(12,2,8B-9,8A,8B-9,8A,0
:If L
:Then
:Text(0,0,"(",B+C,",",A+D,")
:Text(6,0,"(",S,"/",[A](A+D,B+C),")
:Text(12,0,"Events:
:Text(18,0,"Enemy:
:If M:Then
:Text(12,24,"on
:Else
:Text(12,24,"off
:End
:If J:Then
:Text(18,24,"on
:Else
:Text(18,24,"off
:End:End
:real(6
:If K=21 or G:Then:[B]→[A]:Else:[A]→[B]:End
:Repeat Ans
:getKey:End
:Ans→K
:If K=45:Then
:Fill 0,[A]
:[A]→[B]
:Else
:If K=23:Then
:0→[A](A+D,B+C
:Else
:If K=83:Then
:0→C:0→D
:Else
:If K=14:Then
:1→X:1→Y
:Repeat 21=K or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If K=21:Then
:12(Y-1)+X-1→S
:End
:DelVar K
:Else
:If K=41:Then
:1→X:1→Y
:Repeat K=21 or K=15
:real(3,13,0,0
:Repeat Ans
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:real(12,5,8X-8,8Y-8,8X-1,8Y-1,1
:getKey:End:Ans→K
:X+(K=26 and X≠12)-(X and K=24→X
:Y+(K=34 and Y≠8)-(K=25 and Y→Y
:End
:If Y=8 and (X=12 or X=4
:Then
:Input "TEXT:",Str2
:If X=4:Str2→Str8
:If X=12:Str2→Str9
:End
:If K=21:Then
:X-1→L4(1+dim(L4
:Y-1→L4(1+dim(L4
:B+C→L4(1+dim(L4
:A+D→L4(1+dim(L4
:End
:DelVar K
:Else
:If K=44:Then
:0→dim(L4
:Else
:If K=51:Then
:{B+C,A+D→L2
:Input "DIRECTION: ",Z
:Input "HEALTH: ",R
:End:End:End:End:End:End:End
:J-(K=13 and J)+(K=13 and not(J→J
:M-(K=12 and M)+(K=12 and not(M→M
:G-(K=31 and G)+(K=31 and not(G→G
:L-(K=11 and L)+(K=11 and not(L→L
:A+(K=34 and A≠8)-(25=K and A≠1→A
:B+(B≠12 and K=26)-(K=24 and B≠1→B
:C+(K=84 and C<10)-(K=82 and C→C
:D+(K=93 and D<8)-(K=73 and D→D
:S+(K=95 and S≠100)-(K=85 and S→S
:S→[B](A+D,B+C
:End
:DelVar [B]
:Lbl 1
:ClrDraw
:"00000000000000000000000000000000000000000000→Str1
:Text(6,0,"TILES CONVERTED...
:getKey
:dim([A])→L3
:For(A,1,L3(1))
:For(B,1,L3(2))
:If getKey=15:Then
:16→A
:22→B
:End
:Text(0,0,L3(2)A+B,"/",L3(1)L3(2)+L3(2
:1+[A](A,B→S
:Str1+sub("000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F20212223242526272829",2S-1,2→Str1
:End
:End
:Str1→Str2
:det(17,Str1→Str1
:real(0,1
:Str2
:DelVar Str2
:L2(1→X
:L2(2→Y
:ClrHome
-
That looks great ;D (it puts my old map editor to shame XD)
-
Looking pretty good. Now, if only I had that privilege when I tried to make my own maps. Too bad I didn't have Celtic III when I tried >.<
-
lol, Iambian, the creator of Celtic III didn't have it with him
lol. so wait you typed this out and tried it?
-
something wrong happens when the cursor moves at the top of the screen?
-
yeah just a bug in Celtic III, it doesn't show the main box because it starts off the top of the screen