ごめんなさいおにたまさんオブジェクトとして活用できなくて

制作していくに連れ、layerobjをオブジェクトとして見ることができなくなっていき、今ではスクリプト中の処理を任されるフラグ回収機となってしまった。
YUZRANIUM
2022/10/25 19:29
タグ：
hsp
hsp3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
//ゲーム内時間とステータス
*lay
    layl = lparam
    switch layl
        //レイヤー設置直後の処理
        case objlayer_cmdinit
            swbreak
        
        //int値を渡された
        case objlayer_cmdprmi
            layint = iparam
            switch layint
                //メインループ>>ROM & SSD unit convert
                case 0
                    gosub *hlay_u
                    swbreak
                //メインループ>>ゲーム内時間
                case 1
                    gosub *hlay_gt
                    swbreak
                //loadの処理
                case 2
                    gosub *hlay_saveload
                    swbreak
            swend
            swbreak
        
        //文字列を渡された
        case objlayer_cmdprms
            //layerobjに渡す文字列
            laystr = refstr   :   split laystr, ",", laystr
            
            /*** Mainウィンドウログ表示内容 ***/
            if laystr(0) == "log" {
                notesel logmoni   :   noteadd "\n", 1, 0
                time = "" + gettime(1) + "/" + gettime(3) + " " + gettime(4) + ":" + gettime(5) + ":" + gettime(6)
                
                /*オートセーブ事後報告*/
                if laystr(1) == "asc" {
                    noteadd time + " : AutoSave Successed! " + fname(saveID), 1, 0
                }
                /*ゲーム速度設定変更報告*/
                if laystr(1) == "auto_chk" {
                    noteadd time + "\n" + logstr, 1, 0
                }
                /*ロードの事後報告*/
                if laystr(1) == "load" {
                    noteadd time + " : Load Successed! " + fname(saveID), 1, 0
                }
                /*セーブの事後報告*/
                if laystr(1) == "save" {
                    noteadd time + " : Save Successed! " + fname(saveID), 1, 0
                }
                /*日付変更線*/
                if laystr(1) == "dd" {
                    noteadd "------------------------------------------------------------------------------------", 1, 0
                    noteadd time + " : Game times " + gt(2, 0) + "/" + gt(3, 0) + " になりました.", 1, 0
                }
                /*あけおめ*/
                if laystr(1) == "yy" {
                    noteadd time + " : Happy New Year!!", 1, 0
                }
                noteunsel
                gsel ID_TAB_LOG   :   objprm id_logmoni, logmoni   :   gsel ID_WIN_MAIN
            }
            
            /*****  各ウィンドウからMainウィンドウに戻る際のメインループ自走設定  *****/
            if laystr(0) == "re" {
                switch laystr(1)
                    case "amaz"
                        if setting(8, 0) == 1 {
                            sdim remain_code
                            gsel ID_WIN_AMAZ, -1 : gsel ID_WIN_MAIN, 1 : setting(5, 0) = 1
                        }
                        sdim remain_code
                        gsel ID_WIN_AMAZ, -1 : gsel ID_WIN_MAIN, 1
                        swbreak
                    case "save"
                        if setting(9, 0) == 1 {
                            sdim remain_code
                            gsel ID_WIN_SAVE, -1 : gsel ID_WIN_MAIN, 1 : setting(5, 0) = 1
                        }
                        sdim remain_code
                        gsel ID_WIN_SAVE, -1 : gsel ID_WIN_MAIN, 1
                        swbreak
                    case "set"
                        if setting(10, 0) == 1 {
                            sdim remain_code
                            gsel ID_WIN_SETI, -1 : gsel ID_WIN_MAIN, 1 : setting(5, 0) = 1
                        }
                        sdim remain_code
                        gsel ID_WIN_SETI, -1 : gsel ID_WIN_MAIN, 1
                        swbreak
                swend
            }
            swbreak
        //redraw命令が実行されたとき(利用しない)
        case objlayer_cmddraw
            swbreak
    swend
    return
//ゲーム内時間繰り上がり
*hlay_gt
    sdim hmoni, 64 : sdim mesmoni, 128
    //時間
    if int(gt(5, 0)) == 59 {
        gt(5, 0) = "00"
        gt(4, 0) = strf("%02d", int(gt(4, 0)) + 1)
    }
    //日数
    if int(gt(4, 0)) == 24 {
        gt(4, 0) = "00"
        gt(3, 0) = strf("%2d", int(gt(3, 0)) + 1)
        setting(6, 0) = 1
    }
    //月
    if int(gt(3, 0)) > 31 {
        gt(3, 0) = " 1"
        gt(2, 0) = strf("%2d", int(gt(2, 0)) + 1)
    }
    //四半期
    switch int(gt(2, 0))
        case 4
        case 5
        case 6
            gt(1, 0) = "1st"
            swbreak
        case 7
        case 8
        case 9
            gt(1, 0) = "2nd"
            swbreak
        case 10
        case 11
        case 12
            gt(1, 0) = "3rd"
            swbreak
        case 1
        case 2
        case 3
            gt(1, 0) = "4th"
            swbreak
    swend
    //年
    if int(gt(2, 0)) > 12 {
        gt(2, 0) = " 1"
        gt(0, 0) = strf("%3d", int(gt(0, 0)) + 1)
        setting(7, 0) = 1
    }
    /*****  時間代入処理  *****/
    //ゲーム速度が早いときは分を表示させない
    if setting(3, 0) == 1 { nn = 5 : gt(4, 1) = ""}   :   else : nn = 6
    //代入
    repeat nn
        hmoni += "" + gt(cnt, 0) + gt(cnt, 1)
    loop
    sendmsg hStatic_h, $C, , hmoni //表示文字列更新 (WM_SETTEXT)
    /*****  ゲーム内ログ表示フラグ  *****/
    //日付変更線
    if setting(6, 0) == 1 {
        gsel ID_WIN_MAIN : objprm layid0, "log,dd"
        setting(6, 0) = 0
    }
    //あけおめ
    if setting(7, 0) == 1 {
        gsel ID_WIN_MAIN : objprm layid0, "log,yy"
        setting(7, 0) = 0
    }
//======================================ステータス
    repeat 5, 2
        st(cnt, 2) = strf("%.1f", st(cnt, 0))
    loop
    repeat 7
        mesmoni += st(cnt, 2) + "\n"
    loop
    sendmsg hStatic_m, $C, , mesmoni  //表示文字列更新 (WM_SETTEXT)
    return
//ROM,SSD単位変換
*hlay_u
    sdim mesmoni_u, 16
    /***ROM***/
    if int(st(2, 0)) > 1023 {
        st(2, 0) = "1"
        u(0) = str(int(u(0)) + 1)
        st(2, 1) = u(int(u(0)))
    }
    /***SSD***/
    if int(st(3, 0)) > 1023 {
        st(3, 0) = "1"
        u(1) = str(int(u(1)) + 1)
        st(3, 1) = u(int(u(1)))
    }
    mesmoni_u += " " + st(2, 1) + "\n" + " " + st(3, 1)
    sendmsg hStatic_u, $C, , mesmoni_u  //表示文字列更新 (WM_SETTEXT)
    return
//セーブデータのロード･各変数とオブジェクトの更新
*hlay_saveload
    /*** Mainウィンドウ各変数読み込み ***/
    gsel ID_TAB_MOTI, 0 : objprm id_motimono, motimono
    gsel ID_TAB_LOG, 0 : objprm id_logmoni, logmoni
    /*** Settingウィンドウ各項目読み込み ***/
    gsel ID_WIN_SETI, -1
    objprm id_savebut, setting(0, 0)
    objprm id_chkosoi, setting(1, 0)
    objprm id_chkfutu, setting(2, 0)
    objprm id_chkhaya, setting(3, 0)
    objprm id_chkreamaz, setting(8, 0)
    objprm id_chkresave, setting(9, 0)
    objprm id_chkresett, setting(10, 0)
    /*** Amazoonリストビュー読み込み ***/
    gsel ID_WIN_AMAZ, -1
    /*** CPU ***/
    gsel ID_OMTAB_CPU : mydelitem id_LVCPU
    myinitem id_LVCPU, bfcpu, rec_cnum, col_num
    /*** GPU ***/
    gsel ID_OMTAB_GPU : mydelitem id_LVGPU
    myinitem id_LVGPU, bfgpu, rec_gnum, col_num
    /*** ROM ***/
    gsel ID_OMTAB_ROM : mydelitem id_LVROM
    myinitem id_LVROM, bfrom, rec_rnum, col_num
    gsel ID_OMTAB_CPU, 1
    /*** 各ウィンドウの非表示切り替え ***/
    gsel ID_WIN_SAVE, -1
    gsel ID_WIN_INFO, -1
    gsel ID_WIN_MAIN
    objprm layid0, 1
    objprm layid0, 0
    objprm layid0, "log,load"
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
このコードをツイートする