Text Sprites Game Engine help

Forum Attachments

Summary:

I need help in starting this.

Text Sprites Game Engine help

Josiah W 14 Nov 2013 16:54

How would you use text sprites AND eliminate the garbage it creates to the right of the text? I want to create a game engine with whatever technique used to do that.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Text Sprites Game Engine help

L1k3awh15p3r 14 Nov 2013 22:40

Well you can always just erase the garbage… If you used the letter "A" for your text sprite and want to get rid of the excess just employ a For-loop that will store the coordinates of the part you want erased and use a Pt-Change to toggle.

For example, I want to erase all the pixels inside the square formed by a square with vertices at points (2,2) (2,10) (12,10) (12,2)

:For(X,2,10
:Line(X,2,X,12,0
:End

That would erase all the pixels in the given area. Test this out, I don't think I got my For loop correct but this is the concept. Once you have finished making your text sprite find the garbage area and erase it and then you can continue on with your coding.

I never really liked text sprites, I thought it takes too long and would be better off with simple Pt-On and Line commands. But do as you wish, here is my answer.

-L1k3awh15p3r

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Text Sprites Game Engine help

Josiah W 15 Nov 2013 00:08

No, what I mean is eliminate the garbage AND display what was behind where the garbage was erased. Like this:

:ClrDraw
:Pxl-On(1,1
:Pxl-On(1,7
:Pxl-On(7,1
:Pxl-On(7,7
:For(A,1,7
:Text(1,1+A,sub("-:):-  ",A,1
:End

It erases one pixel that we drew. How do we get that pixel back?

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Text Sprites Game Engine help

L1k3awh15p3r 15 Nov 2013 02:08

Oh, i see what you mean. My only thought is store whatever you had behind as variables for last ditch. If you would like to add around 700 bytes to your program try drawing only the stuff behind section, storing it as a picture, then using the text sprite, deleting the garbage and recalling the picture. I don't think there's a way to keep that without running that code after you delete the garbage.

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Text Sprites Game Engine help

Josiah W 15 Nov 2013 16:19

Maybe a StorePic? Is that what you're saying?

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Text Sprites Game Engine help

Xeda Elnara 15 Nov 2013 17:02

Yes, that is one way to do it, but it would get a little annoying. If you know that the text sprite is going to be placed 6 pixels tall and M pixels wide, placed at (X,Y), you will only ever have to worry about up to 5 rows of pixels being destroyed after the text sprite (30 pixels). What you could do is store those 30 pixels to a number and then restore it, but that would be pretty slow:

0
For(A,X+M,X+M+4
For(B,Y,Y+5
2Ans+pxl-Test(B,A
End
End

Now Ans has the state of all 30 pixels and if this was stored to Z, we could restore with:

Z
Text(Y,X+M,"        ;4 spaces
For(A,X+M+4,X+M,-1
For(B,Y+5,Y,-1
Ans/2
If .5≤fPart(Ans
Pxl-On(B,A
End
End

(I haven't tested this code yet, but I think it will work)

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Text Sprites Game Engine help

Josiah W 15 Nov 2013 17:48

As you said:

That would be pretty slow.

That's why I thought of having StorePic and RecallPic. Besides, it isn't really "annoying".
This is a screenshot of Rhombus P's engine for his abandoned idea, Man of War. I have shown it to the community before, they may find it familiar. Is the gameplay here annoying?

The code in that demo is:

:"SPRITES 
:"XXJYXX  NIIIN   ozoqvq  σx[yhat][xhat][yhat][xhat]  ::H:H:  48X84   QIIIIQ   →Str1 
:For(A,1,50,6 
:Text(‾1,A,0,"                   
:End 
:Horizontal ‾55 
: 
:"MAP DATA 
:{1111111111111,1333100010001,1000770010001,1000500010001,1000100010001,1111000000001,10001000100001,1000000010001,1111111111111,2,2→L1
: 
:Text(56,60,"LOADING... 
: 
:"------------ 
:"BEGIN LOAD 
:"------------ 
: 
:{9,13→dim([A] 
:1E12→θ 
:1→D 
:L1(1)→Z 
:Fix 1 
:For(A,1,9 
:If θ=.1 
:Then 
:D+1→D 
:L1(D)→Z 
:1E12→θ 
:End 
:For(B,1,13 
:iPart(Z/θ 
:fPart(Ans/10 
:Ans10 
:Ans→[A](A,B 
:θ/10→θ 
:End 
:End 
:Float 
:Lbl A 
: 
:"------------ 
:"DRAW 
:"------------ 
: 
:For(A,9,1,‾1 
:For(B,1,13 
:If [A](A,B 
:Then 
:For(C,1,8 
:Text(6A-6,(7B-6)+C,sub(Str1,([A](A,B)8)-8+C,1 
:End 
:End 
:End 
:End 
:StorePic 1 
:For(A,1,7 
:Text((L1(10)6)-6,((L1(11)7)-7)+A,sub("N[yhat]![yhat]N  ",A,1 
:End 
:RecallPic 1 
:Text(‾1,56,0,"                  
:L1(10→A 
:L1(11→B 
: 
:"COLISION DETECTION. IF THE VALUE IS THE SAME AS THE INDEX,THATSRRITE IS SOLID 
: 
: 
:{2,1,2,3,5,5,6,5→L3 
:While 1 
:Repeat Ans 
:getKey 
:End 
:Ans→K 
:Text((A6)-6,(B7)-7,"        
:B-(K=24 and [A](A,B-1)≠L3([A](A,B-1)+1))+(K=26 and [A](A,B+1)≠L3([A](A,B+1)+1))→B 
:A+(K=34 and [A](A+1,B)≠L3([A](A+1,B)+1))-(K=25 and [A](A-1,B)≠L3([A](A-1,B)+1))→A 
:For(θ,1,7 
:Text(6A-6,(7B-6)+θ,sub("N[yhat]![yhat]N    ",θ,1 
:End 
:RecallPic 1 
:End

I can think of a FEW optimizations, but that's beside the point…
The RecallPic command is used there, in that While 1 loop at the end. That's what I was thinking for that.
Also, from the screenshot, it seems some pixels to the LEFT are also erased. And because I want it fast, and there is no faster way in TI-BASIC to display multiple pixels at a time, I see no other way.

P.S. Nice picture-to-list routine, Xeda! I haven't seen you around here for a while, although I know you've been visiting my Shutdown thread on Omnimaga. ;-)

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome