-+-+-+-+-+-+-+-+ START OF PART 69 -+-+-+-+-+-+-+-+
X`5Bexternal`5D function inven_damage(
X`09`09typ`09`09: obj_set;
X`09`09perc`09`09: integer) : integer; extern;
X`5Bexternal`5D function inven_check_weight : boolean; extern;
X`5Bexternal`5D function inven_check_num : boolean; extern;
X`5Bexternal`5D function add_inven_item(item : treasure_type) : treas_ptr; ex
Vtern;
X`5Bexternal`5D function inven_carry : treas_ptr; extern;
X`5Bexternal`5D function get_item(
X`09`09`09var com_ptr`09: treas_ptr;
X`09`09`09pmt`09`09: vtype;
X`09`09`09var redraw`09: boolean;
X`09`09`09count`09`09: integer;
X`09`09`09var choice`09: char;
X`09`09`09mon`09`09: boolean;
X`09`09`09no_wait`09`09: boolean := false) : boolean; extern;
X
X
X`7B IO.PAS`09`09`7D
X`5Bexternal`5D procedure convert_time(
X`09`09int_time`09: unsigned;
X`09`09var bin_time`09: quad_type); extern;
X`5Bexternal`5D procedure sleep(int_time : unsigned); extern;
X`5Bexternal`5D procedure mini_sleep(int_time : unsigned); extern;
X`5Bexternal`5D procedure priv_switch(switch_val : integer); extern;
X`5Bexternal`5D procedure no_controly; extern;
X`5Bexternal`5D procedure controly; extern;
X`5Bexternal`5D procedure exit; extern;
X`5Bexternal`5D procedure init_channel; extern;
X`5Bexternal`5D procedure inkey(var getchar : char); extern;
X`5Bexternal`5D procedure msg_record(message : vtype; save : boolean); extern
V;
X`5Bexternal`5D procedure inkey_delay(
X`09`09var getchar`09: char;
X`09`09delay`09`09: integer); extern;
X`5Bexternal`5D procedure flush; extern;
X`5Bexternal`5D procedure inkey_flush(var x : char); extern;
X`5Bexternal`5D procedure get_message; extern;
X`5Bexternal`5D procedure set_the_trap; extern;
X`5Bexternal`5D procedure disable_the_trap; extern;
X`5Bexternal`5D procedure erase_line(
X`09`09row `09: integer;
X`09`09col`09: integer); extern;
X`5Bexternal`5D procedure clear(row,col : integer); extern;
X`5Bexternal`5D procedure print(
X`09`09str_buff`09: varying`5Ba`5D of char;
X`09`09row`09`09: integer;
X`09`09col`09`09: integer); extern;
X`5Bexternal`5D procedure prt(
X`09`09str_buff`09: varying`5Ba`5D of char;
X`09`09row`09`09: integer;
X`09`09col`09`09: integer); extern;
X`5Bexternal`5D function msg_print(str_buff : varying`5Ba`5D of char) : boole
Van; extern;
X`5Bexternal`5D function get_com(
X`09`09prompt`09`09: varying`5Ba`5D of char;
X`09`09var command`09: char) : boolean; extern;
X`5Bexternal`5D function get_yes_no(prompt : varying`5Ba`5D of char) : boolea
Vn; extern;
X`5Bexternal`5D function get_string(
X`09`09var in_str`09: varying`5Ba`5D of char;
X`09`09row,column,slen : integer) : boolean; extern;
X`5Bexternal`5D function get_hex_value(row,col,slen : integer) : integer; ext
Vern;
X`5Bexternal`5D procedure print_hex_value(num,row,col : integer); extern;
X`5Bexternal`5D procedure pause(prt_line : integer); extern;
X`5Bexternal`5D procedure pause_exit(
X`09`09prt_line`09: integer;
X`09`09delay`09`09: integer); extern;
X`5Bexternal`5D procedure get_paths; extern;
X
X
X`7B PLAYER.PAS`09`09`7D
X`5Bexternal`5D procedure find_off; extern;
X`5Bexternal`5D procedure search_off; extern;
X`5Bexternal`5D procedure rest_off; extern;
X`5Bexternal`5D procedure take_hit(damage : integer; hit_from : vtype); exter
Vn;
X`5Bexternal`5D procedure regenhp(percent : real); extern;
X`5Bexternal`5D procedure regenmana(percent : real); extern;
X
X`7B QUEST.PAS`09`09`7D
X`5Bexternal`5D procedure enter_fortress; extern;
X`5Bexternal`5D function itos(i : integer): ctype; extern;
X
X`7B SAVE.PAS`09`09`7D
X`5Bexternal`5D procedure data_exception; extern;
X`5Bexternal`5D procedure coder(var line : ntype); extern;
X`5Bexternal`5D procedure encrypt(var line : ntype); extern;
X`5Bexternal`5D procedure encrypt_write(var line : ntype); extern;
X`5Bexternal`5D procedure decrypt(var line : ntype); extern;
X`5Bexternal`5D procedure read_decrypt(var line : btype); extern;
X`5Bexternal`5D function save_char(quick : boolean) : boolean; extern;
X`5Bexternal`5D function get_char(fnam : vtype; prop : boolean) : boolean; ex
Vtern;
X`5Bexternal`5D procedure restore_char(
X`09`09fnam`09: vtype;
X`09`09present`09: boolean;
X`09`09undead`09: boolean); extern;
X
X
X`7B SCREEN.PAS`09`09`7D
X`5Bexternal`5D procedure prt_map; extern;
X`5Bexternal`5D procedure prt_stat(
X`09`09stat_name`09: vtype;
X`09`09stat`09`09: byteint;
X`09`09row,column`09: integer); extern;
X`5Bexternal`5D procedure prt_field(info : vtype; row,column : integer); exte
Vrn;
X`5Bexternal`5D procedure prt_num(
X`09`09header`09`09: vtype;
X`09`09num,row,column`09: integer); extern;
X`5Bexternal`5D procedure prt_title; extern;
X`5Bexternal`5D procedure prt_a_stat(tstat : stat_set); extern;
X`5Bexternal`5D procedure prt_level; extern;
X`5Bexternal`5D procedure prt_mana; extern;
X`5Bexternal`5D procedure prt_hp; extern;
X`5Bexternal`5D procedure prt_pac; extern;
X`5Bexternal`5D procedure prt_gold; extern;
X`5Bexternal`5D procedure prt_weight; extern;
X`5Bexternal`5D procedure prt_time; extern;
X`5Bexternal`5D procedure prt_depth; extern;
X`5Bexternal`5D procedure prt_hunger; extern;
X`5Bexternal`5D procedure prt_blind; extern;
X`5Bexternal`5D procedure prt_confused; extern;
X`5Bexternal`5D procedure prt_afraid; extern;
X`5Bexternal`5D procedure prt_poisoned; extern;
X`5Bexternal`5D procedure prt_search; extern;
X`5Bexternal`5D procedure prt_rest; extern;
X`5Bexternal`5D procedure prt_quested; extern;
X`5Bexternal`5D procedure prt_winner; extern;
X`5Bexternal`5D procedure prt_experience; extern;
X`5Bexternal`5D procedure prt_6_stats(p : stat_s_type; row,col : byteint); ex
Vtern;
X`5Bexternal`5D procedure prt_stat_block; extern;
X`5Bexternal`5D procedure draw_cave; extern;
X
X
X`7B STORE.PAS`09`09`7D
X`5Bexternal`5D procedure prt_comment1; extern;
X`5Bexternal`5D procedure prt_comment2(offer,asking,final : integer); extern;
X`5Bexternal`5D procedure prt_comment3(offer,asking,final : integer); extern;
X`5Bexternal`5D procedure prt_comment4; extern;
X`5Bexternal`5D procedure prt_comment5; extern;
X`5Bexternal`5D procedure prt_comment6; extern;
X`5Bexternal`5D procedure display_commands; extern;
X`5Bexternal`5D procedure haggle_commands(typ : integer); extern;
X`5Bexternal`5D procedure display_inventory(store_num,start : integer); exter
Vn;
X`5Bexternal`5D procedure display_cost(store_num,pos : integer); extern;
X`5Bexternal`5D procedure store_prt_gold; extern;
X`5Bexternal`5D procedure display_store(store_num,cur_top : integer); extern;
X`5Bexternal`5D function get_store_item(
X`09`09var com_val`09: integer;
X`09`09pmt`09`09: vtype;
X`09`09i1,i2`09`09: integer) : boolean; extern;
X`5Bexternal`5D procedure shut_store(store_num : integer); extern;
X`5Bexternal`5D function increase_insults(store_num : integer) : boolean; ext
Vern;
X`5Bexternal`5D procedure decrease_insults(store_num : integer); extern;
X`5Bexternal`5D function haggle_insults(store_num : integer) : boolean; exter
Vn;
X`5Bexternal`5D function receive_offer(
X`09`09store_num`09`09: integer;
X`09`09comment`09`09`09: vtype;
X`09`09var new_offer`09`09: integer;
X`09`09last_offer,factor`09: integer) : integer; extern;
X`5Bexternal`5D function purchase_haggle(
X`09`09store_num`09: integer;
X`09`09var price`09: integer;
X`09`09item`09`09: treasure_type;
X`09`09blitz`09`09: boolean) : integer; extern;
X`5Bexternal`5D function sell_haggle(
X`09`09store_num`09: integer;
X`09`09var price`09: integer;
X`09`09item`09`09: treasure_type;
X`09`09blitz`09`09: boolean) : integer; extern;
X`5Bexternal`5D procedure spend_time(days_spent : integer; place : vtype;
X`09`09`09`09`09whole_days : boolean); extern;
X`5Bexternal`5D function store_purchase(
X`09`09store_num`09: integer;
X`09`09var cur_top`09: integer;
X`09`09blitz`09`09: boolean) : boolean; extern;
X`5Bexternal`5D function store_sell(
X`09`09store_num`09: integer;
X`09`09cur_top`09`09: integer;
X`09`09blitz`09`09: boolean) : boolean; extern;
X`5Bexternal`5D procedure enter_store(store_num : integer); extern;
X`5Bexternal`5D function item_value(item : treasure_type) : integer; extern;
X`5Bexternal`5D function sell_price (
X`09`09snum`09`09`09: integer;
X`09`09var max_sell,min_sell`09: integer;
X`09`09item`09`09`09: treasure_type) : integer; extern;
X`5Bexternal`5D function store_check_num(store_num : integer) : boolean; exte
Vrn;
X`5Bexternal`5D procedure store_carry(
X`09`09store_num`09: integer;
X`09`09var ipos`09: integer); extern;
X`5Bexternal`5D procedure store_destroy(
X`09`09store_num,item_val`09: integer;`20
X`09`09one_of`09`09`09: boolean); extern;
X`5Bexternal`5D procedure store_init; extern;
X`5Bexternal`5D procedure bank_init; extern;
X`5Bexternal`5D procedure store_create(store_num : integer); extern;
X`5Bexternal`5D procedure store_maint; extern;
X
X
X`7B TERMDEF.PAS`09`09`7D
X`5Bexternal`5D procedure termdef; external;
X
X
X`7B WIZARD.PAS`09`09`7D
X`5Bexternal`5D procedure game_version; extern;
X`5Bexternal`5D procedure wizard_light; extern;
X`5Bexternal`5D procedure monster_summon_by_name(
X`09`09y,x`09: integer;
X`09`09name`09: ctype;
X`09`09present`09: boolean;
X`09`09sleepy`09: boolean); extern;
X`5Bexternal`5D function summon_item(
X`09`09y,x`09: integer;
X`09`09name1`09: ttype;
X`09`09name2`09: ttype;
X`09`09count`09: integer;
X`09`09present : boolean) : boolean; extern;
X`5Bexternal`5D procedure change_character; extern;
X`5Bexternal`5D procedure edit_score_file; extern;
X`5Bexternal`5D procedure wizard_create; extern;
X
X
X
X
X
X
X`5Bexternal`5D procedure py_bonuses(
X`09`09tobj`09: treasure_type;
X`09`09factor`09: integer); extern;
X`5Bexternal`5D function delete_object(y,x : integer) : boolean; extern;
X`5Bexternal`5D procedure set_difficulty(diff : integer); extern;
X`5Bexternal`5D function center(str : string; len : integer) : string; extern
V;
X`5Bexternal`5D procedure eat; extern;
X`5Bexternal`5D procedure cast; extern;
X`5Bexternal`5D function get_seed : unsigned; extern;
X`5Bexternal`5D function day_num : integer; extern;
X`5Bexternal`5D function hour_num : integer; extern;
X`5Bexternal`5D function check_kickout : boolean; extern;
X`5Bexternal`5D function check_time : boolean; extern;
X`5Bexternal`5D function randnor(mean,stand : integer) : integer; extern;
X`5Bexternal`5D function in_bounds(y,x : integer) : boolean; extern;
X`5Bexternal`5D function next_to4(
X`09`09y,x`09`09: integer;
X`09`09group_set`09: obj_set) : integer; extern;
X`5Bexternal`5D function next_to8(
X`09`09y,x`09`09: integer;
X`09`09group_set`09: obj_set) : integer; extern;
X`5Bexternal`5D function rotate_dir(dir,rot : integer) : integer; extern;
X`5Bexternal`5D function get_hexdecant(dy,dx : integer) : bytlint; extern;
X`5Bexternal`5D procedure tlink; extern;
X`5Bexternal`5D procedure mlink; extern;
X`5Bexternal`5D procedure init_m_level; extern;
X`5Bexternal`5D procedure init_t_level; extern;
X`5Bexternal`5D procedure price_adjust; extern;
X`5Bexternal`5D procedure item_weight_adjust; extern;
X`5Bexternal`5D function damroll(dice : dtype) : integer; extern;
X`5Bexternal`5D function los(y1,x1,y2,x2 : integer) : boolean; extern;
X`5Bexternal`5D procedure loc_symbol(y,x : integer; var sym : char); extern;
X`5Bexternal`5D function test_light(y,x : integer) : boolean; extern;
X`5Bexternal`5D procedure compact_monsters; extern;
X`5Bexternal`5D procedure popm(var x : integer); extern;
X`5Bexternal`5D procedure pushm(x : integer); extern;
X`5Bexternal`5D function max_hp(hp_str : dtype) : integer; extern;
X`5Bexternal`5D procedure place_monster(y,x,z : integer; slp : boolean); exte
Vrn;
X`5Bexternal`5D procedure place_win_monster; extern;
X`5Bexternal`5D procedure alloc_land_monster(alloc_set : obj_set;
X`09`09num,dis`09: integer;
X`09`09slp`09: boolean;
X`09`09water   : boolean); extern;
X
X`5Bexternal`5D function summon_land_monster(
X`09`09var y,x : integer;
X`09`09slp`09: boolean) : boolean; extern;
X`5Bexternal`5D function summon_water_monster(
X`09`09var y,x : integer;
X`09`09slp`09: boolean) : boolean; extern;
X`5Bexternal`5D function summon_undead(var y,x : integer) : boolean; extern;
X`5Bexternal`5D function summon_demon(var y,x : integer) : boolean; extern;
X`5Bexternal`5D function summon_breed(var y,x : integer) : boolean; extern;
X`5Bexternal`5D procedure petrify(amt : integer); extern;
X`5Bexternal`5D procedure compact_objects; extern;
X`5Bexternal`5D procedure popt(var x : integer); extern;
X`5Bexternal`5D procedure pusht(x : integer); extern;
X`5Bexternal`5D procedure sort_objects; extern;
X`5Bexternal`5D procedure magic_treasure(x,level : integer); extern;
X`5Bexternal`5D procedure place_trap(y,x,typ,subval : integer); extern;
X`5Bexternal`5D procedure place_rubble(y,x : integer); extern;
X`5Bexternal`5D procedure place_open_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_broken_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_closed_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_locked_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_stuck_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_secret_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_door(y,x : integer); extern;
X`5Bexternal`5D procedure place_a_staircase(y,x,typ : integer); extern;
X`5Bexternal`5D procedure place_stairs(typ,num,walls : integer); extern;
X`5Bexternal`5D procedure place_gold(y,x : integer); extern;
X`5Bexternal`5D function get_obj_num(level : integer) : integer; extern;
X`5Bexternal`5D procedure place_object(y,x : integer); extern;
X`5Bexternal`5D procedure alloc_object(
X`09`09alloc_set`09: obj_set;
X`09`09typ,num`09`09: integer); extern;
X`5Bexternal`5D procedure random_object(y,x,num : integer); extern;
X`5Bexternal`5D procedure cnv_stat(
X`09`09stat`09`09: byteint;
X`09`09var out_val`09: stat_type); extern;
X`5Bexternal`5D function spell_adj(attr : stat_set) : integer; extern;
X`5Bexternal`5D function bard_adj : integer; extern;
X`5Bexternal`5D function druid_adj : integer; extern;
X`5Bexternal`5D function monk_adj : integer; extern;
X`5Bexternal`5D function chr_adj : real; extern;
X`5Bexternal`5D function con_adj : integer; extern;
X`5Bexternal`5D function get_hitdie : integer; extern;
X`5Bexternal`5D function place_string(num : integer) : string; extern;
X`5Bexternal`5D function day_of_week_string(
X`09`09day`09: integer;
X`09`09wid`09: integer) : string; extern;
X`5Bexternal`5D function month_string(mon : integer) : string; extern;
X`5Bexternal`5D function time_string(
X`09`09hour`09: integer;
X`09`09sec`09: integer) : string; extern;
X`5Bexternal`5D procedure time_diff(
X`09`09a`09: game_time_type;
X`09`09b`09: game_time_type;
+-+-+-+-+-+-+-+-  END  OF PART 69 +-+-+-+-+-+-+-+-