010a.txt

*saveload if %sys_return == 1 mov %sys_return,0 goto *saveload_loop if %sys_mode == MD_SAVE lsp 200,":c;sys\save.bmp",0,0 if %sys_mode == MD_LOAD lsp 200,":c;sys\load.bmp",0,0 lsp 191,":a/2,0,3;sys\modoru.bmp",644,567 ;セーブ文字列画像読み込み gosub *saveload_spload *saveload_loop btndef clear exbtn_d "P131,0P132,0P133,0P134,0P135,0P136,0P137,0P138,0P139,0P140,0P141,0P142,0P143,0P144,0P145,0P146,0P147,0P148,0P149,0P150,0P151,0P152,0P153,0P154,0P155,0P156,0P157,0P158,0P159,0P160,0P161,0P162,0P163,0P164,0P165,0P166,0P167,0P168,0P169,0P170,0" exbtn 131,1,"P131,1P151,1" exbtn 132,2,"P132,1P152,1" exbtn 133,3,"P133,1P153,1" exbtn 134,4,"P134,1P154,1" exbtn 135,5,"P135,1P155,1" exbtn 136,6,"P136,1P156,1" exbtn 137,7,"P137,1P157,1" exbtn 138,8,"P138,1P158,1" exbtn 139,9,"P139,1P159,1" exbtn 140,10,"P140,1P160,1" exbtn 141,11,"P141,1P161,1" exbtn 142,12,"P142,1P162,1" exbtn 143,13,"P143,1P163,1" exbtn 144,14,"P144,1P164,1" exbtn 145,15,"P145,1P165,1" exbtn 146,16,"P146,1P166,1" exbtn 147,17,"P147,1P167,1" exbtn 148,18,"P148,1P168,1" exbtn 149,19,"P149,1P169,1" exbtn 150,20,"P150,1P170,1" exbtn 151,21,"P131,1P151,1" exbtn 152,22,"P132,1P152,1" exbtn 153,23,"P133,1P153,1" exbtn 154,24,"P134,1P154,1" exbtn 155,25,"P135,1P155,1" exbtn 156,26,"P136,1P156,1" exbtn 157,27,"P137,1P157,1" exbtn 158,28,"P138,1P158,1" exbtn 159,29,"P139,1P159,1" exbtn 160,30,"P140,1P160,1" exbtn 161,31,"P141,1P161,1" exbtn 162,32,"P142,1P162,1" exbtn 163,33,"P143,1P163,1" exbtn 164,34,"P144,1P164,1" exbtn 165,35,"P145,1P165,1" exbtn 166,36,"P146,1P166,1" exbtn 167,37,"P147,1P167,1" exbtn 168,38,"P148,1P168,1" exbtn 169,39,"P149,1P169,1" exbtn 170,40,"P150,1P170,1" spbtn 191,41 btnwait %11 ;右クリック if %11 == -1 goto *end_saveload ;前の画面に戻る if %11 == 41 goto *end_saveload ;ボタン押してない if %11 <= 0 goto *saveload_loop ;セーブ番号を記録 if %11 <= 20 mov %sys_savingnum,%11 if %11 >= 21 mov %sys_savingnum,%11-20 ;セーブ無し(ロード時)：無反応 savefileexist %temp_num,%sys_savingnum if %temp_num == 0 && %sys_mode == MD_LOAD goto *saveload_loop ;セーブ有り if %sys_savingnum >= 1 && %sys_savingnum <= 20 gosub *saveload_yesno:goto *saveload goto *saveload_loop *end_saveload ;画像破棄 gosub *saveload_spclear csp 200 csp 191 btndef "" textshow if %102 == 1 mov %102,0:goto *title ;タイトルから来た return ;ゲーム中から来た *saveload_yesno lsp 174,":c;sys\save_yesno.bmp",325,250,100 ;if %sys_mode == MD_SAVE lsp 171,":s/16,16,1;#FFFFFF#FF0000セーブしますか？",336,276 ;if %sys_mode == MD_LOAD lsp 171,":s/16,16,1;#FFFFFF#FF0000ロードしますか？",336,276 ;lsp 172,":s/16,16,1;#FFFFFF#FF0000はい",352,308 ;lsp 173,":s/16,16,1;#FFFFFF#FF0000いいえ",400,308 if %sys_mode == MD_SAVE lsp 171,":s/16,16,1;#FFFFFF#FF0000`　　Simpan?",336,276 if %sys_mode == MD_LOAD lsp 171,":s/16,16,1;#FFFFFF#FF0000`　 Ambil?",336,276 lsp 172,":s/16,16,1;#FFFFFF#FF0000Ya ",352,308 lsp 173,":s/16,16,1;#FFFFFF#FF0000　Tidak",400,308 print 1 *saveload_yesno_loop btndef clear spbtn 172,1 spbtn 173,2 btnwait %11 ;右クリック if %11 == -1 mov %sys_return,1:goto *end_saveload_yesno ;はい（セーブ時） if %11 == 1 && %sys_mode == MD_SAVE savegame %sys_savingnum:mov %temp_num,%sys_savingnum+500:mov $%temp_num,$sys_midasi:goto *end_saveload_yesno ;はい（ロード時） if %11 == 1 && %sys_mode == MD_LOAD btndef clear:dwavestop 1:textshow:loadgame %sys_savingnum ;いいえ if %11 == 2 mov %sys_return,1:goto *end_saveload_yesno goto *saveload_yesno_loop *end_saveload_yesno csp 171 csp 172 csp 173 csp 174 btndef "" textshow return *saveload_spload for %save_num=1 to 20 savetime %save_num,%save_month,%save_day,%save_hour,%save_minute ;セーブ無し ;   if %save_month == 0 mov $save_str,":s/14,14,1;#EEFCFD#99CCFB－－月－－日－－時－－分":goto *saveload_spload_next if %save_month == 0 mov $save_str,":s/14,14,1;#EEFCFD#99CCFB－－／－－　　－－：－－":goto *saveload_spload_next mov $save_str,":s/14,14,1;#EEFCFD#99CCFB" mov %temp_num,%save_month:gosub *num2str add $save_str,$temp_str add $save_str,"／" mov %temp_num,%save_day:gosub *num2str add $save_str,$temp_str add $save_str,"　　" mov %temp_num,%save_hour:gosub *num2str add $save_str,$temp_str add $save_str,"：" mov %temp_num,%save_minute:gosub *num2str add $save_str,$temp_str ;   add $save_str,"分" *saveload_spload_next if %save_num <= 10 lsp %save_num+150,$save_str,84,18 + (%save_num * 49) if %save_num >= 11 lsp %save_num+150,$save_str,440,18 + ( (%save_num - 10) * 49) ;小見出しテキスト抽出 mov $save_str,":s/14,14,1;#EEFCFD#99CCFB" mov %temp_num,%save_num+500 add $save_str,$%temp_num if %save_num <= 10 lsp %save_num+130,$save_str,84,35 + (%save_num * 49) if %save_num >= 11 lsp %save_num+130,$save_str,440,35 + ( (%save_num - 10) * 49) next print 1 return *saveload_spclear for %temp_num=1 to 400 csp %temp_num + 130 next return *num2str if %temp_num == 0 mov $temp_str,"００":return if %temp_num == 1 mov $temp_str,"０１":return if %temp_num == 2 mov $temp_str,"０２":return if %temp_num == 3 mov $temp_str,"０３":return if %temp_num == 4 mov $temp_str,"０４":return if %temp_num == 5 mov $temp_str,"０５":return if %temp_num == 6 mov $temp_str,"０６":return if %temp_num == 7 mov $temp_str,"０７":return if %temp_num == 8 mov $temp_str,"０８":return if %temp_num == 9 mov $temp_str,"０９":return if %temp_num == 10 mov $temp_str,"１０":return if %temp_num == 11 mov $temp_str,"１１":return if %temp_num == 12 mov $temp_str,"１２":return if %temp_num == 13 mov $temp_str,"１３":return if %temp_num == 14 mov $temp_str,"１４":return if %temp_num == 15 mov $temp_str,"１５":return if %temp_num == 16 mov $temp_str,"１６":return if %temp_num == 17 mov $temp_str,"１７":return if %temp_num == 18 mov $temp_str,"１８":return if %temp_num == 19 mov $temp_str,"１９":return if %temp_num == 20 mov $temp_str,"２０":return if %temp_num == 21 mov $temp_str,"２１":return if %temp_num == 22 mov $temp_str,"２２":return if %temp_num == 23 mov $temp_str,"２３":return if %temp_num == 24 mov $temp_str,"２４":return if %temp_num == 25 mov $temp_str,"２５":return if %temp_num == 26 mov $temp_str,"２６":return if %temp_num == 27 mov $temp_str,"２７":return if %temp_num == 28 mov $temp_str,"２８":return if %temp_num == 29 mov $temp_str,"２９":return if %temp_num == 30 mov $temp_str,"３０":return if %temp_num == 31 mov $temp_str,"３１":return if %temp_num == 32 mov $temp_str,"３２":return if %temp_num == 33 mov $temp_str,"３３":return if %temp_num == 34 mov $temp_str,"３４":return if %temp_num == 35 mov $temp_str,"３５":return if %temp_num == 36 mov $temp_str,"３６":return if %temp_num == 37 mov $temp_str,"３７":return if %temp_num == 38 mov $temp_str,"３８":return if %temp_num == 39 mov $temp_str,"３９":return if %temp_num == 40 mov $temp_str,"４０":return if %temp_num == 41 mov $temp_str,"４１":return if %temp_num == 42 mov $temp_str,"４２":return if %temp_num == 43 mov $temp_str,"４３":return if %temp_num == 44 mov $temp_str,"４４":return if %temp_num == 45 mov $temp_str,"４５":return if %temp_num == 46 mov $temp_str,"４６":return if %temp_num == 47 mov $temp_str,"４７":return if %temp_num == 48 mov $temp_str,"４８":return if %temp_num == 49 mov $temp_str,"４９":return if %temp_num == 50 mov $temp_str,"５０":return if %temp_num == 51 mov $temp_str,"５１":return if %temp_num == 52 mov $temp_str,"５２":return if %temp_num == 53 mov $temp_str,"５３":return if %temp_num == 54 mov $temp_str,"５４":return if %temp_num == 55 mov $temp_str,"５５":return if %temp_num == 56 mov $temp_str,"５６":return if %temp_num == 57 mov $temp_str,"５７":return if %temp_num == 58 mov $temp_str,"５８":return if %temp_num == 59 mov $temp_str,"５９" return
 * ――――――――――――――――――――セーブロード画面ラベル