I suppose this is grossly obsessive-compulsive, but I took a few minutes and translated the above extensions.conf into AEL.

—- cut here ———file=guessit.ael——————————
macro guessgame()
{
while (1)
{
Playback(guessit/intro);
set(GUESS=”");
GUESS=${EPOCH}%9;
Set(TIMEOUT(digit)=3);
Set(TIMEOUT(response)=5);
while (1)
{
Read(NUMBER,guessit/input_number,1);
Verbose(Got ${NUMBER} from Read);
if( “${NUMBER}” = “*” || “${NUMBER}” = “#” || “${NUMBER}” = “”)
{
Playback(guessit/thatsnotanumber);
}
else if (“${NUMBER}” = “${GUESS}”)
{
Playback(guessit/win);
break; // the only way out of this loop!
}
else if (“${NUMBER}” > “${GUESS}”)
{
Playback(guessit/less);
}
else if (“${NUMBER}” < "${GUESS}")
{
Playback(guessit/more);
}
else /* what other stuff can the user enter than a number, #, nothing, or * ? */
{
Playback(guessit/thatsnotanumber);
}
}
/* You get here after a successful guess */
Wait(.5);
Read(AGAIN,guessit/playagain,1);
if ("${AGAIN}" != "1")
break;
}
Playback(guessit/goodbye);
return;

catch t
{
playback(guessit/goodbye);
return;
}
catch i
{
playblack(invalid);
}
}
---------------------------- cut here ----------------------

Put the above into the file, guessit.ael in /etc/asterisk.

Then in your extensions.ael, outside a context, slip in this include:

#include "guessit.ael"

and in some context enter in the macro call from an appropriate extension:

779 => {
&guessgame();
}

In the above, dialing 779 will trigger the game.

All these instructions apply to 1.4 and trunk versions of Asterisk. For those running 1.2, I suggest making a 1.2 patch, and installing AEL2. It most likely will not work on the original AEL code that comes with 1.2.

I wrote the code as an example, it has no goto’s. It implements the game as nested loops. I will also post it on the voip-info asterisk wiki in the AEL examples page.

There are some slight variations from the original code…

murf

Thanks for the note. I meant reload, not restart. The howto has been updated to reflect the proper wording :)

Good catch!

Thanks,
voipphreak