HSP | 複数のウィンドウが一度に消えないようにする
HSP | 複数のウィンドウが一度に消えないようにする
screen 0,500,500
title "ウィンドウ０"
button gosub "ウィンドウ１を表示",*window
screen 1,500,500
title "ウィンドウ１"
button gosub "ウィンドウ０を表示",*window
window_flag=3
onexit gosub *exit
stop*exit
if ginfo(2)=0 : window_flag-1
if ginfo(2)=1 : window_flag-2
gosub *new
return*window
if ginfo(2)=0 & (window_flag&2)=0 : window_flag+2
if ginfo(2)=1 & (window_flag&1)=0 : window_flag+1
gosub *new
return*new
if window_flag=0 {
end
} else {
if window_flag&1 : gsel 0,1 : else : gsel 0,-1
if window_flag&2 : gsel 1,1 : else : gsel 1,-1
}
return
window_flagで複数のウィンドウを管理しています。
もうちょっと改良できそうだな…。
