ちょっと勘違いしてたみたい、すみません
(特定の一個がチェックされた時に他をOFFだと思った・・・)
ここの、マスコットを選ぶような感じのなら
pos 00,00
BA=8
dim buttAcnt,BA
repeat BA
button gosub "ボタンA"+cnt,*buttA
buttAcnt(cnt)=stat
sendmsg objinfo(stat,2),$f4,4,-1 ;ラジオボタンに変更
loop
sendmsg objinfo(buttAcnt(0),2),$f1,1,0;{ON}
pos 100,00
BB=5
dim buttBcnt,BB
repeat 5
button gosub "ボタンB"+cnt,*buttB
buttBcnt(cnt)=stat
sendmsg objinfo(stat,2),$f4,4,-1
loop
sendmsg objinfo(buttBcnt(0),2),$f1,1,0
pos 50,200
button goto "END",*endd
stop
*buttA
idA=stat
repeat BA
if idA=buttAcnt(cnt) {sendmsg objinfo(idA,2),$f1,1,0 : chA=cnt}else{sendmsg objinfo(buttAcnt(cnt),2),$f1,0,0};{ON}else{OFF}
loop
title "グループA チェックNO"+chA+" ID"+idA+" グループB チェックNO"+chB+" ID"+idB
return
*buttB
idB=stat
repeat BB
if idB=buttBcnt(cnt) {sendmsg objinfo(idB,2),$f1,1,0 : chB=cnt}else{sendmsg objinfo(buttBcnt(cnt),2),$f1,0,0}
loop
title "グループA チェックNO"+chA+" ID"+idA+" グループB チェックNO"+chB+" ID"+idB
return
*endd
mes "グループA チェックNO"+chA+" ID"+idA+" グループB チェックNO"+chB+" ID"+idB
clrobj buttAcnt(0),buttBcnt(BB-1)
wait 300
end
チェックグループが一つならオートでON/OFF出来る
sendmsg objinfo(objid,2),$f4,9,-1
で、いいかも