Cutest One SLang Script

## Cutest One Script

story cuteStory

        { start("everyoneGetsInLine"); }
  then  { start("getsAttention"); }
  then  { start("isHeCute"); }
   
theEnd


story everyoneGetsInLine

	everyone      movesTo  (-30 + (me*12)), 0

theEnd



story getsAttention

        everyone      faces     camera
                      pauses    2

then    actor {LEMON} movesBy   10, 30
        everyone      faces     nothing
                      looksAt   {LEMON}

then    actor {LEMON} says      ``Hello!''
                      faces     {SKY}
                      looksAt   {SKY}
theEnd


story isHeCute

	actor {SKY}   says      ``Isn't { actorName[LEMON] } cute?''
                      looksAt    {GHOST}

then    actor {GHOST} looksAt    {SKY}
        actor {SKY}   says       nothing
        actor {GHOST} looksAt    {LEMON}

then    actor {SKY}   faces      audience
                      looksAt    audience
then    actor {SKY}   says       ``What do you think?''
                      rightArm   90

theEnd


story thankYou

## SKY thanks audience

theEnd


story yesHeIs

## LEMON is the cute one

theEnd



story noSomeOneElseIs

## No, someone else is the cute one

then    actor {SKY}   looksAt    {CUTE_ONE}
        actor

theEnd



{

  LEMON = 0; SMOKY = 1; GHOST = 2; SKY   = 3; SANDY = 4; FLAME = 5;
  actorName[] = { "LEMON", "SMOKY", "GHOST", "SKY", "SANDY", "FLAME" };

  start("cuteStory"); 

  CUTE_ONE = pickAnActor();

  if(CUTE_ONE == SKY) 
  {
    start("thankYou")
  }
  else if(CUTE_ONE != LEMON)
  {
    start("noSomeOneElseIs");
  }
  else
  {
    start("yesHeIs");
  }
  
}