JNKrunch (v0.1)

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|595\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

Jayenkai	Created : 15 April 2007 Edited : 13 May 2007 Language : Blitz JNKrunch (v0.1) Simple compression for Level data.
I've been using this same type of compression for my data for years. Take a lengthy bit of Ascii data, and compress it a little. I figured some of you might find it useful. Be aware, though, that it's really rubbish at compressing complex data! It's meant for incredibly repetitive stuff. SeedRnd MilliSecs() For n=1 To 50 original$=original$+String$( Chr$( Rand(32,90) ),Rand(200,500)) Next Print Original$ Print Len(Original$)+" bytes" Compressed$=JNKrunch(Original$) Print Compressed$ Print Len(Compressed$)+" bytes" Decompressed$=JuNKrunch(Compressed$) Print Decompressed Print Len(Decompressed$)+" bytes" Perc = (Len(compressed$)*100)/Len(decompressed$) Print "Compression : "+Perc+"% of original" Function JNKrunch$(txt$) out$="" count=1 char=Asc(Mid$(txt$,1,1)) For n=2 To Len(txt$) i=Asc(Mid$(txt$,n,1)) If i=char Then count=count+1:If count>200 Then out=out+Chr$(char)+Chr$(count+32):count=0:char=i If i<>char Then out=out+Chr$(char)+Chr$(count+32):count=1:char=i Next out=out+Chr$(char)+Chr$(count+32) Return out$ End Function Function JuNKrunch$(txt$) out$="" For n=1 To Len(txt$) Step 2 char$=Mid$(txt$,n,1) count=Asc(Mid$(txt$,n+1,1))-32 out=out+String$(char,count) Next Return out$ End Function --v

Comments
Monday, 16 April 2007, 04:22
mike_g	Cool. I'll give this a try when I get home. It works a bit like GIF compression. I wanted to write a compression algo sometime, its one of the things I havent got around to yet. Anyway, nice snippet
Monday, 16 April 2007, 05:47
Blitz3Dman	Nice snippet, if I use it and change the way my The Running Man level saving works and use this method should I give you credit?
Monday, 16 April 2007, 05:51
Jayenkai	No need to credit me. If I stick a "; Remember to credit me!" thing at the top of my code, then do so.. Otherwise, this is just a little teensy bit of code, and isn't really worth the credit.
Monday, 16 April 2007, 05:59
Blitz3Dman	Add this code to have the program decide which method to use and use one extra byte to declare which method is used. If Len(Compressed$)<Len(Original$) Then ;if the compression worked then use JNKrunch method ;these two lines of code are just for fun :) SeedRnd MilliSecs() file=WriteFile("HERO level_"+Rand(1,100) WriteByte(file,1);put in the file that the data is stored this way WriteString(file,Compressed$);write the actual data Else If Len(Compressed$)<=Len(Original$) Then ;if JNKrunch method made the data bigger don't use JNKrunch method ;these two lines of code are just for fun just like before :) SeedRnd MilliSecs() file=WriteFile("HERO level_"+Rand(1,100) WriteByte(file,0);put in the file that the data is stored this way WriteString(file,Original$);write the actual data EndIf --v

Comments