#include "sfall.h"
#include "dik.h"

procedure KEYPRESS_HOOK begin
   variable event = get_sfall_arg;
   variable key = get_sfall_arg;
   if key == DIK_3 then begin
      if event == 1 then begin
         overlay_create(WINTYPE_INVENTORY);
         interface_print("!Destroy!", WINTYPE_INVENTORY, 50-random(0,25), 200 + random(0,4), (0 bwor 0x0010000));
      end
      else begin
         overlay_destroy(WINTYPE_INVENTORY);
      end
   end
   else if key == DIK_4 then begin
      if event == 1 then begin
         overlay_create(WINTYPE_INVENTORY);
         interface_print("!Clear!", WINTYPE_INVENTORY, 70-random(0,25), 211 + random(0,4), (0 bwor 0x0010000));
      end
      if event == 0 then begin
         overlay_clear(WINTYPE_INVENTORY);
      end
   end
end

procedure start begin
   if game_loaded then begin
      register_hook_proc(HOOK_KEYPRESS, KEYPRESS_HOOK);
      set_global_script_type(1);
      set_global_script_repeat(0);
   end
end

StartYear=2161
StartMonth=11
StartDay=3

#include "sfall.h"
#include "dik.h"
procedure start;
procedure keypress;

variable map_array;

procedure start begin
   if (game_loaded) then begin
      set_global_script_type(0);
      register_hook_proc(19, keypress);
      map_array = create_array_map;
   end
end

procedure keypress begin
   variable LVar0 := get_sfall_arg;
   variable LVar1 := get_sfall_arg;
   if (LVar0 == 1) then begin
      if (LVar1 == DIK_V) then begin
         set_array(map_array, 0, 11);
         set_array(map_array, 1, 22);
         set_array(map_array, 2, 33);
         display_msg("len_array=" + len_array(map_array));
         display_msg("get_array[0]=" + get_array(map_array, 0));
         display_msg("get_array[1]=" + get_array(map_array, 1));
         display_msg("get_array[2]=" + get_array(map_array, 2));
         display_msg("scan_array(11)=" + scan_array(map_array, 11));
         display_msg("scan_array(22)=" + scan_array(map_array, 22));
         display_msg("scan_array(33)=" + scan_array(map_array, 33));
      end
   end
end

if ((val.isString() && std::strcmp(value.strVal, val.strValue())) || value.intVal == val.intValue() == 0) {