Stos 2 amos

[Schlachtwerk]

If Exits a Converter from STOS 2 AMOS or a Converter for the Sprite Banks ?

it is great shit to capture Sprite by Sprite and save a Screenshot .

[emufan]

a user called Nyh at atari-forum wrote some routines to extract/convert a lot of atari stuff, including MBK data files:

Formats I can convert to BMP:
...
* STOS memory bank: .MBK (blocks, missinglink map, compressed picture, missinglink
map blocks, STOS spritebank, STOS icons, missinglink bobs, crackart, IMAG, tiny
and memorybanks packed with most popular ST packers)
...

in the last posting in this thread he attached sources and compiled tool. but you have to register to download.

edit: files are still there, included is compiled atari and win32 command line tool. and it does work.
just extracted a charset from such a mbk file - it made a bmp from it.

so register to the forum and add a message to his posting

[Schlachtwerk]

Thats only 32bit Photoshop PlugIns, thats will not work with Photoshop CC x64

[emufan]

not the photoshop plugin, look again, the _last_ posting, by user Nyh.
as guest you see: "You do not have the required permissions to view the files attached to this post."
so register and you can download the tools incl source.
since noone gave a comment since 2010, i thought it is a good idea, you would register,
and give a comment if you really use the tools

[Schlachtwerk]

Okay i will register me show

[Schlachtwerk]

Nice st2bmp.exe will work well with the MBK file, thx for the Tip

[emufan]

Originally Posted by Schlachtwerk

Nice st2bmp.exe will work well with the MBK file, thx for the Tip

cool, np

[Schlachtwerk]

Here a simple STOS 2 AMOS Sprite Converter in AMOS.
You can load a STOS MBK File and Save then a AMOS APK File, direct Convert.

Have Fun.

Repeat
Erase 6
NEW:
F$=Fsel$("*.MBK","","Please select the","STOS sprite bank to convert")
If F$=""
Default
End
End If
Open In 1,F$
L=Lof(1)
Close 1
If Instr(F$,".MBK")=0
Goto NEW
End If
Reserve As Work 6,L
Bload F$,Start(6)
ST=Start(6)+18
F$=F$-".MBK"
If Leek(ST)<>$19861987
Boom
Goto NEW
End If
Erase 10
Reserve As Work 10,L
Fill Start(10) To Start(10)+Length(10),0
AD=Start(10)
A$="AmSp"
Gosub BB
AB=ST+4+Leek(ST+4)
NB=Deek(ST+16)
Doke AD,NB
AD=AD+2
A=AB
For NN=0 To NB-1
Locate 0,10
Centre "Sprite"+Str$(NN+1)
SA=AB+NN*8
TX=Peek(SA+4)
TY=Peek(SA+5)
NP=4
Doke AD,TX
Doke AD+2,TY
Doke AD+4,NP
Doke AD+6,Peek(SA+6)
Doke AD+8,Peek(SA+7)
AD=AD+10
SA=AB+Leek(AB+NN*8)+TX*TY*2
For N=0 To NP-1
A=SA+N*2
For Y=0 To TY-1
AA=A+Y*TX*8
For X=0 To TX-1
Doke AD,Deek(AA+X*8)
AD=AD+2
Next X
Next Y
Next N
Next NN
APAL=Hunt(ST To ST+L,"PALT")+4
If APAL=4
End
End If
For X=0 To 15
Doke AD,Deek(APAL+X*2)*2
AD=AD+2
Next
For X=0 To 15
Doke AD,Deek(APAL+X*2)*2
AD=AD+2
Next
Locate 0,14
F$=Fsel$("*.ABK","","Please type the name","of the AMOS bank to save")
If Instr(Upper$(F$),".ABK")=0
F$=F$+".ABK"
End If
Centre "Saving "+F$
Bsave F$,Start(10) To AD
Clw
Until False
BB:
Loke AD,Leek(Varptr(A$))
AD=AD+4
Return
Loke AD,A
AD=AD+4
Return

[Schlachtwerk]

Anyone have experience with the command STOS Collide how to implement it in with AMOS with Bob, I have not much idea BUMP. I have the test program as far as first converted the were changed to Bob the Sprites and I got it up and running, albeit with errors and with no collision, since I have not yet figured out how this is feasible. If it was grateful for tips.

Sorry for my English, Google make it Possible ^^

[Sembiance]

Greetings

The Atari Forum appears to be down (http://www.atari-forum.com/viewtopic.php?p=177293) and I haven't been able to locate the ST2BMP source code anywhere else online. Internet archive has a mirror of that page, but because the files were an attachment that requires registration, no mirror of those files.

Does anyone out there have the ST2BMP source that user Nyh posted oh so long ago?