displaying answers in random order

[Ravi Garimella]

Hi all,

I posted it earlier but could not get it to work. I am creating a random 
Answers to a question. But my problem is it works only if it is a 1 line 
answers. My problem is that my answers are on 2 lines. What can be done to 
make it work on multiple line answers.

Here is a sample of what my answers look. These should be randomly 
Displayed.

A. This is a answer that will fit on 2 lines and
   has to work.
B. Line 2 of answer
C. Line 3 of answer
D. Line 4 of answer which also can be on 2 or
   more lines.

Here is the code!! It works if the answers are on 1 line.


property mySp, correctAnswer

on beginSprite me
  mySp = sprite(me.spriteNum)
  set the lineHeight of field "q1answer" to 30
  correctLine = 1
  sendAllSprites(#mixUpLines, correctLine)
end

on mixUpLines me, correctLine

  correctAnswer = "Lima"
  answerList = []
  repeat with n = 1 to mySp.member.lineCount
    randomNum = random(answerList.count+1)
    addAt answerList, randomNum, mySp.member.line[n]
  end repeat

  newText = EMPTY
  repeat with n = 1 to answerList.count
    put answerList[n] after newText
    if n < answerList.count then put RETURN after newText
  end repeat
  mySp.member.text = newText
end

on mouseUp me
  if mySp.member.line[the mouseLine] = correctAnswer then
    alert "Correct!"
  else
    alert "You should have picked"&&QUOTE&correctAnswer&QUOTE
  end if
end


_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.


[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi  To post messages to the list,
email [EMAIL PROTECTED]  (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo.  Thanks!]