Race dependant teleport

[joligario]

Really, you don't need any esle type statements unless you are wanting to just stop the process. There shouldn't be any characters that have 2 classes.

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

[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) ;
}
}
}

[Wesell]

quest::movepc is case sensitive, stop camel-casing it.

[trevius]

He is probably using an older version of GeorgeS' Quest Editor Tool. Until the most recent version of the tool, it was automatically changing the case of MovePC like that. Either upgrade the tool or edit the script from notepad/notepad++.