Hehe...
Here ya go - a nice messy script for you to rip bits out of. Hope it helps.
integer one;
integer two;
integer three;
integer four;
integer five;
integer six;
integer seven;
integer eight;
integer nine;
integer ten;
integer count = 1;
list numbers = ["0","1","2","3","4","5","6","7","8","9"];
key av;
dialog()
{
llDialog(av,"Click a number!",numbers,123123);
}
default
{
state_entry()
{
llListen(123123,"","",""

;
}
touch_start(integer num_detected)
{
av = llDetectedKey(0);
dialog();
}
listen(integer channel, string name, key id, string message)
{
if(count==1) one = (integer)message;
else if(count==2) two = (integer)message;
else if(count==3) three = (integer)message;
else if(count==4) four = (integer)message;
else if(count==5) five = (integer)message;
else if(count==6) six = (integer)message;
else if(count==7) seven = (integer)message;
else if(count==

eight = (integer)message;
else if(count==9) nine = (integer)message;
else if(count==10) ten = (integer)message;
++count;
if(count!=10) dialog();
else count=1
}
}