put the number of items in field "DQLIST" into z
    put random(Z) into XX
    put item xx of field "DQLIST" into XXX
    append DQlist,XXX
    deleteprop DQlistSUB,XX
    return XXX
on ZZZ2
global DQlistSUB,a,zz,DQlist
put [] into DQlist
put 1 into z
repeat while z > 21
put random(21-z) into XX
put getaprop(DQlistSUB,XX) into XXX
append DQlist,XXX
deleteprop DQlistSUB,XX
end repeat
return XXX
end
on DQ_SELECT
--ŽŸ‚Ì–â‘è‚ðƒZƒŒƒNƒg
global Qlist,vCount,NGAnsCt,Qcount,Nact,HintCt,HvSP

if Qcount > 4 then 
go to "RE_SET" 
else
--–â‘è‚ðƒ‰ƒ“ƒ_ƒ€‚ɃZƒŒƒNƒg
put count(Qlist) into z
put random(Z) into XX
put getaprop(Qlist,XX) into XXX
deleteprop Qlist,XX
put XXX & "," after field "SELECT_No"
put XXX into field "Qframe"
put Qlist into field "LIST_No"
--ƒJƒEƒ“ƒgƒAƒbƒv
put (QCount+1) into Qcount
put (vCount+1) into vCount
put (NaCt+1) into NaCt
put QCount into field "Qcount"
--‚¨Žè‚‚«”ƒNƒŠƒA
put 0 into NGAnsCt
--HINTWINDOW__invisible channel
put [47,48] into HvSP
--ƒ[ƒvCHECK
put 0 into HintCt

go to "Q" & XXX 

end if
set the visible of sprite 9 to FALSE 
end