ControlCommand("Speech Recognition", PauseOn)
Sleep(50)
ControlCommand("Personality Generator", PauseOn)
Sleep(50)
if ($first_impression_Start = 1)
  Goto(1st_impression)

ELSEif ($single_smith = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Dr_Smith = GetRandomUnique(1,3)
  if ($response_Dr_Smith = 1)
    ControlCommand("Dr_Smith", Track_0)
    Sleep(2000)
  ELSE ($response_Dr_Smith = 2)
    ControlCommand("Soundboard v4", Track_96)
    Sleep(2000)
  endif
  Goto(Dr_Smith)

ELSEif ($single_will = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Will = GetRandomUnique(1,3)
  if ($response_Will = 1)
    ControlCommand("Will", Track_0)
    Sleep(2000)
  ELSE ($response_Will = 2)
    ControlCommand("Soundboard v4", Track_95)
    Sleep(2000)
  endif
  Goto(Will)

ELSEif ($single_tufeld = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  ControlCommand("Tufeld", Track_0)
  Sleep(2000)
  Goto(Tufeld)

ELSEif ($single_john = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  ControlCommand("John", Track_0)
  Sleep(2000)
  Goto(John)

ELSEif ($single_Maureen = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  ControlCommand("Maureen", Track_0)
  Sleep(2000)
  Goto(Maureen)

ELSEif ($single_don = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Don = GetRandomUnique(1,3)
  if ($response_Don = 1)
    ControlCommand("Don", Track_0)
    Sleep(2000)
  ELSE ($response_Don = 2)
    ControlCommand("Soundboard v4", Track_94)
    Sleep(2000)
  endif
  Goto(Don)

ELSEif ($single_judy = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Judy = GetRandomUnique(1,4)
  ControlCommand("Judy", Track_0)
  Sleep(2000)
  if ($response_Judy = 1)
    ControlCommand("Soundboard v4", Track_93)
    Sleep(1700)
  ELSEif ($response_Judy = 2)
    ControlCommand("Soundboard v4", Track_97)
    Sleep(4750)
  ELSEif ($response_Judy = 3)
    ControlCommand("Soundboard v4", Track_98)
    Sleep(9250)
  endif
  Goto(Judy)

ELSEif ($single_penny = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Penny = GetRandomUnique(1,3)
  if ($response_Penny = 1)
    ControlCommand("Penny", Track_0)
    Sleep(2000)
  ELSE ($response_Penny = 2)
    ControlCommand("Penny", Track_1)
    Sleep(2000)
  endif
  Goto(Penny)

ELSEif ($single_r2d2 = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  ControlCommand("R2D2", Track_0)
  Sleep(4000)
  Goto(R2D2)

ELSEif ($single_wall_e = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  ControlCommand("Wall_e", Track_0)
  Sleep(2000)
  Goto(Wall_e)

ELSEif ($single_hal9000 = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Hal9000 = GetRandomUnique(1,3)
  if ($response_Hal9000 = 1)
    ControlCommand("Hal9000", Track_0)
    Sleep(6000)
  ELSE ($response_Hal9000 = 2)
    ControlCommand("Hal9000", Track_24)
    Sleep(3250)
  endif
  Goto(Hal9000)

ELSEif ($single_bender = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  Sleep(2000)
  $response_Bender = GetRandomUnique(1,3)
  if ($response_Bender = 1)
    ControlCommand("Bender", Track_0)
    Sleep(2000)
  ELSE ($response_Bender = 2)
    ControlCommand("Bender", Track_42)
    Sleep(8000)
  endif
  Goto(Bender)

ELSEif ($single_robbie = 1)
  GOTO(1st_acknowledge) #After 1st_acknowledge runs script will return here.
  ControlCommand("Robby", Track_0)
  Sleep(3000)
  Goto(Robby)

ELSE
  Goto(1st_impression)
endif

  # -------------------------------------------------------
:1st_acknowledge
PWM(D0, 40)#Ear Motors
PWM(D9, 20)#Crown Motor
ControlCommand("Auto Both Arms", AutoPositionFrameJump, "Center_Both_Arms")
ControlCommand("Left Arm", ScriptStart, "Left Claw Closed")
ControlCommand("Right Arm", ScriptStart, "Right Claw Closed")
Set(D10, On) #Fast Brain Lights
$Claw_Shutdown = 1
# --------------------------------------------------------------
# Speak a random Robot's first acknowledgment phrase from 1 to 15
$acknowledge = GetRandomUnique(1,16)
Sleep(100)
ControlCommand("Head Section", ScriptStart, "Radar 1/4 Sweep")
# Response depending on random number
if ($acknowledge = 1)
  ControlCommand("Soundboard v4", Track_60)
  Sleep(3500)
ELSEif ($acknowledge = 2)
  ControlCommand("Soundboard v4", Track_61)
  Sleep(3000)
ELSEif ($acknowledge = 3)
  ControlCommand("Soundboard v4", Track_62)
  Sleep(3000)
ELSEif ($acknowledge = 4)
  ControlCommand("Soundboard v4", Track_63)
  Sleep(3250)
  ControlCommand("Soundboard v4", Track_35)
  Sleep(1500)
ELSEif ($acknowledge = 5)
  ControlCommand("Soundboard v4", Track_64)
  Sleep(3500)
  ControlCommand("Soundboard v4", Track_99)
  Sleep(4000)
ELSEif ($acknowledge = 6)
  ControlCommand("Soundboard v4", Track_65)
  Sleep(2500)
ELSEif ($acknowledge = 7)
  ControlCommand("Soundboard v4", Track_66)
  Sleep(3000)
ELSEif ($acknowledge = 8)
  ControlCommand("Soundboard v4", Track_67)
  Sleep(3000)
ELSEif ($acknowledge = 9)
  ControlCommand("Soundboard v4", Track_68)
  Sleep(3000)
ELSEif ($acknowledge = 10)
  ControlCommand("Soundboard v4", Track_69)
  Sleep(2500)
ELSEif ($acknowledge = 11)
  ControlCommand("Soundboard v4", Track_23)
  Sleep(3000)
ELSEif ($acknowledge = 12)
  ControlCommand("Soundboard v4", Track_12)
  Sleep(3000)
ELSEif ($acknowledge = 13)
  ControlCommand("Soundboard v4", Track_33)
  Sleep(3500)
ELSEif ($acknowledge = 14)
  ControlCommand("Soundboard v4", Track_35)
  Sleep(2500)
ELSEif ($acknowledge = 15)
  ControlCommand("Soundboard v4", Track_37)
  Sleep(3500)
endif
Return()

# --------------------------------------------------

:1st_impression
if ($Lft_ARS_Extended = 0 or $Rt_ARS_Extended = 0 or $Both_ARS_Extended = 0)
  ControlCommand("Robot Anamations", ScriptStart, "Classic Pose")
  Goto(1st_impression_Start)
ELSE ($Lft_ARS_Extended = 1 or $Rt_ARS_Extended = 1 or $Both_ARS_Extended = 1)
  Goto(1st_impression_Start)

endif

:1st_impression_Start
Sleep(50)
ControlCommand("Soundboard v4", Track_60)
Sleep(2000)
ControlCommand("Soundboard v4", Track_37)
Sleep(3000)
# Speak a random Robot's character name & go to that section from 1 to 13
$response = GetRandomUnique(1,14)
# Response depending on random number
if ($response = 1)
  $response_Dr_Smith = GetRandomUnique(1,3)
  if ($response_Dr_Smith = 1)
    ControlCommand("Dr_Smith", Track_0)
    Sleep(2000)
  ELSE ($response_Dr_Smith = 2)
    ControlCommand("Soundboard v4", Track_96)
    Sleep(2000)
  endif
  Goto(Dr_Smith)
ELSEif ($response = 2)
  ControlCommand("R2D2", Track_0)
  Sleep(3000)
  Goto(R2D2)
ELSEif ($response = 3)
  $response_Will = GetRandomUnique(1,3)
  if ($response_Will = 1)
    ControlCommand("Will", Track_0)
    Sleep(2000)
  ELSE ($response_Will = 2)
    ControlCommand("Soundboard v4", Track_95)
    Sleep(2000)
  endif
  Goto(Will)
ELSEif ($response = 4)
  $response_Don = GetRandomUnique(1,3)
  if ($response_Don = 1)
    ControlCommand("Don", Track_0)
    Sleep(2000)
  ELSE ($response_Don = 2)
    ControlCommand("Soundboard v4", Track_94)
    Sleep(2000)
  endif
  Goto(Don)
ELSEif ($response = 5)
  ControlCommand("Maureen", Track_0)
  Sleep(2000)
  Goto(Maureen)
ELSEif ($response = 6)
  ControlCommand("John", Track_0)
  Sleep(2000)
  Goto(John)
ELSEif ($response = 7)
  ControlCommand("Tufeld", Track_0)
  Sleep(2000)
  Goto(Tufeld)
ELSEif ($response = 8)
  $response_Judy = GetRandomUnique(1,4)
  ControlCommand("Judy", Track_0)
  Sleep(2000)
  if ($response_Judy = 1)
    ControlCommand("Soundboard v4", Track_93)
    Sleep(1700)
  ELSEif ($response_Judy = 2)
    ControlCommand("Soundboard v4", Track_97)
    Sleep(4750)
  ELSEif ($response_Judy = 3)
    ControlCommand("Soundboard v4", Track_98)
    Sleep(9250)
  endif
  Goto(Judy)
ELSEif ($response = 9)
  ControlCommand("Wall_e", Track_0)
  Sleep(2000)
  Goto(Wall_e)
ELSEif ($response = 10)
  $response_Penny = GetRandomUnique(1,3)
  if ($response_Penny = 1)
    ControlCommand("Penny", Track_0)
    Sleep(2000)
  ELSE ($response_Penny = 2)
    ControlCommand("Penny", Track_1)
    Sleep(2000)
  endif
  Goto(Penny)
ELSEif ($response = 11)
  $response_Hal9000 = GetRandomUnique(1,3)
  if ($response_Hal9000 = 1)
    ControlCommand("Hal9000", Track_0)
    Sleep(6000)
  ELSE ($response_Hal9000 = 2)
    ControlCommand("Hal9000", Track_24)
    Sleep(3250)
  endif
  Goto(Hal9000)
ELSEif ($response = 12)
  $response_Bender = GetRandomUnique(1,3)
  if ($response_Bender = 1)
    ControlCommand("Bender", Track_0)
    Sleep(2000)
  ELSE ($response_Bender = 2)
    ControlCommand("Bender", Track_42)
    Sleep(8000)
  endif
  Goto(Bender)
ELSEif ($response = 13)
  ControlCommand("Robby", Track_0)
  Sleep(3000)
  Goto(Robby)
endif

  # -----------------------------------------
:Dr_Smith
# Speak a random character phrase from 1 to 50
$DRresponse = GetRandomUnique(1,51)
Sleep(100)
# Response depending on random number
if ($DRresponse = 1)
  ControlCommand("Dr_Smith", Track_1)
  Sleep(4000)
ELSEif ($DRresponse = 2)
  ControlCommand("Dr_Smith", Track_2)
  Sleep(9000)
ELSEif ($DRresponse = 3)
  ControlCommand("Dr_Smith", Track_3)
  Sleep(4000)
ELSEif ($DRresponse = 4)
  ControlCommand("Dr_Smith", Track_4)
  Sleep(4000)
ELSEif ($DRresponse = 5)
  ControlCommand("Dr_Smith", Track_5)
  Sleep(2000)
ELSEif ($DRresponse = 6)
  ControlCommand("Dr_Smith", Track_6)
  Sleep(3000)
ELSEif ($DRresponse = 7)
  ControlCommand("Dr_Smith", Track_7)
  Sleep(2500)
ELSEif ($DRresponse = 8)
  ControlCommand("Dr_Smith", Track_8)
  Sleep(3000)
ELSEif ($DRresponse = 9)
  ControlCommand("Dr_Smith", Track_9)
  Sleep(8500)
ELSEif ($DRresponse = 10)
  ControlCommand("Dr_Smith", Track_10)
  Sleep(7000)
ELSEif ($DRresponse = 11)
  ControlCommand("Dr_Smith", Track_11)
  Sleep(14000)
ELSEif ($DRresponse = 12)
  ControlCommand("Dr_Smith", Track_12)
  Sleep(7000)
ELSEif ($DRresponse = 13)
  ControlCommand("Dr_Smith", Track_13)
  Sleep(3000)
ELSEif ($DRresponse = 14)
  ControlCommand("Dr_Smith", Track_14)
  Sleep(3000)
ELSEif ($DRresponse = 15)
  ControlCommand("Dr_Smith", Track_15)
  Sleep(4000)
ELSEif ($DRresponse = 16)
  ControlCommand("Dr_Smith", Track_16)
  Sleep(3000)
ELSEif ($DRresponse = 17)
  ControlCommand("Dr_Smith", Track_17)
  Sleep(2000)
ELSEif ($DRresponse = 18)
  ControlCommand("Dr_Smith", Track_18)
  Sleep(8000)
ELSEif ($DRresponse = 19)
  ControlCommand("Dr_Smith", Track_19)
  Sleep(5000)
ELSEif ($DRresponse = 20)
  ControlCommand("Dr_Smith", Track_20)
  Sleep(5500)
ELSEif ($DRresponse = 21)
  ControlCommand("Dr_Smith", Track_21)
  Sleep(2500)
ELSEif ($DRresponse = 22)
  ControlCommand("Dr_Smith", Track_22)
  Sleep(6500)
ELSEif ($DRresponse = 23)
  ControlCommand("Dr_Smith", Track_23)
  Sleep(7500)
ELSEif ($DRresponse = 24)
  ControlCommand("Dr_Smith", Track_24)
  Sleep(4500)
ELSEif ($DRresponse = 25)
  ControlCommand("Dr_Smith", Track_25)
  Sleep(7000)
ELSEif ($DRresponse = 26)
  ControlCommand("Dr_Smith", Track_26)
  Sleep(4000)
ELSEif ($DRresponse = 27)
  ControlCommand("Dr_Smith", Track_27)
  Sleep(13000)
ELSEif ($DRresponse = 28)
  ControlCommand("Dr_Smith", Track_28)
  Sleep(4500)
ELSEif ($DRresponse = 29)
  ControlCommand("Dr_Smith", Track_29)
  Sleep(7500)
ELSEif ($DRresponse = 30)
  ControlCommand("Dr_Smith", Track_30)
  Sleep(2000)
ELSEif ($DRresponse = 31)
  ControlCommand("Dr_Smith", Track_31)
  Sleep(5500)
ELSEif ($DRresponse = 32)
  ControlCommand("Dr_Smith", Track_32)
  Sleep(7000)
ELSEif ($DRresponse = 33)
  ControlCommand("Dr_Smith", Track_33)
  Sleep(7000)
ELSEif ($DRresponse = 34)
  ControlCommand("Dr_Smith", Track_34)
  Sleep(4000)
ELSEif ($DRresponse = 35)
  ControlCommand("Dr_Smith", Track_35)
  Sleep(4500)
ELSEif ($DRresponse = 36)
  ControlCommand("Dr_Smith", Track_36)
  Sleep(7500)
ELSEif ($DRresponse = 37)
  ControlCommand("Dr_Smith", Track_37)
  Sleep(4500)
ELSEif ($DRresponse = 38)
  ControlCommand("Dr_Smith", Track_38)
  Sleep(5500)
ELSEif ($DRresponse = 39)
  ControlCommand("Dr_Smith", Track_39)
  Sleep(7000)
ELSEif ($DRresponse = 40)
  ControlCommand("Dr_Smith", Track_40)
  Sleep(7000)
ELSEif ($DRresponse = 41)
  ControlCommand("Dr_Smith", Track_41)
  Sleep(7000)
ELSEif ($DRresponse = 42)
  ControlCommand("Dr_Smith", Track_42)
  Sleep(6500)
ELSEif ($DRresponse = 43)
  ControlCommand("Dr_Smith", Track_43)
  Sleep(3000)
ELSEif ($DRresponse = 44)
  ControlCommand("Dr_Smith", Track_44)
  Sleep(15500)
ELSEif ($DRresponse = 45)
  ControlCommand("Dr_Smith", Track_45)
  Sleep(9000)
ELSEif ($DRresponse = 46)
  ControlCommand("Dr_Smith", Track_46)
  Sleep(7000)
ELSEif ($DRresponse = 47)
  ControlCommand("Dr_Smith", Track_47)
  Sleep(2000)
ELSEif ($DRresponse = 48)
  ControlCommand("Dr_Smith", Track_48)
  Sleep(4000)
ELSEif ($DRresponse = 49)
  ControlCommand("Dr_Smith", Track_49)
  Sleep(3000)
ELSEif ($DRresponse = 50)
  ControlCommand("Dr_Smith", Track_50)
  Sleep(3500)
endif
Goto(End_Script)

:R2D2
# Speak a random character phrase from 1 to 10
$SWresponse = GetRandomUnique(1,11)
Sleep(100)
# Response depending on random number
if ($SWresponse = 1)
  ControlCommand("R2D2", Track_1)
  Sleep(6000)
ELSEif ($SWresponse = 2)
  ControlCommand("R2D2", Track_2)
  Sleep(3000)
ELSEif ($SWresponse = 3)
  ControlCommand("R2D2", Track_3)
  Sleep(3000)
ELSEif ($SWresponse = 4)
  ControlCommand("R2D2", Track_4)
  Sleep(2500)
ELSEif ($SWresponse = 5)
  ControlCommand("R2D2", Track_5)
  Sleep(3000)
ELSEif ($SWresponse = 6)
  ControlCommand("R2D2", Track_6)
  Sleep(3000)
ELSEif ($SWresponse = 7)
  ControlCommand("R2D2", Track_7)
  Sleep(3000)
ELSEif ($SWresponse = 8)
  ControlCommand("R2D2", Track_8)
  Sleep(3000)
ELSEif ($SWresponse = 9)
  ControlCommand("R2D2", Track_9)
  Sleep(3000)
ELSEif ($SWresponse = 10)
  ControlCommand("R2D2", Track_10)
  Sleep(3000)
endif
Goto(End_Script)

:Will
# Speak a random character phrase from 1 to 13
$WillResponce = GetRandomUnique(1,19)
Sleep(100)
# Response depending on random number
if ($WillResponce = 1)
  ControlCommand("Will", Track_1)
  Sleep(3500)
ELSEif ($WillResponce = 2)
  ControlCommand("Will", Track_2)
  Sleep(3500)
ELSEif ($WillResponce = 3)
  ControlCommand("Will", Track_3)
  Sleep(1500)
ELSEif ($WillResponce = 4)
  ControlCommand("Will", Track_4)
  Sleep(3000)
ELSEif ($WillResponce = 5)
  ControlCommand("Will", Track_5)
  Sleep(23500)
ELSEif ($WillResponce = 6)
  ControlCommand("Will", Track_6)
  Sleep(4000)
ELSEif ($WillResponce = 7)
  ControlCommand("Will", Track_7)
  Sleep(4000)
ELSEif ($WillResponce = 8)
  ControlCommand("Will", Track_8)
  Sleep(6000)
ELSEif ($WillResponce = 9)
  ControlCommand("Will", Track_9)
  Sleep(8000)
ELSEif ($WillResponce = 10)
  ControlCommand("Will", Track_10)
  Sleep(4000)
ELSEif ($WillResponce = 11)
  ControlCommand("Will", Track_11)
  Sleep(6000)
ELSEif ($WillResponce = 12)
  ControlCommand("Will", Track_12)
  Sleep(2500)
ELSEif ($WillResponce = 13)
  ControlCommand("Will", Track_13)
  Sleep(2500)
ELSEif ($WillResponce = 14)
  ControlCommand("Will", Track_14)
  Sleep(3000)
ELSEif ($WillResponce = 15)
  ControlCommand("Will", Track_15)
  Sleep(3500)
ELSEif ($WillResponce = 16)
  ControlCommand("Will", Track_16)
  Sleep(8000)
ELSEif ($WillResponce = 17)
  ControlCommand("Will", Track_17)
  Sleep(2000)
ELSEif ($WillResponce = 18)
  ControlCommand("Will", Track_18)
  Sleep(6000)
endif
Goto(End_Script)

:Don
# Speak a random character phrase from 1 to 30
$Don_response = GetRandomUnique(2,31)
Sleep(100)
# Response depending on random number
if ($Don_response = 2)
  ControlCommand("Don", Track_2)
  Sleep(3000)
ELSEif ($Don_response = 3)
  ControlCommand("Don", Track_3)
  Sleep(4000)
ELSEif ($Don_response = 4)
  ControlCommand("Don", Track_4)
  Sleep(7000)
ELSEif ($Don_response = 5)
  ControlCommand("Don", Track_5)
  Sleep(5000)
ELSEif ($Don_response = 6)
  ControlCommand("Don", Track_6)
  Sleep(8500)
ELSEif ($Don_response = 7)
  ControlCommand("Don", Track_7)
  Sleep(5700)
ELSEif ($Don_response = 8)
  ControlCommand("Don", Track_8)
  Sleep(4700)
ELSEif ($Don_response = 9)
  ControlCommand("Don", Track_9)
  Sleep(3500)
ELSEif ($Don_response = 10)
  ControlCommand("Don", Track_10)
  Sleep(2500)
ELSEif ($Don_response = 11)
  ControlCommand("Don", Track_11)
  Sleep(4700)
ELSEif ($Don_response = 12)
  ControlCommand("Don", Track_12)
  Sleep(5200)
ELSEif ($Don_response = 13)
  ControlCommand("Don", Track_13)
  Sleep(6000)
ELSEif ($Don_response = 14)
  ControlCommand("Don", Track_14)
  Sleep(6000)
ELSEif ($Don_response = 15)
  ControlCommand("Don", Track_15)
  Sleep(7500)
ELSEif ($Don_response = 16)
  ControlCommand("Don", Track_16)
  Sleep(3500)
ELSEif ($Don_response = 17)
  ControlCommand("Don", Track_17)
  Sleep(3700)
ELSEif ($Don_response = 18)
  ControlCommand("Don", Track_18)
  Sleep(6000)
ELSEif ($Don_response = 19)
  ControlCommand("Don", Track_19)
  Sleep(4800)
ELSEif ($Don_response = 20)
  ControlCommand("Don", Track_20)
  Sleep(11500)
ELSEif ($Don_response = 21)
  ControlCommand("Don", Track_21)
  Sleep(6000)
ELSEif ($Don_response = 22)
  ControlCommand("Don", Track_22)
  Sleep(3000)
ELSEif ($Don_response = 23)
  ControlCommand("Don", Track_23)
  Sleep(7800)
ELSEif ($Don_response = 24)
  ControlCommand("Don", Track_24)
  Sleep(2400)
ELSEif ($Don_response = 25)
  ControlCommand("Don", Track_25)
  Sleep(11000)
ELSEif ($Don_response = 26)
  ControlCommand("Don", Track_26)
  Sleep(3500)
ELSEif ($Don_response = 27)
  ControlCommand("Don", Track_27)
  Sleep(2750)
ELSEif ($Don_response = 28)
  ControlCommand("Don", Track_28)
  Sleep(6000)
ELSEif ($Don_response = 29)
  ControlCommand("Don", Track_29)
  Sleep(10500)
ELSEif ($Don_response = 30)
  ControlCommand("Don", Track_30)
  Sleep(4500)
endif
Goto(End_Script)

:Maureen
# Speak a random character phrase from 1 to 18
$JLresponse = GetRandomUnique(1,19)
Sleep(100)
# Response depending on random number
if ($JLresponse = 1)
  ControlCommand("Maureen", Track_1)
  Sleep(6000)
ELSEif ($JLresponse = 2)
  ControlCommand("Maureen", Track_2)
  Sleep(8000)
ELSEif ($JLresponse = 3)
  ControlCommand("Maureen", Track_3)
  Sleep(10500)
ELSEif ($JLresponse = 4)
  ControlCommand("Maureen", Track_4)
  Sleep(4000)
ELSEif ($JLresponse = 5)
  ControlCommand("Maureen", Track_5)
  Sleep(5500)
ELSEif ($JLresponse = 6)
  ControlCommand("Maureen", Track_6)
  Sleep(10500)
ELSEif ($JLresponse = 7)
  ControlCommand("Maureen", Track_7)
  Sleep(6000)
ELSEif ($JLresponse = 8)
  ControlCommand("Maureen", Track_8)
  Sleep(10500)
ELSEif ($JLresponse = 9)
  ControlCommand("Maureen", Track_9)
  Sleep(7500)
ELSEif ($JLresponse = 10)
  ControlCommand("Maureen", Track_10)
  Sleep(3500)
ELSEif ($JLresponse = 11)
  ControlCommand("Maureen", Track_11)
  Sleep(14000)
ELSEif ($JLresponse = 12)
  ControlCommand("Maureen", Track_12)
  Sleep(11500)
ELSEif ($JLresponse = 13)
  ControlCommand("Maureen", Track_13)
  Sleep(4000)
ELSEif ($JLresponse = 14)
  ControlCommand("Maureen", Track_14)
  Sleep(5500)
ELSEif ($JLresponse = 15)
  ControlCommand("Maureen", Track_15)
  Sleep(6750)
ELSEif ($JLresponse = 16)
  ControlCommand("Maureen", Track_16)
  Sleep(16000)
ELSEif ($JLresponse = 17)
  ControlCommand("Maureen", Track_17)
  Sleep(4000)
ELSEif ($JLresponse = 18)
  ControlCommand("Maureen", Track_18)
  Sleep(5500)
endif
Goto(End_Script)

:John
# Speak a random character phrase from 1 to 23
$JRresponse = GetRandomUnique(1,27)
Sleep(100)
# Response depending on random number
if ($JRresponse = 1)
  ControlCommand("John", Track_1)
  Sleep(6000)
ELSEif ($JRresponse = 2)
  ControlCommand("John", Track_2)
  Sleep(6500)
ELSEif ($JRresponse = 3)
  ControlCommand("John", Track_3)
  Sleep(3500)
ELSEif ($JRresponse = 4)
  ControlCommand("John", Track_4)
  Sleep(4500)
ELSEif ($JRresponse = 5)
  ControlCommand("John", Track_5)
  Sleep(10000)
ELSEif ($JRresponse = 6)
  ControlCommand("John", Track_6)
  Sleep(7000)
ELSEif ($JRresponse = 7)
  ControlCommand("John", Track_7)
  Sleep(4500)
ELSEif ($JRresponse = 8)
  ControlCommand("John", Track_8)
  Sleep(4000)
ELSEif ($JRresponse = 9)
  ControlCommand("John", Track_9)
  Sleep(4000)
ELSEif ($JRresponse = 10)
  ControlCommand("John", Track_10)
  Sleep(4000)
ELSEif ($JRresponse = 11)
  ControlCommand("John", Track_11)
  Sleep(6000)
ELSEif ($JRresponse = 12)
  ControlCommand("John", Track_12)
  Sleep(11000)
ELSEif ($JRresponse = 13)
  ControlCommand("John", Track_13)
  Sleep(3000)
ELSEif ($JRresponse = 14)
  ControlCommand("John", Track_14)
  Sleep(3000)
ELSEif ($JRresponse = 15)
  ControlCommand("John", Track_15)
  Sleep(4000)
ELSEif ($JRresponse = 16)
  ControlCommand("John", Track_16)
  Sleep(7000)
ELSEif ($JRresponse = 17)
  ControlCommand("John", Track_17)
  Sleep(8000)
ELSEif ($JRresponse = 18)
  ControlCommand("John", Track_18)
  Sleep(5000)
ELSEif ($JRresponse = 19)
  ControlCommand("John", Track_19)
  Sleep(5000)
ELSEif ($JRresponse = 20)
  ControlCommand("John", Track_20)
  Sleep(15000)
ELSEif ($JRresponse = 21)
  ControlCommand("John", Track_21)
  Sleep(4000)
ELSEif ($JRresponse = 22)
  ControlCommand("John", Track_22)
  Sleep(6000)
ELSEif ($JRresponse = 23)
  ControlCommand("John", Track_23)
  Sleep(5000)
ELSEif ($JRresponse = 24)
  ControlCommand("John", Track_24)
  Sleep(10000)
ELSEif ($JRresponse = 25)
  ControlCommand("John", Track_25)
  Sleep(4250)
ELSEif ($JRresponse = 26)
  ControlCommand("John", Track_26)
  Sleep(4500)
endif
Goto(End_Script)

:Tufeld
# Speak a random character phrase from 1 to 5
$Tufeld = GetRandomUnique(1,19)
Sleep(100)
# Response depending on random number
if ($Tufeld = 1)
  ControlCommand("Tufeld", Track_1)
  Sleep(13000)
ELSEif ($Tufeld = 2)
  ControlCommand("Tufeld", Track_2)
  Sleep(34500)
ELSEif ($Tufeld = 3)
  ControlCommand("Tufeld", Track_3)
  Sleep(27600)
ELSEif ($Tufeld = 4)
  ControlCommand("Tufeld", Track_4)
  Sleep(15000)
ELSEif ($Tufeld = 5)
  ControlCommand("Tufeld", Track_5)
  Sleep(34500)
ELSEif ($Tufeld = 6)
  ControlCommand("Tufeld", Track_6)
  Sleep(15500)
ELSEif ($Tufeld = 7)
  ControlCommand("Tufeld", Track_7)
  Sleep(16000)
ELSEif ($Tufeld = 8)
  ControlCommand("Tufeld", Track_8)
  Sleep(18500)
ELSEif ($Tufeld = 9)
  ControlCommand("Tufeld", Track_9)
  Sleep(28000)
ELSEif ($Tufeld = 10)
  ControlCommand("Tufeld", Track_10)
  Sleep(11500)
ELSEif ($Tufeld = 11)
  ControlCommand("Tufeld", Track_11)
  Sleep(17500)
ELSEif ($Tufeld = 12)
  ControlCommand("Tufeld", Track_12)
  Sleep(21500)
ELSEif ($Tufeld = 13)
  ControlCommand("Tufeld", Track_13)
  Sleep(17500)
ELSEif ($Tufeld = 14)
  ControlCommand("Tufeld", Track_14)
  Sleep(10500)
ELSEif ($Tufeld = 15)
  ControlCommand("Tufeld", Track_15)
  Sleep(18000)
ELSEif ($Tufeld = 16)
  ControlCommand("Tufeld", Track_16)
  Sleep(24000)
ELSEif ($Tufeld = 17)
  ControlCommand("Tufeld", Track_17)
  Sleep(16750)
ELSEif ($Tufeld = 18)
  ControlCommand("Tufeld", Track_18)
  Sleep(12000)
endif
Goto(End_Script)

:Judy
# Speak a random character phrase from 1 to 13
$Judy = GetRandomUnique(1,14)
Sleep(100)
# Response depending on random number
if ($Judy = 1)
  ControlCommand("Judy", Track_1)
  Sleep(1500)
ELSEif ($Judy = 2)
  ControlCommand("Judy", Track_2)
  Sleep(7750)
ELSEif ($Judy = 3)
  ControlCommand("Judy", Track_3)
  Sleep(3750)
ELSEif ($Judy = 4)
  ControlCommand("Judy", Track_4)
  Sleep(2000)
ELSEif ($Judy = 5)
  ControlCommand("Judy", Track_5)
  Sleep(16000)
ELSEif ($Judy = 6)
  ControlCommand("Judy", Track_6)
  Sleep(6750)
ELSEif ($Judy = 7)
  ControlCommand("Judy", Track_7)
  Sleep(6750)
ELSEif ($Judy = 8)
  ControlCommand("Judy", Track_8)
  Sleep(6250)
ELSEif ($Judy = 9)
  ControlCommand("Judy", Track_9)
  Sleep(4750)
ELSEif ($Judy = 10)
  ControlCommand("Judy", Track_10)
  Sleep(6500)
ELSEif ($Judy = 11)
  ControlCommand("Judy", Track_11)
  Sleep(9000)
ELSEif ($Judy = 12)
  ControlCommand("Judy", Track_12)
  Sleep(6500)
ELSEif ($Judy = 13)
  ControlCommand("Judy", Track_13)
  Sleep(4500)
endif
Goto(End_Script)

:Wall_e
# Speak a random character phrase from 1 to 8
$Wall_e = GetRandomUnique(1,9)
Sleep(100)
# Response depending on random number
if ($Wall_e = 1)
  ControlCommand("Wall_e", Track_1)
  Sleep(1500)
ELSEif ($Wall_e = 2)
  ControlCommand("Wall_e", Track_2)
  Sleep(2500)
ELSEif ($Wall_e = 3)
  ControlCommand("Wall_e", Track_3)
  Sleep(2500)
ELSEif ($Wall_e = 4)
  ControlCommand("Wall_e", Track_4)
  Sleep(2500)
ELSEif ($Wall_e = 5)
  ControlCommand("Wall_e", Track_5)
  Sleep(2000)
ELSEif ($Wall_e = 6)
  ControlCommand("Wall_e", Track_6)
  Sleep(2500)
ELSEif ($Wall_e = 7)
  ControlCommand("Wall_e", Track_7)
  Sleep(3000)
ELSEif ($Wall_e = 8)
  ControlCommand("Wall_e", Track_8)
  Sleep(17750)
endif
Goto(End_Script)

:Penny
# Speak a random character phrase from 2 to 14
$Penny = GetRandomUnique(2,15)
Sleep(100)
# Response depending on random number
if ($Penny = 2)
  ControlCommand("Penny", Track_2)
  Sleep(5000)
ELSEif ($Penny = 3)
  ControlCommand("Penny", Track_3)
  Sleep(4000)
ELSEif ($Penny = 4)
  ControlCommand("Penny", Track_4)
  Sleep(5000)
ELSEif ($Penny = 5)
  ControlCommand("Penny", Track_5)
  Sleep(2000)
ELSEif ($Penny = 6)
  ControlCommand("Penny", Track_6)
  Sleep(3000)
ELSEif ($Penny = 7)
  ControlCommand("Penny", Track_7)
  Sleep(4500)
ELSEif ($Penny = 8)
  ControlCommand("Penny", Track_8)
  Sleep(6250)
ELSEif ($Penny = 9)
  ControlCommand("Penny", Track_9)
  Sleep(3250)
ELSEif ($Penny = 10)
  ControlCommand("Penny", Track_10)
  Sleep(4500)
ELSEif ($Penny = 11)
  ControlCommand("Penny", Track_11)
  Sleep(4000)
ELSEif ($Penny = 12)
  ControlCommand("Penny", Track_12)
  Sleep(7750)
ELSEif ($Penny = 13)
  ControlCommand("Penny", Track_13)
  Sleep(4000)
ELSEif ($Penny = 14)
  ControlCommand("Penny", Track_14)
  Sleep(10500)
endif
Goto(End_Script)

:Hal9000
# Speak a random character phrase from 1 to 23
$Hal = GetRandomUnique(1,24)
Sleep(100)
# Response depending on random number
if ($Hal = 1)
  ControlCommand("Hal9000", Track_1)
  Sleep(4500)
ELSEif ($Hal = 2)
  ControlCommand("Hal9000", Track_2)
  Sleep(3000)
ControlCommand("Phrases", Track_4)
  Sleep(4500)
ELSEif ($Hal = 3)
  ControlCommand("Hal9000", Track_3)
  Sleep(3500)
ELSEif ($Hal = 4)
  ControlCommand("Hal9000", Track_4)
  Sleep(12750)
ELSEif ($Hal = 5)
  ControlCommand("Hal9000", Track_5)
  Sleep(3500)
ELSEif ($Hal = 6)
  ControlCommand("Hal9000", Track_6)
  Sleep(7500)
ELSEif ($Hal = 7)
  ControlCommand("Hal9000", Track_7)
  Sleep(400)
ELSEif ($Hal = 8)
  ControlCommand("Hal9000", Track_8)
  Sleep(7500)
ELSEif ($Hal = 9)
  ControlCommand("Hal9000", Track_9)
  Sleep(2750)
ELSEif ($Hal = 10)
  ControlCommand("Hal9000", Track_10)
  Sleep(5500)
ELSEif ($Hal = 11)
  ControlCommand("Hal9000", Track_11)
  Sleep(8000)
ELSEif ($Hal = 12)
  ControlCommand("Hal9000", Track_12)
  Sleep(3000)
ELSEif ($Hal = 13)
  ControlCommand("Hal9000", Track_13)
  Sleep(7000)
ELSEif ($Hal = 14)
  ControlCommand("Hal9000", Track_14)
  Sleep(4250)
ELSEif ($Hal = 15)
  ControlCommand("Hal9000", Track_15)
  Sleep(6500)
ELSEif ($Hal = 16)
  ControlCommand("Hal9000", Track_16)
  Sleep(5500)
ELSEif ($Hal = 17)
  ControlCommand("Hal9000", Track_17)
  Sleep(5500)
ELSEif ($Hal = 18)
  ControlCommand("Hal9000", Track_18)
  Sleep(6250)
ELSEif ($Hal = 19)
  ControlCommand("Hal9000", Track_19)
  Sleep(8000)
ELSEif ($Hal = 20)
  ControlCommand("Hal9000", Track_20)
  Sleep(14000)
ELSEif ($Hal = 21)
  ControlCommand("Hal9000", Track_21)
  Sleep(9000)
ELSEif ($Hal = 22)
  ControlCommand("Hal9000", Track_22)
  Sleep(3750)
ELSEif ($Hal = 23)
  ControlCommand("Hal9000", Track_23)
  Sleep(4000)
endif
Goto(End_Script)

:Bender
# Speak a random character phrase from 1 to 41
$Bender = GetRandomUnique(1,42)
Sleep(100)
# Response depending on random number
if ($Bender = 1)
  ControlCommand("Bender", Track_1)
  Sleep(4000)
ELSEif ($Bender = 2)
  ControlCommand("Bender", Track_2)
  Sleep(9000)
ELSEif ($Bender = 3)
  ControlCommand("Bender", Track_3)
  Sleep(4000)
ELSEif ($Bender = 4)
  ControlCommand("Bender", Track_4)
  Sleep(4000)
ELSEif ($Bender = 5)
  ControlCommand("Bender", Track_5)
  Sleep(2000)
ELSEif ($Bender = 6)
  ControlCommand("Bender", Track_6)
  Sleep(3000)
ELSEif ($Bender = 7)
  ControlCommand("Bender", Track_7)
  Sleep(2500)
ELSEif ($Bender = 8)
  ControlCommand("Bender", Track_8)
  Sleep(3000)
ELSEif ($Bender = 9)
  ControlCommand("Bender", Track_9)
  Sleep(8500)
ELSEif ($Bender = 10)
  ControlCommand("Bender", Track_10)
  Sleep(7000)
ELSEif ($Bender = 11)
  ControlCommand("Bender", Track_11)
  Sleep(14000)
ELSEif ($Bender = 12)
  ControlCommand("Bender", Track_12)
  Sleep(9250)
ELSEif ($Bender = 13)
  ControlCommand("Bender", Track_13)
  Sleep(3000)
ELSEif ($Bender = 14)
  ControlCommand("Bender", Track_14)
  Sleep(3000)
ELSEif ($Bender = 15)
  ControlCommand("Bender", Track_15)
  Sleep(4000)
ELSEif ($Bender = 16)
  ControlCommand("Bender", Track_16)
  Sleep(3000)
ELSEif ($Bender = 17)
  ControlCommand("Bender", Track_17)
  Sleep(4250)
ELSEif ($Bender = 18)
  ControlCommand("Bender", Track_18)
  Sleep(8000)
ELSEif ($Bender = 19)
  ControlCommand("Bender", Track_19)
  Sleep(15250)
ELSEif ($Bender = 20)
  ControlCommand("Bender", Track_20)
  Sleep(5500)
ELSEif ($Bender = 21)
  ControlCommand("Bender", Track_21)
  Sleep(2500)
ELSEif ($Bender = 22)
  ControlCommand("Bender", Track_22)
  Sleep(6500)
ELSEif ($Bender = 23)
  ControlCommand("Bender", Track_23)
  Sleep(7500)
ELSEif ($Bender = 24)
  ControlCommand("Bender", Track_24)
  Sleep(4500)
ELSEif ($Bender = 25)
  ControlCommand("Bender", Track_25)
  Sleep(7000)
ELSEif ($Bender = 26)
  ControlCommand("Bender", Track_26)
  Sleep(4000)
ELSEif ($Bender = 27)
  ControlCommand("Bender", Track_27)
  Sleep(13000)
ELSEif ($Bender = 28)
  ControlCommand("Bender", Track_28)
  Sleep(4500)
ELSEif ($Bender = 29)
  ControlCommand("Bender", Track_29)
  Sleep(7500)
ELSEif ($Bender = 30)
  ControlCommand("Bender", Track_30)
  Sleep(4250)
ELSEif ($Bender = 31)
  ControlCommand("Bender", Track_31)
  Sleep(9250)
ELSEif ($Bender = 32)
  ControlCommand("Bender", Track_32)
  Sleep(7000)
ELSEif ($Bender = 33)
  ControlCommand("Bender", Track_33)
  Sleep(7000)
ELSEif ($Bender = 34)
  ControlCommand("Bender", Track_34)
  Sleep(4000)
ELSEif ($Bender = 35)
  ControlCommand("Bender", Track_35)
  Sleep(4500)
ELSEif ($Bender = 36)
  ControlCommand("Bender", Track_36)
  Sleep(7500)
ELSEif ($Bender = 37)
  ControlCommand("Bender", Track_37)
  Sleep(4500)
ELSEif ($Bender = 38)
  ControlCommand("Bender", Track_38)
  Sleep(5500)
ELSEif ($Bender = 39)
  ControlCommand("Bender", Track_39)
  Sleep(7000)
ELSEif ($Bender = 40)
  ControlCommand("Bender", Track_40)
  Sleep(7000)
ELSEif ($Bender = 41)
  ControlCommand("Bender", Track_41)
  Sleep(4000)
endif
Goto(End_Script)

:Robby
# Speak a random character phrase from 1 to 34
$Robby = GetRandomUnique(1,36)
Sleep(100)
# Response depending on random number
if ($Robby = 1)
  ControlCommand("Robby", Track_1)
  Sleep(10000)
ELSEif ($Robby = 2)
  ControlCommand("Robby", Track_2)
  Sleep(16000)
ELSEif ($Robby = 3)
  ControlCommand("Robby", Track_3)
  Sleep(5000)
ELSEif ($Robby = 4)
  ControlCommand("Robby", Track_4)
  Sleep(15750)
ELSEif ($Robby = 5)
  ControlCommand("Robby", Track_5)
  Sleep(13500)
ELSEif ($Robby = 6)
  ControlCommand("Robby", Track_6)
  Sleep(6500)
ELSEif ($Robby = 7)
  ControlCommand("Robby", Track_7)
  Sleep(6000)
ELSEif ($Robby = 8)
  ControlCommand("Robby", Track_8)
  Sleep(4500)
ELSEif ($Robby = 9)
  ControlCommand("Robby", Track_9)
  Sleep(18000)
ELSEif ($Robby = 10)
  ControlCommand("Robby", Track_10)
  Sleep(11000)
ELSEif ($Robby = 11)
  ControlCommand("Robby", Track_11)
  Sleep(8500)
ELSEif ($Robby = 12)
  ControlCommand("Robby", Track_12)
  Sleep(6000)
ELSEif ($Robby = 13)
  ControlCommand("Robby", Track_13)
  Sleep(12000)
ELSEif ($Robby = 14)
  ControlCommand("Robby", Track_14)
  Sleep(13000)
ELSEif ($Robby = 15)
  ControlCommand("Robby", Track_15)
  Sleep(9500)
ELSEif ($Robby = 16)
  ControlCommand("Robby", Track_16)
  Sleep(6500)
ELSEif ($Robby = 17)
  ControlCommand("Robby", Track_17)
  Sleep(13000)
ELSEif ($Robby = 18)
  ControlCommand("Robby", Track_18)
  Sleep(5000)
ELSEif ($Robby = 19)
  ControlCommand("Robby", Track_19)
  Sleep(14000)
ELSEif ($Robby = 20)
  ControlCommand("Robby", Track_20)
  Sleep(7750)
ELSEif ($Robby = 21)
  ControlCommand("Robby", Track_21)
  Sleep(9500)
ELSEif ($Robby = 22)
  ControlCommand("Robby", Track_22)
  Sleep(5500)
ELSEif ($Robby = 23)
  ControlCommand("Robby", Track_23)
  Sleep(5500)
ELSEif ($Robby = 24)
  ControlCommand("Robby", Track_24)
  Sleep(9000)
ELSEif ($Robby = 25)
  ControlCommand("Robby", Track_25)
  Sleep(138500)
ELSEif ($Robby = 26)
  ControlCommand("Robby", Track_26)
  Sleep(9750)
ELSEif ($Robby = 27)
  ControlCommand("Robby", Track_27)
  Sleep(5250)
ELSEif ($Robby = 28)
  ControlCommand("Robby", Track_28)
  Sleep(7500)
ELSEif ($Robby = 29)
  ControlCommand("Robby", Track_29)
  Sleep(4000)
ELSEif ($Robby = 30)
  ControlCommand("Robby", Track_30)
  Sleep(4000)
ELSEif ($Robby = 31)
  ControlCommand("Robby", Track_31)
  Sleep(7750)
ELSEif ($Robby = 32)
  ControlCommand("Robby", Track_32)
  Sleep(15000)
ELSEif ($Robby = 33)
  ControlCommand("Robby", Track_33)
  Sleep(3750)
ELSEif ($Robby = 34)
  ControlCommand("Robby", Track_34)
  Sleep(19250)
ELSEif ($Robby = 35)
  ControlCommand("Robby", Track_35)
  Sleep(5000)
endif
Goto(End_Script)

:End_Script
# Speak a random Robot's closing phrase from 1 to 15
$End_Script = GetRandomUnique(1,16)
Sleep(100)
# Response depending on random number
if ($End_Script = 1)
  ControlCommand("Soundboard v4", Track_52)
  Sleep(3500)
ELSEif ($End_Script = 2)
  ControlCommand("Soundboard v4", Track_83)
  Sleep(3000)
ELSEif ($End_Script = 3)
  ControlCommand("Soundboard v4", Track_84)
  Sleep(3000)
ELSEif ($End_Script = 4)
  ControlCommand("Soundboard v4", Track_85)
  Sleep(6000)
ELSEif ($End_Script = 5)
  ControlCommand("Soundboard v4", Track_86)
  Sleep(3000)
ELSEif ($End_Script = 6)
  ControlCommand("Soundboard v4", Track_87)
  Sleep(2500)
ELSEif ($End_Script = 7)
  ControlCommand("Soundboard v4", Track_88)
  Sleep(3000)
ELSEif ($End_Script = 8)
  ControlCommand("Soundboard v4", Track_89)
  Sleep(3000)
ELSEif ($End_Script = 9)
  ControlCommand("Soundboard v4", Track_90)
  Sleep(3000)
ELSEif ($End_Script = 10)
  ControlCommand("Soundboard v4", Track_91)
  Sleep(2500)
ELSEif ($End_Script = 11)
  ControlCommand("Soundboard v4", Track_92)
  Sleep(4000)
ELSEif ($End_Script = 12)
  ControlCommand("Soundboard v4", Track_9)
  Sleep(3000)
ELSEif ($End_Script = 13)
  ControlCommand("Soundboard v4", Track_10)
  Sleep(3000)
ELSEif ($End_Script = 14)
  ControlCommand("Soundboard v4", Track_36)
  Sleep(2500)
ELSEif ($End_Script = 15)
  ControlCommand("Soundboard v4", Track_51)
  Sleep(2500)
endif

PWM(D0, 0)#Ear Motors
PWM(D9, 0)#Crown Motor
Set(D10, Off) #Fast Brain Lights

# Single_Impression_Claw_Shutdown
if ($Claw_Shutdown = 1)
  ControlCommand("Left Arm", ScriptStart, "Left Claw Rest Open")
  ControlCommand("Right Arm", ScriptStart, "Right Claw Rest Open")
  Sleep(2000)
  Release(2.D6 ) #Release Lft Claws servo
  release(2.D4) #Release Left Wrist Up & Down Servo
  release(2.D5) #Release Left Side to side servo
  Release(2.D3 ) #Release Rt Claws servo
  release(2.D1) #Release Rt Wrist Up & Down Servo
  Release(2.D0) #Release Rt Side to side servo
endif

Sleep(500)
ControlCommand("Speech Recognition", PauseOff)
ControlCommand("Personality Generator", PauseOff)
ClearVariable( "$response" )
ClearVariable( "$DRresponse" )
ClearVariable( "$SWresponse" )
ClearVariable( "$WillResponce" )
ClearVariable( "$Don_response" )
ClearVariable( "$JLresponse" )
ClearVariable( "$acknowledge" )

# Below Variables Reset their variablse so single impersonations will work again.
$single_smith = 0
$single_will = 0
$single_tufeld = 0
$single_john = 0
$single_Maureen = 0
$single_don = 0
$single_judy = 0
$single_penny = 0
$single_r2d2 = 0
$single_wall_e = 0
$single_hal9000 = 0
$single_bender = 0
$single_robbie = 0
$1st_impression_Start = 0
$Claw_Shutdown = 0