home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / devglry / maricopa / source / quizzer.dir / 00001_quizmother.ls next >
Encoding:
Text File  |  1996-04-18  |  553 b   |  14 lines
  1. property quizParam
  2.  
  3. on birth me, quizNumber
  4.   set quizInfo to line 2 + ((quizNumber - 1) * 11) to 1 + (quizNumber * 11) of field "qText"
  5.   set the quizParam of me to [#question: line 1 of quizInfo]
  6.   setaProp(the quizParam of me, #correct, line 10 of quizInfo)
  7.   setaProp(the quizParam of me, #topic, line 11 of quizInfo)
  8.   repeat with i = 2 to 5
  9.     do("setaProp the quizParam of me, #ans" & i - 1 && ", line" && i && "of quizInfo")
  10.     do("setaProp the quizParam of me, #fb" & i - 1 && ", line" && i + 4 && "of quizInfo")
  11.   end repeat
  12.   return me
  13. end
  14.