HSPを使って、下記のプログラムを作ろうとしていますが、
一度押したボタンを消す方法がわかりません。
詳しい方がいましたら、是非教えて下さい。
■プログラム内容
対象とするAからCは、2秒ごとに×状態になる。
ボタンを押すと、○状態に回復できる。
一度ボタンを押したら、ボタンを消す。
■問題
ボタンを押したら、そのボタンを消すために、
clrobjを使ったのですが、一向に消えません。
「回復」というボタンを押したら、
そのボタンを消す方法を教えて下さい。
clrobj以外の方法があれば、それでも問題ありません。
宜しくお願いします。
----------------------------------------------------------
title "hogehoge"
a = 0
b = 0
c = 0
*main
cls 0
time_down1 = 2
now_down1 = gettime(6)
*main2
redraw 0
time_down = gettime(6) - now_down1 : if time_down < 0 : time_down += 60
timerimit_down = time_down1 - time_down
color 244,244,244 : boxf
font "MS ゴシック",16,1
color
pos 420,20 : mes "残り時間 "+timerimit_down+" 秒"
font "MS ゴシック",15,1
pos 20,60
//■■該当箇所■■ statで、ボタンのIDを作る
if a = 1{
mes "A×"
button goto "回復",*safe1
A_ID = stat
}else{
mes "A○"
}
pos 120,60
if b = 1{
mes "B×"
button goto "回復",*safe2
B_ID = stat
}else{
mes "B○"
}
pos 220,60
if c = 1{
mes "C×"
button goto "回復",*safe3
C_ID = stat
}else{
mes "C○"
}
redraw
if timerimit_down<=0 {
m = rnd(3)
if m=0 : a = 1
if m=1 : b = 1
if m=2 : c = 1
goto *down
}
wait 1
goto *main2
*down
time_down1 = 3
now_down1 = gettime(6)
goto *main2
//■■該当箇所■■ ボタンを押したら、ボタンを消すようにしたいが、できない。
*safe1
clrobj A_ID,A_ID
a=0
goto *main2
*safe2
clrobj B_ID,B_ID
b=0
goto *main2
*safe3
clrobj C_ID,C_ID
c=0
goto *main2
----------------------------------------------------------