MPSLEEP code Behavior

>custom_prog rock
if ovnuminv(4727) < 1
  say Insert 100 yen first if you want to play!
else
  mea $n You hit the rock button.
  mer $n $n hits the rock button.
  mpsleep 12
  mpecho R.P.C Robot makes a fist, raises it up, then bangs it down in the air once.
  say One!
  mpsleep 12
  mpecho R.P.C Robot makes a fist, raises it up, then bangs it down in the air again.
  say Two!
  mpsleep 12
  if rand(50)
    mpecho R.P.C Robot makes a fist, raises it up, then brings it down making a rock with its fist.
    say It's a tie!
    say Let's try again. Press Rock, Paper, or Scissors.
  else
    if rand(50)
      mpecho R.P.C Robot makes a fist, raises it up, then brings it down making a paper with its hand.
      say Paper beats rock! You lose!
      say Insert 100 yen if you want to try play again.
      mpjunk start
      mpjunk all.wins
    else
      mpecho R.P.C Robot makes a fist, raises it up, then brings it down making a scissors with two fingers.
      say Rock beats scissors! You win!
      mpoload 4728
      say If you want to try for higher prizes, press ROCK, PAPER, or SCISSORS to play another round. But if you lose, you'll lose everything! Otherwise press CASH IN to cash in your wins. Remember that the more times you win the higher the reward!
    endif
  endif
endif

You hit the rock button.
R.P.C Robot makes a fist, raises it up, then bangs it down in the air once.
R.P.C Robot says 'One!'
R.P.C Robot makes a fist, raises it up, then bangs it down in the air again.
R.P.C Robot says 'Two!'
R.P.C Robot makes a fist, raises it up, then brings it down making a rock with its fist.
R.P.C Robot says 'It's a tie!'
R.P.C Robot says 'Let's try again. Press Rock, Paper, or Scissors.'

>speech_prog Rock
mea $n You hit the rock button.
mer $n $n hits the rock button.
mpsleep 12
mpecho One!
mpsleep 12
mpecho Two!
mpsleep 12

if rand(50)
  mpecho Rock! Tie!
else
  if rand(50)
   mpecho Paper! Paper beats Rock! Loser!
  else
   mpecho Scissors! Rock beats scissors! You win!
  endif
endif

>greet_prog 100
if isnpc($n)
mpecho you are a pc
mpsleep 10
mpecho woot
mpsleep 5
mpecho else now!
else
mpsleep 1
mpecho w
mpsleep 1
mpecho oo
mpsleep 1
mpecho t
mpsleep 5
mpecho you are here!
mpsleep 5
say you arent a pc!
endif

struct mpsleep_data
{
 MPSLEEP_DATA * next;
 MPSLEEP_DATA * prev;

 int timer; /* Pulses to sleep */
 mp_types type; /* Mob, Room or Obj prog */
 ROOM_INDEX_DATA *room; /* Room when type is MP_ROOM */

 /* mprog_driver state variables */
 int ignorelevel;
 int iflevel;
 bool ifstate[MAX_IFS][DO_ELSE];

 /* mprog_driver arguments */
 char * com_list;
 CHAR_DATA * mob;
 CHAR_DATA * actor;
 OBJ_DATA * obj;
 void * vo;
 bool single_step;
};

 bool ifstate[MAX_IFS][DO_ELSE+1];

 if (!str_prefix("mpsleep", cmnd) )
 {
   if ( (ifstate[iflevel][IN_IF] == TRUE && ifstate[iflevel][DO_IF] == FALSE) ||     // if we are in an if/else and we
        (ifstate[iflevel][IN_ELSE] == TRUE && ifstate[iflevel][DO_ELSE] == FALSE) )  // dont want to execute, dont..
   {
   }
  else
  {

 for (count = 0; count < MAX_IFS; count++)
 {
 for (count2 = 0; count2 <= DO_ELSE; count2++)
 ifstate[count][count2] =
 current_mpsleep->ifstate[count][count2];
 }

Name: ATM.  Vnum: 10009.
Short description: An ATM machine.
Long  description: An ATM machine is stationed here.
Hp: 100/100.  Mana: 5000/5000.  Move: 100/100. 
Lv: 1.  Class: 7.  Align: 0.  AC: 100.  Gold: 0.  Exp: 0.
>greet_prog 100
if isnpc($n)
mpecho you are a pc
mpsleep 10
mpecho woot
mpsleep 5
mpecho else now!
else
mpsleep 1
mpecho w
mpsleep 1
mpecho oo
mpsleep 1
mpecho t
mpsleep 5
mpecho you are here!
mpsleep 5
say you arent a pc!
endif

>speech_prog Rock
mea $n You hit the rock button.
mer $n $n hits the rock button.
mpsleep 12
mpecho One!
mpsleep 12
mpecho Two!
mpsleep 12
if rand(50)
  mpecho Rock! Tie!
else
  if rand(50)
   mpecho Paper! Paper beats Rock! Loser!
  else
   mpecho Scissors! Rock beats scissors! You win!
  endif
endif

if ( value < 3 )
{
    ch_printf(ch, "Value: %d", value);
}

change:
    if ( !str_prefix("mpsleep", cmnd))
to:
    one_argument( cmnd, arg );
    if (!str_cmp(arg, "mpsleep"))

inside that if statement below mpsleep->single_step = single_step

change:
        /* Time to sleep */
        cmnd = one_argument( cmnd, arg);
        if (arg[0] == '\0')
	    mpsleep->timer = 4;
        else
	    mpsleep->timer = atoi(cmnd);
to:
        /* Time to sleep */
        cmnd = one_argument( cmnd, arg);
        if (cmnd[0] == '\0')
            mpsleep->timer = 4;
        else
            mpsleep->timer = atoi(cmnd);