Author Topic: Age of Darkness Revenge (Read 20806 times)

tifreak · « **Reply #15 on:** April 20, 2006, 08:09:00 am »

With a binary sprite prog, that used a string.

It takes quite a bit of mem with all the strings... That is why I was very happy to get the hex2sprite thing working, and even happier when Goose severely optimized it. ^_^

Everything I have been learning for Pokemon, shall reflect upon AODR...

kalan_vod · « **Reply #16 on:** April 20, 2006, 08:42:00 am »

Ahh, well that explains it

. Yeah Goose did a great job at it, but I didn't really see the original though >.>

tifreak · « **Reply #17 on:** April 20, 2006, 08:58:00 am »

Wasn't much different than what was on ticalc...

kalan_vod · « **Reply #18 on:** April 20, 2006, 02:46:00 pm »

X can be w/e var you want, but it is used as for the size of the sprite.
c1-->

CODE

ec1:I→C:J→U:16→X
:For(θ,1,length(Str4
:inString("123456789ABCDEF",sub(Str4,θ,1
:If 7: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+(Ans=I+X→U
:If C=I+X:I→C:Endc2

ec2
Not that much was optimized, but every byte helps..

tenniskid493 · « **Reply #19 on:** April 21, 2006, 05:13:00 am »

Yay for optimizations. Kalan_vod is the optimizing king.

kalan_vod · « **Reply #20 on:** April 21, 2006, 05:31:00 am »

Thanks

, but I was wondering what you had for the multiple sizes. If you want to post it maybe I could find a better way to make it work? Btw I did try to make a different version, and it was 30bytes smaller but only worked with numbers 1-9...lol

tifreak · « **Reply #21 on:** April 21, 2006, 07:41:00 am »

I basically had it check the length of str4... I will post the code tonight

kalan_vod · « **Reply #22 on:** April 21, 2006, 08:22:00 am »

Well I didn't think it would be necessary to check the length, as if they do it incorrectly then it will not work and they should read the read me

..

tifreak · « **Reply #23 on:** April 21, 2006, 10:12:00 am »

lol, I have it check the length so it automatically knows what size the sprite is. And if it doesn't match, there will be an 8x8 x in a box...

kalan_vod · « **Reply #24 on:** April 21, 2006, 12:53:00 pm »

Oh, well I was just going to make sure the user sets it to 8x8, 16x16, or 32x32. But I understand what your saying. I have a few ideas of what to do in order to receive the desired effect as yours, but I want to see what you have (unless you want me to).

tifreak · « **Reply #25 on:** April 21, 2006, 04:02:00 pm »

QuoteBegin-"BASIC Code"+-->

QUOTE ("BASIC Code")

:I→C:J→U
:length(Str4
:If Ans=16:8→Z
:If Ans=64:16→Z
:If Ans=256:32→Z
:If Ans=not(sum({16,64,256}):Then
:"FFC3A59999A5C3FF→Str4
:8→Z
:End
:For(θ,1,length(Str4
:inString("123456789ABCDEF",sub(Str4,θ,1
:If 7: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
Generated by http://www.cemetech.net/projects/basicelite/sourcecoder.php,

Logged

kalan_vod

LV11 Super Veteran (Next: 3000)
Posts: 2715
Rating: +10/-0

Age of Darkness Revenge

« Reply #26 on: April 21, 2006, 04:31:00 pm »

c1-->

CODE

ec1:I→C:J→U
:length(Str4
:Ans/(2+2(Ans>16)+4(Ans>64→Z
:If min(Ans≠{8,16,32
:Then
:"FFC3A59999A5C3FF→Str4
:8→Z
:End
:For(θ,1,length(Str4
:inString("123456789ABCDEF",sub(Str4,θ,1
:If 7: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:Endc2

ec2
Cut it down 18b.

Logged

tifreak

LV11 Super Veteran (Next: 3000)
Posts: 2708
Rating: +82/-3
My Kung Fu IS strong...

Age of Darkness Revenge

« Reply #27 on: April 22, 2006, 01:39:00 am »

Sadly, the whole min( and sum( thing does not work.I put in the correct length of a sprite, still gives the error sprite. Oh well...

Logged

kalan_vod

LV11 Super Veteran (Next: 3000)
Posts: 2715
Rating: +10/-0

Age of Darkness Revenge

« Reply #28 on: April 22, 2006, 03:34:00 am »

It works, but if it isnt exactly the size it doesn't work. I promise I got it to work on all three sizes.

Logged

tifreak

LV11 Super Veteran (Next: 3000)
Posts: 2708
Rating: +82/-3
My Kung Fu IS strong...

Age of Darkness Revenge

« Reply #29 on: April 22, 2006, 09:05:00 am »

I tried it, and it kept giving me the error box sprite.

I got it to work, after reworking some stuff, so no biggie...

All 32 sprites have been converted to hex, whether they look right once I get them on calc is another matter for debate

I should have the sprites and sprite viewer released later this afternoon...

Logged

Print

Pages: 1 [2] 3 4 ... 10 Go Up

« previous next »

Author Topic: Age of Darkness Revenge (Read 20806 times)

tenniskid493