DEADSOFTWARE

remove scripts
[d2df-sdl.git] / src / game / g_game.pas
index 110111e6ca492084d47e8488d0a32138a9c66359..6a11291bb77bfecb12ecb029a8b0d4b295c7ab3b 100644 (file)
@@ -20,7 +20,7 @@ interface
 
 uses
   g_basic, g_player, e_graphics, Classes, g_res_downloader,
-  SysUtils, g_sound, g_gui, g_scripts, MAPSTRUCT, wadreader, md5;
+  SysUtils, g_sound, g_gui, MAPSTRUCT, wadreader, md5;
 
 type
   TGameSettings = record
@@ -1104,9 +1104,6 @@ begin
 
     g_Game_SetLoadingText(_lc[I_LOAD_MENUS], 0, False);
     g_Menu_Init();
-    
-    g_Scripts_Init();
-    g_Scripts_Load('game.conprint("Scripts Init")');
 
     gMusic := TMusic.Create();
     gMusic.SetByName('MUSIC_MENU');
@@ -1256,10 +1253,9 @@ begin
     begin
       // new strafe mechanics
       if (strafeDir = 0) then strafeDir := MoveButton; // start strafing
-      // now set direction according to strafe
-           if (strafeDir = 1) then plr.SetDirection(D_LEFT)
-      else if (strafeDir = 2) then plr.SetDirection(D_RIGHT)
-      else plr.SetDirection(TDirection(MoveButton-1));
+      // now set direction according to strafe (reversed)
+           if (strafeDir = 2) then plr.SetDirection(D_LEFT)
+      else if (strafeDir = 1) then plr.SetDirection(D_RIGHT);
     end
     else
     begin