// Teleportation Item v1.0.0
// by Kelandon (tomwatts@berkeley.edu)
// This script takes several variables. If you are running short, at least
// three can be eliminated with some reworking of the code. As written, they
// should be declared as follows in the header of your scenario script:
short direction,what_num,choice,dest_x,dest_y,i;

// This script also assumes that you are using states 10 and 11 in your
// scenario script for the item. If you aren't, go down to the line that
// says "********* LINE TO CHANGE" and replace "10" or "11" with the states
// that you are actually using.

beginstate 10;
// If the party is not in town, end everything and explain.
if (is_town() == 0) {
print_str("You must be in town mode for this item to work.");
end();
}

// Inform the player what is happening.
message_dialog("You must now enter what direction you would like to move. The choices are: north, south, east, and west. For example, if you would like to move north, enter _north_ in the following pop-up window.","");

// Zero the variable.
direction = 0;

// Get the direction.
get_text_response("What direction?");
check_text_response_match("north");
if (got_text_match())
direction = 1;
check_text_response_match("south");
if (got_text_match())
direction = 2;
check_text_response_match("east");
if (got_text_match())
direction = 3;
check_text_response_match("west");
if (got_text_match())
direction = 4;

// If the variable is still zero, getting the direction failed. Ask if they
// want to try again.
if (direction == 0) {
reset_dialog();
add_dialog_str(0,"That wasn't a cardinal direction in all lower-case letter. Remember, if you want to go north, enter _north_ without any upper-case. Would you like to try again?",0);
add_dialog_choice(0,"No, cancel this.");
add_dialog_choice(1,"Yes, try again.");
if (run_dialog(1) == 1) // If they want to cancel, end.
end();
// Otherwise, start over.
set_state_continue(10); // ********* LINE TO CHANGE
}

// Otherwise, everything worked out. Move to the next state, which finds out
// how many spaces.

set_state_continue(11); // ********* LINE TO CHANGE

break;

beginstate 11;
// Continuing the flow from state 10. We know what direction. Now we need to
// find out how far, and move the party that far.

message_dialog("Now you need to enter how many spaces. Enter a numeral from one to ten. For example, if you want to move five spaces, enter _5_.","");

// Zero the variable.
what_num = 0;

get_text_response("How many?");
check_text_response_match("1");
if (got_text_match())
what_num = 1;
check_text_response_match("2");
if (got_text_match())
what_num = 2;
check_text_response_match("3");
if (got_text_match())
what_num = 3;
check_text_response_match("4");
if (got_text_match())
what_num = 4;
check_text_response_match("5");
if (got_text_match())
what_num = 5;
check_text_response_match("6");
if (got_text_match())
what_num = 6;
check_text_response_match("7");
if (got_text_match())
what_num = 7;
check_text_response_match("8");
if (got_text_match())
what_num = 8;
check_text_response_match("9");
if (got_text_match())
what_num = 9;
check_text_response_match("10");
if (got_text_match())
what_num = 10;

// Check to make sure this is a valid place. First find the lead character's
// number, which may not be zero, since the player could have a blank space
// his lineup (first character died, perhaps).
i = 0;
while (char_ok(i) == 0)
{i = i + 1; }

// Now figure out the destination and save it. X-coordinate first, then y.
if ((direction == 1) || (direction == 2))
// Moving north or south, so x-coordinate doesn't change.
dest_x = char_loc_x(i);
if (direction == 3)
// Moving east, so x-coordinate will increase.
dest_x = char_loc_x(i) + what_num;
if (direction == 4)
// Moving west, so x-coordinate will decrease.
dest_x = char_loc_x(i) - what_num;
// Now y-coordinate.
if (direction == 1)
// Moving north, so y-coordinate will decrease.
dest_y = char_loc_y(i) - what_num;
if (direction == 2)
// Moving south, so y-coordinate will increase.
dest_y = char_loc_y(i) + what_num;
if ((direction == 3) || (direction == 4))
// Moving east or west, so y-coordinate doesn't change.
dest_y = char_loc_y(i);

// Now check to see if the destination is inside the town's limits. If not,
// set what_num to 500 to indicate the error.
if (current_town_size() == 0) // large town, so 64 x 64
if ((dest_x > 63) || (dest_y > 63))
what_num = 500;
if (current_town_size() == 1) // medium town, so 48 x 48
if ((dest_x > 47) || (dest_y > 47))
what_num = 500;
if (current_town_size() == 2) // small town, so 32 x 32
if ((dest_x > 31) || (dest_y > 31))
what_num = 500;

// Now, if what_num is still zero, then getting the number of spaces has
// failed. If what_num is 500, the space was outside the proper town area.
// Ask if they want to try again.
if ((what_num == 0) || (what_num == 500)) {
reset_dialog();
if (what_num == 0)
add_dialog_str(0,"That wasn't a numeral between 1 and 10 inclusive. Remember, if you want to go three spaces, enter _3_. Would you like to try again?",0);
if (what_num == 500)
add_dialog_str(0,"That space is outside the town area, which is not allowed. Would you like to try again?",0);
add_dialog_choice(0,"No, cancel this.");
add_dialog_choice(1,"Yes, try again.");
add_dialog_choice(2,"Let me start over.");
choice = run_dialog(1);
if (choice == 1) // If they want to cancel, end.
end();
// If they want to try again, start this state over.
if (choice == 2)
set_state_continue(11); // ********* LINE TO CHANGE
// If they want to try again, start this state over.
if (choice == 3)
set_state_continue(10); // ********* LINE TO CHANGE
}

// If they've made it this far, they have a destination, and everything
// checks out, so actually move them there. This is a bit shaky; the best
// way that I could think of was just to march the party there, not
// refreshing the screen, so that it happens instantly and brings the other
// characters along, but this could lead to strange things, like trailing
// characters standing on the other side of a wall or something.
while (char_loc_x(i) != dest_x) {
if (char_loc_x(i) < dest_x)
march_party(char_loc_x(i) + 1,char_loc_y(i));
if (char_loc_x(i) > dest_x)
march_party(char_loc_x(i) - 1,char_loc_y(i));
}
while (char_loc_y(i) != dest_y) {
if (char_loc_y(i) < dest_y)
march_party(char_loc_x(i),char_loc_y(i) + 1);
if (char_loc_y(i) > dest_y)
march_party(char_loc_x(i),char_loc_y(i) - 1);
}
run_animation_sound(10); // Play teleport sound when they move there
break;

it_ability_1 = 207; // calls state in scenario script when used
it_ability_str_1 = 16; // calls state 16

begindefineitem 499;
clear;
it_name = "telaporting wand";
it_full_name = "telaporting wand";
it_charges = 0;
it_variety = 9;
it_floor_which_sheet = 1032;
it_floor_which_icon = 8;
it_inventory_icon = 9;
it_ability_1 = 207; // calls state in scenario script when used
it_ability_str_1 = 16; // calls state 16
it_value = 0;
it_magic = 1;