-+-+-+-+-+-+-+-+ START OF PART 79 -+-+-+-+-+-+-+-+ X msg_print('But you are not carrying any con-manuals!'); X END X else X msg_print('But you are not carrying any con-manuals!') X else X msg_print('You aren''t tricky enough to confuse a tourist!'); XEND; X`20 $ CALL UNPACK [.INC]TRICK.INC;1 1583616730 $ create 'f' X type X byteint = `5Bbyte`5D 0..255; X bytlint = `5Bbyte`5D -128..127; `20 X wordint = `5Bword`5D 0..65535; X word`09`09= 0..65535; X worlint = `5Bword`5D -32768..32767; X quad_type = record X l0 : unsigned; X l1 : unsigned; X end; X atype = varying `5B16`5D of char; X btype = varying `5B14`5D of char; X ctype = varying `5B26`5D of char; X dtype = varying `5B5`5D of char; X etype = varying `5B60`5D of char; X mtype = varying `5B190`5D of char; X ntype = varying`5B1024`5D of char; X ttype = varying `5B68`5D of char; X utype = varying `5B100`5D of char; X vtype = varying `5B80`5D of char; X`09tentype`09`09= varying `5B10`5D of char; X stat_type = packed array `5B1..6`5D of char; X obj_set = set of 0..255; X char_set = set of 'A'..'z'; X`09usernam_type`09= packed array `5B1..12`5D of char; X recj`09= record X unameinfo : packed record X unamelen : word; X jpi$_username : word; X END; X ptr_uname : `5Eusernam_type; X ptr_unamelen : `5Einteger; X endlist : integer X END; X key_type = record `7B For char saver `7 VD X file_id : `5Bkey(0)`5D packed array `5B1..70`5D of char; X seed : integer; X end; X creature_type = record X name : ctype; `7B Descrip of creature `7D X cmove : unsigned; `7B Bit field `7D X spells : unsigned; `7B Creature spells `7D X cdefense: unsigned; `7B Bit field `7D X sleep : worlint; `7B Inactive counter `7D X mexp : wordint; `7B Exp value for kill `7D X aaf : byteint; `7B Area affect radius `7D X ac : byteint; `7B AC `7D X speed : bytlint; `7B Movement speed `7D X`09`09reprod : integer;`09`7B Reproduction Amount `7D X`09`09size : integer;`09`7B Relative Size `7D X`09`09tt : integer;`09`7B Treasure Type -- Tval `7D X`09`09intel : integer; `7B Creature's Int 0-50 `7D X`09`09speaks : integer;`09`7B Speaking Type? `7D X cchar : char; `7B Character rep. `7D X hd : dtype; `7B Creatures hit die `7D X damage : etype; `7B Type attack and damage`7D X level : byteint; `7B Level of creature `7D X end; X monster_type = record X hp : worlint; `7B Hit points `7D X csleep : worlint; `7B Inactive counter `7D X cdis : worlint; `7B Cur dis from player `7D X mptr : wordint; `7B Pointer into creature `7D X nptr : wordint; `7B Pointer to next block `7D X cspeed : bytlint; `7B Movement speed `7D X `7B Note: FY and FX constrain dungeon size to 255 `7 VD X fy : byteint; `7B Y Pointer into map `7D X fx : byteint; `7B X Pointer into map `7D X`20 X stuned : `5Bbit(6),pos(104)`5D -32..31; `7B Rounds stunned` V7D X ml : `5Bbit(1),pos(110)`5D boolean; `7B On if shown ` V7D X confused: `5Bbit(1),pos(111)`5D boolean; `7B On if confused` V7D X`09 cur_reprod : byteint; `7B Current reproduction factor`7D X end; X treasure_type = record X name : utype; `7B Object name `7D X tval : byteint; `7B Catagory number `7D X tchar : char; `7B Character representation`7D X flags : unsigned; `7B Special flags `7D X p1 : integer; `7B Misc. use variable `7D X cost : integer; `7B Cost of item `7D X subval : integer; `7B Sub-catagory number `7D X weight : wordint; `7B Weight `7D X number : wordint; `7B Number of items `7D X tohit : worlint; `7B Pluses to hit `7D X todam : worlint; `7B Pluses to damage `7D X ac : worlint; `7B Normal AC `7D X toac : worlint; `7B Pluses to AC `7D X damage : dtype; `7B Damage when hits `7D X level : bytlint; `7B Level item found `7D X end; X player_type = record X misc : record X name : vtype; `7B Name of character `7D X race : vtype; `7B Race of character `7D X sex : vtype; `7B Sex of character `7D X title : vtype; `7B Character's title `7D X tclass : vtype; `7B Character's class `7D X max_exp : integer; `7B Max experience`7D X exp : integer; `7B Cur experienc `7D X au : integer; `7B Gold `7D X age : wordint; `7B Characters age`7D X ht : wordint; `7B Height `7D X wt : wordint; `7B Weight `7D X lev : wordint; `7B Level `7D X max_lev : wordint; `7B Max level explored`7D X srh : worlint; `7B Chance in search`7D X perc : worlint; `7B Perception `7D X bth : worlint; `7B Base to hit `7D X bthb : worlint; `7B BTH with bows `7D X mana : worlint; `7B Mana points `7D X mhp : worlint; `7B Max hit pts `7D X ptohit : worlint; `7B Pluses to hit `7D X ptodam : worlint; `7B Pluses to dam `7D X pac : worlint; `7B Total AC `7D X ptoac : worlint; `7B Magical AC `7D X dis_th : worlint; `7B Display +ToHit`7D X dis_td : worlint; `7B Display +ToDam`7D X dis_ac : worlint; `7B Display +ToAC `7D X dis_tac : worlint; `7B Display +ToTAC`7D X disarm : worlint; `7B % to Disarm `7D X`09`09`09wierd : worlint;`09`7B Wierd Devices`7D X save : worlint; `7B Saving throw `7D X sc : worlint; `7B Social Class `7D X pclass : byteint; `7B # of class `7D X prace : byteint; `7B # of race `7D X`09`09`09pskill : byteint;`09`7B skill# ie: 1=scientist`7D X`09`09`09`09`09`09`7B 2=soldier, 0=none `7D X hitdie : byteint; `7B Char hit die `7D X stl : bytlint; `7B Stealth factor`7D X expfact : real; `7B Experience factor`7D X cmana : real; `7B Cur mana pts `7D X chp : real; `7B Cur hit pts `7D X history : array `5B1..5`5D of vtype;`7B History reco Vrd`7D X end; X stat : record X str : byteint; `7B Max strength `7D X cstr : byteint; `7B Current strength `7D X dex : byteint; `7B Max dexterity `7D X cdex : byteint; `7B Current dexterity `7D X con : byteint; `7B Max constitution `7D X ccon : byteint; `7B Current constitution`7D X int : byteint; `7B Max intelligence `7D X cint : byteint; `7B Current intelligence`7D X wis : byteint; `7B Max wisdom `7D X cwis : byteint; `7B Current wisdom `7D X chr : byteint; `7B Max charisma `7D X cchr : byteint; `7B Current charisma `7D X end; X flags : record X status : unsigned; `7B Status of player V `7D X rest : integer; `7B Rest counter V `7D X blind : integer; `7B Blindness counte Vr `7D X paralysis : integer; `7B Paralysis counte Vr `7D X confused : integer; `7B Confusion counte Vr `7D X food : integer; `7B Food counter V `7D X food_digested : integer; `7B Food per round V `7D X protection : integer; `7B Protection fr. e Vvil `7D X speed : integer; `7B Cur speed adjust V `7D X fast : integer; `7B Temp speed chang Ve `7D X slow : integer; `7B Temp speed chang Ve `7D X afraid : integer; `7B Fear V `7D X poisoned : integer; `7B Poisoned V `7D X image : integer; `7B Halucinate V `7D X protevil : integer; `7B Protect VS evil V `7D X invuln : integer; `7B Increases AC V `7D X hero : integer; `7B Heroism V `7D X shero : integer; `7B Super Heroism V `7D X blessed : integer; `7B Blessed V `7D X resist_heat : integer; `7B Timed heat resis Vt `7D X resist_cold : integer; `7B Timed cold resis Vt `7D X`09`09`09ring_blast`09: integer;`09`7B Fire/Frost Rings `7D X`09`09`09special`09`09: integer;`09`7B Special Abilities `7D X`09`09`09petrified`09: integer;`09`7B been stoned lately? `7D X`09`09`09diseased`09: integer;`09`7B various ailments `7D X`09`09`09detect_inv : integer; `7B Timed see invisible `7D X word_recall : integer; `7B Timed teleport l Vevel`7D X see_infra : integer; `7B See warm creatur Ves `7D X tim_infra : integer; `7B Timed infra visi Von `7D X see_inv : boolean; `7B Can see invisibl Ve `7D X teleport : boolean; `7B Random teleporta Vtion`7D X free_act : boolean; `7B Never paralyzed V `7D X slow_digest : boolean; `7B Lower food needs V `7D X aggravate : boolean; `7B Agravate monster Vs `7D X fire_resist : boolean; `7B Resistance to fi Vre `7D X cold_resist : boolean; `7B Resistance to co Vld `7D X acid_resist : boolean; `7B Resistance to ac Vid `7D X regenerate : boolean; `7B Regenerate hit p Vts `7D X lght_resist : boolean; `7B Resistance to li Vght `7D X ffall : boolean; `7B No damage fallin Vg `7D X sustain_str : boolean; `7B Keep strength V `7D X sustain_int : boolean; `7B Keep intelligenc Ve `7D X sustain_wis : boolean; `7B Keep wisdom V `7D X sustain_con : boolean; `7B Keep constitutio Vn `7D X sustain_dex : boolean; `7B Keep dexterity V `7D X sustain_chr : boolean; `7B Keep charisma V `7D X confuse_monster : boolean; `7B Glowing hands... V `7D X end; X end; `20 X skill_type = record`09`09 `7BValues in skill_values.inc`7D X sname : ctype; X slevel : byteint; X smana : byteint; X sexp : wordint; X sfail : byteint; X learned : boolean; X end; X spl_rec = record X splnum : integer; X splchn : integer; X end; X spl_type = array `5B1..22`5D of spl_rec; X race_type = packed record X trace : vtype; `7B Type of race `7D X str_adj : bytlint; `7B adjustments `7D X int_adj : bytlint; X wis_adj : bytlint; X dex_adj : bytlint; X con_adj : bytlint; X chr_adj : bytlint; X b_age : wordint; `7B Base age of character `7D X m_age : wordint; `7B Maximum age of character `7D X m_b_ht : wordint; `7B base height for males `7D X m_m_ht : wordint; `7B mod height for males `7D X m_b_wt : wordint; `7B base weight for males `7D X m_m_wt : wordint; `7B mod weight for males `7D +-+-+-+-+-+-+-+- END OF PART 79 +-+-+-+-+-+-+-+-