// DAMMIT, THIS DOESN'T WORK. DON'T USE THIS SCRIPT. SEE BELOW.
//
// Dehydration v1.1.1
// dehydration.txt
// Originally written by Dahak.
// Revised thoroughly by Kelandon (tomwatts@berkeley.edu).
//
// This general script checks if the party has a special item, water, and does
// increasing amounts of damage to the party if they don't have it. This
// simulates thirst, as in a desert.
//
// This script should probably go in the scenario script and be run in the
// START_STATE, as depicted below.
//

variables;
short last_drank = 0;
short thirst_turns = 0;

// Change the following variable to whatever special item the water is.
short water = 0;

// Change the following variable if you want the party to dehydrate slower or
// faster. This is the number of turns between each water check.
short dehyd_speed = 500;

// Change the following variable if you want the party to die of dehydration
// slower or faster. This times dehyd_speed equals the number of turns without
// water after which the party will automatically die.
short dead_of_thirst = 8;

beginstate START_STATE;

// Check if enough time has passed since the last water check. If so, proceed.
if (tick_difference(last_drank,get_current_tick()) >= dehyd_speed) {
// Set this turn to have been the last water check.
last_drank = get_current_tick();

// If the party has water, drink it.
if(has_special_item(water)) {
print_str("You drink some water.");
change_spec_item(water,-1);
thirst_turns = 0;
}

// If the party doesn't have water, do other things.
else {
// Damage them based on how long they've been thirsty (recorded in the
// variable thirst_turns).
thirst_turns = thirst_turns + 1;
damage_char(1000,(10 * thirst_turns) + get_ran(1,0,9),4);
print_str ("You're thirsty!");

// Warn them if they're dying.
if (thirst_turns == dead_of_thirst - 1)
print_str_color("YOU ARE NEAR DEATH. YOU NEED WATER.",1);

// If they are too thirsty, kill them.
if (thirst_turns == dead_of_thirst) {
message_dialog("You die of thirst!","");
kill_char(1000,2,0);
}
}
}

break;