Race dependant teleport

[bthomsen0312]

the above script doesn't work, neither does inserting the ID numbers for the race as well, this is what i have put in, i also had to make a couple corrections.

#Perl Script for Albert to teleport People to their respective starting cities
sub EVENT_SAY {
    if ($text =~/Hail/i)
{
        quest::say ("Good day to you, $name. I imagine you have talked to Death by now? If you haven't, you really should seek him out. If you have, are you ready to [go home]?");
}
    if ($text =~/go home/i) {
      if ($race eq '6') 
      {
        quest::MovePC(40, 156.92, -2.94, 31.75) ;
}
    if ($race eq '9')
    {
        quest::MovePC(52, 0, -100, 4) ;
}
    if ($race eq '4')
    {
        quest::MovePC(54, 10, -20, 0) ;
}
    if ($race eq '7')
	{
        quest::MovePC(54, 10, -20, 0) ;
}
    if ($race eq '130')
	{
        quest::MovePC(54, 10, -20, 0) ;
}
    if ($race eq '330')
	{
        quest::MovePC(105, -18, -123, -16) ;
}
    if ($race eq '5')
	{
        quest::MovePC(61, 94, -25, 3.75) ;
}
    if ($race eq '12')
	{
        quest::MovePC(55, -35, -47, 4) ;
}
    if ($race eq '1')
	{
        quest::MovePC(8, 211, -296, 4) ;
}
    if ($race eq '11')
	{
        quest::MovePC(19, 45.3, 1.6, 3.8) ;
}
    if ($race eq '3')
	{
        quest::MovePC(24, -309.75, 109.64, 23.75) ;
}
    if ($race eq "Drakkin")
	{
        quest::MovePC(394, -550, -430, 80) ;
}
    if ($race eq '128')
	{
        quest::MovePC(106, -416, 1343, 4) ;
}
    if ($race eq '9')
	{
        quest::MovePC(52, 0, -100, 4) ;
}
    if ($race eq '10')
	{
        quest::MovePC(37, -99, -345, 4) ;
}
    if ($race eq '2')
	{
        quest::MovePC(29, 0, 0, 3.75) ;
}
    if ($race eq '8')
	{
        quest::MovePC(60, -2, -18, 3.75) ;
}
}
}