Create_0.gml 2.2 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283
  1. random_set_seed(current_time);
  2. icl(oAudioManager);
  3. global.input_handles_index = [
  4. "debug",
  5. "ingame",
  6. "inventory",
  7. "title",
  8. "pause"
  9. ]
  10. create_dummy_handle();
  11. for(var i = 0; i < array_length(global.input_handles_index); i++)
  12. variable_instance_set(id, global.input_handles_index[i], global.handle_dummy);
  13. autoreg_handle("ingame", "ingame", 1);
  14. autoreg_handle("title", "title", 100);
  15. _jump_p = undefined;
  16. _jump_r = undefined;
  17. _left = undefined;
  18. _right = undefined;
  19. _up = undefined;
  20. _down = undefined;
  21. _dash = undefined;
  22. _attack = undefined;
  23. _inventory = undefined;
  24. _return = undefined;
  25. _newgame = undefined;
  26. _continue = undefined;
  27. _quitgame = undefined;
  28. _close = undefined;
  29. global.in_game_manager = noone;
  30. global.inventory = noone;
  31. global.camera = noone;
  32. global.player = noone;
  33. // debugging
  34. global.developer_mode = true;
  35. // save file
  36. global.save_data = {};
  37. global.save_filename = "ddmyx_save.dat";
  38. // title UI (BETA)
  39. menu_options = ["CONTINUE", "NEW GAME", "INFO", "EXIT"];
  40. menu_index = 0;
  41. animation_timer = 0;
  42. lerp_speed = 0.15;
  43. for(var i = 0; i < array_length(menu_options); i++)
  44. option_scale[i] = 1;
  45. info1 =
  46. "真的有人阅读info欸!\n" +
  47. "这是以建平筠溪树莓社名义开发的游戏原型。\n" +
  48. "此原型是为义卖活动修改的特别版本,因时间原因,\n" +
  49. "引入的美术与音乐素材较为有限。请不要嫌弃~\n" +
  50. "原型仅代表最终作品的主要玩法,\n" +
  51. "最终解释权归全体开发人员所有。\n" +
  52. "感谢你的试玩!任何游戏相关问题请咨询社长!\n" +
  53. "预计发行时间:2027年暑假"
  54. info_typer1 = typer_set(info1, 64, 64 * 7, 2, 1);
  55. info2 =
  56. "你是一名优等生。\n" +
  57. "这是建平筠溪,布置与现实有几分相似,\n" +
  58. "却处处充满幻想与危机,熟悉而陌生。\n" +
  59. "是梦……\n" +
  60. "以你的骄傲,象征成绩的「墨」,挥动钢笔杀敌;\n" +
  61. "前往本部,集齐「建平五环」的品质击破梦境。\n" +
  62. "抑或,在潜意识的旅途中再次结识平日熟识的师友,\n" +
  63. "在他们口中寻得一切的真因?";
  64. info_typer2 = typer_set(info2, 18 * 64, 64 * 7, 2, 1);
  65. //favour_text = choose("这是一条风味文本……?");