[bthomsen0312]

sub EVENT_SAY
{
    if ($text =~/Hail/i)
{
        quest::say ("Good day to you, $name. Do you want to [go] home?");
}
    if ($text =~/go/i) && ($race eq 'Dark Elf') {
        quest::movepc(40, 156.92, -2.94, 31.75) ;
}
    elsif ($text =~/go/i) && ($race eq 'Troll') {
        quest::movepc(52, 0, -100, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Wood Elf') {
        quest::movepc(54, 10, -20, 0) ;
}
    elsif ($text =~/go/i) && ($race eq 'Half-Elf') {
        quest::movepc(54, 10, -20, 0) ;
}
    elsif ($text =~/go/i) && ($race eq 'Vah Shir') {
        quest::movepc(54, 10, -20, 0) ;
}
    elsif ($text =~/go/i) && ($race eq 'Froglok') {
        quest::movepc(105, -18, -123, -16) ;
}
    elsif ($text =~/go/i) && ($race eq 'High Elf') {
        quest::movepc(61, 94, -25, 3.75) ;
}
    elsif ($text =~/go/i) && ($race eq 'Gnome') {
        quest::movepc(55, -35, -47, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Human') {
        quest::movepc(8, 211, -296, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Halfling') {
        quest::movepc(19, 45.3, 1.6, 3.8) ;
}
    elsif ($text =~/go/i) && ($race eq 'Erudite') {
        quest::movepc(24, -309.75, 109.64, 23.75) ;
}
    elsif ($text =~/go/i) && ($race eq 'Drakkin') {
        quest::movepc(394, -550, -430, 80) ;
}
    elsif ($text =~/go/i) && ($race eq 'Iksar') {
        quest::movepc(106, -416, 1343, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Troll') {
        quest::movepc(52, 0, -100, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Ogre') {
        quest::movepc(37, -99, -345, 4) ;
}
    elsif ($text =~/go/i) && ($race eq 'Barbarian') {
        quest::movepc(29, 0, 0, 3.75) ;
}
    else ($text =~/go/i) && ($race eq 'Dwarf') {
        quest::movepc(60, -2, -18, 3.75) ;
}
}

like this? This is my general idea of the perl i want to work. yes i realize vah shir and Half-Elf are stuck together with wood elves.