SetOverWrite 1
openfile !tmp.anr

'-----Dirs fr Ressource erstellen (Namen sind definiert)
mkdir INFO
mkdir ANIMATIONS
mkdir BITMAPS
mkdir WAVS

' -----Kennung (Name ist definiert)
openstream INFO\Version
writeline CEBware MessageAssistant 1.0
closestream

' -----Bitmap-Grssen (Namen sind definiert)
openstream INFO\Height
writeline 108
closestream

openstream INFO\Width
writeline 125
closestream

' -----Copyright des Files (Namen sind definiert)
openstream INFO\CompanyName
writeline CEBware - Software Entwicklung Dirk Hammann
closestream

openstream INFO\FileDescription
writeline This is as Demofile for CEBware MessageAssistant 1.0
closestream

openstream INFO\LegalCopyright
writeline CEBware - This is a Freewarefile
closestream

openstream INFO\ProductName
writeline CEBware MessageAssistant 1.0 - Demo
closestream

openstream INFO\VersionMajor
writeline 1
closestream

openstream INFO\VersionMinor
writeline 2
closestream

openstream INFO\VersionRevision
writeline 3
closestream

ImportBitmapFile Copyr.bmp INFO\LegalBitmap


' -----Definition der Animationsgrafiken
ImportBitmapFile Hokus.bmp BITMAPS\MyHokusPic
ImportBitmapFile Run.bmp BITMAPS\MyRunPic
ImportBitmapFile Peng.bmp BITMAPS\MyPengPic

' -----Definition der Animationssounds
ImportWaveFile Magic.wav WAVS\MagicSound
ImportWaveFile Peng.wav WAVS\Penging
ImportWaveFile End.wav WAVS\UnloadAssist


' -----Definition der Animationensaktionen
mkdir ANIMATIONS\Hokus
openstream ANIMATIONS\Hokus\Course
  
'  A=Grafiknummer der Animation
'  B=Anzeige der Grafik in Millisekunden
'    (0=unbegrenzt, hlt Animation an, sollte als letztes 
'    Bild definiert sein)
'    Sie knnen diesen Wert weglassen. In diesem Fall wird \DefaultTime genutzt
'
'  C=kennzeichnet Zeichenkette eines Sounds, muss mit * begonnen werden
'
'  Hinweis: ,; sind Trennzeichen und daher nicht anwendbar
'         +-----A 
'         |  +--B   C
'         |  |      | 
'         V  V      V
writeline 1;100,*MagicSound,2,3,4,5,6,7,8,9,10,11,12,1,*MagicSound,2,3,4,5,6,7,8,9,10,11,12,1,*MagicSound,2,3,4,5,6,7,8,9,10,11,12,2;0
closestream

mkdir ANIMATIONS\Run
openstream ANIMATIONS\Run\Course
writeline 1;100,2;100,3;100,4;100,5;100,6;100,7;100,8;100,1;100,2;100,3;100,4;100,5;100,6;100,7;100,8;100,9;0
closestream

mkdir ANIMATIONS\Peng
openstream ANIMATIONS\Peng\Course
writeline 1,2,3,4,5,6,*Penging,7,8,9,10,11,13,12,13,12,13,12,13,12,13,12,13,2;0
closestream

mkdir ANIMATIONS\Ending
openstream ANIMATIONS\Ending\Course
writeline 1,2,3,4,5,6,*UnloadAssist,7,8,9,10,11,13,12,13,12,13,12,13,12,13,12,13,2;0
closestream

mkdir ANIMATIONS\DemoStopSound
openstream ANIMATIONS\DemoStopSound\Course
writeline *UnloadAssist,1;500,*,1;1000,*UnloadAssist,1;0
closestream


' -----Definition der Bitmapgrafiken
openstream ANIMATIONS\Hokus\Bitmap
writeline MyHokusPic
closestream

openstream ANIMATIONS\Run\Bitmap
writeline MyRunPic
closestream

openstream ANIMATIONS\Peng\Bitmap
writeline MyPengPic
closestream

openstream ANIMATIONS\Ending\Bitmap
writeline MyPengPic
closestream

openstream ANIMATIONS\DemoStopSound\Bitmap
writeline MyPengPic
closestream



' -----Definition der Standardanzeigezeit
openstream ANIMATIONS\Hokus\DefaultTime
writeline 100
closestream

openstream ANIMATIONS\Run\DefaultTime
writeline 100
closestream

openstream ANIMATIONS\Peng\DefaultTime
writeline 100
closestream

openstream ANIMATIONS\Ending\DefaultTime
writeline 100
closestream

Savefile
Compress !Demo.anr
CloseFile
Pause 1