.ordner

SetBuffer FrontBuffer()
Cls

Locate 0,0

source$=Input("Ordner+Stamm: ")
endung$=Input("Endung: ")
mitte$="00000000"
zaehler=0
punkt$="."

.neuertest

test$=source$+mitte$+Str(zaehler)+punkt$+endung$

If FileType(test$)<>1 Then
   If Len (mitte)<1 Then Goto notfound
   mitte$=Right(mitte$,Len (mitte$)-1)
   If Instr(mitte$,"0")>=0 Then Goto neuertest
Else
   Print test+" gefunden!"
   Goto loading
EndIf

.notfound
Print test+" nicht gefunden!"
neu$=Input("nochmal? (j/n): ")
If neu$="N" Or neu$="n" Then End:Else Goto ordner
   
.loading

oldmitte$=mitte


Repeat
   
   oldzaehler=zaehler
   zaehler=zaehler+1
   If Len(zaehler)>Len(oldzaehler) Then mitte$=Right(mitte$,Len (mitte$)-1)
   test$=source$+mitte$+Str(zaehler)+punkt$+endung$
   If FileType(test)<>1 Then zaehler=zaehler-1 test$=source$+mitte$+Str(zaehler)+punkt$+endung$: Exit
   Print test+" gefunden!"
   
Forever

mitte$=oldmitte$

bitmap=LoadImage(test)

fertigwidth=ImageWidth(bitmap)*zaehler
fertigheight=ImageHeight(bitmap)
fertig=CreateImage (fertigwidth,fertigheight)

FreeImage bitmap
SetBuffer ImageBuffer(fertig)

For temp=1 To zaehler
   
   If Len(temp)>Len(oldtemp) Then mitte$=Right(mitte$,Len (mitte$)-1)

   test$=source$+mitte$+Str(temp)+punkt$+endung$
   bitmap=LoadImage(test)
   DrawImage bitmap,(temp-1)*ImageWidth(bitmap),0
   FreeImage bitmap
   oldtemp=temp

Next

SaveBuffer ImageBuffer(fertig),source+punkt+endung

For temp=1 To zaehler+3
Print ""
Next

Print source+punkt+endung+" erfolgreich erstellt!"
Print "Grösse: "+fertigwidth+"x"+fertigheight+" Pixel"
Print "Frames: "+zaehler

ExecFile source+punkt+endung

neu$=Input("nochmal? (j/n): ")
If neu$="N" Or neu$="n" Then End:Else Goto ordner