dialogを使って聞くように変更
しつこいかもw
#include "hspda.as" #define WM_COMMAND 0x0111 onexit goto *prog_exit // WM_COMMAND を捕まえる oncmd gosub *lbl_WM_COMMAND, WM_COMMAND objsize 640,480 sdim _4note,65000 notesel _4note _4note="#define _001script v001=0:\n#define _002label v002=0:\na\nb\nc" stat4listbox=0 listbox stat4listbox,100,_4note ID4listbox=stat gosub *show_sub_B_window gsel 2,-1 gosub *show_sub_A_window gsel 1,-1 gosub *show_cmd_window stop *show_cmd_window screen 10,320,300 objsize 80,20 button "vsave A",*do_vsave_A button "vload A",*do_vload_A pos 80,0 button "vsave B",*do_vsave_B button "vload B",*do_vload_B pos 160,0 button "vsave C",*do_vsave_C button "vload C",*do_vload_C pos 240,0 button "vsave D",*do_vsave_D button "vload D",*do_vload_D stat4input_FN="tmp.txt" pos 0,40 input stat4input_FN,320,40 ID4input_FN=stat button "notesave",*do_notesave button "noteload",*do_noteload stop *do_notesave dialog ""+stat4input_FN+"にnotesaveしてもいいですか?",2 if stat==7:dialog ""+stat4input_FN+"にnotesaveしませんでした",0:stop notesave stat4input_FN dialog ""+stat4input_FN+"にnotesaveしました",0 stop *do_noteload dialog ""+stat4input_FN+"をnoteloadしてもいいですか?",2 if stat==7:dialog ""+stat4input_FN+"をnoteloadしませんでした",0:stop noteload stat4input_FN gsel 0 objprm ID4listbox,_4note dialog ""+stat4input_FN+"をnoteloadしました",0 stop *do_vsave_A dialog "Aにvsaveしてもいいですか?",2 if stat==7:dialog "Aにvsaveしませんでした",0:stop vsave "v_tmp_A.dat" dialog "Aにvsaveしました",0 stop *do_vsave_B dialog "Bにvsaveしてもいいですか?",2 if stat==7:dialog "Bにvsaveしませんでした",0:stop vsave "v_tmp_B.dat" dialog "Bにvsaveしました",0 stop *do_vsave_C dialog "Cにvsaveしてもいいですか?",2 if stat==7:dialog "Cにvsaveしませんでした",0:stop vsave "v_tmp_C.dat" dialog "Cにvsaveしました",0 stop *do_vsave_D dialog "Dにvsaveしてもいいですか?",2 if stat==7:dialog "Cにvsaveしませんでした",0:stop vsave "v_tmp_D.dat" dialog "Dにvsaveしました",0 stop *do_vload_A dialog "Aをvloadしてもいいですか?",2 if stat==7:dialog "Aをvloadしませんでした",0:stop vload "v_tmp_A.dat" gsel 0 objprm ID4listbox,_4note dialog "Aをvloadしました",0 stop *do_vload_B dialog "Bをvloadしてもいいですか?",2 if stat==7:dialog "Bをvloadしませんでした",0:stop vload "v_tmp_B.dat" gsel 0 objprm ID4listbox,_4note dialog "Bをvloadしました",0 stop *do_vload_C dialog "Cをvloadしてもいいですか?",2 if stat==7:dialog "Cをvloadしませんでした",0:stop vload "v_tmp_C.dat" gsel 0 objprm ID4listbox,_4note dialog "Cをvloadしました",0 stop *do_vload_D dialog "Dをvloadしてもいいですか?",2 if stat==7:dialog "Dをvloadしませんでした",0:stop vload "v_tmp_D.dat" gsel 0 objprm ID4listbox,_4note dialog "Dをvloadしました",0 stop *show_sub_A_window screen 1,300,300 stat4input_A="" input stat4input_A,300,40 button "編集",*tmp_edit button "script",*tmp_l button "label",*tmp_ll return *show_sub_B_window screen 2,300,80 stat4input="" input stat4input,300,40 objsize 100,20 pos 0,40 button "上書き",*set_lb_str pos 100,40 button "挿入",*insert_lb_str pos 100,60 button "末尾挿入",*insert_last_lb_str pos 0,60 button "キャンセル",*lb_cansel return *tmp_edit stop *tmp_l gsel 1,-1 gsel 2,2 title "編集:script" stop *tmp_ll gsel 1,-1 gsel 2,2 title "編集:label" stop *lbl_WM_COMMAND if ( ( ( wparam >> 16 ) & 0xFFFF ) == 0x0002 ) { ; dialog "リストの " + stat4listbox + " 番目の要素が選択されました。",0 gsel 2 tmp="" if stat4listbox!=-1{ noteget tmp,stat4listbox objprm 0,tmp gsel 1,2 } } return *lb_cansel gsel 2,-1 stop *set_lb_str noteadd stat4input,stat4listbox,1 gsel 0 objprm ID4listbox,_4note gsel 2,-1 stop *insert_lb_str noteadd stat4input,stat4listbox,0 gsel 0 objprm ID4listbox,_4note gsel 2,-1 stop *insert_last_lb_str noteadd stat4input,-1,0 gsel 0 objprm ID4listbox,_4note gsel 2,-1 stop *prog_exit dialog "プログラムを終了しますか?",2 if stat==6:end