Link objects - cry for help pls

touch_start(integer num)
{
     integer ButtonPushed = llDetectedLinkNumber(0);
     if (ButtonPushed == 2)
     { // Do Button #1 stuff}
     else if (ButtonPushed == 3)
     { // Do Button #2 stuff }
     else if (ButtonPushed == 4)
     { // Do Button #3 stuff}
}

touch_start(integer num0
{
     ++touch;  //Define integer touch = 0 as a global variable
     if (touch >1)
     {
          return;
     }
     // Do stuff
}

touch_start(integer num) // Or whatever event you want to use to start the clock
{
     llSetTimerEvent(1200); // 20 x 60 seconds = 1200
}

timer()
{
     llResetScript();
}

integer g_MARKS = 0;
list g_USERS;
string g_HOVER_TEXT = "YOUR FINAL MARK IS";



update()
{
    llSetText( g_HOVER_TEXT + "\n" + (string)g_MARKS + " out of 25", <1,1,1>, 1.0 );
}




integer addMark( key id )
{
    
    
     if( llGetFreeMemory() < 1000 ) {
        g_USERS = [];
    }
 
    
       if( llListFindList( g_USERS, [id] ) == -1) {
        g_MARKS++;
    
        update();
        return TRUE;
    }    
 
    return FALSE;
}

        
default
{

    state_entry()
    {
        update();
    }

touch_start(integer num_detect)

{
integer ButtonPushed = llDetectedLinkNumber(0);
if (ButtonPushed == 4)
{ llSay(0, "correct");
addMark( llDetectedKey(ButtonPushed));
}
else if (ButtonPushed == 5)
{ llSay(0, "Incorrect"); 
}
else if (ButtonPushed == 6)
{ llSay(0, "Incorrect");
}
else if (ButtonPushed == 7)
{ llSay(0, "Incorrect");
}
else if (ButtonPushed == 8)
{llSay(0, "Incorrect");
}
else if (ButtonPushed == 9)
{ llSay(0, "correct");
num_detect > 1;
addMark( llDetectedKey(ButtonPushed));

}
}
}

// Remember to put integer touch = 0 in your global list
touch_start(num_detect)
{
     ++touch;
     if (touch > 1)
     {
          return;
     }
     integer ButtonPushed = llDetectedLinkNumber(0);
     if (ButtonPushed == 4 | ButtonPushed == 9)
     {
          llSay(0,"Correct");
          addMark (llDetectedKey(0));
     }
     else
     {
          llSay(0,"Incorrect");
     }
}

integer g_MARKS = 0;
list g_USERS;
integer channel; 
list order_buttons(list buttons)
{
    return llList2List(buttons, -3, -1) + llList2List(buttons, -6, -4)
         + llList2List(buttons, -9, -7) + llList2List(buttons, -12, -10);
}

integer addMark( key id )
{
    
    if( llGetFreeMemory() < 1000 ) {
      g_USERS = [];
    }


    if( llListFindList( g_USERS, [id] ) == -1 ) {
       g_MARKS++;
        return TRUE;
    }    
  return FALSE;
}

 
default
{
    state_entry()
    {   // Create random channel within range [-1000000000,-2000000000]
    channel = (integer)(llFrand(-1000000000.0) - 1000000000.0);
 
    llListen(channel,"", "","");
    }
 
    touch_start(integer total_number)
    {
        llDialog(llDetectedKey(0),"\nQ1. What is IP stand for\n1.Internet Protocol\n2.Institute of technology\n3.Ink Polo",
        order_buttons(["1", "2", "3"]),channel);
    }
 
    listen(integer _chan, string _name, key _id, string _option)
    {
if ( _option == "1")
{
        llSay(0, _name + " choice is correct your mark is" + (string)g_MARKS );
        addMark( llDetectedKey(0));
        
}
else
{
llSay(0, _name + " choice is Incorrect");
}
}
}

//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
//
// 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 comments 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
    }
}
}