Well, after some yelling and screaming, I have finally gotten it to draw, I just now have to make it export the pic correctly. A big part of my problem is setting up the starting locations for it...
http://www.tifreakware.calcgames.org/tifreak8x/B.8xp
That is what I have gotten so far. For some reason, it doesn't always activate the pixel, and I am not sure why...
That is what I have gotten so far. For some reason, it doesn't always activate the pixel, and I am not sure why...
Well, I am manually figureing out where the exporter should start looking. This shouldn't take a terrible amount of time to do, since it is just for 3 sprite sizes. After that, we shall see what happens with the exporter function...
Well, I might have gotten it all fixed up... Just one line giving me an error now...
sub(Str1,2,Length(Str1->Str4
That should work, and I am unsure why it isn't...
Edit1:
Not sure what is up, but the export function doesnt seem to work at all correctly... Will post more later, if I can't figure it out.
Edit2:
Exporter now out puts 16 long strings, for some reason, that is all it outputs for all sprite sizes, and it just fills with 0s... >.< I think I might have gotten the values off or something...
Edit3:
Looks like I have almost everything fixed... Just have to figure out a couple small value changes, and it should be done. ^^
Edit4:
It looks like the routine to draw the sprite back in is messed up, but could be because I have an incorrect value for the exporter...
Edit5:
Success is at last mine!! It now exports 8x8 sprites, and will also redraw them back in the correct spot. Now to check 16x16 and 32x32.
Edit6:
16x16 values configured for exporting, lets see what kind of results I get when I try to redraw the sprite after exportine...
Edit7:
Two more teeny tiny little bugs to squash, then you all shall recieve this program...
Edit8:
I... I think I got it... I think I finally killed all the bugs... o.O I will release a demo of it here shortly.
sub(Str1,2,Length(Str1->Str4
That should work, and I am unsure why it isn't...
Edit1:
Not sure what is up, but the export function doesnt seem to work at all correctly... Will post more later, if I can't figure it out.
Edit2:
Exporter now out puts 16 long strings, for some reason, that is all it outputs for all sprite sizes, and it just fills with 0s... >.< I think I might have gotten the values off or something...
Edit3:
Looks like I have almost everything fixed... Just have to figure out a couple small value changes, and it should be done. ^^
Edit4:
It looks like the routine to draw the sprite back in is messed up, but could be because I have an incorrect value for the exporter...
Edit5:
Success is at last mine!! It now exports 8x8 sprites, and will also redraw them back in the correct spot. Now to check 16x16 and 32x32.
Edit6:
16x16 values configured for exporting, lets see what kind of results I get when I try to redraw the sprite after exportine...
Edit7:
Two more teeny tiny little bugs to squash, then you all shall recieve this program...
Edit8:
I... I think I got it... I think I finally killed all the bugs... o.O I will release a demo of it here shortly.
http://www.tifreakware.calcgames.org/tifreak8x/SPR2HEX.8xp
Please let me know if you find any bugs.
Keys:
2nd: Select/turn pixel on
Alpha: turn pixel off
d-pad: moves cursor
Please let me know if you find any bugs.
Keys:
2nd: Select/turn pixel on
Alpha: turn pixel off
d-pad: moves cursor
I see a ton of optimizations to be done, but I assume that's because you haven't optimized it yet. If anyone wants to look at the source...
BASIC Code wrote:
:ClrDraw
:1→W:0→F
:" →Str1
:0→Xmin:0→Ymin
:94→Xmax
:62→YMax
:AxesOff
:GridOff
:While W=1
:¦ 25→A
:¦ Text(‾1,0,10,"SPRITE-2-HEX
:¦ Text(25,25,"NEW SPRITE
:¦ Text(31,25,"EDIT SPRITE
:¦ Text(37,25,"ABOUT
:¦ Text(43,25,"QUIT
:¦ 2→W
:¦ While W=2
:¦ ¦ Text(A,20,">
:¦ ¦ getKey→K
:¦ ¦ If max(K=25,34:Text(A,20,"
:¦ ¦ A-6((K=25)(A>25)-(K=34)(A<43→A
:¦ ¦ If max(K=21,105:Then
:¦ ¦ ¦ If A=43:Then
:¦ ¦ ¦ ¦ DelVar ADelVar WDelVar KClrDraw
:¦ ¦ ¦ ¦ ClrHome
:¦ ¦ ¦ ¦ Return:End
:¦ ¦ ¦ If A=37:Then
:¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ Text(‾1,0,10,"SRITE-2-HEX
:¦ ¦ ¦ ¦ Text(13,0,"THIS PROGRAM CONVERTS
:¦ ¦ ¦ ¦ Text(19,0,"8X8, 16X16, and 32X32
:¦ ¦ ¦ ¦ Text(25,0,"SPRITES INTO HEXADECIMAL
:¦ ¦ ¦ ¦ Text(31,0,"TO BE USED WITH THE
:¦ ¦ ¦ ¦ Text(37,0,"HEX-2-SPRITE PROGRAM.
:¦ ¦ ¦ ¦ Text(47,0,"SEND QUESTIONS TO:
:¦ ¦ ¦ ¦ Text(53,0,"TIFREAK8XHOTMAIL.COM
:¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ 1→W
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If A=31:Then
:¦ ¦ ¦ ¦ ¦ length(Str4
:¦ ¦ ¦ ¦ ¦ Ans/(2+2(Ans>16)+4(Ans>64
:¦ ¦ ¦ ¦ ¦ If min(Ans≠8,16,32
:¦ ¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ Text(0,0,"NO SPRITE IN MEMORY
:¦ ¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 1→W
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If max(Ans=8,16,32:Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 3→W:2→F
:¦ ¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ ¦ If A=25:Then
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ Text(‾1,0,10,"SPRITE-2-HEX
:¦ ¦ ¦ ¦ ¦ Text(15,1,"PLEASE SELECT SPRITE SIZE
:¦ ¦ ¦ ¦ ¦ Text(30,25,"8X8
:¦ ¦ ¦ ¦ ¦ Text(36,25,"16X16
:¦ ¦ ¦ ¦ ¦ Text(42,25,"32X32
:¦ ¦ ¦ ¦ ¦ Text(48,25,"BACK
:¦ ¦ ¦ ¦ ¦ 30→A
:¦ ¦ ¦ ¦ ¦ 4→W
:¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ While W=4
:¦ ¦ ¦ ¦ Text(A,20,">
:¦ ¦ ¦ ¦ getKey→K
:¦ ¦ ¦ ¦ If max(K=25,34:Text(A,20,"
:¦ ¦ ¦ ¦ A-6((K=25)(A>30)-(K=34)(A<48→A
:¦ ¦ ¦ ¦ If max(K=21,105:Then
:¦ ¦ ¦ ¦ ¦ If A=48:Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 1→W:End
:¦ ¦ ¦ ¦ ¦ If A=30:8→Z
:¦ ¦ ¦ ¦ ¦ If A=36:16→Z
:¦ ¦ ¦ ¦ ¦ If A=42:32→Z
:¦ ¦ ¦ ¦ ¦ If A<48:3→W
:¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ While W=3
:¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ Line(40,31,40,38
:¦ ¦ ¦ ¦ ¦ Line(41,30,48,30
:¦ ¦ ¦ ¦ ¦ Line(49,31,49,38
:¦ ¦ ¦ ¦ ¦ Line(41,39,48,39
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ Line(36,27,36,42
:¦ ¦ ¦ ¦ ¦ Line(37,26,52,26
:¦ ¦ ¦ ¦ ¦ Line(53,27,53,42
:¦ ¦ ¦ ¦ ¦ Line(37,43,52,43
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ Line(28,19,28,50
:¦ ¦ ¦ ¦ ¦ Line(29,18,60,18
:¦ ¦ ¦ ¦ ¦ Line(61,19,61,50
:¦ ¦ ¦ ¦ ¦ Line(29,51,60,51
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ Horizontal(7
:¦ ¦ ¦ ¦ Text(56,0,"EXPORT QUIT
:¦ ¦ ¦ ¦ If F=2:Then
:¦ ¦ ¦ ¦ ¦ length(Str4
:¦ ¦ ¦ ¦ ¦ Ans/(2+2(Ans>16)+4(Ans>64→Z
:¦ ¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ ¦ 41→I:24→J:End
:¦ ¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ ¦ 37→I:20→J:End
:¦ ¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ ¦ 29→I:12→J:End
:¦ ¦ ¦ ¦ ¦ I→C:J→U
:¦ ¦ ¦ ¦ ¦ For(B,1,length(Str4
:¦ ¦ ¦ ¦ ¦ ¦ inString("123456789ABCDEF",sub(Str4,B,1
:¦ ¦ ¦ ¦ ¦ ¦ If 7<Ans
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C
:¦ ¦ ¦ ¦ ¦ ¦ If 3<8fPart(Ans/8
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+1
:¦ ¦ ¦ ¦ ¦ ¦ If 1<4fPart(Ans/4
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+2
:¦ ¦ ¦ ¦ ¦ ¦ If fPart(Ans/2
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+3
:¦ ¦ ¦ ¦ ¦ ¦ C+4→C
:¦ ¦ ¦ ¦ ¦ ¦ U+(C=I+Z→U
:¦ ¦ ¦ ¦ ¦ ¦ If C=I+Z:I→C:End
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ 45→M:35→N:6→W
:¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ End
:¦ ¦ ¦ While W=6
:¦ ¦ ¦ ¦ Pt-Change(M,N
:¦ ¦ ¦ ¦ getKey→K
:¦ ¦ ¦ ¦ If max(K=24,25,26,34
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ Pt-Off(M,N
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ M-(((K=24)((Z=8)(M>41)+(Z=16)(M>37)+(Z=32)(M>29))-((K=26)((Z=8)(M<48)+(Z=16)(M<52)+(Z=32)(M<60→M
:¦ ¦ ¦ ¦ ¦ N-(((K=34)((Z=8)(N>31)+(Z=16)(N>27)+(Z=32)(N>19))-((K=25)((Z=8)(N<38)+(Z=16)(N<42)+(Z=32)(N<50→N
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=21
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ Pt-On(M,N
:¦ ¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=31:Then
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ Pt-Off(M,N
:¦ ¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=15:Then
:¦ ¦ ¦ ¦ ¦ DelVar W
:¦ ¦ ¦ ¦ ¦ ClrDraw:ClrHome
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=11:Then
:¦ ¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ ¦ 41→S:48→T
:¦ ¦ ¦ ¦ ¦ ¦ 24→Q:31→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ ¦ 37→S:52→T
:¦ ¦ ¦ ¦ ¦ ¦ 20→Q:35→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ ¦ 29→S:60→T
:¦ ¦ ¦ ¦ ¦ ¦ 12→Q:43→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ For(A,Q,R
:¦ ¦ ¦ ¦ ¦ ¦ For(B,S,T,4
:¦ ¦ ¦ ¦ ¦ ¦ ¦ 8pxl-Test(A,B)+4pxl-Test(A,B+1)+2pxl-Test(A,B+2)+pxl-Test(A,B+3)→C
:¦ ¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(A,B
:¦ ¦ ¦ ¦ ¦ ¦ ¦ If C=0:Str1+"0"→Str1
:¦ ¦ ¦ ¦ ¦ ¦ ¦ If C>0
:¦ ¦ ¦ ¦ ¦ ¦ ¦ Str1+sub("123456789ABCDEF",C,1)→Str1
:¦ ¦ ¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ ¦ ¦ sub(Str1,2,length(Str1)-1)→Str4
:¦ ¦ ¦ ¦ ¦ DelVar Str1
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ Text(0,0,"YOUR SPRITE HAS BEEN
:¦ ¦ ¦ ¦ ¦ Text(6,0,"CONVERTED, PASTE Str4
:¦ ¦ ¦ ¦ ¦ Text(12,0,"INTO A PROGRAM TO USE
:¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ 0→W
:¦ ¦ ¦ ¦ End:End:End:End
Generated by SourceCoder, © 2005 Cemetech
:1→W:0→F
:" →Str1
:0→Xmin:0→Ymin
:94→Xmax
:62→YMax
:AxesOff
:GridOff
:While W=1
:¦ 25→A
:¦ Text(‾1,0,10,"SPRITE-2-HEX
:¦ Text(25,25,"NEW SPRITE
:¦ Text(31,25,"EDIT SPRITE
:¦ Text(37,25,"ABOUT
:¦ Text(43,25,"QUIT
:¦ 2→W
:¦ While W=2
:¦ ¦ Text(A,20,">
:¦ ¦ getKey→K
:¦ ¦ If max(K=25,34:Text(A,20,"
:¦ ¦ A-6((K=25)(A>25)-(K=34)(A<43→A
:¦ ¦ If max(K=21,105:Then
:¦ ¦ ¦ If A=43:Then
:¦ ¦ ¦ ¦ DelVar ADelVar WDelVar KClrDraw
:¦ ¦ ¦ ¦ ClrHome
:¦ ¦ ¦ ¦ Return:End
:¦ ¦ ¦ If A=37:Then
:¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ Text(‾1,0,10,"SRITE-2-HEX
:¦ ¦ ¦ ¦ Text(13,0,"THIS PROGRAM CONVERTS
:¦ ¦ ¦ ¦ Text(19,0,"8X8, 16X16, and 32X32
:¦ ¦ ¦ ¦ Text(25,0,"SPRITES INTO HEXADECIMAL
:¦ ¦ ¦ ¦ Text(31,0,"TO BE USED WITH THE
:¦ ¦ ¦ ¦ Text(37,0,"HEX-2-SPRITE PROGRAM.
:¦ ¦ ¦ ¦ Text(47,0,"SEND QUESTIONS TO:
:¦ ¦ ¦ ¦ Text(53,0,"TIFREAK8XHOTMAIL.COM
:¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ 1→W
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If A=31:Then
:¦ ¦ ¦ ¦ ¦ length(Str4
:¦ ¦ ¦ ¦ ¦ Ans/(2+2(Ans>16)+4(Ans>64
:¦ ¦ ¦ ¦ ¦ If min(Ans≠8,16,32
:¦ ¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ Text(0,0,"NO SPRITE IN MEMORY
:¦ ¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 1→W
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If max(Ans=8,16,32:Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 3→W:2→F
:¦ ¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ ¦ If A=25:Then
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ Text(‾1,0,10,"SPRITE-2-HEX
:¦ ¦ ¦ ¦ ¦ Text(15,1,"PLEASE SELECT SPRITE SIZE
:¦ ¦ ¦ ¦ ¦ Text(30,25,"8X8
:¦ ¦ ¦ ¦ ¦ Text(36,25,"16X16
:¦ ¦ ¦ ¦ ¦ Text(42,25,"32X32
:¦ ¦ ¦ ¦ ¦ Text(48,25,"BACK
:¦ ¦ ¦ ¦ ¦ 30→A
:¦ ¦ ¦ ¦ ¦ 4→W
:¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ While W=4
:¦ ¦ ¦ ¦ Text(A,20,">
:¦ ¦ ¦ ¦ getKey→K
:¦ ¦ ¦ ¦ If max(K=25,34:Text(A,20,"
:¦ ¦ ¦ ¦ A-6((K=25)(A>30)-(K=34)(A<48→A
:¦ ¦ ¦ ¦ If max(K=21,105:Then
:¦ ¦ ¦ ¦ ¦ If A=48:Then
:¦ ¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ ¦ 1→W:End
:¦ ¦ ¦ ¦ ¦ If A=30:8→Z
:¦ ¦ ¦ ¦ ¦ If A=36:16→Z
:¦ ¦ ¦ ¦ ¦ If A=42:32→Z
:¦ ¦ ¦ ¦ ¦ If A<48:3→W
:¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ While W=3
:¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ Line(40,31,40,38
:¦ ¦ ¦ ¦ ¦ Line(41,30,48,30
:¦ ¦ ¦ ¦ ¦ Line(49,31,49,38
:¦ ¦ ¦ ¦ ¦ Line(41,39,48,39
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ Line(36,27,36,42
:¦ ¦ ¦ ¦ ¦ Line(37,26,52,26
:¦ ¦ ¦ ¦ ¦ Line(53,27,53,42
:¦ ¦ ¦ ¦ ¦ Line(37,43,52,43
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ Line(28,19,28,50
:¦ ¦ ¦ ¦ ¦ Line(29,18,60,18
:¦ ¦ ¦ ¦ ¦ Line(61,19,61,50
:¦ ¦ ¦ ¦ ¦ Line(29,51,60,51
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ Horizontal(7
:¦ ¦ ¦ ¦ Text(56,0,"EXPORT QUIT
:¦ ¦ ¦ ¦ If F=2:Then
:¦ ¦ ¦ ¦ ¦ length(Str4
:¦ ¦ ¦ ¦ ¦ Ans/(2+2(Ans>16)+4(Ans>64→Z
:¦ ¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ ¦ 41→I:24→J:End
:¦ ¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ ¦ 37→I:20→J:End
:¦ ¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ ¦ 29→I:12→J:End
:¦ ¦ ¦ ¦ ¦ I→C:J→U
:¦ ¦ ¦ ¦ ¦ For(B,1,length(Str4
:¦ ¦ ¦ ¦ ¦ ¦ inString("123456789ABCDEF",sub(Str4,B,1
:¦ ¦ ¦ ¦ ¦ ¦ If 7<Ans
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C
:¦ ¦ ¦ ¦ ¦ ¦ If 3<8fPart(Ans/8
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+1
:¦ ¦ ¦ ¦ ¦ ¦ If 1<4fPart(Ans/4
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+2
:¦ ¦ ¦ ¦ ¦ ¦ If fPart(Ans/2
:¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(U,C+3
:¦ ¦ ¦ ¦ ¦ ¦ C+4→C
:¦ ¦ ¦ ¦ ¦ ¦ U+(C=I+Z→U
:¦ ¦ ¦ ¦ ¦ ¦ If C=I+Z:I→C:End
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ 45→M:35→N:6→W
:¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ End
:¦ ¦ ¦ While W=6
:¦ ¦ ¦ ¦ Pt-Change(M,N
:¦ ¦ ¦ ¦ getKey→K
:¦ ¦ ¦ ¦ If max(K=24,25,26,34
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ Pt-Off(M,N
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ M-(((K=24)((Z=8)(M>41)+(Z=16)(M>37)+(Z=32)(M>29))-((K=26)((Z=8)(M<48)+(Z=16)(M<52)+(Z=32)(M<60→M
:¦ ¦ ¦ ¦ ¦ N-(((K=34)((Z=8)(N>31)+(Z=16)(N>27)+(Z=32)(N>19))-((K=25)((Z=8)(N<38)+(Z=16)(N<42)+(Z=32)(N<50→N
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=21
:¦ ¦ ¦ ¦ Then
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ Pt-On(M,N
:¦ ¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=31:Then
:¦ ¦ ¦ ¦ ¦ RecallPic Pic4
:¦ ¦ ¦ ¦ ¦ Pt-Off(M,N
:¦ ¦ ¦ ¦ ¦ StorePic Pic4
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=15:Then
:¦ ¦ ¦ ¦ ¦ DelVar W
:¦ ¦ ¦ ¦ ¦ ClrDraw:ClrHome
:¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ If K=11:Then
:¦ ¦ ¦ ¦ ¦ If Z=8:Then
:¦ ¦ ¦ ¦ ¦ ¦ 41→S:48→T
:¦ ¦ ¦ ¦ ¦ ¦ 24→Q:31→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If Z=16:Then
:¦ ¦ ¦ ¦ ¦ ¦ 37→S:52→T
:¦ ¦ ¦ ¦ ¦ ¦ 20→Q:35→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ If Z=32:Then
:¦ ¦ ¦ ¦ ¦ ¦ 29→S:60→T
:¦ ¦ ¦ ¦ ¦ ¦ 12→Q:43→R
:¦ ¦ ¦ ¦ ¦ End
:¦ ¦ ¦ ¦ ¦ For(A,Q,R
:¦ ¦ ¦ ¦ ¦ ¦ For(B,S,T,4
:¦ ¦ ¦ ¦ ¦ ¦ ¦ 8pxl-Test(A,B)+4pxl-Test(A,B+1)+2pxl-Test(A,B+2)+pxl-Test(A,B+3)→C
:¦ ¦ ¦ ¦ ¦ ¦ ¦ Pxl-On(A,B
:¦ ¦ ¦ ¦ ¦ ¦ ¦ If C=0:Str1+"0"→Str1
:¦ ¦ ¦ ¦ ¦ ¦ ¦ If C>0
:¦ ¦ ¦ ¦ ¦ ¦ ¦ Str1+sub("123456789ABCDEF",C,1)→Str1
:¦ ¦ ¦ ¦ ¦ ¦ End:End
:¦ ¦ ¦ ¦ ¦ sub(Str1,2,length(Str1)-1)→Str4
:¦ ¦ ¦ ¦ ¦ DelVar Str1
:¦ ¦ ¦ ¦ ¦ ClrDraw
:¦ ¦ ¦ ¦ ¦ Text(0,0,"YOUR SPRITE HAS BEEN
:¦ ¦ ¦ ¦ ¦ Text(6,0,"CONVERTED, PASTE Str4
:¦ ¦ ¦ ¦ ¦ Text(12,0,"INTO A PROGRAM TO USE
:¦ ¦ ¦ ¦ ¦ Pause
:¦ ¦ ¦ ¦ ¦ 0→W
:¦ ¦ ¦ ¦ End:End:End:End
Generated by SourceCoder, © 2005 Cemetech
ok, show me this "ton of optimizing" You are right though, I haven't taken time to optimize, though right now it works, and I really don't feel like breakin it again... >.<
oh yes, while I am at it, here is some eye candy of an 8x8 sprite:
[/img]
oh yes, while I am at it, here is some eye candy of an 8x8 sprite:
[/img]
If I don't put that in there, it don't work... at least it didn't before... and you cant have it as the first part of the string, cause then it would throw the rest of the string and hex off.
Well, found one last little bug, that would cause problems with the hex if the cursor was sitting out in the open when it began exporting. It sometimes didn't delete the pxl, and included it in the hex. This has been fixed, and since no one has come up with any other bugs, I am gonna release this to the general public.
sprite2hex now available on calcgames: http://www.calcgames.org/cgi-bin/files/files.cgi?ID=1172
It has also been uploaded to ticalc, we shall see how long it takes them to get it posted... <.<
It has also been uploaded to ticalc, we shall see how long it takes them to get it posted... <.<
They like taking their time. I'm still waiting for the screenshots to be added to my program releases and they haven't updated their reviews in ages.
I also uploaded sprite2hex to UTI, since I consider it a high quality prog. It should hit their archives in a couple days...
On a side note, Hex2Sprite is already up to 6 dls from UTI... and it has only been up for a few days...
On a side note, Hex2Sprite is already up to 6 dls from UTI... and it has only been up for a few days...
Page 1 of 1
» All times are UTC - 5 Hours
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
Advertisement