User:Rolig Loon/Quiz From Notecard

A multiple-choice testing script that reads questions and answer choices from a notecard and presents them in dialog boxes.

Features

* Allows only one student at a time to take the quiz.
* Gives immediate feedback to the student when a dialog button is pushed.
* Does not allow student to retake the quiz.
* Stores quiz scores and gives instructor a report on chat command.
* Quiz can be timed.

Script

<lsl> //A Dialog-driven quiz, using text from a notecard -- Rolig Loon -- October 2009 // // Free for public use -- please don't do something crass like selling my script. // Modify if you must, but please keep these header lines intact. Be nice. // // Notecard format: // A line beginning with a "Q" is part of a question // A line beginning with an "A" is a string of comma-delimited zeros (wrong) and a one (right) to identify the answer // A line beginning with a "#" is a comment // Blank lines are ignored // // Dialog boxes are limited to 512 characters, so make each question (including choices) short enough to fit. // There is no limit to the number of questions in a quiz, and you may have up to 12 answer choices per question // // =============== sample notecard =========== //# Lines starting with Q appear verbatim in a dialog box //# You may have as many Q lines as you want per question, but only one A line //# Interpreted data begins immediately after the lead character in a line //QWhat is the capital of Minnesota? //Q1. St. Paul //Q2. Minneapolis //Q3. Iowa City //Q4. Boston //A1,0,0,0 //QHow many fingers are on my right hand? //Q1. One //Q2. Two //Q3. Three //Q4. Four //Q5. Five //A0,0,0,0,1 // ================= end of sample ================= // // Instructor types "results" in channel 24 to get a report of all student scores

string gCard; //Notecard name integer gLine; //Current line being read key gQID; //Dataserver key integer gtouch; //Activates/deactivates touch_start event list gAvList = []; //Cumulative list of people who have taken this quiz string gAv; //Name of the current quiz-taker key gAvKey; //Key of the current quiz-taker integer CHAN; //Channel for dialog communication integer Handle; //Listen handle for dialog integer gScore; //This quiz-taker's score string gQuestion; //Text for the current question list gAnswers; //Answer key for the current question list gAllScores = []; //Cumulative list of scores for quiz-takers integer Timespan = 10; // This is the maximum time alloted for the quiz, in minutes. Change here if needed.

integer IsNameOnList(list namelist, string name) //Verifies whether av has already taken the quiz {

   integer i;
   integer len = llGetListLength(namelist);
   for (i=0; i<=len-1;++i)
       if(llList2String(namelist,i) == name)
       {
           return TRUE;
       }
   return FALSE;

}

init() //Resets parameters for the next quiz-taker {

   llSetTimerEvent(0);
   gtouch = 0;
   gAv = "";
   gAvKey = NULL_KEY;
   gLine = 0;
   gAllScores += gScore;
   gScore = 0;
   llListenControl(Handle,FALSE);

}

list order_buttons(list buttons) { return llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4) + llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10); }

default {

   state_entry()
   {
       gCard = llGetInventoryName(INVENTORY_NOTECARD,0);
       gAvList = [];
       CHAN = (integer)(llFrand(100000000))* (-1);
       Handle = llListen(CHAN,"","","");
       llListen(24,"",llGetOwner(),"");
       init();
   }

   touch_start(integer total_number)
   {
       if (gtouch == 0)  // Starting quiz with a new person
       {
           if(IsNameOnList(gAvList,llDetectedName(0)))
           {
               llInstantMessage(llDetectedKey(0),"Sorry, "+ llDetectedName(0) + ". You have already taken the quiz. You cannot take it twice.");
               return;
           }
           else
           {
               gAvList += llDetectedName(0); // Add av to the list of people who have attempted this quiz
           }
           gAv = llDetectedName(0);
           gAvKey = llDetectedKey(0);
           llInstantMessage(gAvKey,"Hello, "+ gAv+ ". You will have "+(string)Timespan+" minutes to finish this quiz. Respond to questions as they appear in blue dialog boxes on your screen.");
           llInstantMessage(gAvKey,"Touch this panel again to stop the quiz.");
           llSetTimerEvent(Timespan*60);
       }
       if (gAv != llDetectedName(0)) //Only accept touches from this av until the quiz is finished
       {
           llInstantMessage(llDetectedKey(0),"Someone else is taking the quiz now.  Please wait.");
           return;
       }
       if (gtouch >=1) // This is the emergency stop. Av wants to stop taking the quiz before the last question
       {
           llListenControl(Handle,TRUE);
           llDialog(gAvKey,"If you stop now, you may not restart later. \nDo you want to QUIT now?", ["YES", "NO"],CHAN);
           return;
       }
       // An av should only reach this point if it is the first touch
       gQID = llGetNotecardLine(gCard,gLine); //Read the first line of the notecard
       ++gtouch;
   }

   changed(integer change)
   {
       if(change & CHANGED_INVENTORY)
       {
           llResetScript();
       }
   }

timer() {

   llInstantMessage(gAvKey,"Your time is up. Thank you for taking the quiz. Your score is "+ (string)gScore);
   init(); //Restart the quiz for the next person

}

dataserver(key query_id, string data) {

   if(query_id == gQID) //If the data request came from this script
   {
       if(data != EOF) //If there is still data to be read from the notecard
       {
           if(llGetSubString(data,0,0) == "#"||llGetSubString(data,0,0) == "") //Ignore comment lines and blank lines
           {
               ++gLine;
               gQID = llGetNotecardLine(gCard,gLine);
           }
           else if (llGetSubString(data,0,0) == "Q") //Read the question and all answer choices
           {
               gQuestion += llGetSubString(data,1,-1) + "\n"; //Format each "Q" line as a new line in the dialog box
               ++gLine;
               gQID = llGetNotecardLine(gCard,gLine);
           }
           else if (llGetSubString(data,0,0) == "A") //Read the answer key
           {
               gAnswers = llParseString2List(llGetSubString(data,1,-1),[","],[]);
               integer len = llGetListLength(gAnswers);
               integer i;
               list buttons = [];
               for (i=1;i<=len;++i) //Create a numbered button for each choice
               {
                   buttons += [(string)i];
               }
               llListenControl(Handle,TRUE);
               llDialog(gAvKey,gQuestion,order_buttons(buttons),CHAN); //Display the question in a dialog box
           }
       }
       else // If there are no more lines on the notecard
       {
           llInstantMessage(gAvKey,"You have finished the quiz. Congratulations. Your score is "+(string)gScore);
           init(); //Restart the quiz for the next person
       }
   }

}

listen (integer channel, string name, key id, string message) {

   if (channel == 24) //Teacher said something on channel 24
   {
       if (llToLower(message) == "results") //and the message was "results"
       {
           integer len = llGetListLength(gAvList);
           integer i;
           for (i=0;i<=len-1;++i)
           {
               llOwnerSay(llList2String(gAvList,i) +  "....  Score = " + llList2String(gAllScores,i+1));
           }
       }
   }
   else if (message == "YES") // Av has touched the panel and wants to quit
   {
       llInstantMessage(gAvKey,"You have left the quiz with a score of "+(string)gScore +". Goodbye!");
       init();
   }
   else if(message == "NO") // Av has touched the panel and does NOT want to quit
   {
       return;
   }
   else // A question has been displayed in a dialog box
   {
       integer pos = llListFindList(gAnswers,["1"]); //Search the answer key. The correct answer is pos+1
       if(message == (string)(pos+1))
       {
           ++gScore;
           llInstantMessage(gAvKey,"Correct! Your score is now "+ (string)gScore+ ". Next ...");
       }
       else if (pos != -1)
       {
           llInstantMessage(gAvKey,"Wrong. The correct answer was "+ (string)(pos+1) + ". Next ....");
       }
       else if (pos == -1) //The teacher screwed up and didn't code a correct answer
       {
           llInstantMessage(gAvKey,"Ooops! There is no right answer to this question. Let's move on....");
       }
       gQuestion = ""; //Erase the current question
       gAnswers = []; //And its answer key
       ++gLine;
       gQID = llGetNotecardLine(gCard,gLine); // Get the next question
   }

} } </lsl>