From b62c49fbc3b0a5fdeaf71780371b796ca115e598 Mon Sep 17 00:00:00 2001
From: boxgaming <75969133+boxgaming@users.noreply.github.com>
Date: Thu, 28 Apr 2022 10:14:53 -0500
Subject: [PATCH] added beep keyword

---
 codemirror/qb-lang.js | 12 +++++-------
 qb.js                 | 12 ++++++++++++
 qb2js.js              |  1 +
 tools/qb2js.bas       |  1 +
 4 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/codemirror/qb-lang.js b/codemirror/qb-lang.js
index b65da59..69cf88e 100644
--- a/codemirror/qb-lang.js
+++ b/codemirror/qb-lang.js
@@ -35,19 +35,17 @@ CodeMirror.defineMode("qbjs", function(conf, parserConf) {
     // TODO: adjust for QB
     var atomWords = ['true', 'false', 'nothing', 'empty', 'null'];
 
-    var builtinFuncsWords = ['_alpha', '_alpha32', '_atan2', '_autodisplay', '_blue', '_blue32', '_continue', '_copyimage', '_cosh', '_d2r', '_delay', '_dest', '_dest',
+    var builtinFuncsWords = ['_alpha', '_alpha32', '_atan2', '_autodisplay', '_blue', '_blue32', '_continue', '_copyimage', '_cosh', '_d2r', '_delay', '_dest',
                              '_display', '_fontwidth', '_freeimage', '_green', '_green32', '_height', '_instrrev', '_limit', '_keyclear', '_keydown',
                              '_keyhit', '_loadimage', '_mousebutton', '_mouseinput', '_mousex', '_mousey', '_newimage', '_pi', '_printstring', '_printwidth',
                              '_putimage', '_r2d', '_red', '_red32', '_resize', '_resizewidth', '_resizeheight', '_rgb', '_rgba', '_rgb32', '_rgba32', '_round',
                              '_screenexists', '_sinh', '_sndclose', '_sndopen', '_sndplay', '_sndloop', '_sndpause', '_sndstop', '_sndvol', 
-                             '_title', '_trim', '_width', 'abs', 'asc', 'atn', 'chr', 'circle', 'cls', 'color', 'command', 'cos', 'cvi', 'cvl', 'exp',
+                             '_title', '_trim', '_width', 'abs', 'asc', 'atn', 'beep', 'chr', 'circle', 'cls', 'color', 'command', 'cos', 'cvi', 'cvl', 'exp',
                              'fix', 'hex', 'input', 'inkey', 'instr', 'int', 'lbound', 'left', 'lcase', 'len', 'line', 'locate', 'log', 'ltrim', 'mid', 'mki', 'mkl',
-                             'oct', 'paint', 'point', 'preset', 'print', 'pset', 'right', 'rtrim', 'rnd', 'screen', 'shared', 'sgn', 'sin', 'sleep', 'space', 'sqr', 'str', 'swap', 'tan',
-                             'timer', 'ubound', 'ucase', 'val',
+                             'oct', 'paint', 'point', 'preset', 'print', 'pset', 'right', 'rtrim', 'rnd', 'screen', 'shared', 'sgn', 'sin', 'sleep', 'space', 'sqr',
+                             'str', 'swap', 'tan', 'timer', 'ubound', 'ucase', 'val',
                              // QBJS-specific
-                             'export', 'import']
-                             //'alert', 'confirm', 'domadd', 'domcontainer', 'domcreate', 'domevent','domget', 'domgetimage', 'domremove', 'export', 
-                             //'from', 'prompt', 'import', 'storageclear', 'storageget', 'storagekey', 'storagelength', 'storageset', 'storageremove'];
+                             'export', 'from', 'import']
 
     var builtinConsts = ['gx_true', 'gx_false', 'gxevent_init', 'gxevent_update', 'gxevent_drawbg', 'gxevent_drawmap', 'gxevent_drawscreen',
                          'gxevent_mouseinput', 'gxevent_paintbefore', 'gxevent_paintafter', 'gxevent_collision_tile', 'gxevent_collision_entity',
diff --git a/qb.js b/qb.js
index a73d4f2..98df8c3 100644
--- a/qb.js
+++ b/qb.js
@@ -549,6 +549,18 @@ var QB = new function() {
         return Math.atan(value);
     };
 
+    this.sub_Beep = function() {
+        var context = new AudioContext();
+        var oscillator = context.createOscillator();
+        oscillator.type = "square";
+        oscillator.frequency.value = 780;
+        oscillator.connect(context.destination);
+        oscillator.start(); 
+        setTimeout(function () {
+            oscillator.stop();
+        }, 200);  
+    };
+
     this.func_Chr = function(charCode) {
         return String.fromCharCode(charCode);
     };
diff --git a/qb2js.js b/qb2js.js
index df4905c..07ee83d 100644
--- a/qb2js.js
+++ b/qb2js.js
@@ -2553,6 +2553,7 @@ if (QB.halted()) { return; }
    await sub_AddQBMethod( "FUNCTION",  "Abs",   False);
    await sub_AddQBMethod( "FUNCTION",  "Asc",   False);
    await sub_AddQBMethod( "FUNCTION",  "Atn",   False);
+   await sub_AddQBMethod( "SUB",  "Beep",   False);
    await sub_AddQBMethod( "FUNCTION",  "Chr$",   False);
    await sub_AddQBMethod( "SUB",  "Circle",   False);
    await sub_AddQBMethod( "SUB",  "Cls",   False);
diff --git a/tools/qb2js.bas b/tools/qb2js.bas
index 0670c2c..4152293 100644
--- a/tools/qb2js.bas
+++ b/tools/qb2js.bas
@@ -2714,6 +2714,7 @@ Sub InitQBMethods
     AddQBMethod "FUNCTION", "Abs", False
     AddQBMethod "FUNCTION", "Asc", False
     AddQBMethod "FUNCTION", "Atn", False
+    addqbmethod "SUB", "Beep", False
     AddQBMethod "FUNCTION", "Chr$", False
     AddQBMethod "SUB", "Circle", False
     AddQBMethod "SUB", "Cls", False