Added touchscreen controls

[d2df-sdl.git] / src / game / g_options.pas

diff --git a/src/game/g_options.pas b/src/game/g_options.pas
index d05ed835f86d43d5edd808f7db4a0ff6d17f217f..ee8518a7c8983419dc22c3972284353901e3a2f0 100644 (file)
--- a/src/game/g_options.pas
+++ b/src/game/g_options.pas
@@ -190,7 +190,10 @@ begin
     KeyPrevWeapon := 71;
     KeyOpen := 54;
     KeyStrafe := 0;
-    for i := 0 to High(KeyWeapon) do
+    for i := 0 to 9 do
+      KeyWeapon[i] := 30 + i;
+    KeyWeapon[10] := 45;
+    for i := 10 to High(KeyWeapon) do
       KeyWeapon[i] := 0;
 
     KeyRight2 := 0;