AVALANCHE: Initial PtoC output.

1 files changed, 52 insertions, 0 deletions

diff --git a/engines/avalanche/sackb1.cpp b/engines/avalanche/sackb1.cpp
new file mode 100644
index 0000000000..800738821c
--- /dev/null
+++ b/engines/avalanche/sackb1.cpp
@@ -0,0 +1,52 @@
+#include "ptoc.h"
+
+/*
+  ÛßÜ ÛßÜ ÜßßÜ  ßÛß Ûßß  Üß ßÛß      ÜßÛßÜ  ßÛß ÛÜ  Û ÜÛßß  ßÛß ÛßÜ Ûßß Û
+  Ûß  ÛÛ  Û  Û Ü Û  Ûßß ßÜ   Û      Û  Û  Û  Û  Û ÛÜÛ  ßßßÜ  Û  ÛÛ  Ûßß Û
+  ß   ß ß  ßß   ßß  ßßß   ß  ß      ß  ß  ß ßßß ß  ßß  ßßß   ß  ß ß ßßß ßßß
+
+                 SACKBLASTER-1    The temporary mod player. */
+
+/* This is SackBlaster version 1.0, using Mark J. Cox's MODOBJ routines.
+  When Cameron finishes his mod player I'll use his routines, DV. However,
+  this will do for the time being. */
+
+#define __sackb1_implementation__
+
+
+#include "sackb1.h"
+
+
+/*$L v:MOD-obj.OBJ*/ 	        /* Link in Object file */
+/*$F+*/ 				/* force calls to be 'far'*/
+
+extern void modvolume(integer v1,integer v2,integer v3,integer v4);  /*Can do while playing*/
+extern void moddevice(integer& device); 
+extern void modsetup(integer& status,integer device,integer mixspeed,integer pro,integer loop,string& stri); 
+extern void modstop(); 
+extern void modinit(); 
+/*$F-*/
+
+void sb_start(string md)
+{
+ integer dev,mix,stat,pro,loop;
+
+ modinit();
+ dev=7;  /* Sound Blaster */
+ mix = 10000;    /*use 10000 normally */
+ pro = 0;  /*Leave at 0*/
+ loop =4;  /*4 means mod will play forever*/
+ modvolume (255,255,255,255);    /* Full volume */
+ modsetup ( stat, dev, mix, pro, loop, md );
+}
+
+void sb_stop()
+{;
+ modstop();
+}
+
+void sb_link()     /* At the moment, this does nothing. */
+{;
+}
+
+