home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00291_Field_291.txt < prev    next >
Text File  |  1995-11-10  |  1KB  |  52 lines
  1. put the number of items in field "DQLIST" into z
  2.     put random(Z) into XX
  3.     put item xx of field "DQLIST" into XXX
  4.     append DQlist,XXX
  5.     deleteprop DQlistSUB,XX
  6.     return XXX
  7. on ZZZ2
  8. global DQlistSUB,a,zz,DQlist
  9. put [] into DQlist
  10. put 1 into z
  11. repeat while z > 21
  12. put random(21-z) into XX
  13. put getaprop(DQlistSUB,XX) into XXX
  14. append DQlist,XXX
  15. deleteprop DQlistSUB,XX
  16. end repeat
  17. return XXX
  18. end
  19. on DQ_SELECT
  20. --ŽŸ‚Ì–â‘è‚ðƒZƒŒƒNƒg
  21. global Qlist,vCount,NGAnsCt,Qcount,Nact,HintCt,HvSP
  22.  
  23. if Qcount > 4 then 
  24. go to "RE_SET" 
  25. else
  26. --–â‘è‚ðƒ‰ƒ“ƒ_ƒ€‚ɃZƒŒƒNƒg
  27. put count(Qlist) into z
  28. put random(Z) into XX
  29. put getaprop(Qlist,XX) into XXX
  30. deleteprop Qlist,XX
  31. put XXX & "," after field "SELECT_No"
  32. put XXX into field "Qframe"
  33. put Qlist into field "LIST_No"
  34. --ƒJƒEƒ“ƒgƒAƒbƒv
  35. put (QCount+1) into Qcount
  36. put (vCount+1) into vCount
  37. put (NaCt+1) into NaCt
  38. put QCount into field "Qcount"
  39. --‚¨Žè‚‚«”ƒNƒŠƒA
  40. put 0 into NGAnsCt
  41. --HINTWINDOW__invisible channel
  42. put [47,48] into HvSP
  43. --ƒ[ƒvCHECK
  44. put 0 into HintCt
  45.  
  46. go to "Q" & XXX 
  47.  
  48. end if
  49. set the visible of sprite 9 to FALSE 
  50. end
  51.  
  52.