annotate scn2k/scn2k_impl.cc @ 52:15a18fbe6f21

* Known bugs added to the README * Code cleaning (0 -> NULL when needed, indentation, spaces, ...)
author thib
date Sat, 18 Apr 2009 18:35:39 +0000
parents 35ce1a30f3f9
children ddbcbd000206
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
223b71206888 Initial import
thib
parents:
diff changeset
1 /*
223b71206888 Initial import
thib
parents:
diff changeset
2 * Copyright (c) 2004-2006 Kazunori "jagarl" Ueno
223b71206888 Initial import
thib
parents:
diff changeset
3 * All rights reserved.
223b71206888 Initial import
thib
parents:
diff changeset
4 *
223b71206888 Initial import
thib
parents:
diff changeset
5 * Redistribution and use in source and binary forms, with or without
223b71206888 Initial import
thib
parents:
diff changeset
6 * modification, are permitted provided that the following conditions
223b71206888 Initial import
thib
parents:
diff changeset
7 * are met:
223b71206888 Initial import
thib
parents:
diff changeset
8 * 1. Redistributions of source code must retain the above copyright
223b71206888 Initial import
thib
parents:
diff changeset
9 * notice, this list of conditions and the following disclaimer.
223b71206888 Initial import
thib
parents:
diff changeset
10 * 2. Redistributions in binary form must reproduce the above copyright
223b71206888 Initial import
thib
parents:
diff changeset
11 * notice, this list of conditions and the following disclaimer in the
223b71206888 Initial import
thib
parents:
diff changeset
12 * documentation and/or other materials provided with the distribution.
223b71206888 Initial import
thib
parents:
diff changeset
13 * 3. The name of the author may not be used to endorse or promote products
223b71206888 Initial import
thib
parents:
diff changeset
14 * derived from this software without specific prior written permission.
223b71206888 Initial import
thib
parents:
diff changeset
15 *
223b71206888 Initial import
thib
parents:
diff changeset
16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
223b71206888 Initial import
thib
parents:
diff changeset
17 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
223b71206888 Initial import
thib
parents:
diff changeset
18 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
223b71206888 Initial import
thib
parents:
diff changeset
19 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
223b71206888 Initial import
thib
parents:
diff changeset
20 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
223b71206888 Initial import
thib
parents:
diff changeset
21 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
223b71206888 Initial import
thib
parents:
diff changeset
22 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
223b71206888 Initial import
thib
parents:
diff changeset
23 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
223b71206888 Initial import
thib
parents:
diff changeset
24 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
223b71206888 Initial import
thib
parents:
diff changeset
25 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
223b71206888 Initial import
thib
parents:
diff changeset
26 */
223b71206888 Initial import
thib
parents:
diff changeset
27
223b71206888 Initial import
thib
parents:
diff changeset
28 #include <stdexcept>
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
29 #include "scn2k_impl.h"
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
30 #include "system/file.h"
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
31 #include "system/system_config.h"
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
32 #include "window/picture.h"
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
33 #include "window/system.h"
0
223b71206888 Initial import
thib
parents:
diff changeset
34
223b71206888 Initial import
thib
parents:
diff changeset
35 // #define DEBUG 1
223b71206888 Initial import
thib
parents:
diff changeset
36
223b71206888 Initial import
thib
parents:
diff changeset
37 using namespace std;
223b71206888 Initial import
thib
parents:
diff changeset
38
223b71206888 Initial import
thib
parents:
diff changeset
39 /**********************************************
223b71206888 Initial import
thib
parents:
diff changeset
40 ** Scn2k
223b71206888 Initial import
thib
parents:
diff changeset
41 */
223b71206888 Initial import
thib
parents:
diff changeset
42
223b71206888 Initial import
thib
parents:
diff changeset
43 void kconv(const unsigned char* src, unsigned char* dest);
223b71206888 Initial import
thib
parents:
diff changeset
44 void kconv_rev(const unsigned char* src, unsigned char* dest);
223b71206888 Initial import
thib
parents:
diff changeset
45 string kconv(const string& s);
223b71206888 Initial import
thib
parents:
diff changeset
46 string kconv_rev(const string& s);
223b71206888 Initial import
thib
parents:
diff changeset
47
223b71206888 Initial import
thib
parents:
diff changeset
48 Scn2k::Scn2k(Event::Container& _event, PicContainer& _parent, class MuSys& mu, AyuSysConfig& _config) :
223b71206888 Initial import
thib
parents:
diff changeset
49 Event::Time(_event),
223b71206888 Initial import
thib
parents:
diff changeset
50 event(_event),
223b71206888 Initial import
thib
parents:
diff changeset
51 parent(_parent),
223b71206888 Initial import
thib
parents:
diff changeset
52 config(_config),
223b71206888 Initial import
thib
parents:
diff changeset
53 text_exec(_event, _parent, config),
223b71206888 Initial import
thib
parents:
diff changeset
54 grp_exec(_event, _parent, flag, flag.cgm_data, mu, config)
223b71206888 Initial import
thib
parents:
diff changeset
55 {
223b71206888 Initial import
thib
parents:
diff changeset
56 system_version = 0;
223b71206888 Initial import
thib
parents:
diff changeset
57 skip_mode = SKIP_NO;
223b71206888 Initial import
thib
parents:
diff changeset
58
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
59 script_start = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
60 script = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
61 script_end = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
62
223b71206888 Initial import
thib
parents:
diff changeset
63 backlog_script_scn = -1;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
64 backlog_script_start = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
65 backlog_script_end = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
66
223b71206888 Initial import
thib
parents:
diff changeset
67 save_scn = 0;
223b71206888 Initial import
thib
parents:
diff changeset
68 save_point = 0;
223b71206888 Initial import
thib
parents:
diff changeset
69 scn_number = 0;
223b71206888 Initial import
thib
parents:
diff changeset
70 scn_point = 0;
223b71206888 Initial import
thib
parents:
diff changeset
71 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
72
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
73 dialog = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
74 dialog_type = CMD_NOP;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
75 menu = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
76 menu_mouseshown = false;
223b71206888 Initial import
thib
parents:
diff changeset
77
223b71206888 Initial import
thib
parents:
diff changeset
78 /* マウスカーソルを作成 */
223b71206888 Initial import
thib
parents:
diff changeset
79 mouse_type = 0;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
80 mouse_surface = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
81 mouse_pressed = 0;
223b71206888 Initial import
thib
parents:
diff changeset
82 ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
83
223b71206888 Initial import
thib
parents:
diff changeset
84 LoadSys();
223b71206888 Initial import
thib
parents:
diff changeset
85 text_exec.InitWindow();
223b71206888 Initial import
thib
parents:
diff changeset
86 grp_exec.InitSel(config);
223b71206888 Initial import
thib
parents:
diff changeset
87 }
223b71206888 Initial import
thib
parents:
diff changeset
88
223b71206888 Initial import
thib
parents:
diff changeset
89 Scn2k::~Scn2k() {
50
35ce1a30f3f9 * Added va_end where there is a va_start
thib
parents: 43
diff changeset
90 if (script_start) delete[] script_start;
0
223b71206888 Initial import
thib
parents:
diff changeset
91 HideCursor();
223b71206888 Initial import
thib
parents:
diff changeset
92 SaveSys();
223b71206888 Initial import
thib
parents:
diff changeset
93 }
223b71206888 Initial import
thib
parents:
diff changeset
94
223b71206888 Initial import
thib
parents:
diff changeset
95 char* Scn2k::OpenScript(int new_scn_number, char*& end, int* call_vec, int& system_version) {
223b71206888 Initial import
thib
parents:
diff changeset
96 char fname[1024];
223b71206888 Initial import
thib
parents:
diff changeset
97 const char* data;
223b71206888 Initial import
thib
parents:
diff changeset
98 char* ret_data;
223b71206888 Initial import
thib
parents:
diff changeset
99 int offset = 0;
223b71206888 Initial import
thib
parents:
diff changeset
100 int scenario_magic;
223b71206888 Initial import
thib
parents:
diff changeset
101
223b71206888 Initial import
thib
parents:
diff changeset
102 sprintf(fname, "SEEN%04d.TXT", new_scn_number);
223b71206888 Initial import
thib
parents:
diff changeset
103 ARCINFO* info = file_searcher.Find(FILESEARCH::SCN, fname, "");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
104 if (info == NULL) goto err;
0
223b71206888 Initial import
thib
parents:
diff changeset
105 data = info->Read();
223b71206888 Initial import
thib
parents:
diff changeset
106
223b71206888 Initial import
thib
parents:
diff changeset
107 /* version 確認 */
223b71206888 Initial import
thib
parents:
diff changeset
108 scenario_magic = read_little_endian_int(data + 4);
223b71206888 Initial import
thib
parents:
diff changeset
109 if (scenario_magic != 0x2712 && scenario_magic != 0x1adb2) {
223b71206888 Initial import
thib
parents:
diff changeset
110 fprintf(stderr,"Invalid scenario header : scenario number %d\n",new_scn_number);
223b71206888 Initial import
thib
parents:
diff changeset
111 goto err;
223b71206888 Initial import
thib
parents:
diff changeset
112 }
223b71206888 Initial import
thib
parents:
diff changeset
113 if (read_little_endian_int(data) == 0x1cc) {
223b71206888 Initial import
thib
parents:
diff changeset
114 system_version = 0;
223b71206888 Initial import
thib
parents:
diff changeset
115 offset = 0x1cc + read_little_endian_int(data+0x20) + 4;
223b71206888 Initial import
thib
parents:
diff changeset
116 } else if (read_little_endian_int(data) == 0x1d0) {
223b71206888 Initial import
thib
parents:
diff changeset
117 system_version = 1;
223b71206888 Initial import
thib
parents:
diff changeset
118 offset = read_little_endian_int(data + 0x20);
223b71206888 Initial import
thib
parents:
diff changeset
119 } else {
223b71206888 Initial import
thib
parents:
diff changeset
120 fprintf(stderr,"Invalid scenario header : scenario number %d\n",new_scn_number);
223b71206888 Initial import
thib
parents:
diff changeset
121 goto err;
223b71206888 Initial import
thib
parents:
diff changeset
122 }
223b71206888 Initial import
thib
parents:
diff changeset
123 /* header から subroutine number とりだし */
223b71206888 Initial import
thib
parents:
diff changeset
124 if (call_vec) {
223b71206888 Initial import
thib
parents:
diff changeset
125 int i;
223b71206888 Initial import
thib
parents:
diff changeset
126 for (i=0; i<100; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
127 call_vec[i] = read_little_endian_int(data + 0x34 + i * 4);
223b71206888 Initial import
thib
parents:
diff changeset
128 }
223b71206888 Initial import
thib
parents:
diff changeset
129 }
223b71206888 Initial import
thib
parents:
diff changeset
130 ret_data = new char[info->Size() - offset + 1024];
223b71206888 Initial import
thib
parents:
diff changeset
131 memcpy(ret_data, data+offset, info->Size()-offset);
223b71206888 Initial import
thib
parents:
diff changeset
132 memset(ret_data+info->Size()-offset, 0, 1024);
223b71206888 Initial import
thib
parents:
diff changeset
133 end = ret_data + info->Size() - offset;
223b71206888 Initial import
thib
parents:
diff changeset
134 delete info;
223b71206888 Initial import
thib
parents:
diff changeset
135 return ret_data;
223b71206888 Initial import
thib
parents:
diff changeset
136
223b71206888 Initial import
thib
parents:
diff changeset
137 err:
223b71206888 Initial import
thib
parents:
diff changeset
138 delete info;
223b71206888 Initial import
thib
parents:
diff changeset
139 fprintf(stderr,"Cannot open scenario number %d\n",new_scn_number);
223b71206888 Initial import
thib
parents:
diff changeset
140 throw std::invalid_argument("Scn2k::OpenScript");
223b71206888 Initial import
thib
parents:
diff changeset
141
223b71206888 Initial import
thib
parents:
diff changeset
142 return false;
223b71206888 Initial import
thib
parents:
diff changeset
143 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
144
0
223b71206888 Initial import
thib
parents:
diff changeset
145 bool Scn2k::ChangeScript(int new_scn_number, int call_no) {
223b71206888 Initial import
thib
parents:
diff changeset
146 int old_scn_number = scn_number;
223b71206888 Initial import
thib
parents:
diff changeset
147 int old_scn_pt = script - script_start;
223b71206888 Initial import
thib
parents:
diff changeset
148 int scn_pt = 0;
223b71206888 Initial import
thib
parents:
diff changeset
149
223b71206888 Initial import
thib
parents:
diff changeset
150 if (script_start) delete[] script_start;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
151 script_start = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
152 script = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
153 script_end = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
154
223b71206888 Initial import
thib
parents:
diff changeset
155 int call_vec[100];
223b71206888 Initial import
thib
parents:
diff changeset
156
223b71206888 Initial import
thib
parents:
diff changeset
157 try {
223b71206888 Initial import
thib
parents:
diff changeset
158 script_start = OpenScript(new_scn_number, script_end, call_vec, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
159 } catch(...) {
223b71206888 Initial import
thib
parents:
diff changeset
160 fprintf(stderr,"\tFrom script %d pt %d\n",old_scn_number, old_scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
161 throw;
223b71206888 Initial import
thib
parents:
diff changeset
162 }
223b71206888 Initial import
thib
parents:
diff changeset
163 if (call_no > 0 && call_no < 100) {
223b71206888 Initial import
thib
parents:
diff changeset
164 scn_pt = call_vec[call_no];
223b71206888 Initial import
thib
parents:
diff changeset
165 if (scn_pt == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
166 fprintf(stderr,"Invalid subroutine number: scn %d sub %d\n",new_scn_number, call_no);
223b71206888 Initial import
thib
parents:
diff changeset
167 scn_pt = 0;
223b71206888 Initial import
thib
parents:
diff changeset
168 }
223b71206888 Initial import
thib
parents:
diff changeset
169 } else if (call_no < 0) {
223b71206888 Initial import
thib
parents:
diff changeset
170 scn_pt = -call_no; // デバッグ用
223b71206888 Initial import
thib
parents:
diff changeset
171 }
223b71206888 Initial import
thib
parents:
diff changeset
172
223b71206888 Initial import
thib
parents:
diff changeset
173 scn_number = new_scn_number;
223b71206888 Initial import
thib
parents:
diff changeset
174 scn_point = scn_pt;
223b71206888 Initial import
thib
parents:
diff changeset
175 script = script_start + scn_pt;
223b71206888 Initial import
thib
parents:
diff changeset
176 if (script < script_start || script >= script_end)
223b71206888 Initial import
thib
parents:
diff changeset
177 fprintf(stderr,"scn %d pt %d: Cannot jump to %d:%d; fall back to the top\n",old_scn_number, old_scn_pt, scn_number, scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
178 return true;
223b71206888 Initial import
thib
parents:
diff changeset
179 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
180
0
223b71206888 Initial import
thib
parents:
diff changeset
181 bool Scn2k::ReadCmdAt(Cmd& cmd, int scn, int pt) {
223b71206888 Initial import
thib
parents:
diff changeset
182 const char* d;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
183 if (scn == scn_number) {
0
223b71206888 Initial import
thib
parents:
diff changeset
184 d = script_start + pt;
223b71206888 Initial import
thib
parents:
diff changeset
185 if (d < script_start || d >= script_end) {
223b71206888 Initial import
thib
parents:
diff changeset
186 fprintf(stderr,"Cannot read script at current scn %d pt %d\n", scn, pt);
223b71206888 Initial import
thib
parents:
diff changeset
187 return false;
223b71206888 Initial import
thib
parents:
diff changeset
188 }
223b71206888 Initial import
thib
parents:
diff changeset
189 } else {
223b71206888 Initial import
thib
parents:
diff changeset
190 if (backlog_script_scn != scn) {
223b71206888 Initial import
thib
parents:
diff changeset
191 if (backlog_script_start) delete[] backlog_script_start;
223b71206888 Initial import
thib
parents:
diff changeset
192 backlog_script_start = OpenScript(scn, backlog_script_end, 0, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
193 }
223b71206888 Initial import
thib
parents:
diff changeset
194 d = backlog_script_start + pt;
223b71206888 Initial import
thib
parents:
diff changeset
195 if (d < backlog_script_start || d >= backlog_script_end) {
223b71206888 Initial import
thib
parents:
diff changeset
196 fprintf(stderr,"Cannot read script at scn %d pt %d\n", scn, pt);
223b71206888 Initial import
thib
parents:
diff changeset
197 return false;
223b71206888 Initial import
thib
parents:
diff changeset
198 }
223b71206888 Initial import
thib
parents:
diff changeset
199 }
223b71206888 Initial import
thib
parents:
diff changeset
200
223b71206888 Initial import
thib
parents:
diff changeset
201 cmd.GetCmd(flag, d);
223b71206888 Initial import
thib
parents:
diff changeset
202 return true;
223b71206888 Initial import
thib
parents:
diff changeset
203 }
223b71206888 Initial import
thib
parents:
diff changeset
204
223b71206888 Initial import
thib
parents:
diff changeset
205 extern bool save_req, load_req; // キーボードからセーブ・ロードできるように
223b71206888 Initial import
thib
parents:
diff changeset
206 extern bool pressAreq;
223b71206888 Initial import
thib
parents:
diff changeset
207
223b71206888 Initial import
thib
parents:
diff changeset
208 void Scn2k::Elapsed(unsigned int current_time) {
223b71206888 Initial import
thib
parents:
diff changeset
209 SetWakeup(current_time + 10); // 10msに一回シナリオスクリプト解釈
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
210 if (script == NULL) return;
0
223b71206888 Initial import
thib
parents:
diff changeset
211 //VarInfo info; info.type = 6; info.number = 0; // PB の「一回ゲームを開始したことがある」フラグ
223b71206888 Initial import
thib
parents:
diff changeset
212 //flag.Set(info,1);
223b71206888 Initial import
thib
parents:
diff changeset
213 //info.type = 0; info.number = 604; // Princess Bride: クリア対象設定フラグ (聖)
223b71206888 Initial import
thib
parents:
diff changeset
214 //flag.Set(info, 1);
223b71206888 Initial import
thib
parents:
diff changeset
215
223b71206888 Initial import
thib
parents:
diff changeset
216
223b71206888 Initial import
thib
parents:
diff changeset
217 Cmd cmd(flag, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
218 int cnt1;
223b71206888 Initial import
thib
parents:
diff changeset
219 int cnt2 = 1000; // flag / jump / flag 系コマンドの最大実行回数
223b71206888 Initial import
thib
parents:
diff changeset
220
223b71206888 Initial import
thib
parents:
diff changeset
221 /* XXX */
223b71206888 Initial import
thib
parents:
diff changeset
222 if (save_req) {
223b71206888 Initial import
thib
parents:
diff changeset
223 save_req = false;
223b71206888 Initial import
thib
parents:
diff changeset
224 load_req = false;
223b71206888 Initial import
thib
parents:
diff changeset
225 cmd.cmd_type = CMD_SAVEREQ;
223b71206888 Initial import
thib
parents:
diff changeset
226 } else if (load_req) {
223b71206888 Initial import
thib
parents:
diff changeset
227 load_req = false;
223b71206888 Initial import
thib
parents:
diff changeset
228 save_req = false;
223b71206888 Initial import
thib
parents:
diff changeset
229 cmd.cmd_type = CMD_LOADREQ;
223b71206888 Initial import
thib
parents:
diff changeset
230 }
223b71206888 Initial import
thib
parents:
diff changeset
231 if (pressAreq) {
223b71206888 Initial import
thib
parents:
diff changeset
232 pressAreq = false;
223b71206888 Initial import
thib
parents:
diff changeset
233 LoadRollback(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
234 return;
223b71206888 Initial import
thib
parents:
diff changeset
235 }
223b71206888 Initial import
thib
parents:
diff changeset
236
223b71206888 Initial import
thib
parents:
diff changeset
237 /* キー入力などに対応 */
223b71206888 Initial import
thib
parents:
diff changeset
238 // メニュー内以外で shift キーが押されたらスキップ開始
223b71206888 Initial import
thib
parents:
diff changeset
239 if ( (skip_mode&SKIP_IN_MENU) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
240 if (event.pressed(KEY_SHIFT)) {
223b71206888 Initial import
thib
parents:
diff changeset
241 if (skip_mode & SKIP_TEXT) {
223b71206888 Initial import
thib
parents:
diff changeset
242 ; // スキップ中ならなにもしない
223b71206888 Initial import
thib
parents:
diff changeset
243 } else {
223b71206888 Initial import
thib
parents:
diff changeset
244 SetSkipMode(SkipMode(SKIP_TEXT | SKIP_GRP_NOEFFEC | SKIPEND_KEY));
223b71206888 Initial import
thib
parents:
diff changeset
245 }
223b71206888 Initial import
thib
parents:
diff changeset
246 } else {
223b71206888 Initial import
thib
parents:
diff changeset
247 if ( skip_mode & SKIPEND_KEY) {
223b71206888 Initial import
thib
parents:
diff changeset
248 if ( (skip_mode & SKIPEND_TEXT) && (skip_mode & SKIP_TEXT)) {
223b71206888 Initial import
thib
parents:
diff changeset
249 SkipMode new_skip_mode = SkipMode(skip_mode & (~SKIPEND_KEY));
223b71206888 Initial import
thib
parents:
diff changeset
250 if ( (new_skip_mode & SKIP_GRP_FAST) || (new_skip_mode & SKIP_GRP_NODRAW)) {
223b71206888 Initial import
thib
parents:
diff changeset
251 new_skip_mode = SkipMode(skip_mode & (~SKIP_GRP_NOEFFEC));
223b71206888 Initial import
thib
parents:
diff changeset
252 }
223b71206888 Initial import
thib
parents:
diff changeset
253 SetSkipMode(new_skip_mode);
223b71206888 Initial import
thib
parents:
diff changeset
254 } else {
223b71206888 Initial import
thib
parents:
diff changeset
255 SetSkipMode(SKIP_NO);
223b71206888 Initial import
thib
parents:
diff changeset
256 }
223b71206888 Initial import
thib
parents:
diff changeset
257 }
223b71206888 Initial import
thib
parents:
diff changeset
258 }
223b71206888 Initial import
thib
parents:
diff changeset
259 }
223b71206888 Initial import
thib
parents:
diff changeset
260
223b71206888 Initial import
thib
parents:
diff changeset
261 for (cnt1=0; cnt1<20; cnt1++) { // 一回につき 20 個のコマンド実行
223b71206888 Initial import
thib
parents:
diff changeset
262 // 他のコマンド実行中なら終了
223b71206888 Initial import
thib
parents:
diff changeset
263 if ( (cmd.cmd_type == CMD_NOP && SysWait(cmd)) ||
223b71206888 Initial import
thib
parents:
diff changeset
264 // (cmd.cmd_type == CMD_NOP && text_exec.Wait(current_time, cmd)) ||
223b71206888 Initial import
thib
parents:
diff changeset
265 // (cmd.cmd_type == CMD_NOP && grp_exec.Wait(current_time, cmd))) {
223b71206888 Initial import
thib
parents:
diff changeset
266 (cmd.cmd_type == CMD_NOP && grp_exec.Wait(current_time, cmd)) ||
223b71206888 Initial import
thib
parents:
diff changeset
267 (cmd.cmd_type == CMD_NOP && text_exec.Wait(current_time, cmd))) {
223b71206888 Initial import
thib
parents:
diff changeset
268 break;
223b71206888 Initial import
thib
parents:
diff changeset
269 }
223b71206888 Initial import
thib
parents:
diff changeset
270 // コマンド読み込み
223b71206888 Initial import
thib
parents:
diff changeset
271 for (; cnt2 > 0; cnt2--) {
223b71206888 Initial import
thib
parents:
diff changeset
272 scn_point = script - script_start;
223b71206888 Initial import
thib
parents:
diff changeset
273 eprintf("%d / %d :", script - script_start, script_end-script_start);
223b71206888 Initial import
thib
parents:
diff changeset
274 // fprintf(stderr,"%d: %d / %d :",scn_number, script - script_start, script_end-script_start);
223b71206888 Initial import
thib
parents:
diff changeset
275 cmd.GetCmd(flag, script);
223b71206888 Initial import
thib
parents:
diff changeset
276 // if (cmd.cmd_type != CMD_NOP) {
223b71206888 Initial import
thib
parents:
diff changeset
277 if (0) {
223b71206888 Initial import
thib
parents:
diff changeset
278 fprintf(stderr,"%d / %d : 0x23 - cmd %02x-%02x:%04x:%02x[%2d] \n",
223b71206888 Initial import
thib
parents:
diff changeset
279 scn_point, script_end-script_start,
223b71206888 Initial import
thib
parents:
diff changeset
280 cmd.cmd1,cmd.cmd2,cmd.cmd3,cmd.cmd4,cmd.argc);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
281 int i;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
282 for (i = 0; i<cmd.args.size(); i++) {
0
223b71206888 Initial import
thib
parents:
diff changeset
283 if (i == 0) fprintf(stderr,"\t");
223b71206888 Initial import
thib
parents:
diff changeset
284 VarInfo info = cmd.args[i];
223b71206888 Initial import
thib
parents:
diff changeset
285 if (info.type == TYPE_STR || info.type == TYPE_VARSTR)
223b71206888 Initial import
thib
parents:
diff changeset
286 fprintf(stderr,"\"%s\",", cmd.Str(info));
223b71206888 Initial import
thib
parents:
diff changeset
287 else
223b71206888 Initial import
thib
parents:
diff changeset
288 fprintf(stderr,"%d,",info.value);
223b71206888 Initial import
thib
parents:
diff changeset
289 }
223b71206888 Initial import
thib
parents:
diff changeset
290 fprintf(stderr,"\n");
223b71206888 Initial import
thib
parents:
diff changeset
291 }
223b71206888 Initial import
thib
parents:
diff changeset
292 cmd.scn = scn_number;
223b71206888 Initial import
thib
parents:
diff changeset
293 cmd.pos = scn_point;
223b71206888 Initial import
thib
parents:
diff changeset
294 if (cmd.IsError()) break;
223b71206888 Initial import
thib
parents:
diff changeset
295 if (cmd.cmd_type == CMD_NOP) continue;
223b71206888 Initial import
thib
parents:
diff changeset
296 if (cmd.cmd_type == CMD_JMP) {
223b71206888 Initial import
thib
parents:
diff changeset
297 // local jump
223b71206888 Initial import
thib
parents:
diff changeset
298 if (cmd.cmd1 == 0 && cmd.cmd2 == 1 && cmd.cmd3 == 16) {
223b71206888 Initial import
thib
parents:
diff changeset
299 int i;
223b71206888 Initial import
thib
parents:
diff changeset
300 for (i=0; i<cmd.args.size()-1; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
301 VarInfo var;
223b71206888 Initial import
thib
parents:
diff changeset
302 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
303 var.number = i;
223b71206888 Initial import
thib
parents:
diff changeset
304 flag.Set(var, cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
305 }
223b71206888 Initial import
thib
parents:
diff changeset
306 cmd.args[0].value = cmd.args[i].value;
223b71206888 Initial import
thib
parents:
diff changeset
307 }
223b71206888 Initial import
thib
parents:
diff changeset
308 if ( cmd.cmd1 == 0 && cmd.cmd2 == 1 && (cmd.cmd3 == 5 || cmd.cmd3 == 8 || cmd.cmd3 == 16) ) { // local call / simple switch
223b71206888 Initial import
thib
parents:
diff changeset
309 int scn_pt = script - script_start;
223b71206888 Initial import
thib
parents:
diff changeset
310 // fprintf(stderr,"\nlocal call %d:%d from %d\n",scn_number,cmd.args[0].value,scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
311 stack.push_back(StackItem(-1, scn_pt));
223b71206888 Initial import
thib
parents:
diff changeset
312 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
313 if (cmd.cmd1 == 0 && cmd.cmd2 == 1 && cmd.cmd3 == 1) {//TODO
0
223b71206888 Initial import
thib
parents:
diff changeset
314 fprintf(stderr,"*** unsupported: cond 1\n");
223b71206888 Initial import
thib
parents:
diff changeset
315 }
223b71206888 Initial import
thib
parents:
diff changeset
316 script = script_start + cmd.args[0].value;
223b71206888 Initial import
thib
parents:
diff changeset
317 if (script < script_start || script >= script_end) {
43
01aa5ddf7dc8 A lot of very minor improvements (deleted some unused variables, and other things like that...)
thib
parents: 19
diff changeset
318 fprintf(stderr,"scn %d pt %d: Cannot jump to %d; fall back to the top\n", scn_number, scn_point, cmd.args[0].value);
0
223b71206888 Initial import
thib
parents:
diff changeset
319 script = script_start;
223b71206888 Initial import
thib
parents:
diff changeset
320 }
223b71206888 Initial import
thib
parents:
diff changeset
321 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
322 continue;
223b71206888 Initial import
thib
parents:
diff changeset
323 }
223b71206888 Initial import
thib
parents:
diff changeset
324 if (flag.Exec(cmd)) continue;
223b71206888 Initial import
thib
parents:
diff changeset
325 break;
223b71206888 Initial import
thib
parents:
diff changeset
326 }
223b71206888 Initial import
thib
parents:
diff changeset
327 if (cmd.IsError()) {
223b71206888 Initial import
thib
parents:
diff changeset
328 fprintf(stderr,"cmd error occured: scn %d pt %d / cur %d",scn_number,scn_point,script-script_start);
223b71206888 Initial import
thib
parents:
diff changeset
329 while(script < script_end) {
223b71206888 Initial import
thib
parents:
diff changeset
330 if (*script == 0x29 && script[1] == 0x0a) {script++;break;}
223b71206888 Initial import
thib
parents:
diff changeset
331 if (*script == 0 && script[1] == 0x0a) {script++;break;}
223b71206888 Initial import
thib
parents:
diff changeset
332 if (*script == 0 && script[1] == 0x23) {script++;break;}
223b71206888 Initial import
thib
parents:
diff changeset
333 script++;
223b71206888 Initial import
thib
parents:
diff changeset
334 fprintf(stderr," -> fall back to %d\n",script-script_start);
223b71206888 Initial import
thib
parents:
diff changeset
335 }
223b71206888 Initial import
thib
parents:
diff changeset
336 const char* dprev = script - 0x60;
223b71206888 Initial import
thib
parents:
diff changeset
337 if (dprev < script_start) dprev = script_start;
223b71206888 Initial import
thib
parents:
diff changeset
338 int ilen = (script-dprev+65)/16;
223b71206888 Initial import
thib
parents:
diff changeset
339 int i; for (i=0; i<ilen; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
340 fprintf(stderr, "%6d: ",dprev-script_start);
223b71206888 Initial import
thib
parents:
diff changeset
341 int j; for (j=0; j<16; j++) {
223b71206888 Initial import
thib
parents:
diff changeset
342 if (dprev >= script_end) break;
223b71206888 Initial import
thib
parents:
diff changeset
343 fprintf(stderr, "%02x ",*(unsigned char*)(dprev));
223b71206888 Initial import
thib
parents:
diff changeset
344 dprev++;
223b71206888 Initial import
thib
parents:
diff changeset
345 }
223b71206888 Initial import
thib
parents:
diff changeset
346 fprintf(stderr, "\n");
223b71206888 Initial import
thib
parents:
diff changeset
347 }
223b71206888 Initial import
thib
parents:
diff changeset
348 break;
223b71206888 Initial import
thib
parents:
diff changeset
349 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
350
0
223b71206888 Initial import
thib
parents:
diff changeset
351 if (cmd.cmd_type == CMD_NOP) continue;
223b71206888 Initial import
thib
parents:
diff changeset
352
223b71206888 Initial import
thib
parents:
diff changeset
353 if (cmd.cmd_type == CMD_TEXT && cmd.pos != -1) {
223b71206888 Initial import
thib
parents:
diff changeset
354 set<int>& readflag = text_readflag[scn_number];
223b71206888 Initial import
thib
parents:
diff changeset
355 if (readflag.find(cmd.pos) == readflag.end()) { // 未読テキスト発見
223b71206888 Initial import
thib
parents:
diff changeset
356 readflag.insert(cmd.pos);
223b71206888 Initial import
thib
parents:
diff changeset
357 if (skip_mode & SKIPEND_TEXT) {
223b71206888 Initial import
thib
parents:
diff changeset
358 if (!(skip_mode & SKIPEND_KEY)) SetSkipMode(SKIP_NO);
223b71206888 Initial import
thib
parents:
diff changeset
359 }
223b71206888 Initial import
thib
parents:
diff changeset
360 }
223b71206888 Initial import
thib
parents:
diff changeset
361 }
223b71206888 Initial import
thib
parents:
diff changeset
362 text_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
363 grp_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
364 SysExec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
365 if (cmd.cmd_type == CMD_WAITFRAMEUPDATE) {
223b71206888 Initial import
thib
parents:
diff changeset
366 SetWakeup(Event::Time::FRAME_UPDATE);
223b71206888 Initial import
thib
parents:
diff changeset
367 break;
223b71206888 Initial import
thib
parents:
diff changeset
368 } else if (cmd.cmd_type != CMD_NOP) {
223b71206888 Initial import
thib
parents:
diff changeset
369 #if DEBUG
223b71206888 Initial import
thib
parents:
diff changeset
370 fprintf(stderr,"%d-%d / %d : unsupported command; 0x23 - cmd %02x-%02x:%04x:%02x[%2d] \n",
223b71206888 Initial import
thib
parents:
diff changeset
371 cmd.scn, script - script_start, script_end-script_start,
223b71206888 Initial import
thib
parents:
diff changeset
372 cmd.cmd1,cmd.cmd2,cmd.cmd3,cmd.cmd4,cmd.argc);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
373 int i;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
374 for (i = 0; i<cmd.args.size(); i++) {
0
223b71206888 Initial import
thib
parents:
diff changeset
375 if (i == 0) fprintf(stderr,"\t");
223b71206888 Initial import
thib
parents:
diff changeset
376 VarInfo info = cmd.args[i];
223b71206888 Initial import
thib
parents:
diff changeset
377 if (info.type == TYPE_STR || info.type == TYPE_VARSTR)
223b71206888 Initial import
thib
parents:
diff changeset
378 fprintf(stderr,"\"%s\",", cmd.Str(info));
223b71206888 Initial import
thib
parents:
diff changeset
379 else
223b71206888 Initial import
thib
parents:
diff changeset
380 fprintf(stderr,"%d,",info.value);
223b71206888 Initial import
thib
parents:
diff changeset
381 }
223b71206888 Initial import
thib
parents:
diff changeset
382 fprintf(stderr,"\n");
223b71206888 Initial import
thib
parents:
diff changeset
383 #endif
223b71206888 Initial import
thib
parents:
diff changeset
384 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
385 }
223b71206888 Initial import
thib
parents:
diff changeset
386 }
223b71206888 Initial import
thib
parents:
diff changeset
387 }
223b71206888 Initial import
thib
parents:
diff changeset
388
223b71206888 Initial import
thib
parents:
diff changeset
389 void Scn2k::ShowCursor(void) {
223b71206888 Initial import
thib
parents:
diff changeset
390 HideCursor();
223b71206888 Initial import
thib
parents:
diff changeset
391 char key[1024];
223b71206888 Initial import
thib
parents:
diff changeset
392 sprintf(key, "#MOUSE_CURSOR.%03d.NAME",mouse_type);
223b71206888 Initial import
thib
parents:
diff changeset
393 const char* name = config.GetParaStr(key);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
394 if (name == NULL || name[0] == 0) mouse_surface = DEFAULT_MOUSECURSOR;
0
223b71206888 Initial import
thib
parents:
diff changeset
395 else {
223b71206888 Initial import
thib
parents:
diff changeset
396 mouse_surface = parent.Root().NewSurface(name, COLOR_MASK);
223b71206888 Initial import
thib
parents:
diff changeset
397 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
398 if (mouse_surface == NULL) mouse_surface = DEFAULT_MOUSECURSOR;
0
223b71206888 Initial import
thib
parents:
diff changeset
399 System::Main::SetCursor(mouse_surface, Rect(8, 8, 8+32, 8+32));
223b71206888 Initial import
thib
parents:
diff changeset
400 }
223b71206888 Initial import
thib
parents:
diff changeset
401
223b71206888 Initial import
thib
parents:
diff changeset
402 void Scn2k::HideCursor(void) {
223b71206888 Initial import
thib
parents:
diff changeset
403 if (mouse_surface) {
223b71206888 Initial import
thib
parents:
diff changeset
404 System::Main::SetCursor(0, Rect(0,0));
223b71206888 Initial import
thib
parents:
diff changeset
405 if (mouse_surface != DEFAULT_MOUSECURSOR)
223b71206888 Initial import
thib
parents:
diff changeset
406 parent.Root().DeleteSurface(mouse_surface);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
407 mouse_surface = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
408 }
223b71206888 Initial import
thib
parents:
diff changeset
409 }
223b71206888 Initial import
thib
parents:
diff changeset
410
223b71206888 Initial import
thib
parents:
diff changeset
411 bool Scn2k::SysWait(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
412 if (menu) {
223b71206888 Initial import
thib
parents:
diff changeset
413 menu->Exec(cmd);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
414 if (menu->status & Scn2kMenu::MENU_DELETE || menu->pimpl == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
415 delete menu;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
416 menu = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
417 if (! menu_mouseshown) HideCursor();
223b71206888 Initial import
thib
parents:
diff changeset
418 else ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
419 SetSkipMode(SkipMode(skip_mode & (~SKIP_IN_MENU) ));
223b71206888 Initial import
thib
parents:
diff changeset
420 }
223b71206888 Initial import
thib
parents:
diff changeset
421 if (cmd.cmd_type == CMD_NOP) return true;
223b71206888 Initial import
thib
parents:
diff changeset
422 else return false; /* exec command */
223b71206888 Initial import
thib
parents:
diff changeset
423 }
223b71206888 Initial import
thib
parents:
diff changeset
424 return false;
223b71206888 Initial import
thib
parents:
diff changeset
425 }
223b71206888 Initial import
thib
parents:
diff changeset
426
223b71206888 Initial import
thib
parents:
diff changeset
427 void DllCall_LB(Cmd& cmd, Flags& flags);
223b71206888 Initial import
thib
parents:
diff changeset
428 void Scn2k::SysExec(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
429 if (cmd.cmd_type == CMD_SYSVAR) {
223b71206888 Initial import
thib
parents:
diff changeset
430 int i;
223b71206888 Initial import
thib
parents:
diff changeset
431 for (i=0; i<cmd.args.size(); i++) {
223b71206888 Initial import
thib
parents:
diff changeset
432 if (cmd.args[i].type == TYPE_SYS) {
223b71206888 Initial import
thib
parents:
diff changeset
433 if (cmd.args[i].number == TYPE_SYS_SYS) {
223b71206888 Initial import
thib
parents:
diff changeset
434 flag.SetSys(cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
435 } else if (cmd.args[i].number == TYPE_SYS_SKIPMODE) {
223b71206888 Initial import
thib
parents:
diff changeset
436 SetSkipMode(SkipMode(cmd.args[i].value));
223b71206888 Initial import
thib
parents:
diff changeset
437 }
223b71206888 Initial import
thib
parents:
diff changeset
438 } else if (cmd.args[i].type == TYPE_VARSTR) {
223b71206888 Initial import
thib
parents:
diff changeset
439 flag.SetStr(cmd.args[i].number, cmd.Str(cmd.args[i]));
223b71206888 Initial import
thib
parents:
diff changeset
440 } else {
223b71206888 Initial import
thib
parents:
diff changeset
441 flag.Set(cmd.args[i], cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
442 }
223b71206888 Initial import
thib
parents:
diff changeset
443 }
223b71206888 Initial import
thib
parents:
diff changeset
444 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
445 }
223b71206888 Initial import
thib
parents:
diff changeset
446 if (cmd.cmd_type == CMD_SAVEPOINT || cmd.cmd_type == CMD_ROLLBACKPOINT) {
223b71206888 Initial import
thib
parents:
diff changeset
447 if (text_exec.backlog_item.scn != -1) {
223b71206888 Initial import
thib
parents:
diff changeset
448 text_exec.backlog.push_back(text_exec.backlog_item);
223b71206888 Initial import
thib
parents:
diff changeset
449 text_exec.backlog_item.Clear();
223b71206888 Initial import
thib
parents:
diff changeset
450 }
223b71206888 Initial import
thib
parents:
diff changeset
451 save_scn = scn_number;
223b71206888 Initial import
thib
parents:
diff changeset
452 save_point = scn_point;
223b71206888 Initial import
thib
parents:
diff changeset
453 if (!new_rollback_save.empty()) {
223b71206888 Initial import
thib
parents:
diff changeset
454 rollback_save.push_back(new_rollback_save);
223b71206888 Initial import
thib
parents:
diff changeset
455 new_rollback_save = "";
223b71206888 Initial import
thib
parents:
diff changeset
456 }
223b71206888 Initial import
thib
parents:
diff changeset
457 if (cmd.cmd_type == CMD_ROLLBACKPOINT) SaveRollback();
223b71206888 Initial import
thib
parents:
diff changeset
458 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
459 }
223b71206888 Initial import
thib
parents:
diff changeset
460 if (cmd.cmd_type == CMD_SAVEREQ || cmd.cmd_type == CMD_SAVE) {
223b71206888 Initial import
thib
parents:
diff changeset
461 Save(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
462 return;
223b71206888 Initial import
thib
parents:
diff changeset
463 }
223b71206888 Initial import
thib
parents:
diff changeset
464 if (cmd.cmd_type == CMD_LOADREQ || cmd.cmd_type == CMD_LOAD) {
223b71206888 Initial import
thib
parents:
diff changeset
465 Load(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
466 return;
223b71206888 Initial import
thib
parents:
diff changeset
467 }
223b71206888 Initial import
thib
parents:
diff changeset
468 if (cmd.cmd_type == CMD_BACKLOGREQ || cmd.cmd_type == CMD_BACKLOGREQ_FWD) {
223b71206888 Initial import
thib
parents:
diff changeset
469 if (menu) {
223b71206888 Initial import
thib
parents:
diff changeset
470 fprintf(stderr,"BACKLOG_REQ requested!!!\n");
223b71206888 Initial import
thib
parents:
diff changeset
471 return;
223b71206888 Initial import
thib
parents:
diff changeset
472 }
223b71206888 Initial import
thib
parents:
diff changeset
473 if (cmd.cmd_type == CMD_BACKLOGREQ_FWD) {
223b71206888 Initial import
thib
parents:
diff changeset
474 cmd.clear(); // backlog mode 以外で fwd を押されてもなにもしない
223b71206888 Initial import
thib
parents:
diff changeset
475 return;
223b71206888 Initial import
thib
parents:
diff changeset
476 }
223b71206888 Initial import
thib
parents:
diff changeset
477 SetSkipMode(SKIP_IN_MENU); // テキストスキップ等はここで中断
223b71206888 Initial import
thib
parents:
diff changeset
478 menu = new Scn2kMenu(Scn2kMenu::MENU_BACKLOG, *this, flag, text_exec, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
479 menu->InitPanel(event, parent);
223b71206888 Initial import
thib
parents:
diff changeset
480 menu->InitTitle(Scn2kSaveTitle(*this));
223b71206888 Initial import
thib
parents:
diff changeset
481 if (mouse_surface) menu_mouseshown = true;
223b71206888 Initial import
thib
parents:
diff changeset
482 else menu_mouseshown = false;
223b71206888 Initial import
thib
parents:
diff changeset
483 ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
484 return;
223b71206888 Initial import
thib
parents:
diff changeset
485 }
223b71206888 Initial import
thib
parents:
diff changeset
486 if (cmd.cmd_type == CMD_MENUREQ) {
223b71206888 Initial import
thib
parents:
diff changeset
487 int scn=0, pt=0;
223b71206888 Initial import
thib
parents:
diff changeset
488 config.GetParam("#CANCELCALL", 2, &scn, &pt);
223b71206888 Initial import
thib
parents:
diff changeset
489 if (scn) {
223b71206888 Initial import
thib
parents:
diff changeset
490 // 右クリックされたら global call を行う
223b71206888 Initial import
thib
parents:
diff changeset
491 cmd.cmd_type = CMD_OTHER;
223b71206888 Initial import
thib
parents:
diff changeset
492 cmd.cmd1 = 0;
223b71206888 Initial import
thib
parents:
diff changeset
493 cmd.cmd2 = 1;
223b71206888 Initial import
thib
parents:
diff changeset
494 cmd.cmd3 = 0x0c;
223b71206888 Initial import
thib
parents:
diff changeset
495 cmd.cmd4 = 1;
223b71206888 Initial import
thib
parents:
diff changeset
496 cmd.args.clear();
223b71206888 Initial import
thib
parents:
diff changeset
497 cmd.args.push_back(VarInfo(SCN_INFO_MENU));
223b71206888 Initial import
thib
parents:
diff changeset
498 cmd.args.push_back(0);
223b71206888 Initial import
thib
parents:
diff changeset
499 SetSkipMode(SKIP_IN_MENU); // テキストスキップ等はここで中断
223b71206888 Initial import
thib
parents:
diff changeset
500 }
223b71206888 Initial import
thib
parents:
diff changeset
501 }
223b71206888 Initial import
thib
parents:
diff changeset
502 if (cmd.cmd_type == CMD_SAVECMDGRP || cmd.cmd_type == CMD_SAVECMDGRP_START || cmd.cmd_type == CMD_SAVECMDGRP_ONCE || cmd.cmd_type == CMD_SAVECMD_ONCE) {
223b71206888 Initial import
thib
parents:
diff changeset
503 // 画像コマンド等はスタックに保存し、セーブ時に保存できるようにする
223b71206888 Initial import
thib
parents:
diff changeset
504 if (cmd.cmd_type == CMD_SAVECMDGRP_START) {
223b71206888 Initial import
thib
parents:
diff changeset
505 vector<CmdSimplified>::iterator it, cur;
223b71206888 Initial import
thib
parents:
diff changeset
506 cur = cmd_stack.begin();
223b71206888 Initial import
thib
parents:
diff changeset
507 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
508 /* 画像関連コマンド以外を別にする */
223b71206888 Initial import
thib
parents:
diff changeset
509 for (it=cmd_stack.begin(); it != cmd_stack.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
510 if (it->type != CMD_SAVECMDGRP && it->type != CMD_SAVECMDGRP_START && it->type != CMD_SAVECMDGRP_ONCE) {
223b71206888 Initial import
thib
parents:
diff changeset
511 cur->copy(*it, cmd_stack_str);
223b71206888 Initial import
thib
parents:
diff changeset
512 cur++;
223b71206888 Initial import
thib
parents:
diff changeset
513 }
223b71206888 Initial import
thib
parents:
diff changeset
514 }
223b71206888 Initial import
thib
parents:
diff changeset
515 cmd_stack.erase(cur, cmd_stack.end());
223b71206888 Initial import
thib
parents:
diff changeset
516 }
223b71206888 Initial import
thib
parents:
diff changeset
517 if (cmd.cmd_type == CMD_SAVECMD_ONCE || cmd.cmd_type == CMD_SAVECMDGRP_ONCE) { // 同じコマンドがあれば削除する
223b71206888 Initial import
thib
parents:
diff changeset
518 vector<CmdSimplified>::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
519 for (it = cmd_stack.end(); it != cmd_stack.begin(); ) {
223b71206888 Initial import
thib
parents:
diff changeset
520 --it;
223b71206888 Initial import
thib
parents:
diff changeset
521 if (it->cmd1 == cmd.cmd1 && it->cmd2 == cmd.cmd2 && it->cmd3 == cmd.cmd3 && it->cmd4 == cmd.cmd4) {
223b71206888 Initial import
thib
parents:
diff changeset
522 cmd_stack.erase(it);
223b71206888 Initial import
thib
parents:
diff changeset
523 break;
223b71206888 Initial import
thib
parents:
diff changeset
524 }
223b71206888 Initial import
thib
parents:
diff changeset
525 }
223b71206888 Initial import
thib
parents:
diff changeset
526 }
223b71206888 Initial import
thib
parents:
diff changeset
527 CmdSimplified cmd_item;
223b71206888 Initial import
thib
parents:
diff changeset
528 cmd.write(cmd_item, cmd_stack_str);
223b71206888 Initial import
thib
parents:
diff changeset
529 cmd_stack.push_back(cmd_item);
223b71206888 Initial import
thib
parents:
diff changeset
530 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
531 if (cmd_stack_str > cmd_stack_str_orig + 30000) { // char cmd_stack_str_orig[32768]
223b71206888 Initial import
thib
parents:
diff changeset
532 fprintf(stderr,"Error in Scn2k::SysExec: too long cmdstack (%d): stack string overflow\n",cmd_stack.size());
223b71206888 Initial import
thib
parents:
diff changeset
533 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
534 cmd_stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
535 }
223b71206888 Initial import
thib
parents:
diff changeset
536 }
223b71206888 Initial import
thib
parents:
diff changeset
537 if (cmd.cmd_type != CMD_OTHER) return;
223b71206888 Initial import
thib
parents:
diff changeset
538 if (cmd.cmd1 == 0 && cmd.cmd2 == 1) {
223b71206888 Initial import
thib
parents:
diff changeset
539 if (cmd.cmd3 == 0x0b) { // global jump
6
2c890434e30f Add call_no in global jumps
thib
parents: 0
diff changeset
540 int call_no = 0;
15
38226842bac8 Fixed new_pt in global calls
thib
parents: 12
diff changeset
541 if (cmd.args.size() >= 2) call_no = cmd.args[1].value;
0
223b71206888 Initial import
thib
parents:
diff changeset
542 eprintf("global jump to %d\n",cmd.args[0].value);
6
2c890434e30f Add call_no in global jumps
thib
parents: 0
diff changeset
543 if (! ChangeScript(cmd.args[0].value, call_no)) return; // 読み込めない; abort.
0
223b71206888 Initial import
thib
parents:
diff changeset
544 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
545 } else if (cmd.cmd3 == 0x0c || cmd.cmd3 == 0x12) { // call (0x12 の方は微妙)
223b71206888 Initial import
thib
parents:
diff changeset
546 int new_scn = cmd.args[0].value;
223b71206888 Initial import
thib
parents:
diff changeset
547 int new_pt = 0;
15
38226842bac8 Fixed new_pt in global calls
thib
parents: 12
diff changeset
548 if (cmd.args.size() >= 2) { // subroutine number が付く
0
223b71206888 Initial import
thib
parents:
diff changeset
549 // 引数が付くのもあるらしい
223b71206888 Initial import
thib
parents:
diff changeset
550 new_pt = cmd.args[1].value;
223b71206888 Initial import
thib
parents:
diff changeset
551 }
223b71206888 Initial import
thib
parents:
diff changeset
552 if (new_scn == SCN_INFO_MENU) { // menu call
223b71206888 Initial import
thib
parents:
diff changeset
553 config.GetParam("#CANCELCALL", 2, &new_scn, &new_pt);
223b71206888 Initial import
thib
parents:
diff changeset
554 stack.push_back(StackItem(SCN_INFO, SCN_INFO_MENU)); // menu call を示す特殊な記号
223b71206888 Initial import
thib
parents:
diff changeset
555 } else {
223b71206888 Initial import
thib
parents:
diff changeset
556 int i;
223b71206888 Initial import
thib
parents:
diff changeset
557 VarInfo var;
223b71206888 Initial import
thib
parents:
diff changeset
558 // ローカル変数を伴う subroutine call
223b71206888 Initial import
thib
parents:
diff changeset
559 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
560 var.number = 0;
223b71206888 Initial import
thib
parents:
diff changeset
561 int saved_vars = 0;
223b71206888 Initial import
thib
parents:
diff changeset
562 for (i=0; i<40; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
563 int val = flag.Get(var.type, i);
223b71206888 Initial import
thib
parents:
diff changeset
564 if (val != 0) {
223b71206888 Initial import
thib
parents:
diff changeset
565 stack.push_back(StackItem(SCN_INFO_LOCALS + i, val));
223b71206888 Initial import
thib
parents:
diff changeset
566 saved_vars++;
223b71206888 Initial import
thib
parents:
diff changeset
567 }
223b71206888 Initial import
thib
parents:
diff changeset
568 }
223b71206888 Initial import
thib
parents:
diff changeset
569 var.type = TYPE_VARLOCSTR;
223b71206888 Initial import
thib
parents:
diff changeset
570 for (i=0; i<3; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
571 string s = flag.Str(var.type, i);
223b71206888 Initial import
thib
parents:
diff changeset
572 if (s.size()) {
223b71206888 Initial import
thib
parents:
diff changeset
573 int sp = stack_strbuffer.size();
223b71206888 Initial import
thib
parents:
diff changeset
574 stack.push_back(StackItem(SCN_INFO_LOCALSTR+i, sp));
223b71206888 Initial import
thib
parents:
diff changeset
575 stack_strbuffer.push_back(s);
223b71206888 Initial import
thib
parents:
diff changeset
576 saved_vars++;
223b71206888 Initial import
thib
parents:
diff changeset
577 }
223b71206888 Initial import
thib
parents:
diff changeset
578 }
223b71206888 Initial import
thib
parents:
diff changeset
579 stack.push_back(StackItem(SCN_INFO, SCN_INFO_LOCALS + saved_vars));
223b71206888 Initial import
thib
parents:
diff changeset
580
223b71206888 Initial import
thib
parents:
diff changeset
581 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
582 var.number = 0;
223b71206888 Initial import
thib
parents:
diff changeset
583 // 特殊な subroutine call なので、余計な情報を引数に渡す
223b71206888 Initial import
thib
parents:
diff changeset
584 for (i=2; i<cmd.args.size(); i++) {
223b71206888 Initial import
thib
parents:
diff changeset
585 flag.Set(var, cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
586 // fprintf(stderr,"<%d:%d>=%d;",var.type,var.number,cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
587 var.number++;
223b71206888 Initial import
thib
parents:
diff changeset
588 }
223b71206888 Initial import
thib
parents:
diff changeset
589 // fprintf(stderr,"%d; ",stack.size());
223b71206888 Initial import
thib
parents:
diff changeset
590 }
223b71206888 Initial import
thib
parents:
diff changeset
591 int scn_pt = script - script_start;
223b71206888 Initial import
thib
parents:
diff changeset
592 stack.push_back(StackItem(scn_number, scn_pt));
223b71206888 Initial import
thib
parents:
diff changeset
593 // fprintf(stderr,"\nglobal call %d:%d from %d:%d\n",new_scn,new_pt,scn_number,scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
594 eprintf("global call to %d, %d\n",new_scn, new_pt);
223b71206888 Initial import
thib
parents:
diff changeset
595 if (! ChangeScript(new_scn, new_pt)) return; // 読み込めない; abort.
223b71206888 Initial import
thib
parents:
diff changeset
596 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
597 } else if (cmd.cmd3 == 0x65) { // 文字列の返り値をセットする
223b71206888 Initial import
thib
parents:
diff changeset
598 int arg1 = cmd.args[0].value;
223b71206888 Initial import
thib
parents:
diff changeset
599 string s = cmd.Str(cmd.args[1]);
223b71206888 Initial import
thib
parents:
diff changeset
600 int sp = stack_strbuffer.size();
223b71206888 Initial import
thib
parents:
diff changeset
601 stack.push_back(StackItem(SCN_INFO_RETSTR+arg1, sp));
223b71206888 Initial import
thib
parents:
diff changeset
602 stack_strbuffer.push_back(s);
223b71206888 Initial import
thib
parents:
diff changeset
603 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
604 } else if (cmd.cmd3 == 0x0d || cmd.cmd3 == 0x0a || cmd.cmd3 == 0x11 || cmd.cmd3 == 0x13) { // return (0a: local return) (0x13はよくわからない)
223b71206888 Initial import
thib
parents:
diff changeset
605 // fprintf(stderr,"global return : stack size %d\n",stack.size());
223b71206888 Initial import
thib
parents:
diff changeset
606 if (stack.empty()) {
223b71206888 Initial import
thib
parents:
diff changeset
607 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
608 return; // スタックがおかしい:abort
223b71206888 Initial import
thib
parents:
diff changeset
609 }
223b71206888 Initial import
thib
parents:
diff changeset
610 map<int, string> retstr;
223b71206888 Initial import
thib
parents:
diff changeset
611 while( (!stack.empty()) && stack.back().scn_number >= SCN_INFO_RETSTR) {
223b71206888 Initial import
thib
parents:
diff changeset
612 int ret_num = stack.back().scn_number - SCN_INFO_RETSTR;
223b71206888 Initial import
thib
parents:
diff changeset
613 // fprintf(stderr,"\nRetStr;");
223b71206888 Initial import
thib
parents:
diff changeset
614 string str = stack_strbuffer.back();
223b71206888 Initial import
thib
parents:
diff changeset
615 stack_strbuffer.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
616 retstr[ret_num] = str;
223b71206888 Initial import
thib
parents:
diff changeset
617 stack.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
618 }
223b71206888 Initial import
thib
parents:
diff changeset
619 if (stack.empty()) {
223b71206888 Initial import
thib
parents:
diff changeset
620 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
621 return; // スタックがおかしい:abort
223b71206888 Initial import
thib
parents:
diff changeset
622 }
223b71206888 Initial import
thib
parents:
diff changeset
623 StackItem s = stack.back();
223b71206888 Initial import
thib
parents:
diff changeset
624 stack.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
625 bool localvar_init = false;
223b71206888 Initial import
thib
parents:
diff changeset
626 while( (!stack.empty()) && stack.back().scn_number == SCN_INFO) {
223b71206888 Initial import
thib
parents:
diff changeset
627 int mode = stack.back().scn_pt;
223b71206888 Initial import
thib
parents:
diff changeset
628 stack.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
629 if (mode == SCN_INFO_MENU) {
223b71206888 Initial import
thib
parents:
diff changeset
630 // fprintf(stderr,"\nInfo Menu;");
223b71206888 Initial import
thib
parents:
diff changeset
631 // menu モード終了
223b71206888 Initial import
thib
parents:
diff changeset
632 SetSkipMode(SkipMode(skip_mode & (~SKIP_IN_MENU) ));
223b71206888 Initial import
thib
parents:
diff changeset
633 } else if (mode >= SCN_INFO_LOCALS && mode <= SCN_INFO_LOCALS+50) {
223b71206888 Initial import
thib
parents:
diff changeset
634 // fprintf(stderr,"\nInfo Local;");
223b71206888 Initial import
thib
parents:
diff changeset
635 int i;
223b71206888 Initial import
thib
parents:
diff changeset
636 // ローカル変数を元に戻す
223b71206888 Initial import
thib
parents:
diff changeset
637 VarInfo var;
223b71206888 Initial import
thib
parents:
diff changeset
638 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
639 var.number = 0;
223b71206888 Initial import
thib
parents:
diff changeset
640 for (i=0; i<40; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
641 var.number = i;
223b71206888 Initial import
thib
parents:
diff changeset
642 flag.Set(var, 0);
223b71206888 Initial import
thib
parents:
diff changeset
643 }
223b71206888 Initial import
thib
parents:
diff changeset
644 var.type = TYPE_VARLOCSTR;
223b71206888 Initial import
thib
parents:
diff changeset
645 for (i=0; i<3; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
646 var.number = i;
223b71206888 Initial import
thib
parents:
diff changeset
647 flag.SetStr(var, "");
223b71206888 Initial import
thib
parents:
diff changeset
648 }
223b71206888 Initial import
thib
parents:
diff changeset
649 int args = mode - SCN_INFO_LOCALS;
223b71206888 Initial import
thib
parents:
diff changeset
650 // fprintf(stderr," args = %d; ",args);
223b71206888 Initial import
thib
parents:
diff changeset
651 for (i=0; i<args; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
652 if (stack.empty() || stack.back().scn_number < SCN_INFO) {
223b71206888 Initial import
thib
parents:
diff changeset
653 fprintf(stderr,"Fatal : Invalid stack found in preserved local variables!\n");
223b71206888 Initial import
thib
parents:
diff changeset
654 break;
223b71206888 Initial import
thib
parents:
diff changeset
655 }
223b71206888 Initial import
thib
parents:
diff changeset
656 var.number = stack.back().scn_number;
223b71206888 Initial import
thib
parents:
diff changeset
657 // fprintf(stderr,"%d:%d; ",stack.back().scn_number,stack.back().scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
658 if (var.number >= SCN_INFO_LOCALS && var.number < SCN_INFO_LOCALSTR) {
223b71206888 Initial import
thib
parents:
diff changeset
659 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
660 var.number -= SCN_INFO_LOCALS;
223b71206888 Initial import
thib
parents:
diff changeset
661 flag.Set(var, stack.back().scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
662 } else if (var.number >= SCN_INFO_LOCALSTR && var.number < SCN_INFO_RETSTR) {
223b71206888 Initial import
thib
parents:
diff changeset
663 var.type = TYPE_VARLOCSTR;
223b71206888 Initial import
thib
parents:
diff changeset
664 var.number -= SCN_INFO_LOCALSTR;
223b71206888 Initial import
thib
parents:
diff changeset
665 flag.SetStr(var, stack_strbuffer.back());
223b71206888 Initial import
thib
parents:
diff changeset
666 stack_strbuffer.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
667 }
223b71206888 Initial import
thib
parents:
diff changeset
668 stack.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
669 }
223b71206888 Initial import
thib
parents:
diff changeset
670 }
223b71206888 Initial import
thib
parents:
diff changeset
671 // fprintf(stderr,"stack size %d string size %d\n",stack.size(),stack_strbuffer.size());
223b71206888 Initial import
thib
parents:
diff changeset
672 }
223b71206888 Initial import
thib
parents:
diff changeset
673 if (cmd.cmd3 == 0x11 || cmd.cmd3 == 0x13) {
223b71206888 Initial import
thib
parents:
diff changeset
674 // fprintf(stderr,"\nSet RetLocal;");
223b71206888 Initial import
thib
parents:
diff changeset
675 // 返り値をセットする
223b71206888 Initial import
thib
parents:
diff changeset
676 map<int,string>::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
677 VarInfo var;
223b71206888 Initial import
thib
parents:
diff changeset
678 var.type = TYPE_VARLOCSTR;
223b71206888 Initial import
thib
parents:
diff changeset
679 for (it=retstr.begin(); it!=retstr.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
680 var.number = it->first;
223b71206888 Initial import
thib
parents:
diff changeset
681 flag.SetStr(var, it->second);
223b71206888 Initial import
thib
parents:
diff changeset
682 }
223b71206888 Initial import
thib
parents:
diff changeset
683 var.type = 11;
223b71206888 Initial import
thib
parents:
diff changeset
684 // fprintf(stderr,"return : cmd.cmd3 == 0x11; size %d\n",cmd.args.size());
223b71206888 Initial import
thib
parents:
diff changeset
685 if (cmd.args.size() == 1) {
223b71206888 Initial import
thib
parents:
diff changeset
686 // fprintf(stderr,"return value %d\n",cmd.args[0].value);
223b71206888 Initial import
thib
parents:
diff changeset
687 flag.SetSys(cmd.args[0].value);
223b71206888 Initial import
thib
parents:
diff changeset
688 } else {
223b71206888 Initial import
thib
parents:
diff changeset
689 int i;for (i=0; i<cmd.args.size(); i++) {
223b71206888 Initial import
thib
parents:
diff changeset
690 var.number = i;
223b71206888 Initial import
thib
parents:
diff changeset
691 flag.Set(var, cmd.args[i].value);
223b71206888 Initial import
thib
parents:
diff changeset
692 }
223b71206888 Initial import
thib
parents:
diff changeset
693 }
223b71206888 Initial import
thib
parents:
diff changeset
694 }
223b71206888 Initial import
thib
parents:
diff changeset
695 // fprintf(stderr,"global return : return to %d:%d\n",s.scn_number,s.scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
696 // fprintf(stderr,"\nglobal return %d:%d from %d:%d\n",s.scn_number,s.scn_pt,scn_number, script - script_start);
223b71206888 Initial import
thib
parents:
diff changeset
697 if (s.scn_number != -1) {
223b71206888 Initial import
thib
parents:
diff changeset
698 if (! ChangeScript(s.scn_number, 0)) return; // 読み込めない; abort.
223b71206888 Initial import
thib
parents:
diff changeset
699 }
223b71206888 Initial import
thib
parents:
diff changeset
700 script = script_start + s.scn_pt;
223b71206888 Initial import
thib
parents:
diff changeset
701 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
702 }
223b71206888 Initial import
thib
parents:
diff changeset
703 } else if (cmd.cmd1 == 2 && cmd.cmd2 == 1 && cmd.cmd3 == 12) { // DLL Call
223b71206888 Initial import
thib
parents:
diff changeset
704 const char* regname = config.GetParaStr("#REGNAME");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
705 const char key_lb[] = "KEY\\LittleBusters";//FIXME: too specific to be here?
0
223b71206888 Initial import
thib
parents:
diff changeset
706 if (strcmp(regname, key_lb) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
707 DllCall_LB(cmd, flag);
223b71206888 Initial import
thib
parents:
diff changeset
708 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
709 }
223b71206888 Initial import
thib
parents:
diff changeset
710 } else if (cmd.cmd1 == 0 && cmd.cmd2 == 0x04) { // メニューモード
223b71206888 Initial import
thib
parents:
diff changeset
711 if (cmd.cmd3 == 300 || cmd.cmd3 == 301 || cmd.cmd3 == 302) {
223b71206888 Initial import
thib
parents:
diff changeset
712 // メニューからのreturn
223b71206888 Initial import
thib
parents:
diff changeset
713 cmd.cmd2 = 1;
223b71206888 Initial import
thib
parents:
diff changeset
714 cmd.cmd3 = 0x0d;
223b71206888 Initial import
thib
parents:
diff changeset
715 SysExec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
716 }
223b71206888 Initial import
thib
parents:
diff changeset
717 } else if (cmd.cmd1 == 1 && cmd.cmd2 == 0x04) {
223b71206888 Initial import
thib
parents:
diff changeset
718 if (cmd.cmd3 == 0 && cmd.cmd4 == 0) { // タイトル名設定
223b71206888 Initial import
thib
parents:
diff changeset
719 const char* name = cmd.Str(cmd.args[0]);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
720 if (name == NULL) name = "";
0
223b71206888 Initial import
thib
parents:
diff changeset
721 window_title = name;
223b71206888 Initial import
thib
parents:
diff changeset
722 const char* config_name = config.GetParaStr("#CAPTION");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
723 if (config_name == NULL) config_name = "";
0
223b71206888 Initial import
thib
parents:
diff changeset
724 string setname = kconv(string(config_name) + " " + window_title);
223b71206888 Initial import
thib
parents:
diff changeset
725 parent.Root().SetWindowCaption(setname.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
726 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
727 } else if (cmd.cmd3 == 0x82 && cmd.cmd4 == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
728 /* cmd.cmd3 == 0x82 : マウスの press 状態クリアかも */
223b71206888 Initial import
thib
parents:
diff changeset
729 event.presscount(MOUSE_LEFT);
223b71206888 Initial import
thib
parents:
diff changeset
730 event.presscount(MOUSE_RIGHT);
223b71206888 Initial import
thib
parents:
diff changeset
731 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
732 } else if (cmd.cmd3 == 0x85 && cmd.cmd4 == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
733 int x,y,left,right;
223b71206888 Initial import
thib
parents:
diff changeset
734 event.MousePos(x,y);
223b71206888 Initial import
thib
parents:
diff changeset
735 if (event.presscount(MOUSE_LEFT)) left = 2;
223b71206888 Initial import
thib
parents:
diff changeset
736 else if (event.pressed(MOUSE_LEFT)) left = 1;
223b71206888 Initial import
thib
parents:
diff changeset
737 else left = 0;
223b71206888 Initial import
thib
parents:
diff changeset
738
223b71206888 Initial import
thib
parents:
diff changeset
739 if (event.presscount(MOUSE_RIGHT)) right = 2;
223b71206888 Initial import
thib
parents:
diff changeset
740 else if (event.pressed(MOUSE_RIGHT)) right = 1;
223b71206888 Initial import
thib
parents:
diff changeset
741 else right = 0;
223b71206888 Initial import
thib
parents:
diff changeset
742
223b71206888 Initial import
thib
parents:
diff changeset
743 // eprintf("mouse pos\n");
223b71206888 Initial import
thib
parents:
diff changeset
744 flag.Set(cmd.args[0], x);
223b71206888 Initial import
thib
parents:
diff changeset
745 flag.Set(cmd.args[1], y);
223b71206888 Initial import
thib
parents:
diff changeset
746 flag.Set(cmd.args[2], left);
223b71206888 Initial import
thib
parents:
diff changeset
747 flag.Set(cmd.args[3], right);
223b71206888 Initial import
thib
parents:
diff changeset
748 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
749 } else if (cmd.cmd3 == 0x15e || cmd.cmd3 == 0x161 || cmd.cmd3 == 0x162 || cmd.cmd3 == 0x14c || cmd.cmd3 == 0x7d1) {
223b71206888 Initial import
thib
parents:
diff changeset
750 /* 15e, 161, 162, 14c, 7d1 : なんらかのシステム情報を返す(skip modeなど?) */
223b71206888 Initial import
thib
parents:
diff changeset
751 /* 7d1: == 1 || 14c: == 1 || (15e==1&&161==1&&162==0) || (press_val == 2) : スキップ中? タイトル画面のアニメーション終了 */
223b71206888 Initial import
thib
parents:
diff changeset
752 flag.SetSys(0);
223b71206888 Initial import
thib
parents:
diff changeset
753 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
754 } else if (cmd.cmd3 == 0x4b0) { // 終了
223b71206888 Initial import
thib
parents:
diff changeset
755 System::Main::Quit();
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
756 //script = NULL; script_start = NULL; script_end = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
757 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
758 cmd.cmd_type = CMD_WAITFRAMEUPDATE;
223b71206888 Initial import
thib
parents:
diff changeset
759 } else if (cmd.cmd3 == 0x4b4 || cmd.cmd3 == 0x4b5) { // 選択肢巻き戻し
223b71206888 Initial import
thib
parents:
diff changeset
760 LoadRollback(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
761 } else if (cmd.cmd3 == 0x58d) {
223b71206888 Initial import
thib
parents:
diff changeset
762 // 前にロード|セーブされた番号を返す。
16
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
763 int lastsave;
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
764 config.GetParam("#LASTSAVE", 1, &lastsave);
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
765 flag.SetSys(lastsave-1);
0
223b71206888 Initial import
thib
parents:
diff changeset
766 } else if (cmd.cmd3 == 0x585) {
223b71206888 Initial import
thib
parents:
diff changeset
767 // 第一引数の記録された日付、タイトルなどが返される
223b71206888 Initial import
thib
parents:
diff changeset
768 // データがないなら sys に 0が、あるなら 1 が返る
223b71206888 Initial import
thib
parents:
diff changeset
769 int y,m,d,wd,h,min,s,ms;
223b71206888 Initial import
thib
parents:
diff changeset
770 string title;
223b71206888 Initial import
thib
parents:
diff changeset
771 fprintf(stderr,"StatSave %d:",cmd.args[0].value+1);
223b71206888 Initial import
thib
parents:
diff changeset
772 if (StatSaveFile(cmd.args[0].value+1,y,m,d,wd,h,min,s,ms,title) == true) {
223b71206888 Initial import
thib
parents:
diff changeset
773 flag.Set(cmd.args[1], y);
223b71206888 Initial import
thib
parents:
diff changeset
774 flag.Set(cmd.args[2], m);
223b71206888 Initial import
thib
parents:
diff changeset
775 flag.Set(cmd.args[3], d);
223b71206888 Initial import
thib
parents:
diff changeset
776 flag.Set(cmd.args[4], wd);
223b71206888 Initial import
thib
parents:
diff changeset
777 flag.Set(cmd.args[5], h);
223b71206888 Initial import
thib
parents:
diff changeset
778 flag.Set(cmd.args[6], min);
223b71206888 Initial import
thib
parents:
diff changeset
779 flag.Set(cmd.args[7], s);
223b71206888 Initial import
thib
parents:
diff changeset
780 flag.Set(cmd.args[8], ms);
223b71206888 Initial import
thib
parents:
diff changeset
781 if (cmd.args[9].type == TYPE_VARSTR) {
12
2e6a92ed913b Fixes savegames names
thib
parents: 8
diff changeset
782 flag.SetStr(cmd.args[9], kconv_rev(title));
0
223b71206888 Initial import
thib
parents:
diff changeset
783 }
223b71206888 Initial import
thib
parents:
diff changeset
784 flag.SetSys(1);
223b71206888 Initial import
thib
parents:
diff changeset
785 } else {
223b71206888 Initial import
thib
parents:
diff changeset
786 flag.SetSys(0);
223b71206888 Initial import
thib
parents:
diff changeset
787 }
223b71206888 Initial import
thib
parents:
diff changeset
788 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
789 } else if (cmd.cmd3 == 0xc23) { // save
223b71206888 Initial import
thib
parents:
diff changeset
790 Save(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
791 } else if (cmd.cmd3 == 0xc25) { // load
223b71206888 Initial import
thib
parents:
diff changeset
792 Load(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
793 } else if (cmd.cmd3 == 0x4b1 || cmd.cmd3 == 0x4b3) { // menu へ戻る (4b3: バッドエンド)
223b71206888 Initial import
thib
parents:
diff changeset
794 int scn_start;
223b71206888 Initial import
thib
parents:
diff changeset
795 if (config.GetParam("#SEEN_MENU", 1, &scn_start) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
796 ChangeScript(scn_start, 0);
223b71206888 Initial import
thib
parents:
diff changeset
797 save_scn = 0;
223b71206888 Initial import
thib
parents:
diff changeset
798 save_point = 0;
223b71206888 Initial import
thib
parents:
diff changeset
799 window_title = "";
223b71206888 Initial import
thib
parents:
diff changeset
800 const char* window_title_config = config.GetParaStr("#CAPTION");
223b71206888 Initial import
thib
parents:
diff changeset
801 if (window_title_config) window_title = window_title_config;
223b71206888 Initial import
thib
parents:
diff changeset
802 parent.Root().SetWindowCaption(kconv(window_title).c_str());
223b71206888 Initial import
thib
parents:
diff changeset
803 stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
804 cmd_stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
805 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
806 flag.Load("");
223b71206888 Initial import
thib
parents:
diff changeset
807 text_exec.Load("");
223b71206888 Initial import
thib
parents:
diff changeset
808 grp_exec.Load("");
223b71206888 Initial import
thib
parents:
diff changeset
809 SetSkipMode(SKIP_NO);
223b71206888 Initial import
thib
parents:
diff changeset
810 }
223b71206888 Initial import
thib
parents:
diff changeset
811 } else if (cmd.cmd3 == 0xcc) {
223b71206888 Initial import
thib
parents:
diff changeset
812 eprintf("show mouse cursor\n");
223b71206888 Initial import
thib
parents:
diff changeset
813 ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
814 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
815 } else if (cmd.cmd3 == 0xcd) {
223b71206888 Initial import
thib
parents:
diff changeset
816 eprintf("hide mouse cursor\n");
223b71206888 Initial import
thib
parents:
diff changeset
817 HideCursor();
223b71206888 Initial import
thib
parents:
diff changeset
818 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
819 } else if (cmd.cmd3 == 0xcf) {
223b71206888 Initial import
thib
parents:
diff changeset
820 mouse_type = cmd.args[0].value;
223b71206888 Initial import
thib
parents:
diff changeset
821 eprintf("change mouse cursor : %d\n", mouse_type);
223b71206888 Initial import
thib
parents:
diff changeset
822 if (mouse_surface) ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
823 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
824 }
223b71206888 Initial import
thib
parents:
diff changeset
825 }
223b71206888 Initial import
thib
parents:
diff changeset
826
223b71206888 Initial import
thib
parents:
diff changeset
827 }
223b71206888 Initial import
thib
parents:
diff changeset
828
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
829 #include <sys/types.h>
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
830 #include <sys/stat.h>
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
831 #include <errno.h>
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
832 #include <unistd.h>
0
223b71206888 Initial import
thib
parents:
diff changeset
833
223b71206888 Initial import
thib
parents:
diff changeset
834 // セーブファイルの名前をつくる
223b71206888 Initial import
thib
parents:
diff changeset
835 string Scn2k::MakeSaveFile(void) const {
223b71206888 Initial import
thib
parents:
diff changeset
836 struct stat sstatus;
223b71206888 Initial import
thib
parents:
diff changeset
837 string dir = "~/.xkanon";
223b71206888 Initial import
thib
parents:
diff changeset
838
223b71206888 Initial import
thib
parents:
diff changeset
839 if (dir.c_str()[0] == '~' && dir.c_str()[1] == '/') {
223b71206888 Initial import
thib
parents:
diff changeset
840 char* home = getenv("HOME");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
841 if (home != NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
842 string new_dir = string(home) + (dir.c_str()+1);
223b71206888 Initial import
thib
parents:
diff changeset
843 dir = new_dir;
223b71206888 Initial import
thib
parents:
diff changeset
844 }
223b71206888 Initial import
thib
parents:
diff changeset
845 }
223b71206888 Initial import
thib
parents:
diff changeset
846 // savepathにファイル名が入っていれば、それをセーブファイルとして使う
223b71206888 Initial import
thib
parents:
diff changeset
847 if (stat(dir.c_str(), &sstatus) == -1) {
223b71206888 Initial import
thib
parents:
diff changeset
848 if (errno != ENOENT) {
223b71206888 Initial import
thib
parents:
diff changeset
849 fprintf(stderr,"Cannot open save file; dir %s is not directory\n",dir.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
850 return "";
223b71206888 Initial import
thib
parents:
diff changeset
851 }
223b71206888 Initial import
thib
parents:
diff changeset
852 if (mkdir(dir.c_str(), S_IRWXU) != 0 && errno != EEXIST) {
223b71206888 Initial import
thib
parents:
diff changeset
853 fprintf(stderr, "Cannot create directory %s ; Please create manually!!\n",dir.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
854 }
223b71206888 Initial import
thib
parents:
diff changeset
855 } else {
223b71206888 Initial import
thib
parents:
diff changeset
856 if ( (sstatus.st_mode & S_IFMT) == S_IFREG) {
223b71206888 Initial import
thib
parents:
diff changeset
857 return dir;
223b71206888 Initial import
thib
parents:
diff changeset
858 }
223b71206888 Initial import
thib
parents:
diff changeset
859 }
223b71206888 Initial import
thib
parents:
diff changeset
860 // ファイル名を作る
223b71206888 Initial import
thib
parents:
diff changeset
861 const char* regname = config.GetParaStr("#REGNAME");
223b71206888 Initial import
thib
parents:
diff changeset
862
223b71206888 Initial import
thib
parents:
diff changeset
863 char* fname = new char[strlen(regname)+1];
223b71206888 Initial import
thib
parents:
diff changeset
864 /* レジストリ名をファイル名として有効なものにする */
223b71206888 Initial import
thib
parents:
diff changeset
865 int i; for (i=0; regname[i]!=0; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
866 char c = regname[i];
223b71206888 Initial import
thib
parents:
diff changeset
867 if (c == '\\' || c == '/' || c == ':' || c <= 0x20) c = '_';
223b71206888 Initial import
thib
parents:
diff changeset
868 fname[i] = tolower(c);
223b71206888 Initial import
thib
parents:
diff changeset
869 }
223b71206888 Initial import
thib
parents:
diff changeset
870 fname[i] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
871 dir += "/save.";
223b71206888 Initial import
thib
parents:
diff changeset
872 dir += fname;
8
55b577e5f5b5 Some memory leaks fixed
thib
parents: 6
diff changeset
873 delete[] fname;
0
223b71206888 Initial import
thib
parents:
diff changeset
874 return dir;
223b71206888 Initial import
thib
parents:
diff changeset
875 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
876
0
223b71206888 Initial import
thib
parents:
diff changeset
877 // セーブファイルの名前をつくる
223b71206888 Initial import
thib
parents:
diff changeset
878 string Scn2kSaveTitle::operator() (int number) const {
223b71206888 Initial import
thib
parents:
diff changeset
879 int y,m,d,wd,h,min,sec,msec;
223b71206888 Initial import
thib
parents:
diff changeset
880 string title;
223b71206888 Initial import
thib
parents:
diff changeset
881 if (! impl.StatSaveFile(number, y,m,d,wd,h,min,sec,msec,title)) {
223b71206888 Initial import
thib
parents:
diff changeset
882 return "";
223b71206888 Initial import
thib
parents:
diff changeset
883 } else {
223b71206888 Initial import
thib
parents:
diff changeset
884 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
885 sprintf(buf, "%2d/%2d %2d:%2d ",m,d,h,min);
223b71206888 Initial import
thib
parents:
diff changeset
886 return string(buf) + title;
223b71206888 Initial import
thib
parents:
diff changeset
887 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
888 }
0
223b71206888 Initial import
thib
parents:
diff changeset
889
223b71206888 Initial import
thib
parents:
diff changeset
890 void Scn2k::SaveSys(void) {
223b71206888 Initial import
thib
parents:
diff changeset
891 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
892 string save;
223b71206888 Initial import
thib
parents:
diff changeset
893 string path = MakeSaveFile();
223b71206888 Initial import
thib
parents:
diff changeset
894
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
895 sprintf(buf, "KEY=%s\n", config.GetParaStr("#REGNAME"));
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
896 save += buf;
0
223b71206888 Initial import
thib
parents:
diff changeset
897 string save_config;
223b71206888 Initial import
thib
parents:
diff changeset
898 config.DiffOriginal(save_config);
223b71206888 Initial import
thib
parents:
diff changeset
899 save += "CONFIG=";
223b71206888 Initial import
thib
parents:
diff changeset
900 save += save_config;
223b71206888 Initial import
thib
parents:
diff changeset
901 save += "\n";
223b71206888 Initial import
thib
parents:
diff changeset
902 string save_flag; flag.SaveSys(save_flag);
223b71206888 Initial import
thib
parents:
diff changeset
903 save += save_flag;
223b71206888 Initial import
thib
parents:
diff changeset
904 string save_grp; grp_exec.SaveSys(save_grp);
223b71206888 Initial import
thib
parents:
diff changeset
905 save += save_grp;
223b71206888 Initial import
thib
parents:
diff changeset
906 map<int,set<int> >::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
907 save += "[TextRead]\n";
223b71206888 Initial import
thib
parents:
diff changeset
908 for (it=text_readflag.begin(); it != text_readflag.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
909 set<int>& read_flag = it->second;
223b71206888 Initial import
thib
parents:
diff changeset
910 set<int>::iterator jt;
223b71206888 Initial import
thib
parents:
diff changeset
911 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
912 sprintf(buf,"T<%05d>=",it->first);
223b71206888 Initial import
thib
parents:
diff changeset
913 string save_readflag = buf;
223b71206888 Initial import
thib
parents:
diff changeset
914 for (jt=read_flag.begin(); jt != read_flag.end(); jt++) {
223b71206888 Initial import
thib
parents:
diff changeset
915 sprintf(buf, "%d,", *jt);
223b71206888 Initial import
thib
parents:
diff changeset
916 save_readflag += buf;
223b71206888 Initial import
thib
parents:
diff changeset
917 }
223b71206888 Initial import
thib
parents:
diff changeset
918 save_readflag += "\n";
223b71206888 Initial import
thib
parents:
diff changeset
919 save += save_readflag;
223b71206888 Initial import
thib
parents:
diff changeset
920 }
223b71206888 Initial import
thib
parents:
diff changeset
921
223b71206888 Initial import
thib
parents:
diff changeset
922 path += ".0";
223b71206888 Initial import
thib
parents:
diff changeset
923 FILE* f = fopen(path.c_str(), "w");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
924 if (f == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
925 fprintf(stderr,"Cannot open save file %s\n",path.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
926 return;
223b71206888 Initial import
thib
parents:
diff changeset
927 }
223b71206888 Initial import
thib
parents:
diff changeset
928 fwrite(save.c_str(), save.length(), 1, f);
223b71206888 Initial import
thib
parents:
diff changeset
929 fclose(f);
223b71206888 Initial import
thib
parents:
diff changeset
930 return;
223b71206888 Initial import
thib
parents:
diff changeset
931 }
223b71206888 Initial import
thib
parents:
diff changeset
932
223b71206888 Initial import
thib
parents:
diff changeset
933 void Scn2k::LoadSys(void) {
223b71206888 Initial import
thib
parents:
diff changeset
934 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
935 string path = MakeSaveFile();
223b71206888 Initial import
thib
parents:
diff changeset
936 path += ".0";
223b71206888 Initial import
thib
parents:
diff changeset
937 FILE* f = fopen(path.c_str(), "r");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
938 if (f == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
939 fprintf(stderr, "Cannot open save file %s\n",path.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
940 } else {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
941 fseek(f, 0, SEEK_END);
0
223b71206888 Initial import
thib
parents:
diff changeset
942 int sz = ftell(f);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
943 fseek(f, 0, SEEK_SET);
0
223b71206888 Initial import
thib
parents:
diff changeset
944 char* savedata = new char[sz+1];
223b71206888 Initial import
thib
parents:
diff changeset
945 fread(savedata, sz, 1, f);
223b71206888 Initial import
thib
parents:
diff changeset
946 savedata[sz] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
947 fclose(f);
223b71206888 Initial import
thib
parents:
diff changeset
948
223b71206888 Initial import
thib
parents:
diff changeset
949 sprintf(buf, "KEY=%s\n", config.GetParaStr("#REGNAME"));
223b71206888 Initial import
thib
parents:
diff changeset
950 if (strncmp(savedata, buf, strlen(buf)) != 0) {
43
01aa5ddf7dc8 A lot of very minor improvements (deleted some unused variables, and other things like that...)
thib
parents: 19
diff changeset
951 fprintf(stderr,"Invalid header in save file %s: it must be started with \"%s\"\n", path.c_str(), buf);
0
223b71206888 Initial import
thib
parents:
diff changeset
952 } else {
223b71206888 Initial import
thib
parents:
diff changeset
953 char* config_str = strstr(savedata, "\nCONFIG=");
223b71206888 Initial import
thib
parents:
diff changeset
954 if (config_str) {
223b71206888 Initial import
thib
parents:
diff changeset
955 config_str += strlen("\nCONFIG=");
223b71206888 Initial import
thib
parents:
diff changeset
956 char* strend = strchr(config_str, '\n');
223b71206888 Initial import
thib
parents:
diff changeset
957 if (strend) {
223b71206888 Initial import
thib
parents:
diff changeset
958 int l = strend - config_str;
223b71206888 Initial import
thib
parents:
diff changeset
959 char* config_copy = new char[l+1];
223b71206888 Initial import
thib
parents:
diff changeset
960 strncpy(config_copy, config_str, l);
223b71206888 Initial import
thib
parents:
diff changeset
961 config_copy[l] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
962 config.PatchOriginal(config_copy);
223b71206888 Initial import
thib
parents:
diff changeset
963 delete[] config_copy;
223b71206888 Initial import
thib
parents:
diff changeset
964 }
223b71206888 Initial import
thib
parents:
diff changeset
965 }
223b71206888 Initial import
thib
parents:
diff changeset
966 flag.LoadSys(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
967 grp_exec.LoadSys(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
968 char* save = strstr(savedata, "\n[TextRead]\n");
223b71206888 Initial import
thib
parents:
diff changeset
969 if (save) {
223b71206888 Initial import
thib
parents:
diff changeset
970 save += strlen("\n[TextRead]\n");
223b71206888 Initial import
thib
parents:
diff changeset
971 do {
223b71206888 Initial import
thib
parents:
diff changeset
972 if (save[0] == '[') break; // next section
223b71206888 Initial import
thib
parents:
diff changeset
973 char* next_save = strchr(save, '\n');
223b71206888 Initial import
thib
parents:
diff changeset
974 if (next_save) {
223b71206888 Initial import
thib
parents:
diff changeset
975 *next_save++ = 0;
223b71206888 Initial import
thib
parents:
diff changeset
976 }
223b71206888 Initial import
thib
parents:
diff changeset
977 // T<XXXXX>=YYY,YYY,YYY,...
223b71206888 Initial import
thib
parents:
diff changeset
978 if (strncmp(save,"T<",2) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
979 int scn_num = atoi(save+2);
223b71206888 Initial import
thib
parents:
diff changeset
980 set<int>& read_flag = text_readflag[scn_num];
223b71206888 Initial import
thib
parents:
diff changeset
981 save += strlen("T<XXXXX>=");
223b71206888 Initial import
thib
parents:
diff changeset
982 while(save && *save) {
223b71206888 Initial import
thib
parents:
diff changeset
983 if (save[0] >= '0' && save[0] <= '9') {
223b71206888 Initial import
thib
parents:
diff changeset
984 int num = atoi(save);
223b71206888 Initial import
thib
parents:
diff changeset
985 read_flag.insert(num);
223b71206888 Initial import
thib
parents:
diff changeset
986 }
223b71206888 Initial import
thib
parents:
diff changeset
987 save = strchr(save, ',');
223b71206888 Initial import
thib
parents:
diff changeset
988 if (save) save++;
223b71206888 Initial import
thib
parents:
diff changeset
989 }
223b71206888 Initial import
thib
parents:
diff changeset
990 }
223b71206888 Initial import
thib
parents:
diff changeset
991 save = next_save;
223b71206888 Initial import
thib
parents:
diff changeset
992 } while(save);
223b71206888 Initial import
thib
parents:
diff changeset
993 }
223b71206888 Initial import
thib
parents:
diff changeset
994
223b71206888 Initial import
thib
parents:
diff changeset
995 }
223b71206888 Initial import
thib
parents:
diff changeset
996 delete[] savedata;
223b71206888 Initial import
thib
parents:
diff changeset
997 }
223b71206888 Initial import
thib
parents:
diff changeset
998
223b71206888 Initial import
thib
parents:
diff changeset
999 /* 初期化 */
223b71206888 Initial import
thib
parents:
diff changeset
1000 int scn_start; config.GetParam("#SEEN_START", 1, &scn_start);
223b71206888 Initial import
thib
parents:
diff changeset
1001 ChangeScript(scn_start, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1002 save_scn = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1003 save_point = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1004 window_title = "";
223b71206888 Initial import
thib
parents:
diff changeset
1005 const char* window_title_config = config.GetParaStr("#CAPTION");
223b71206888 Initial import
thib
parents:
diff changeset
1006 if (window_title_config) window_title = window_title_config;
223b71206888 Initial import
thib
parents:
diff changeset
1007 parent.Root().SetWindowCaption(kconv(window_title).c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1008 stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1009 cmd_stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1010 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
1011
223b71206888 Initial import
thib
parents:
diff changeset
1012 return;
223b71206888 Initial import
thib
parents:
diff changeset
1013 }
223b71206888 Initial import
thib
parents:
diff changeset
1014
223b71206888 Initial import
thib
parents:
diff changeset
1015 bool Scn2k::StatSaveFile(int num, int& year, int& month, int& day, int& wday, int& hour,int& min, int& sec, int& msec, string& title) const {
223b71206888 Initial import
thib
parents:
diff changeset
1016 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
1017 string path = MakeSaveFile();
19
94fe9153efa5 Enable the 99th save
thib
parents: 16
diff changeset
1018 if (num <= 0 || num > 100) return false;
0
223b71206888 Initial import
thib
parents:
diff changeset
1019 sprintf(buf,".%d",num);
223b71206888 Initial import
thib
parents:
diff changeset
1020 path += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1021
223b71206888 Initial import
thib
parents:
diff changeset
1022 struct stat sb;
223b71206888 Initial import
thib
parents:
diff changeset
1023 if (stat(path.c_str(), &sb) == -1) return false;
223b71206888 Initial import
thib
parents:
diff changeset
1024 struct tm* t = localtime(&sb.st_mtime);
16
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
1025 year = t->tm_year;
0
223b71206888 Initial import
thib
parents:
diff changeset
1026 month = t->tm_mon + 1;
223b71206888 Initial import
thib
parents:
diff changeset
1027 day = t->tm_mday;
223b71206888 Initial import
thib
parents:
diff changeset
1028 hour = t->tm_hour;
223b71206888 Initial import
thib
parents:
diff changeset
1029 min = t->tm_min;
16
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
1030 sec = t->tm_sec;
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
1031 msec = 0;
0
223b71206888 Initial import
thib
parents:
diff changeset
1032 /* タイトルの取得 */
223b71206888 Initial import
thib
parents:
diff changeset
1033 FILE* savefile = fopen(path.c_str(), "rb");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1034 if (savefile == NULL) return false;
0
223b71206888 Initial import
thib
parents:
diff changeset
1035 char regname[1024];
223b71206888 Initial import
thib
parents:
diff changeset
1036 sprintf(regname, "KEY=%s\n", config.GetParaStr("#REGNAME"));
223b71206888 Initial import
thib
parents:
diff changeset
1037 fgets(buf,1000,savefile);
223b71206888 Initial import
thib
parents:
diff changeset
1038 if (strncmp(regname, buf, strlen(regname)) != 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1039 fprintf(stderr,"invalid save file %s (registory name is not %s)\n",path.c_str(),regname);
223b71206888 Initial import
thib
parents:
diff changeset
1040 fclose(savefile);
223b71206888 Initial import
thib
parents:
diff changeset
1041 return false;
223b71206888 Initial import
thib
parents:
diff changeset
1042 }
223b71206888 Initial import
thib
parents:
diff changeset
1043 title="none";
223b71206888 Initial import
thib
parents:
diff changeset
1044 while(!feof(savefile)) {
223b71206888 Initial import
thib
parents:
diff changeset
1045 fgets(buf,1000,savefile);
223b71206888 Initial import
thib
parents:
diff changeset
1046 if (strncmp(buf,"Title=",6) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1047 if (buf[strlen(buf)-2] == 0x0a) buf[strlen(buf)-2] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1048 if (strlen(buf) > 20) buf[20] = 0, buf[21] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1049 title = kconv(buf+6);
223b71206888 Initial import
thib
parents:
diff changeset
1050 break;
223b71206888 Initial import
thib
parents:
diff changeset
1051 }
223b71206888 Initial import
thib
parents:
diff changeset
1052 }
223b71206888 Initial import
thib
parents:
diff changeset
1053 fclose(savefile);
223b71206888 Initial import
thib
parents:
diff changeset
1054 return true;
223b71206888 Initial import
thib
parents:
diff changeset
1055 }
223b71206888 Initial import
thib
parents:
diff changeset
1056
223b71206888 Initial import
thib
parents:
diff changeset
1057 void Scn2k::SaveRollback(void) {
223b71206888 Initial import
thib
parents:
diff changeset
1058 fprintf(stderr,"Save rollback\n");
223b71206888 Initial import
thib
parents:
diff changeset
1059 new_rollback_save = "";
223b71206888 Initial import
thib
parents:
diff changeset
1060 string save_sys; SaveImpl(save_sys);
223b71206888 Initial import
thib
parents:
diff changeset
1061 string save_flag; flag.Save(save_flag);
223b71206888 Initial import
thib
parents:
diff changeset
1062 string save_text; text_exec.Save(save_text, true);
223b71206888 Initial import
thib
parents:
diff changeset
1063 string save_grp; grp_exec.Save(save_grp);
223b71206888 Initial import
thib
parents:
diff changeset
1064 new_rollback_save += save_sys;
223b71206888 Initial import
thib
parents:
diff changeset
1065 new_rollback_save += save_flag;
223b71206888 Initial import
thib
parents:
diff changeset
1066 new_rollback_save += save_text;
223b71206888 Initial import
thib
parents:
diff changeset
1067 new_rollback_save += save_grp;
223b71206888 Initial import
thib
parents:
diff changeset
1068 }
223b71206888 Initial import
thib
parents:
diff changeset
1069
223b71206888 Initial import
thib
parents:
diff changeset
1070 void Scn2k::LoadRollback(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
1071 if (rollback_save.empty()) return;
223b71206888 Initial import
thib
parents:
diff changeset
1072 new_rollback_save = "";
223b71206888 Initial import
thib
parents:
diff changeset
1073 string savedata = rollback_save.back();
223b71206888 Initial import
thib
parents:
diff changeset
1074 rollback_save.pop_back();
223b71206888 Initial import
thib
parents:
diff changeset
1075 LoadImpl(savedata.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1076 flag.Load(savedata.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1077 text_exec.Load(savedata.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1078 grp_exec.Load(savedata.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1079
223b71206888 Initial import
thib
parents:
diff changeset
1080 /* 画面の回復など */
223b71206888 Initial import
thib
parents:
diff changeset
1081 SetSkipMode(SKIP_NO);
223b71206888 Initial import
thib
parents:
diff changeset
1082 vector<CmdSimplified>::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
1083 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1084 for (it = cmd_stack.begin(); it != cmd_stack.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
1085 cmd.read(*it);
223b71206888 Initial import
thib
parents:
diff changeset
1086 cmd.cmd_type = CMD_OTHER;
223b71206888 Initial import
thib
parents:
diff changeset
1087 flag.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1088 text_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1089 grp_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1090 }
223b71206888 Initial import
thib
parents:
diff changeset
1091 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1092 return;
223b71206888 Initial import
thib
parents:
diff changeset
1093 }
223b71206888 Initial import
thib
parents:
diff changeset
1094
223b71206888 Initial import
thib
parents:
diff changeset
1095 void Scn2k::Save(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
1096 if (cmd.cmd_type == CMD_SAVEREQ) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1097 if (menu == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1098 SetSkipMode(SKIP_IN_MENU); // テキストスキップ等はここで中断
223b71206888 Initial import
thib
parents:
diff changeset
1099 menu = new Scn2kMenu(Scn2kMenu::MENU_SAVE, *this, flag, text_exec, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
1100 menu->InitPanel(event, parent);
223b71206888 Initial import
thib
parents:
diff changeset
1101 menu->InitTitle(Scn2kSaveTitle(*this));
223b71206888 Initial import
thib
parents:
diff changeset
1102 if (mouse_surface) menu_mouseshown = true;
223b71206888 Initial import
thib
parents:
diff changeset
1103 else menu_mouseshown = false;
223b71206888 Initial import
thib
parents:
diff changeset
1104 ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
1105 return;
223b71206888 Initial import
thib
parents:
diff changeset
1106 }
223b71206888 Initial import
thib
parents:
diff changeset
1107 }
223b71206888 Initial import
thib
parents:
diff changeset
1108 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
1109 string save;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1110 FILE* f = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1111 if (save_scn == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1112 fprintf(stderr,"Cannot decide save point\n");
223b71206888 Initial import
thib
parents:
diff changeset
1113 return; // セーブ位置が保存されてない
223b71206888 Initial import
thib
parents:
diff changeset
1114 }
223b71206888 Initial import
thib
parents:
diff changeset
1115 string path = MakeSaveFile();
223b71206888 Initial import
thib
parents:
diff changeset
1116 int file_number = 1;
223b71206888 Initial import
thib
parents:
diff changeset
1117 if (cmd.args.size() == 1)
223b71206888 Initial import
thib
parents:
diff changeset
1118 file_number = cmd.args[0].value + 1;
223b71206888 Initial import
thib
parents:
diff changeset
1119 if (file_number <= 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1120 fprintf(stderr, "Cannot open save file %s\n",path.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1121 return;
223b71206888 Initial import
thib
parents:
diff changeset
1122 }
223b71206888 Initial import
thib
parents:
diff changeset
1123 sprintf(buf, ".%d",file_number);
223b71206888 Initial import
thib
parents:
diff changeset
1124 path += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1125
223b71206888 Initial import
thib
parents:
diff changeset
1126 /* セーブファイル確認 */
223b71206888 Initial import
thib
parents:
diff changeset
1127
223b71206888 Initial import
thib
parents:
diff changeset
1128 sprintf(buf, "KEY=%s\n", config.GetParaStr("#REGNAME")); save += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1129 string save_sys; SaveImpl(save_sys);
223b71206888 Initial import
thib
parents:
diff changeset
1130 string save_flag; flag.Save(save_flag);
223b71206888 Initial import
thib
parents:
diff changeset
1131 string save_text; text_exec.Save(save_text, false);
223b71206888 Initial import
thib
parents:
diff changeset
1132 string save_grp; grp_exec.Save(save_grp);
223b71206888 Initial import
thib
parents:
diff changeset
1133 save += save_sys;
223b71206888 Initial import
thib
parents:
diff changeset
1134 save += save_flag;
223b71206888 Initial import
thib
parents:
diff changeset
1135 save += save_text;
223b71206888 Initial import
thib
parents:
diff changeset
1136 save += save_grp;
223b71206888 Initial import
thib
parents:
diff changeset
1137 vector<string>::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
1138 for (it=rollback_save.begin(); it != rollback_save.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
1139 save += "[Rollback Data]\n";
223b71206888 Initial import
thib
parents:
diff changeset
1140 save += *it;
223b71206888 Initial import
thib
parents:
diff changeset
1141 save += "[Rollback End]\n";
223b71206888 Initial import
thib
parents:
diff changeset
1142 }
223b71206888 Initial import
thib
parents:
diff changeset
1143
223b71206888 Initial import
thib
parents:
diff changeset
1144 f = fopen(path.c_str(), "w");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1145 if (f == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1146 fprintf(stderr,"Cannot open save file %s\n",path.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1147 return;
223b71206888 Initial import
thib
parents:
diff changeset
1148 }
223b71206888 Initial import
thib
parents:
diff changeset
1149 fwrite(save.c_str(), save.length(), 1, f);
223b71206888 Initial import
thib
parents:
diff changeset
1150 fclose(f);
16
92765a5661f7 added "new" label on last savegame and corrected StatSaveFile
thib
parents: 15
diff changeset
1151 config.SetParam("#LASTSAVE", 1, file_number);
0
223b71206888 Initial import
thib
parents:
diff changeset
1152 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1153 }
223b71206888 Initial import
thib
parents:
diff changeset
1154
223b71206888 Initial import
thib
parents:
diff changeset
1155 void Scn2k::Load(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
1156 if (cmd.cmd_type == CMD_LOADREQ) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1157 if (menu == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1158 menu = new Scn2kMenu(Scn2kMenu::MENU_LOAD, *this, flag, text_exec, system_version);
223b71206888 Initial import
thib
parents:
diff changeset
1159 menu->InitPanel(event, parent);
223b71206888 Initial import
thib
parents:
diff changeset
1160 menu->InitTitle(Scn2kSaveTitle(*this));
223b71206888 Initial import
thib
parents:
diff changeset
1161 SetSkipMode(SKIP_IN_MENU); // テキストスキップ等はここで中断
223b71206888 Initial import
thib
parents:
diff changeset
1162 if (mouse_surface) menu_mouseshown = true;
223b71206888 Initial import
thib
parents:
diff changeset
1163 else menu_mouseshown = false;
223b71206888 Initial import
thib
parents:
diff changeset
1164 ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
1165 return;
223b71206888 Initial import
thib
parents:
diff changeset
1166 }
223b71206888 Initial import
thib
parents:
diff changeset
1167 }
223b71206888 Initial import
thib
parents:
diff changeset
1168 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
1169 string path = MakeSaveFile();
223b71206888 Initial import
thib
parents:
diff changeset
1170 int file_number = 1;
223b71206888 Initial import
thib
parents:
diff changeset
1171 if (cmd.args.size() == 1)
223b71206888 Initial import
thib
parents:
diff changeset
1172 file_number = cmd.args[0].value + 1;
223b71206888 Initial import
thib
parents:
diff changeset
1173 sprintf(buf, ".%d",file_number);
223b71206888 Initial import
thib
parents:
diff changeset
1174 path += buf;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1175 FILE* f = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1176 if (file_number > 0) f = fopen(path.c_str(), "r");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1177 if (f == NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1178 fprintf(stderr, "Cannot open save file %s\n",path.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1179 return;
223b71206888 Initial import
thib
parents:
diff changeset
1180 }
223b71206888 Initial import
thib
parents:
diff changeset
1181
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1182 fseek(f, 0, SEEK_END);
0
223b71206888 Initial import
thib
parents:
diff changeset
1183 int sz = ftell(f);
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1184 fseek(f, 0, SEEK_SET);
0
223b71206888 Initial import
thib
parents:
diff changeset
1185 char* savedata = new char[sz+1];
223b71206888 Initial import
thib
parents:
diff changeset
1186 fread(savedata, sz, 1, f);
223b71206888 Initial import
thib
parents:
diff changeset
1187 savedata[sz] = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1188 fclose(f);
223b71206888 Initial import
thib
parents:
diff changeset
1189
223b71206888 Initial import
thib
parents:
diff changeset
1190 sprintf(buf, "KEY=%s\n", config.GetParaStr("#REGNAME"));
223b71206888 Initial import
thib
parents:
diff changeset
1191 if (strncmp(savedata, buf, strlen(buf)) != 0) {
43
01aa5ddf7dc8 A lot of very minor improvements (deleted some unused variables, and other things like that...)
thib
parents: 19
diff changeset
1192 fprintf(stderr,"Invalid header in save file %s: it must be started with \"%s\"\n", path.c_str(), buf);
0
223b71206888 Initial import
thib
parents:
diff changeset
1193 delete[] savedata;
223b71206888 Initial import
thib
parents:
diff changeset
1194 return;
223b71206888 Initial import
thib
parents:
diff changeset
1195 }
223b71206888 Initial import
thib
parents:
diff changeset
1196 LoadImpl(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
1197 flag.Load(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
1198 text_exec.Load(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
1199 grp_exec.Load(savedata);
223b71206888 Initial import
thib
parents:
diff changeset
1200 rollback_save.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1201 new_rollback_save = "";
223b71206888 Initial import
thib
parents:
diff changeset
1202 char* rollback_data = savedata;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1203 while( (rollback_data = strstr(rollback_data,"[Rollback Data]\n")) != NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1204 rollback_data += strlen("[Rollback Data]\n");
223b71206888 Initial import
thib
parents:
diff changeset
1205 char* rollback_end = strstr(rollback_data, "[Rollback End]\n");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1206 if (rollback_end == NULL) rollback_end = rollback_data + strlen(rollback_data);
0
223b71206888 Initial import
thib
parents:
diff changeset
1207 string s(rollback_data, rollback_end);
223b71206888 Initial import
thib
parents:
diff changeset
1208 rollback_save.push_back(s);
223b71206888 Initial import
thib
parents:
diff changeset
1209 rollback_data = rollback_end;
223b71206888 Initial import
thib
parents:
diff changeset
1210 }
223b71206888 Initial import
thib
parents:
diff changeset
1211
223b71206888 Initial import
thib
parents:
diff changeset
1212 /* 画面の回復など */
223b71206888 Initial import
thib
parents:
diff changeset
1213 SetSkipMode(SKIP_NO);
223b71206888 Initial import
thib
parents:
diff changeset
1214 vector<CmdSimplified>::iterator it;
223b71206888 Initial import
thib
parents:
diff changeset
1215 for (it = cmd_stack.begin(); it != cmd_stack.end(); it++) {
223b71206888 Initial import
thib
parents:
diff changeset
1216 cmd.read(*it);
223b71206888 Initial import
thib
parents:
diff changeset
1217 cmd.cmd_type = CMD_OTHER;
223b71206888 Initial import
thib
parents:
diff changeset
1218 flag.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1219 text_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1220 grp_exec.Exec(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1221 }
223b71206888 Initial import
thib
parents:
diff changeset
1222 cmd.clear();
50
35ce1a30f3f9 * Added va_end where there is a va_start
thib
parents: 43
diff changeset
1223
35ce1a30f3f9 * Added va_end where there is a va_start
thib
parents: 43
diff changeset
1224 delete[] savedata;
0
223b71206888 Initial import
thib
parents:
diff changeset
1225 }
223b71206888 Initial import
thib
parents:
diff changeset
1226
223b71206888 Initial import
thib
parents:
diff changeset
1227 void Scn2k::SaveImpl(string& save) {
223b71206888 Initial import
thib
parents:
diff changeset
1228 char buf[1024];
223b71206888 Initial import
thib
parents:
diff changeset
1229
223b71206888 Initial import
thib
parents:
diff changeset
1230 /* save point */
223b71206888 Initial import
thib
parents:
diff changeset
1231 sprintf(buf, "\n[SCENARIO]\nScn=%d\nPoint=%d\n",save_scn, save_point); save += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1232 sprintf(buf, "Title=%s\nMouseType=%d\nMouseShown=1\n",window_title.c_str(), mouse_type); save += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1233 vector<StackItem>::iterator sit;
223b71206888 Initial import
thib
parents:
diff changeset
1234 for (sit=stack.begin(); sit!=stack.end(); sit++) {
223b71206888 Initial import
thib
parents:
diff changeset
1235 if (sit->scn_number == SCN_INFO && sit->scn_pt == SCN_INFO_MENU) break; // メニューに入る直前までのスタックを保存
223b71206888 Initial import
thib
parents:
diff changeset
1236 sprintf(buf, "Stack=%d,%d\n",sit->scn_number,sit->scn_pt);
223b71206888 Initial import
thib
parents:
diff changeset
1237 save += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1238 }
223b71206888 Initial import
thib
parents:
diff changeset
1239 vector<string>::reverse_iterator ssit;
223b71206888 Initial import
thib
parents:
diff changeset
1240 for (ssit=stack_strbuffer.rbegin(); ssit != stack_strbuffer.rend(); ssit++) {
223b71206888 Initial import
thib
parents:
diff changeset
1241 sprintf(buf, "StackStr=%s\n",ssit->c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1242 save += buf;
223b71206888 Initial import
thib
parents:
diff changeset
1243 }
223b71206888 Initial import
thib
parents:
diff changeset
1244 vector<CmdSimplified>::iterator cit;
223b71206888 Initial import
thib
parents:
diff changeset
1245 for (cit=cmd_stack.begin(); cit != cmd_stack.end(); cit++) {
223b71206888 Initial import
thib
parents:
diff changeset
1246 if (cit->type == CMD_SAVECMDGRP || cit->type == CMD_SAVECMDGRP_ONCE || cit->type == CMD_SAVECMDGRP_START) {
223b71206888 Initial import
thib
parents:
diff changeset
1247 save += "CmdG=";
223b71206888 Initial import
thib
parents:
diff changeset
1248 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1249 save += "Cmd=";
223b71206888 Initial import
thib
parents:
diff changeset
1250 }
223b71206888 Initial import
thib
parents:
diff changeset
1251 string s; cit->Save(s);
223b71206888 Initial import
thib
parents:
diff changeset
1252 save += s;
223b71206888 Initial import
thib
parents:
diff changeset
1253 save += "\n";
223b71206888 Initial import
thib
parents:
diff changeset
1254 }
223b71206888 Initial import
thib
parents:
diff changeset
1255 }
223b71206888 Initial import
thib
parents:
diff changeset
1256
223b71206888 Initial import
thib
parents:
diff changeset
1257 void Scn2k::LoadImpl(const char* save) {
223b71206888 Initial import
thib
parents:
diff changeset
1258 save_scn = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1259 save_point = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1260 window_title = "";
223b71206888 Initial import
thib
parents:
diff changeset
1261 stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1262 cmd_stack.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1263 cmd_stack_str = cmd_stack_str_orig;
223b71206888 Initial import
thib
parents:
diff changeset
1264
223b71206888 Initial import
thib
parents:
diff changeset
1265 save = strstr(save, "\n[SCENARIO]\n");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1266 if (save == NULL) return;
0
223b71206888 Initial import
thib
parents:
diff changeset
1267 save += strlen("\n[SCENARIO]\n");
223b71206888 Initial import
thib
parents:
diff changeset
1268 while(save[0] != 0 && save[0] != '[') { // while next section start
223b71206888 Initial import
thib
parents:
diff changeset
1269 if (strncmp(save, "Scn=", 4) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1270 sscanf(save, "Scn=%d", &save_scn);
223b71206888 Initial import
thib
parents:
diff changeset
1271 } else if (strncmp(save, "Point=", 6) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1272 sscanf(save, "Point=%d", &save_point);
223b71206888 Initial import
thib
parents:
diff changeset
1273 } else if (strncmp(save, "Title=", 6) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1274 save += 6;
223b71206888 Initial import
thib
parents:
diff changeset
1275 char* s = strchr(save, '\n');
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1276 if (s == NULL) window_title = save;
0
223b71206888 Initial import
thib
parents:
diff changeset
1277 else window_title.assign(save, s-save);
223b71206888 Initial import
thib
parents:
diff changeset
1278 const char* config_name = config.GetParaStr("#CAPTION");
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1279 if (config_name == NULL) config_name = "";
0
223b71206888 Initial import
thib
parents:
diff changeset
1280 string setname = kconv(string(config_name)+" "+window_title);
223b71206888 Initial import
thib
parents:
diff changeset
1281 parent.Root().SetWindowCaption(setname.c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1282 } else if (strncmp(save, "MouseType=", 10) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1283 sscanf(save, "MouseType=%d", &mouse_type);
223b71206888 Initial import
thib
parents:
diff changeset
1284 } else if (strncmp(save, "MouseShown=", 11) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1285 int v;
223b71206888 Initial import
thib
parents:
diff changeset
1286 sscanf(save, "MouseShown=%d", &v);
223b71206888 Initial import
thib
parents:
diff changeset
1287 if (v) ShowCursor();
223b71206888 Initial import
thib
parents:
diff changeset
1288 else HideCursor();
223b71206888 Initial import
thib
parents:
diff changeset
1289 } else if (strncmp(save, "Stack=", 6) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1290 int scn, pt;
223b71206888 Initial import
thib
parents:
diff changeset
1291 sscanf(save, "Stack=%d,%d", &scn, &pt);
223b71206888 Initial import
thib
parents:
diff changeset
1292 stack.push_back( StackItem(scn, pt));
223b71206888 Initial import
thib
parents:
diff changeset
1293 } else if (strncmp(save, "StackStr=", 9) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1294 save += 9;
223b71206888 Initial import
thib
parents:
diff changeset
1295 char* s = strchr(save, '\n');
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1296 if (s == NULL) stack_strbuffer.push_back("");
0
223b71206888 Initial import
thib
parents:
diff changeset
1297 else stack_strbuffer.push_back(string(save, s-save));
223b71206888 Initial import
thib
parents:
diff changeset
1298 } else if (strncmp(save, "Cmd=", 4) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1299 CmdSimplified cmd;
223b71206888 Initial import
thib
parents:
diff changeset
1300 cmd.Load(save+4, cmd_stack_str);
223b71206888 Initial import
thib
parents:
diff changeset
1301 cmd_stack.push_back(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1302 } else if (strncmp(save, "CmdG=", 5) == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1303 CmdSimplified cmd;
223b71206888 Initial import
thib
parents:
diff changeset
1304 cmd.Load(save+5, cmd_stack_str);
223b71206888 Initial import
thib
parents:
diff changeset
1305 cmd.type = CMD_SAVECMDGRP;
223b71206888 Initial import
thib
parents:
diff changeset
1306 cmd_stack.push_back(cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1307 }
223b71206888 Initial import
thib
parents:
diff changeset
1308 save = strchr(save, '\n');
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1309 if (save != NULL) save++;
0
223b71206888 Initial import
thib
parents:
diff changeset
1310 }
223b71206888 Initial import
thib
parents:
diff changeset
1311 ChangeScript(save_scn, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1312 script = script_start + save_point;
223b71206888 Initial import
thib
parents:
diff changeset
1313 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1314
0
223b71206888 Initial import
thib
parents:
diff changeset
1315 void Scn2k::SetSkipMode(SkipMode mode) {
223b71206888 Initial import
thib
parents:
diff changeset
1316 if (skip_mode != mode) {
223b71206888 Initial import
thib
parents:
diff changeset
1317 skip_mode = mode;
223b71206888 Initial import
thib
parents:
diff changeset
1318 text_exec.SetSkipMode(mode);
223b71206888 Initial import
thib
parents:
diff changeset
1319 grp_exec.SetSkipMode(mode);
223b71206888 Initial import
thib
parents:
diff changeset
1320 }
223b71206888 Initial import
thib
parents:
diff changeset
1321 }
223b71206888 Initial import
thib
parents:
diff changeset
1322
223b71206888 Initial import
thib
parents:
diff changeset
1323 /***********************************************************
223b71206888 Initial import
thib
parents:
diff changeset
1324 **
223b71206888 Initial import
thib
parents:
diff changeset
1325 ** DLL Call Implementation
223b71206888 Initial import
thib
parents:
diff changeset
1326 **
223b71206888 Initial import
thib
parents:
diff changeset
1327 **/
223b71206888 Initial import
thib
parents:
diff changeset
1328 static double* lb_ef_param = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1329 void DLLCall_LB_EF00_0(Cmd& cmd, Flags& flags) { // エフェクトの設定
223b71206888 Initial import
thib
parents:
diff changeset
1330 if (lb_ef_param == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1331 lb_ef_param = new double[sizeof(double) * 0x60 * 8];
223b71206888 Initial import
thib
parents:
diff changeset
1332 }
223b71206888 Initial import
thib
parents:
diff changeset
1333 int i,j;
223b71206888 Initial import
thib
parents:
diff changeset
1334 int param_top, param_size;
223b71206888 Initial import
thib
parents:
diff changeset
1335 if (cmd.args[2].value == 1) {
223b71206888 Initial import
thib
parents:
diff changeset
1336 param_top = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1337 param_size = 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1338 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1339 param_top = cmd.args[3].value;
223b71206888 Initial import
thib
parents:
diff changeset
1340 param_size = cmd.args[4].value;
223b71206888 Initial import
thib
parents:
diff changeset
1341 if (param_top < 0) param_top = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1342 if (param_top > 0x20) param_top = 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1343 if (param_size+param_top > 0x20) param_size = 0x20 - param_top;
223b71206888 Initial import
thib
parents:
diff changeset
1344 }
223b71206888 Initial import
thib
parents:
diff changeset
1345 for (i=0; i<8; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1346 double* param = lb_ef_param + i*0x60 + param_top*3;
223b71206888 Initial import
thib
parents:
diff changeset
1347 for (j=0; j<param_size; j++) {
223b71206888 Initial import
thib
parents:
diff changeset
1348 *param++ = random() % 800 - 400;
223b71206888 Initial import
thib
parents:
diff changeset
1349 *param++ = random() % 600 - 300;
223b71206888 Initial import
thib
parents:
diff changeset
1350 *param++ = random() % 700 - 350;
223b71206888 Initial import
thib
parents:
diff changeset
1351 }
223b71206888 Initial import
thib
parents:
diff changeset
1352 }
223b71206888 Initial import
thib
parents:
diff changeset
1353 if (cmd.args[5].value != 1) return;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1354
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1355 static int random_dirtable[] = {
0
223b71206888 Initial import
thib
parents:
diff changeset
1356 0, 2, 1, 3, 0, 2, 1, 3,
223b71206888 Initial import
thib
parents:
diff changeset
1357 1, 3, 2, 0, 1, 3, 2, 0,
223b71206888 Initial import
thib
parents:
diff changeset
1358 0, 0, 0, 0, 3, 1, 2, 0,
223b71206888 Initial import
thib
parents:
diff changeset
1359 3, 1, 3, 1, 0, 2, 3, 1
223b71206888 Initial import
thib
parents:
diff changeset
1360 };
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1361
0
223b71206888 Initial import
thib
parents:
diff changeset
1362 int* dir = &random_dirtable[(random()&3) * 8];
223b71206888 Initial import
thib
parents:
diff changeset
1363 for (i=0; i<8; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1364 double* param = lb_ef_param + i*0x60;
223b71206888 Initial import
thib
parents:
diff changeset
1365 double x = random()%600 - 300;
223b71206888 Initial import
thib
parents:
diff changeset
1366 double y = random()%480-240;
223b71206888 Initial import
thib
parents:
diff changeset
1367 if (x < 0) x -= 80;
223b71206888 Initial import
thib
parents:
diff changeset
1368 else x += 80;
223b71206888 Initial import
thib
parents:
diff changeset
1369 if (y < 0) y -= 80;
223b71206888 Initial import
thib
parents:
diff changeset
1370 else y += 80;
223b71206888 Initial import
thib
parents:
diff changeset
1371 switch(*dir++) {
223b71206888 Initial import
thib
parents:
diff changeset
1372 case 0:
223b71206888 Initial import
thib
parents:
diff changeset
1373 if (x < 0) x = -x;
223b71206888 Initial import
thib
parents:
diff changeset
1374 if (y < 0) y = -y;
223b71206888 Initial import
thib
parents:
diff changeset
1375 break;
223b71206888 Initial import
thib
parents:
diff changeset
1376 case 1:
223b71206888 Initial import
thib
parents:
diff changeset
1377 if (x > 0) x = -x;
223b71206888 Initial import
thib
parents:
diff changeset
1378 if (y < 0) y = -y;
223b71206888 Initial import
thib
parents:
diff changeset
1379 break;
223b71206888 Initial import
thib
parents:
diff changeset
1380 case 2:
223b71206888 Initial import
thib
parents:
diff changeset
1381 if (x < 0) x = -x;
223b71206888 Initial import
thib
parents:
diff changeset
1382 if (y > 0) y = -y;
223b71206888 Initial import
thib
parents:
diff changeset
1383 break;
223b71206888 Initial import
thib
parents:
diff changeset
1384 case 4:
223b71206888 Initial import
thib
parents:
diff changeset
1385 if (x > 0) x = -x;
223b71206888 Initial import
thib
parents:
diff changeset
1386 if (y > 0) y = -y;
223b71206888 Initial import
thib
parents:
diff changeset
1387 break;
223b71206888 Initial import
thib
parents:
diff changeset
1388 }
223b71206888 Initial import
thib
parents:
diff changeset
1389 param[9] = x*1.2;
223b71206888 Initial import
thib
parents:
diff changeset
1390 param[10] = y*1.2;
223b71206888 Initial import
thib
parents:
diff changeset
1391 param[11] *= 1.2;
223b71206888 Initial import
thib
parents:
diff changeset
1392 param[12] *= -0.08;
223b71206888 Initial import
thib
parents:
diff changeset
1393 param[13] *= -0.08;
223b71206888 Initial import
thib
parents:
diff changeset
1394 param[14] *= -0.08;
223b71206888 Initial import
thib
parents:
diff changeset
1395 param[15] = -param[9];
223b71206888 Initial import
thib
parents:
diff changeset
1396 param[16] = -param[10];
223b71206888 Initial import
thib
parents:
diff changeset
1397 param[17] = -param[11];
223b71206888 Initial import
thib
parents:
diff changeset
1398 }
223b71206888 Initial import
thib
parents:
diff changeset
1399 return;
223b71206888 Initial import
thib
parents:
diff changeset
1400 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1401
0
223b71206888 Initial import
thib
parents:
diff changeset
1402 void DLLCall_LB_EF00_1(Cmd& cmd, Flags& flags) { // 計算を行う
223b71206888 Initial import
thib
parents:
diff changeset
1403 if (lb_ef_param == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1404 fprintf(stderr,"Warning : DLLCall_LB_EF00_1 : Script error : effect calculation was called before setting\n");
223b71206888 Initial import
thib
parents:
diff changeset
1405 return;
223b71206888 Initial import
thib
parents:
diff changeset
1406 }
223b71206888 Initial import
thib
parents:
diff changeset
1407 int index = cmd.args[2].value;
223b71206888 Initial import
thib
parents:
diff changeset
1408 int v5_1154 = flags.Get(5, 1154+index);
223b71206888 Initial import
thib
parents:
diff changeset
1409 int j = ((v5_1154) & 0x1f) + index * 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1410 int k = ((v5_1154+1) & 0x1f) + index * 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1411 int l = ((v5_1154+2) & 0x1f) + index * 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1412 int m = ((v5_1154+3) & 0x1f) + index * 0x20;
223b71206888 Initial import
thib
parents:
diff changeset
1413 j *= 3;
223b71206888 Initial import
thib
parents:
diff changeset
1414 k *= 3;
223b71206888 Initial import
thib
parents:
diff changeset
1415 l *= 3;
223b71206888 Initial import
thib
parents:
diff changeset
1416 m *= 3;
223b71206888 Initial import
thib
parents:
diff changeset
1417
223b71206888 Initial import
thib
parents:
diff changeset
1418 // 0 < x < 1
223b71206888 Initial import
thib
parents:
diff changeset
1419 // va - vd は 0-1 の範囲で対称性を持つ3次関数
223b71206888 Initial import
thib
parents:
diff changeset
1420 double x = double(flags.Get(5, 1162 + index)) * 0.001;
223b71206888 Initial import
thib
parents:
diff changeset
1421 double va = (x * x * x)/6;
223b71206888 Initial import
thib
parents:
diff changeset
1422 double vb = (-x*x*x + 3*x*x - 3*x + 1) / 6;
223b71206888 Initial import
thib
parents:
diff changeset
1423 double vc = (3*x*x*x - 6*x*x + 4) / 6;
223b71206888 Initial import
thib
parents:
diff changeset
1424 double vd = (-3*x*x*x+3*x*x+3*x+1) / 6;
223b71206888 Initial import
thib
parents:
diff changeset
1425
223b71206888 Initial import
thib
parents:
diff changeset
1426 double r1 = va * lb_ef_param[m+3] + vd * lb_ef_param[l+3] + vc * lb_ef_param[k+3] + vb * lb_ef_param[j+3];
223b71206888 Initial import
thib
parents:
diff changeset
1427 double r2 = va * lb_ef_param[m+2] + vd * lb_ef_param[l+2] + vc * lb_ef_param[k+2] + vb * lb_ef_param[j+2];
223b71206888 Initial import
thib
parents:
diff changeset
1428 double r3 = va * lb_ef_param[m+1] + vd * lb_ef_param[l+1] + vc * lb_ef_param[k+1] + vb * lb_ef_param[j+1];
223b71206888 Initial import
thib
parents:
diff changeset
1429 if (r1 != 400) {
223b71206888 Initial import
thib
parents:
diff changeset
1430 r2 = r2 * 800 / (400-r1);
223b71206888 Initial import
thib
parents:
diff changeset
1431 r3 = r3 * 700 / (400-r1);
223b71206888 Initial import
thib
parents:
diff changeset
1432 }
223b71206888 Initial import
thib
parents:
diff changeset
1433 VarInfo var;
223b71206888 Initial import
thib
parents:
diff changeset
1434 var.type = 5;
223b71206888 Initial import
thib
parents:
diff changeset
1435 var.number = 1151;
223b71206888 Initial import
thib
parents:
diff changeset
1436 flags.Set(var, int(r2));
223b71206888 Initial import
thib
parents:
diff changeset
1437 var.number = 1152;
223b71206888 Initial import
thib
parents:
diff changeset
1438 flags.Set(var, int(r3));
223b71206888 Initial import
thib
parents:
diff changeset
1439 var.number = 1153;
223b71206888 Initial import
thib
parents:
diff changeset
1440 flags.Set(var, int(r1));
223b71206888 Initial import
thib
parents:
diff changeset
1441 return;
223b71206888 Initial import
thib
parents:
diff changeset
1442 }
223b71206888 Initial import
thib
parents:
diff changeset
1443
223b71206888 Initial import
thib
parents:
diff changeset
1444
223b71206888 Initial import
thib
parents:
diff changeset
1445 void DllCall_LB(Cmd& cmd, Flags& flags) { // リトルバスターズ!の EF00.dll をエミュレート
223b71206888 Initial import
thib
parents:
diff changeset
1446 if (cmd.args[0].value == 1) {
223b71206888 Initial import
thib
parents:
diff changeset
1447 // "EF00.dll"
223b71206888 Initial import
thib
parents:
diff changeset
1448 if (cmd.args[1].value == 0) { // エフェクトの設定
223b71206888 Initial import
thib
parents:
diff changeset
1449 DLLCall_LB_EF00_0(cmd, flags);
223b71206888 Initial import
thib
parents:
diff changeset
1450 } else if (cmd.args[1].value == 1) { // 計算を行う
223b71206888 Initial import
thib
parents:
diff changeset
1451 DLLCall_LB_EF00_1(cmd, flags);
223b71206888 Initial import
thib
parents:
diff changeset
1452 }
223b71206888 Initial import
thib
parents:
diff changeset
1453 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1454 fprintf(stderr,"Unsupported DLL call for DLL<%d>\n",cmd.args[0].value);
223b71206888 Initial import
thib
parents:
diff changeset
1455 }
223b71206888 Initial import
thib
parents:
diff changeset
1456 return;
223b71206888 Initial import
thib
parents:
diff changeset
1457 }
223b71206888 Initial import
thib
parents:
diff changeset
1458
223b71206888 Initial import
thib
parents:
diff changeset
1459 /**********************************************************
223b71206888 Initial import
thib
parents:
diff changeset
1460 **
223b71206888 Initial import
thib
parents:
diff changeset
1461 ** MenuImpl
223b71206888 Initial import
thib
parents:
diff changeset
1462 **
223b71206888 Initial import
thib
parents:
diff changeset
1463 */
223b71206888 Initial import
thib
parents:
diff changeset
1464
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1465 #include "window/widget.h"
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1466 #include "window/menuitem.h"
0
223b71206888 Initial import
thib
parents:
diff changeset
1467
223b71206888 Initial import
thib
parents:
diff changeset
1468 void DSurfaceFill(Surface* src, const Rect& rect, int r, int g, int b, int a = 0xff);
223b71206888 Initial import
thib
parents:
diff changeset
1469
223b71206888 Initial import
thib
parents:
diff changeset
1470 struct Scn2kMenuImpl {
223b71206888 Initial import
thib
parents:
diff changeset
1471 Scn2kMenu& interface;
223b71206888 Initial import
thib
parents:
diff changeset
1472 MenuItem* menu;
223b71206888 Initial import
thib
parents:
diff changeset
1473 Event::Container* pevent;
223b71206888 Initial import
thib
parents:
diff changeset
1474 PicContainer* pparent;
223b71206888 Initial import
thib
parents:
diff changeset
1475
223b71206888 Initial import
thib
parents:
diff changeset
1476 virtual void InitPanel(Event::Container& event, PicContainer& parent) = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1477 virtual void InitTitle(const SaveTitle&) = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1478 virtual void Cancel(void) = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1479 virtual void Exec(Cmd& cmd) = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1480 Scn2kMenuImpl(Scn2kMenu& _interface) : interface(_interface) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1481 menu = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1482 pevent = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1483 pparent = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1484 }
223b71206888 Initial import
thib
parents:
diff changeset
1485 virtual ~Scn2kMenuImpl() {
223b71206888 Initial import
thib
parents:
diff changeset
1486 if (menu) delete menu;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1487 menu = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1488 }
223b71206888 Initial import
thib
parents:
diff changeset
1489 };
223b71206888 Initial import
thib
parents:
diff changeset
1490
223b71206888 Initial import
thib
parents:
diff changeset
1491 struct LoadMenu : Scn2kMenuImpl {
223b71206888 Initial import
thib
parents:
diff changeset
1492 vector<string> title;
223b71206888 Initial import
thib
parents:
diff changeset
1493 vector<int> title_valid;
223b71206888 Initial import
thib
parents:
diff changeset
1494 RadioButton* btn_local;
223b71206888 Initial import
thib
parents:
diff changeset
1495 RadioButton* btn_page;
223b71206888 Initial import
thib
parents:
diff changeset
1496 RadioButton* btn_set;
223b71206888 Initial import
thib
parents:
diff changeset
1497 Scale* btn_scale;
223b71206888 Initial import
thib
parents:
diff changeset
1498 Dialog* awk_dialog;
223b71206888 Initial import
thib
parents:
diff changeset
1499 int btn_page_val, btn_set_val, btn_local_val, select_page, select_value;
223b71206888 Initial import
thib
parents:
diff changeset
1500 LoadMenu(Scn2kMenu& _interface);
223b71206888 Initial import
thib
parents:
diff changeset
1501 ~LoadMenu();
223b71206888 Initial import
thib
parents:
diff changeset
1502 void InitPanel(Event::Container& event, PicContainer& parent);
223b71206888 Initial import
thib
parents:
diff changeset
1503 void InitTitle(const SaveTitle&);
223b71206888 Initial import
thib
parents:
diff changeset
1504 void Cancel(void);
223b71206888 Initial import
thib
parents:
diff changeset
1505 void Exec(Cmd& cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1506 static void ChangeBtnPage(void* pointer, MenuItem* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1507 static void ChangeBtnLocal(void* pointer, MenuItem* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1508 static void ChangeBtnScale(void* pointer, Scale* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1509 static void ChangeBtnSet(void* pointer, MenuItem* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1510 static void ChangeDialog(void* pointer, Dialog* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1511 bool in_setpage;
223b71206888 Initial import
thib
parents:
diff changeset
1512 void SetPage(int new_page);
223b71206888 Initial import
thib
parents:
diff changeset
1513 void SetValue(int new_value);
223b71206888 Initial import
thib
parents:
diff changeset
1514 void PressOk(void);
223b71206888 Initial import
thib
parents:
diff changeset
1515 };
223b71206888 Initial import
thib
parents:
diff changeset
1516 LoadMenu::LoadMenu(Scn2kMenu& _interface) : Scn2kMenuImpl(_interface) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1517 btn_local = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1518 btn_scale = NULL;
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1519 btn_set = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1520 btn_page_val = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1521 btn_set_val = -1;
223b71206888 Initial import
thib
parents:
diff changeset
1522 btn_local_val = -1;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1523 awk_dialog = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1524 in_setpage = false;
223b71206888 Initial import
thib
parents:
diff changeset
1525 select_page = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1526 select_value = -1;
223b71206888 Initial import
thib
parents:
diff changeset
1527 }
223b71206888 Initial import
thib
parents:
diff changeset
1528 LoadMenu::~LoadMenu() {
223b71206888 Initial import
thib
parents:
diff changeset
1529 if (awk_dialog) delete awk_dialog;
223b71206888 Initial import
thib
parents:
diff changeset
1530 }
223b71206888 Initial import
thib
parents:
diff changeset
1531 void LoadMenu::InitPanel(Event::Container& event, PicContainer& parent) {
223b71206888 Initial import
thib
parents:
diff changeset
1532 pevent = &event;
223b71206888 Initial import
thib
parents:
diff changeset
1533 pparent = &parent;
223b71206888 Initial import
thib
parents:
diff changeset
1534
223b71206888 Initial import
thib
parents:
diff changeset
1535 if (menu) delete menu;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1536 menu = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1537 menu = new MenuItem(&parent, Rect(80,30,560, 450), 1, 3, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1538 Surface* surface = parent.Root().NewSurface(menu->Pic()->Width(), menu->Pic()->Height(), ALPHA_MASK);
223b71206888 Initial import
thib
parents:
diff changeset
1539 if (interface.type == Scn2kMenu::MENU_LOAD) {
223b71206888 Initial import
thib
parents:
diff changeset
1540 menu->SetLabelTop(new Label(menu->PicNode(), Rect(0,0), true, "Load", 26), Rect(0,0,10,0), Rect(0,0,0,20));
223b71206888 Initial import
thib
parents:
diff changeset
1541 DSurfaceFill(surface, Rect(*surface), 0, 0, 0x80, 0x80);
223b71206888 Initial import
thib
parents:
diff changeset
1542 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1543 menu->SetLabelTop(new Label(menu->PicNode(), Rect(0,0), true, "Save", 26), Rect(0,0,10,0), Rect(0,0,0,20));
223b71206888 Initial import
thib
parents:
diff changeset
1544 DSurfaceFill(surface, Rect(*surface), 0, 0x80, 0, 0x80);
223b71206888 Initial import
thib
parents:
diff changeset
1545 }
223b71206888 Initial import
thib
parents:
diff changeset
1546 menu->Pic()->SetSurface(surface, 0, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1547 menu->Pic()->SetSurfaceFreeFlag();
223b71206888 Initial import
thib
parents:
diff changeset
1548
223b71206888 Initial import
thib
parents:
diff changeset
1549 btn_page = new RadioButton(event, menu->PicNode(), Rect(0, 0, 480, 40), 10, 1, &btn_page_val,
223b71206888 Initial import
thib
parents:
diff changeset
1550 Rect(0,0,0,0), 18, Color(0,0,0),Color(0xff,0,0),Color(0xff,0x80,0));
223b71206888 Initial import
thib
parents:
diff changeset
1551 btn_page->set_func = &ChangeBtnPage;
223b71206888 Initial import
thib
parents:
diff changeset
1552 btn_page->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1553 btn_page->SetLabelLeft(new Label(btn_page->PicNode(), Rect(0,0), true, "Page", 18), Rect(0, 0, 180, 0), Rect(0,0));
223b71206888 Initial import
thib
parents:
diff changeset
1554 btn_page->Add(" 1 ");
223b71206888 Initial import
thib
parents:
diff changeset
1555 btn_page->Add(" 2 ");
223b71206888 Initial import
thib
parents:
diff changeset
1556 btn_page->Add(" 3 ");
223b71206888 Initial import
thib
parents:
diff changeset
1557 btn_page->Add(" 4 ");
223b71206888 Initial import
thib
parents:
diff changeset
1558 btn_page->Add(" 5 ");
223b71206888 Initial import
thib
parents:
diff changeset
1559 btn_page->Add(" 6 ");
223b71206888 Initial import
thib
parents:
diff changeset
1560 btn_page->Add(" 7 ");
223b71206888 Initial import
thib
parents:
diff changeset
1561 btn_page->Add(" 8 ");
223b71206888 Initial import
thib
parents:
diff changeset
1562 btn_page->Add(" 9 ");
223b71206888 Initial import
thib
parents:
diff changeset
1563 btn_page->Add(" 10 ");
223b71206888 Initial import
thib
parents:
diff changeset
1564 btn_page->pack();
223b71206888 Initial import
thib
parents:
diff changeset
1565 /*
223b71206888 Initial import
thib
parents:
diff changeset
1566 surface = parent.Root().NewSurface(btn_page->Pic()->Width(), btn_page->Pic()->Height(), ALPHA_MASK);
223b71206888 Initial import
thib
parents:
diff changeset
1567 DSurfaceFill(surface, Rect(*surface), 0xff, 0, 0, 0x80);
223b71206888 Initial import
thib
parents:
diff changeset
1568 btn_page->Pic()->SetSurface(surface, 0, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1569 btn_page->Pic()->SetSurfaceFreeFlag();
223b71206888 Initial import
thib
parents:
diff changeset
1570 */
223b71206888 Initial import
thib
parents:
diff changeset
1571 menu->item[0] = btn_page;
223b71206888 Initial import
thib
parents:
diff changeset
1572 btn_set = new RadioButton(event, menu->PicNode(), Rect(0, 0, 480, 40), 2, 1, &btn_set_val,
223b71206888 Initial import
thib
parents:
diff changeset
1573 Rect(0,0,0,0), 18, Color(0,0,0),Color(0xff,0,0),Color(0xff,0x80,0));
223b71206888 Initial import
thib
parents:
diff changeset
1574 btn_set->set_func = &ChangeBtnSet;
223b71206888 Initial import
thib
parents:
diff changeset
1575 btn_set->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1576 btn_set->SetLabelLeft(new Label(btn_set->PicNode(), Rect(0,0)), Rect(0,0,200,0), Rect(0,0));
223b71206888 Initial import
thib
parents:
diff changeset
1577 if (interface.type == Scn2kMenu::MENU_LOAD) {
223b71206888 Initial import
thib
parents:
diff changeset
1578 btn_set->Add(" Load ");
223b71206888 Initial import
thib
parents:
diff changeset
1579 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1580 btn_set->Add(" Save ");
223b71206888 Initial import
thib
parents:
diff changeset
1581 }
223b71206888 Initial import
thib
parents:
diff changeset
1582 btn_set->Add(" Cancel ");
223b71206888 Initial import
thib
parents:
diff changeset
1583 btn_set->pack();
223b71206888 Initial import
thib
parents:
diff changeset
1584 /*
223b71206888 Initial import
thib
parents:
diff changeset
1585 surface = parent.Root().NewSurface(btn_set->Pic()->Width(), btn_set->Pic()->Height(), ALPHA_MASK);
223b71206888 Initial import
thib
parents:
diff changeset
1586 DSurfaceFill(surface, Rect(*surface), 0, 0, 0xff, 0x80);
223b71206888 Initial import
thib
parents:
diff changeset
1587 btn_set->Pic()->SetSurface(surface, 0, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1588 btn_set->Pic()->SetSurfaceFreeFlag();
223b71206888 Initial import
thib
parents:
diff changeset
1589 */
223b71206888 Initial import
thib
parents:
diff changeset
1590 menu->item[2] = btn_set;
223b71206888 Initial import
thib
parents:
diff changeset
1591 // void btn_set_press(void* pointer, MenuItem* widget);
223b71206888 Initial import
thib
parents:
diff changeset
1592 // btn_set->set_func = btn_set_press;
223b71206888 Initial import
thib
parents:
diff changeset
1593 // btn_set->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1594 btn_local = new RadioButton(*pevent, menu->PicNode(), Rect(0, 0, 480, 300), 1, 100, &btn_local_val,
223b71206888 Initial import
thib
parents:
diff changeset
1595 Rect(0,0,300,30), 18, Color(0,0,0),Color(0xff,0,0),Color(0xff,0x80,0));
223b71206888 Initial import
thib
parents:
diff changeset
1596 btn_local->set_func = &ChangeBtnLocal;
223b71206888 Initial import
thib
parents:
diff changeset
1597 btn_local->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1598 /*
223b71206888 Initial import
thib
parents:
diff changeset
1599 surface = pparent->Root().NewSurface(btn_local->Pic()->Width(), btn_local->Pic()->Height(), ALPHA_MASK);
223b71206888 Initial import
thib
parents:
diff changeset
1600 DSurfaceFill(surface, Rect(*surface), 0, 0xff, 0, 0x80);
223b71206888 Initial import
thib
parents:
diff changeset
1601 btn_local->Pic()->SetSurface(surface, 0, 0);
223b71206888 Initial import
thib
parents:
diff changeset
1602 btn_local->Pic()->SetSurfaceFreeFlag();
223b71206888 Initial import
thib
parents:
diff changeset
1603 */
223b71206888 Initial import
thib
parents:
diff changeset
1604 menu->item[1] = btn_local;
223b71206888 Initial import
thib
parents:
diff changeset
1605 int i;
223b71206888 Initial import
thib
parents:
diff changeset
1606 for (i=0; i<12; i++)
223b71206888 Initial import
thib
parents:
diff changeset
1607 btn_local->Add("",false);
223b71206888 Initial import
thib
parents:
diff changeset
1608 btn_local->pack();
223b71206888 Initial import
thib
parents:
diff changeset
1609 btn_local->show_all();
223b71206888 Initial import
thib
parents:
diff changeset
1610 menu->pack();
223b71206888 Initial import
thib
parents:
diff changeset
1611
223b71206888 Initial import
thib
parents:
diff changeset
1612 PicBase* local_pic = btn_local->Pic();
223b71206888 Initial import
thib
parents:
diff changeset
1613 int local_x2 = local_pic->PosX() + local_pic->Width();
223b71206888 Initial import
thib
parents:
diff changeset
1614 int local_y2 = local_pic->PosY() + local_pic->Height();
223b71206888 Initial import
thib
parents:
diff changeset
1615 btn_scale = new Scale(*pevent, menu->PicNode(), Rect(local_x2-16, local_pic->PosY(), local_x2, local_y2), Color(0xff, 0x80, 0), true);
223b71206888 Initial import
thib
parents:
diff changeset
1616 btn_scale->SetRange(0, 900);
223b71206888 Initial import
thib
parents:
diff changeset
1617 btn_scale->InitCursor(1024/10);
223b71206888 Initial import
thib
parents:
diff changeset
1618 btn_scale->SetValue(0);
223b71206888 Initial import
thib
parents:
diff changeset
1619 btn_scale->change_func = &ChangeBtnScale;
223b71206888 Initial import
thib
parents:
diff changeset
1620 btn_scale->change_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1621
223b71206888 Initial import
thib
parents:
diff changeset
1622 menu->PicNode()->show_all();
223b71206888 Initial import
thib
parents:
diff changeset
1623 }
223b71206888 Initial import
thib
parents:
diff changeset
1624
223b71206888 Initial import
thib
parents:
diff changeset
1625 void LoadMenu::InitTitle(const SaveTitle& title_op) {
223b71206888 Initial import
thib
parents:
diff changeset
1626 title.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1627 int i;
223b71206888 Initial import
thib
parents:
diff changeset
1628 for (i=1; i<=100; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1629 char buf[100];
223b71206888 Initial import
thib
parents:
diff changeset
1630 sprintf(buf,"%2d:",i);
223b71206888 Initial import
thib
parents:
diff changeset
1631 string t = title_op(i);
223b71206888 Initial import
thib
parents:
diff changeset
1632 string s = string(buf) + t;
223b71206888 Initial import
thib
parents:
diff changeset
1633 if (t.length() == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1634 string s = string(buf) + "--------";
223b71206888 Initial import
thib
parents:
diff changeset
1635 title_valid.push_back(0);
223b71206888 Initial import
thib
parents:
diff changeset
1636 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1637 title_valid.push_back(1);
223b71206888 Initial import
thib
parents:
diff changeset
1638 }
223b71206888 Initial import
thib
parents:
diff changeset
1639 title.push_back(s);
223b71206888 Initial import
thib
parents:
diff changeset
1640 }
223b71206888 Initial import
thib
parents:
diff changeset
1641 if (btn_local==0) return;
223b71206888 Initial import
thib
parents:
diff changeset
1642 for (i=0; i<10; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1643 TextButton* button = dynamic_cast<TextButton*>(btn_local->item[i]);
223b71206888 Initial import
thib
parents:
diff changeset
1644 if (button) button->SetText(title[i].c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1645 }
223b71206888 Initial import
thib
parents:
diff changeset
1646 }
223b71206888 Initial import
thib
parents:
diff changeset
1647
223b71206888 Initial import
thib
parents:
diff changeset
1648 void LoadMenu::SetPage(int new_page) {
223b71206888 Initial import
thib
parents:
diff changeset
1649 if (new_page < 0) new_page = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1650 if (new_page > 900) new_page = 900;
223b71206888 Initial import
thib
parents:
diff changeset
1651 if (select_page == new_page) return;
223b71206888 Initial import
thib
parents:
diff changeset
1652 if (in_setpage) return;
223b71206888 Initial import
thib
parents:
diff changeset
1653 in_setpage = true;
223b71206888 Initial import
thib
parents:
diff changeset
1654
223b71206888 Initial import
thib
parents:
diff changeset
1655 int prev_page = select_page / 10;
223b71206888 Initial import
thib
parents:
diff changeset
1656 int cur_page = new_page / 10;
223b71206888 Initial import
thib
parents:
diff changeset
1657 int prev_point = select_page%10;
223b71206888 Initial import
thib
parents:
diff changeset
1658 int new_point = new_page%10;
223b71206888 Initial import
thib
parents:
diff changeset
1659 select_page = new_page;
223b71206888 Initial import
thib
parents:
diff changeset
1660 if (prev_page != cur_page) {
223b71206888 Initial import
thib
parents:
diff changeset
1661 int i;
223b71206888 Initial import
thib
parents:
diff changeset
1662 for (i=0; i<12; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1663 TextButton* button = dynamic_cast<TextButton*>(btn_local->item[i]);
223b71206888 Initial import
thib
parents:
diff changeset
1664 if (button) {
223b71206888 Initial import
thib
parents:
diff changeset
1665 if (cur_page+i < title.size()) button->SetText(title[cur_page+i].c_str());
223b71206888 Initial import
thib
parents:
diff changeset
1666 else button->SetText("----");
223b71206888 Initial import
thib
parents:
diff changeset
1667 }
223b71206888 Initial import
thib
parents:
diff changeset
1668 }
223b71206888 Initial import
thib
parents:
diff changeset
1669 // ボタンの内容を変更する
223b71206888 Initial import
thib
parents:
diff changeset
1670 if (select_value < cur_page || select_value > cur_page+12)
223b71206888 Initial import
thib
parents:
diff changeset
1671 btn_local->SetValue(-1);
223b71206888 Initial import
thib
parents:
diff changeset
1672 else
223b71206888 Initial import
thib
parents:
diff changeset
1673 btn_local->SetValue(select_value - cur_page);
223b71206888 Initial import
thib
parents:
diff changeset
1674 }
223b71206888 Initial import
thib
parents:
diff changeset
1675 if (prev_point != new_point) {
223b71206888 Initial import
thib
parents:
diff changeset
1676 int i;
223b71206888 Initial import
thib
parents:
diff changeset
1677 for (i=0; i<12; i++) {
223b71206888 Initial import
thib
parents:
diff changeset
1678 int old_x = btn_local->item[i]->Pic()->PosX();
223b71206888 Initial import
thib
parents:
diff changeset
1679 btn_local->item[i]->Pic()->Move(old_x, i*30-new_point*3);
223b71206888 Initial import
thib
parents:
diff changeset
1680 }
223b71206888 Initial import
thib
parents:
diff changeset
1681 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1682 if (btn_page != NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1683 if (select_page%100 == 0) btn_page->SetValue(select_page/100);
223b71206888 Initial import
thib
parents:
diff changeset
1684 else btn_page->SetValue(-1);
223b71206888 Initial import
thib
parents:
diff changeset
1685 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1686 if (btn_scale != NULL) {
0
223b71206888 Initial import
thib
parents:
diff changeset
1687 btn_scale->SetValue(select_page);
223b71206888 Initial import
thib
parents:
diff changeset
1688 }
223b71206888 Initial import
thib
parents:
diff changeset
1689 in_setpage = false;
223b71206888 Initial import
thib
parents:
diff changeset
1690 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1691
0
223b71206888 Initial import
thib
parents:
diff changeset
1692 void LoadMenu::SetValue(int new_value) {
223b71206888 Initial import
thib
parents:
diff changeset
1693 if (in_setpage) return;
223b71206888 Initial import
thib
parents:
diff changeset
1694 in_setpage = true;
223b71206888 Initial import
thib
parents:
diff changeset
1695
223b71206888 Initial import
thib
parents:
diff changeset
1696 if (new_value < 0 || new_value > title.size() ||
223b71206888 Initial import
thib
parents:
diff changeset
1697 (interface.type == Scn2kMenu::MENU_LOAD && title_valid[new_value] == 0) ) { // 無効な選択肢
223b71206888 Initial import
thib
parents:
diff changeset
1698 if (select_value < select_page/10 || select_value > select_page/10+12)
223b71206888 Initial import
thib
parents:
diff changeset
1699 btn_local->SetValue(-1);
223b71206888 Initial import
thib
parents:
diff changeset
1700 else
223b71206888 Initial import
thib
parents:
diff changeset
1701 btn_local->SetValue(select_value-select_page/10);
223b71206888 Initial import
thib
parents:
diff changeset
1702 } else { // 選択肢を変更する
223b71206888 Initial import
thib
parents:
diff changeset
1703 if (select_value == new_value) {
223b71206888 Initial import
thib
parents:
diff changeset
1704 PressOk(); // ダブルクリック
223b71206888 Initial import
thib
parents:
diff changeset
1705 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1706 select_value = new_value;
223b71206888 Initial import
thib
parents:
diff changeset
1707 if (interface.type == Scn2kMenu::MENU_SAVE && title_valid[select_value] == 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1708 PressOk(); // 新しいセーブデータなら無条件に選択
223b71206888 Initial import
thib
parents:
diff changeset
1709 }
223b71206888 Initial import
thib
parents:
diff changeset
1710 }
223b71206888 Initial import
thib
parents:
diff changeset
1711 }
223b71206888 Initial import
thib
parents:
diff changeset
1712
223b71206888 Initial import
thib
parents:
diff changeset
1713 in_setpage = false;
223b71206888 Initial import
thib
parents:
diff changeset
1714 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1715
0
223b71206888 Initial import
thib
parents:
diff changeset
1716 void LoadMenu::PressOk(void) {
223b71206888 Initial import
thib
parents:
diff changeset
1717 if (select_value == -1) {
223b71206888 Initial import
thib
parents:
diff changeset
1718 btn_set->SetValue(-1); // なにもしない
223b71206888 Initial import
thib
parents:
diff changeset
1719 return;
223b71206888 Initial import
thib
parents:
diff changeset
1720 }
223b71206888 Initial import
thib
parents:
diff changeset
1721 menu->deactivate();
223b71206888 Initial import
thib
parents:
diff changeset
1722 if (interface.type == Scn2kMenu::MENU_LOAD) {
223b71206888 Initial import
thib
parents:
diff changeset
1723 interface.cmd.cmd_type = CMD_LOAD;
223b71206888 Initial import
thib
parents:
diff changeset
1724 interface.cmd.args.push_back(VarInfo(select_value));
223b71206888 Initial import
thib
parents:
diff changeset
1725 awk_dialog = new Dialog(*pevent, pparent, "ファイルをロードしますか?", true);
223b71206888 Initial import
thib
parents:
diff changeset
1726 awk_dialog->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1727 awk_dialog->set_func = ChangeDialog;
223b71206888 Initial import
thib
parents:
diff changeset
1728 } else {// MENU_SAVE
223b71206888 Initial import
thib
parents:
diff changeset
1729 interface.cmd.cmd_type = CMD_SAVE;
223b71206888 Initial import
thib
parents:
diff changeset
1730 interface.cmd.args.push_back(VarInfo(select_value));
223b71206888 Initial import
thib
parents:
diff changeset
1731 if (title_valid[select_value] == 0) { // 新しいセーブデータ
223b71206888 Initial import
thib
parents:
diff changeset
1732 interface.status = Scn2kMenu::MenuStatus(Scn2kMenu::MENU_CMD | Scn2kMenu::MENU_DELETE);
223b71206888 Initial import
thib
parents:
diff changeset
1733 } else { // セーブデータを上書き:確認
223b71206888 Initial import
thib
parents:
diff changeset
1734 awk_dialog = new Dialog(*pevent, pparent, "データを上書きしますか?", true);
223b71206888 Initial import
thib
parents:
diff changeset
1735 awk_dialog->set_pointer = this;
223b71206888 Initial import
thib
parents:
diff changeset
1736 awk_dialog->set_func = ChangeDialog;
223b71206888 Initial import
thib
parents:
diff changeset
1737 }
223b71206888 Initial import
thib
parents:
diff changeset
1738 }
223b71206888 Initial import
thib
parents:
diff changeset
1739 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1740
0
223b71206888 Initial import
thib
parents:
diff changeset
1741 void LoadMenu::Cancel(void) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1742 if (awk_dialog != NULL) { // ダイアログのキャンセル
0
223b71206888 Initial import
thib
parents:
diff changeset
1743 awk_dialog->status = Dialog::CANCEL;
223b71206888 Initial import
thib
parents:
diff changeset
1744 ChangeDialog(this, awk_dialog);
223b71206888 Initial import
thib
parents:
diff changeset
1745 } else { // 一般キャンセル
223b71206888 Initial import
thib
parents:
diff changeset
1746 btn_set->SetValue(1);
223b71206888 Initial import
thib
parents:
diff changeset
1747 }
223b71206888 Initial import
thib
parents:
diff changeset
1748 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1749
0
223b71206888 Initial import
thib
parents:
diff changeset
1750 void LoadMenu::Exec(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
1751 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1752
0
223b71206888 Initial import
thib
parents:
diff changeset
1753 void LoadMenu::ChangeBtnPage(void* pointer, MenuItem* widget) {
223b71206888 Initial import
thib
parents:
diff changeset
1754 LoadMenu* instance = (LoadMenu*)pointer;
223b71206888 Initial import
thib
parents:
diff changeset
1755 if (instance->btn_page_val == -1) return;
223b71206888 Initial import
thib
parents:
diff changeset
1756 instance->SetPage(instance->btn_page_val*100);
223b71206888 Initial import
thib
parents:
diff changeset
1757 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1758
0
223b71206888 Initial import
thib
parents:
diff changeset
1759 void LoadMenu::ChangeBtnScale(void* pointer, Scale* from) {
223b71206888 Initial import
thib
parents:
diff changeset
1760 LoadMenu* instance = (LoadMenu*)pointer;
223b71206888 Initial import
thib
parents:
diff changeset
1761 int value = from->GetValue();
223b71206888 Initial import
thib
parents:
diff changeset
1762 instance->SetPage(value);
223b71206888 Initial import
thib
parents:
diff changeset
1763 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1764
0
223b71206888 Initial import
thib
parents:
diff changeset
1765 void LoadMenu::ChangeBtnSet(void* pointer, MenuItem* widget) {
223b71206888 Initial import
thib
parents:
diff changeset
1766 LoadMenu* instance = (LoadMenu*)pointer;
223b71206888 Initial import
thib
parents:
diff changeset
1767 if (instance->btn_set_val == 1) { // cancel
223b71206888 Initial import
thib
parents:
diff changeset
1768 instance->interface.status = Scn2kMenu::MENU_DELETE;
223b71206888 Initial import
thib
parents:
diff changeset
1769 return;
223b71206888 Initial import
thib
parents:
diff changeset
1770 } else if (instance->btn_set_val == 0) { // OK
223b71206888 Initial import
thib
parents:
diff changeset
1771 instance->PressOk();
223b71206888 Initial import
thib
parents:
diff changeset
1772 }
223b71206888 Initial import
thib
parents:
diff changeset
1773 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1774
0
223b71206888 Initial import
thib
parents:
diff changeset
1775 void LoadMenu::ChangeDialog(void* pointer, Dialog* widget) {
223b71206888 Initial import
thib
parents:
diff changeset
1776 LoadMenu* instance = (LoadMenu*)pointer;
223b71206888 Initial import
thib
parents:
diff changeset
1777 if (widget->status == Dialog::CANCEL) {
223b71206888 Initial import
thib
parents:
diff changeset
1778 // ダイアログ消去、OK ボタン復帰
223b71206888 Initial import
thib
parents:
diff changeset
1779 delete instance->awk_dialog;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1780 instance->awk_dialog = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1781 instance->menu->activate();
223b71206888 Initial import
thib
parents:
diff changeset
1782 instance->btn_set->SetValue(-1);
223b71206888 Initial import
thib
parents:
diff changeset
1783 return;
223b71206888 Initial import
thib
parents:
diff changeset
1784 } else if (widget->status == Dialog::OK) {
223b71206888 Initial import
thib
parents:
diff changeset
1785 instance->interface.status = Scn2kMenu::MenuStatus(Scn2kMenu::MENU_CMD | Scn2kMenu::MENU_DELETE);
223b71206888 Initial import
thib
parents:
diff changeset
1786 return;
223b71206888 Initial import
thib
parents:
diff changeset
1787 }
223b71206888 Initial import
thib
parents:
diff changeset
1788 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1789
0
223b71206888 Initial import
thib
parents:
diff changeset
1790 void LoadMenu::ChangeBtnLocal(void* pointer, MenuItem* widget) {
223b71206888 Initial import
thib
parents:
diff changeset
1791 LoadMenu* instance = (LoadMenu*)pointer;
223b71206888 Initial import
thib
parents:
diff changeset
1792 if (instance->btn_local_val == -1) return;
223b71206888 Initial import
thib
parents:
diff changeset
1793 instance->SetValue( (instance->select_page/10) + instance->btn_local_val);
223b71206888 Initial import
thib
parents:
diff changeset
1794 }
223b71206888 Initial import
thib
parents:
diff changeset
1795
223b71206888 Initial import
thib
parents:
diff changeset
1796 struct BacklogMenu : Scn2kMenuImpl {
223b71206888 Initial import
thib
parents:
diff changeset
1797 Scn2k& scn_impl;
223b71206888 Initial import
thib
parents:
diff changeset
1798 Text& text_exec;
223b71206888 Initial import
thib
parents:
diff changeset
1799 bool backlog_update;
223b71206888 Initial import
thib
parents:
diff changeset
1800 int backlog_cnt;
223b71206888 Initial import
thib
parents:
diff changeset
1801 BacklogMenu(Scn2kMenu& _interface, Scn2k& scn_impl, Text& text_exec);
223b71206888 Initial import
thib
parents:
diff changeset
1802 ~BacklogMenu();
223b71206888 Initial import
thib
parents:
diff changeset
1803 void InitPanel(Event::Container& event, PicContainer& parent);
223b71206888 Initial import
thib
parents:
diff changeset
1804 void InitTitle(const SaveTitle&);
223b71206888 Initial import
thib
parents:
diff changeset
1805 void Cancel(void);
223b71206888 Initial import
thib
parents:
diff changeset
1806 void Exec(Cmd& cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1807 };
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1808
0
223b71206888 Initial import
thib
parents:
diff changeset
1809 BacklogMenu::BacklogMenu(Scn2kMenu& _interface, Scn2k& _scn, Text& parent_text_exec) : Scn2kMenuImpl(_interface), scn_impl(_scn), text_exec(parent_text_exec) {
223b71206888 Initial import
thib
parents:
diff changeset
1810 backlog_cnt = -1;
223b71206888 Initial import
thib
parents:
diff changeset
1811 backlog_update = false;
223b71206888 Initial import
thib
parents:
diff changeset
1812 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1813
0
223b71206888 Initial import
thib
parents:
diff changeset
1814 BacklogMenu::~BacklogMenu() {
223b71206888 Initial import
thib
parents:
diff changeset
1815 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1816
0
223b71206888 Initial import
thib
parents:
diff changeset
1817 void BacklogMenu::InitPanel(Event::Container& event, PicContainer& parent) {
223b71206888 Initial import
thib
parents:
diff changeset
1818 pevent = &event;
223b71206888 Initial import
thib
parents:
diff changeset
1819 }
223b71206888 Initial import
thib
parents:
diff changeset
1820
223b71206888 Initial import
thib
parents:
diff changeset
1821 void BacklogMenu::InitTitle(const SaveTitle& title_op) {
223b71206888 Initial import
thib
parents:
diff changeset
1822 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1823
0
223b71206888 Initial import
thib
parents:
diff changeset
1824 void BacklogMenu::Cancel(void) {
223b71206888 Initial import
thib
parents:
diff changeset
1825 interface.status = Scn2kMenu::MenuStatus(Scn2kMenu::MENU_DELETE);
223b71206888 Initial import
thib
parents:
diff changeset
1826 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1827
0
223b71206888 Initial import
thib
parents:
diff changeset
1828 void BacklogMenu::Exec(Cmd& cmd) {
223b71206888 Initial import
thib
parents:
diff changeset
1829 int command_direction = 0; // forward
223b71206888 Initial import
thib
parents:
diff changeset
1830 if (cmd.cmd_type == CMD_NOP) text_exec.Wait(0xffffffffUL, cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1831 if (cmd.cmd_type == CMD_BACKLOGREQ || pevent->presscount(MOUSE_UP)) {
223b71206888 Initial import
thib
parents:
diff changeset
1832 if (cmd.cmd_type == CMD_BACKLOGREQ) cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1833 backlog_cnt++;
223b71206888 Initial import
thib
parents:
diff changeset
1834 backlog_update = false;
223b71206888 Initial import
thib
parents:
diff changeset
1835 command_direction = 1;
223b71206888 Initial import
thib
parents:
diff changeset
1836 }
223b71206888 Initial import
thib
parents:
diff changeset
1837 if (cmd.cmd_type == CMD_BACKLOGREQ_FWD || pevent->presscount(MOUSE_DOWN)) {
223b71206888 Initial import
thib
parents:
diff changeset
1838 if (cmd.cmd_type == CMD_BACKLOGREQ_FWD) cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1839 backlog_cnt--;
223b71206888 Initial import
thib
parents:
diff changeset
1840 backlog_update = false;
223b71206888 Initial import
thib
parents:
diff changeset
1841 if (backlog_cnt == -2 || (
223b71206888 Initial import
thib
parents:
diff changeset
1842 (backlog_cnt == -1 && text_exec.backlog_item.scn == -1 && text_exec.backlog_item.pos == -1)) ){
223b71206888 Initial import
thib
parents:
diff changeset
1843 Cancel();
223b71206888 Initial import
thib
parents:
diff changeset
1844 return;
223b71206888 Initial import
thib
parents:
diff changeset
1845 }
223b71206888 Initial import
thib
parents:
diff changeset
1846 command_direction = -1;
223b71206888 Initial import
thib
parents:
diff changeset
1847 }
223b71206888 Initial import
thib
parents:
diff changeset
1848 if (cmd.cmd_type != CMD_NOP) return;
223b71206888 Initial import
thib
parents:
diff changeset
1849 if (backlog_update) return;
223b71206888 Initial import
thib
parents:
diff changeset
1850 // backlog を最新の状態に更新
223b71206888 Initial import
thib
parents:
diff changeset
1851 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1852 BacklogItem item;
223b71206888 Initial import
thib
parents:
diff changeset
1853
223b71206888 Initial import
thib
parents:
diff changeset
1854 retry:
223b71206888 Initial import
thib
parents:
diff changeset
1855 if (backlog_cnt < -1) backlog_cnt = -1;
223b71206888 Initial import
thib
parents:
diff changeset
1856 if (backlog_cnt >= int(text_exec.backlog.size())) backlog_cnt = text_exec.backlog.size() - 1;
223b71206888 Initial import
thib
parents:
diff changeset
1857
223b71206888 Initial import
thib
parents:
diff changeset
1858 if (backlog_cnt == -1) {
223b71206888 Initial import
thib
parents:
diff changeset
1859 if (text_exec.backlog_item.scn == -1 && text_exec.backlog_item.pos == -1) {
223b71206888 Initial import
thib
parents:
diff changeset
1860 if (text_exec.backlog.size() == 0 || command_direction < 0) {
223b71206888 Initial import
thib
parents:
diff changeset
1861 Cancel();
223b71206888 Initial import
thib
parents:
diff changeset
1862 return;
223b71206888 Initial import
thib
parents:
diff changeset
1863 }
223b71206888 Initial import
thib
parents:
diff changeset
1864 item = text_exec.backlog.back();
223b71206888 Initial import
thib
parents:
diff changeset
1865 backlog_cnt = 0;
223b71206888 Initial import
thib
parents:
diff changeset
1866 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1867 // item = text_exec.backlog.back();
223b71206888 Initial import
thib
parents:
diff changeset
1868 item = text_exec.backlog_item;
223b71206888 Initial import
thib
parents:
diff changeset
1869 }
223b71206888 Initial import
thib
parents:
diff changeset
1870 } else {
223b71206888 Initial import
thib
parents:
diff changeset
1871 item = text_exec.backlog[text_exec.backlog.size()-1-backlog_cnt];
223b71206888 Initial import
thib
parents:
diff changeset
1872 }
223b71206888 Initial import
thib
parents:
diff changeset
1873 if (item.scn == BacklogItem::SaveSelect) { // select marker ; skip this item
223b71206888 Initial import
thib
parents:
diff changeset
1874 if (command_direction == 0) command_direction = 1;
223b71206888 Initial import
thib
parents:
diff changeset
1875 backlog_cnt += command_direction;
223b71206888 Initial import
thib
parents:
diff changeset
1876 goto retry;
223b71206888 Initial import
thib
parents:
diff changeset
1877 }
223b71206888 Initial import
thib
parents:
diff changeset
1878 if (item.scn == 0 && item.pos == -1) ; // not read cmd
223b71206888 Initial import
thib
parents:
diff changeset
1879 else {
223b71206888 Initial import
thib
parents:
diff changeset
1880 scn_impl.ReadCmdAt(cmd, item.scn, item.pos);
223b71206888 Initial import
thib
parents:
diff changeset
1881 }
223b71206888 Initial import
thib
parents:
diff changeset
1882 text_exec.DrawBacklog(item, cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1883 cmd.clear();
223b71206888 Initial import
thib
parents:
diff changeset
1884 backlog_update = true;
223b71206888 Initial import
thib
parents:
diff changeset
1885 }
223b71206888 Initial import
thib
parents:
diff changeset
1886
223b71206888 Initial import
thib
parents:
diff changeset
1887 /*******************************************************************************
223b71206888 Initial import
thib
parents:
diff changeset
1888 **
223b71206888 Initial import
thib
parents:
diff changeset
1889 **
223b71206888 Initial import
thib
parents:
diff changeset
1890 */
223b71206888 Initial import
thib
parents:
diff changeset
1891
223b71206888 Initial import
thib
parents:
diff changeset
1892 Scn2kMenu::Scn2kMenu(MenuType _type, Scn2k& scn_impl, const Flags& flags, Text& text_exec, int system_version) :
223b71206888 Initial import
thib
parents:
diff changeset
1893 cmd(flags, system_version), type(_type) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1894 pimpl = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1895 status = MENU_CONTINUE;
223b71206888 Initial import
thib
parents:
diff changeset
1896 switch(type) {
223b71206888 Initial import
thib
parents:
diff changeset
1897 case MENU_LOAD: pimpl = new LoadMenu(*this); break;
223b71206888 Initial import
thib
parents:
diff changeset
1898 case MENU_SAVE: pimpl = new LoadMenu(*this); break;
223b71206888 Initial import
thib
parents:
diff changeset
1899 case MENU_BACKLOG: pimpl = new BacklogMenu(*this, scn_impl, text_exec); break;
223b71206888 Initial import
thib
parents:
diff changeset
1900 }
223b71206888 Initial import
thib
parents:
diff changeset
1901 return;
223b71206888 Initial import
thib
parents:
diff changeset
1902 }
223b71206888 Initial import
thib
parents:
diff changeset
1903 Scn2kMenu::~Scn2kMenu() {
223b71206888 Initial import
thib
parents:
diff changeset
1904 if (pimpl) delete pimpl;
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1905 pimpl = NULL;
0
223b71206888 Initial import
thib
parents:
diff changeset
1906 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1907
0
223b71206888 Initial import
thib
parents:
diff changeset
1908 void Scn2kMenu::InitPanel(Event::Container& event, PicContainer& parent) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1909 if (pimpl != NULL) pimpl->InitPanel(event, parent);
0
223b71206888 Initial import
thib
parents:
diff changeset
1910 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1911
0
223b71206888 Initial import
thib
parents:
diff changeset
1912 void Scn2kMenu::InitTitle(const SaveTitle& t) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1913 if (pimpl != NULL) pimpl->InitTitle(t);
0
223b71206888 Initial import
thib
parents:
diff changeset
1914 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1915
0
223b71206888 Initial import
thib
parents:
diff changeset
1916 void Scn2kMenu::Cancel(void) {
223b71206888 Initial import
thib
parents:
diff changeset
1917 if (pimpl) pimpl->Cancel();
223b71206888 Initial import
thib
parents:
diff changeset
1918 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1919
0
223b71206888 Initial import
thib
parents:
diff changeset
1920 void Scn2kMenu::Exec(Cmd& ret_cmd) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1921 if (pimpl == NULL) return;
0
223b71206888 Initial import
thib
parents:
diff changeset
1922 pimpl->Exec(ret_cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1923 if (pimpl->pevent->presscount(MOUSE_RIGHT)) {
223b71206888 Initial import
thib
parents:
diff changeset
1924 Cancel();
223b71206888 Initial import
thib
parents:
diff changeset
1925 }
223b71206888 Initial import
thib
parents:
diff changeset
1926 if (status & MENU_CMD && cmd.cmd_type != CMD_NOP) {
223b71206888 Initial import
thib
parents:
diff changeset
1927 status = Scn2kMenu::MenuStatus(status & (~Scn2kMenu::MENU_CMD) );
223b71206888 Initial import
thib
parents:
diff changeset
1928 CmdSimplified tmp_cmd;
223b71206888 Initial import
thib
parents:
diff changeset
1929 char cmd_str[32768];
223b71206888 Initial import
thib
parents:
diff changeset
1930 char* tmp_cmd_str = cmd_str;
223b71206888 Initial import
thib
parents:
diff changeset
1931 cmd.write(tmp_cmd, tmp_cmd_str);
223b71206888 Initial import
thib
parents:
diff changeset
1932 ret_cmd.read(tmp_cmd);
223b71206888 Initial import
thib
parents:
diff changeset
1933 }
223b71206888 Initial import
thib
parents:
diff changeset
1934 }
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1935
0
223b71206888 Initial import
thib
parents:
diff changeset
1936 void Scn2kMenu::activate(void) {
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1937 if (pimpl != NULL && pimpl->menu) pimpl->menu->activate();
0
223b71206888 Initial import
thib
parents:
diff changeset
1938 }
223b71206888 Initial import
thib
parents:
diff changeset
1939
52
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1940 void Scn2kMenu::deactivate(void) {
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1941 if (pimpl != NULL && pimpl->menu) pimpl->menu->deactivate();
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1942 }
15a18fbe6f21 * Known bugs added to the README
thib
parents: 50
diff changeset
1943