Gender selection script

integer lchan;
integer lhandle;
key Toucher;


default
{

    state_entry()
    {

        lchan = -777;


    }

    touch_end(integer num)
    {

Toucher = llDetectedKey(0);
llListenRemove(lhandle);
lhandle = llListen(lchan,"",Toucher,"");

llSetTimerEvent(0.0);
llSetTimerEvent(60.0);


llDialog(Toucher,"\nPlease select your gender:",["Male","Female","Trans","Other"],lchan);



    }

     listen(integer chan, string name, key id, string msg)
    {


    if(chan == lchan)
    {

          if(msg == "Male")
    llInstantMessage(Toucher,"You identified yourself as \"" +msg+"\"");

    else if(msg == "Female")
    llInstantMessage(Toucher,"You identified yourself as \"" +msg+"\"");

    else if(msg == "Trans")
    llInstantMessage(Toucher,"You identified yourself as \"" +msg+"\"");

    else if(msg == "Other")
    llInstantMessage(Toucher,"You identified yourself as \"" +msg+"\"");

    }


  }

    timer()
    {

llListenRemove(lhandle);
llSay(0,"Dialg timed out.");

    }

}