Select ratingPoorOkayGoodGreatAwesomeGive it 6/10Give it 7/10Give it 8/10Give it 9/10Give it 10/10

Your rating: None Average: 9 (2 votes)

An alternate and compatible door.txt

- monsters can open/bash/pick-lock doors when adjacent to them (bashing/picking-lock only if the creature is hostile)
- multiple doors (up to 8) can share the same SDF for their lock status, this is the door index in memory cell (4)
(this can save a lot of SDFs when there are many locked doors in a town)
- doors can be locked back with the corresponding key (special item) and with lock-picking

Show script source

Script: 

1.  // door.txt
2.  // Script for doors, terrains 10-17, 46-53 (terrain numbers are checked)
3.  //
4.  // Memory Cells :
5.  // 0 : 0-32000 : lock level, if left at 0, door is unlocked. Otherwise, the strength/tool use
6.  // needed to get it open. (250 AND UP ARE IMPERVIOUS TO BASHING/LOCK-PICKING/UNLOCK SPELL
7.  // and requires the corresponding key (special item) or a scripted action to be opened)
8.  // 1 : 0-59 : key exists, if left at 0, no special item helps unlock the door. Otherwise, if the
9.  // party has this special item, the door can be unlocked with it.
10.  // 2, 3 : (0-299, 0-29) : coordinates for a stuff done flag, if these are 0 and 0, ignored, otherwise,
11.  // the stuff done flag is set to 1 when the door is unlocked. If the flag is non-zero,
12.  // then when someone tries to open it after town exit, the door will still be unlocked.
13.  // 4 : 0-7 : door index if multiple doors are to share the same previous stuff done flag to remember
14.  // their lock status (up to 8 doors, with indexes from 0 to 7) when the party exits town
15.  // this memory cell can save a lot of stuff done flags if there many locked doors
16.  // 5-7 : UNUSED, MUST stay at 0
17.  //
18.  // uses item numbers 174, 175, 176 (lockpicks)
19.  
20.  beginterrainscript;
21.  
22.  variables;
23.   short i_am_open, i_am_locked, door_opened, door_closed, door_unlocked, door_relocked;
24.   short ter_loc_x, ter_loc_y, index_power, direction, thechar, result, choice, done, val_1, val_2, i, j;
25.   short last_force_tick = -1, last_run_tick = -1;
26.  
27.  body;
28.  
29.  beginstate INIT_STATE;
30.   // check terrain *******************************************************************************
31.   choice = terrain_in_this_spot();
32.   if ((choice >= 10 && choice <= 13) || (choice >= 46 && choice <= 49)) i_am_open = 0;
33.   else if ((choice >= 14 && choice <= 17) || (choice >= 50 && choice <= 53)) i_am_open = 1;
34.   else {
35.   print_str_color("*** error ***", 1);
36.   print_big_str("wrong terrain number in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
37.   end();
38.   }
39.   // check memory cells **************************************************************************
40.   i = 5;
41.   while (i <= 7) {
42.   if (get_memory_cell(i) != 0) {
43.   print_str_color("*** error ***", 1);
44.   print_big_str("unused mem_cell defined in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
45.   end();
46.   }
47.   i = i + 1;
48.   }
49.   if (get_memory_cell(0) < 0) {
50.   print_str_color("*** error ***", 1);
51.   print_big_str("wrong lock level in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
52.   end();
53.   }
54.   if (get_memory_cell(0) > 0 && i_am_open == 1) {
55.   print_str_color("*** error ***", 1);
56.   print_big_str("open doors cannot have a lock level in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
57.   end();
58.   }
59.   if (get_memory_cell(1) < 0 || get_memory_cell(1) > 59) {
60.   print_str_color("*** error ***", 1);
61.   print_big_str("wrong special item number in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
62.   end();
63.   }
64.   if (get_memory_cell(0) == 0 && get_memory_cell(1) != 0) {
65.   print_str_color("*** error ***", 1);
66.   print_big_str("inconsistent special item in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
67.   end();
68.   }
69.   if (get_memory_cell(2) < 0 || get_memory_cell(2) > 299 || get_memory_cell(3) < 0 || get_memory_cell(3) > 29) {
70.   print_str_color("*** error ***", 1);
71.   print_big_str("wrong flag address in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
72.   end();
73.   }
74.   choice = get_memory_cell(4);
75.   if (choice < 0 || choice > 7) {
76.   print_str_color("*** error ***", 1);
77.   print_big_str("wrong door index in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
78.   end();
79.   }
80.   else if (choice != 0 && get_memory_cell(2) == 0 && get_memory_cell(3) == 0) {
81.   print_str_color("*** error ***", 1);
82.   print_big_str("inconsistent door index in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
83.   end();
84.   }
85.   // *********************************************************************************************
86.  
87.   // get terrain position (cannot change)
88.   ter_loc_x = my_loc_x();
89.   ter_loc_y = my_loc_y();
90.  
91.   // get door direction (cannot change)
92.   choice = terrain_in_this_spot();
93.   if (choice == 10 || choice == 14 || choice == 46 || choice == 50) direction = 1; // north
94.   else if (choice == 11 || choice == 15 || choice == 47 || choice == 51) direction = 2; // west
95.   else if (choice == 12 || choice == 16 || choice == 48 || choice == 52) direction = 3; // south
96.   else if (choice == 13 || choice == 17 || choice == 49 || choice == 53) direction = 4; // east
97.  
98.   // get door index power
99.   choice = get_memory_cell(4);
100.   index_power = 1;
101.   i = 1;
102.   while (i <= choice) {
103.   index_power = index_power * 2;
104.   i = i + 1;
105.   }
106.  
107.   // init lock status with index power
108.   i_am_locked = 0;
109.   if (get_memory_cell(0) > 0) {
110.   i_am_locked = 1;
111.   if (get_memory_cell(2) > 0 || get_memory_cell(3) > 0) {
112.   done = get_flag(get_memory_cell(2), get_memory_cell(3)) / index_power;
113.   done = done % 2;
114.   if (done > 0) i_am_locked = 0;
115.   }
116.   }
117.  
118.   // init mechanism_difficulty, it can decrease by using an unlock spell, and will be reset if relocked
119.   // init physical_strength, it will be set to 0 if the door is bashed, but door will be repaired on town exit...
120.   set_mechanism_difficulty(get_memory_cell(0));
121.   set_physical_strength(get_memory_cell(0));
122.  
123.   // change here CPU usage of doors if you want them to be openable by monsters even when the party is far away
124.   // 'run script every move but not if party is far away'
125.   set_script_mode(2);
126.   // 'run script every move even if party is far away'
127.   // set_script_mode(3);
128.  break;
129.  
130.  beginstate START_STATE;
131.   // do only once per tick in town mode **********************************************************
132.   if (last_run_tick == get_current_tick() && is_combat() == 0) end();
133.   last_run_tick = get_current_tick();
134.  
135.   // look door status ****************************************************************************
136.   choice = terrain_in_this_spot();
137.   if ((choice >= 10 && choice <= 13) || (choice >= 46 && choice <= 49)) i_am_open = 0;
138.   else if ((choice >= 14 && choice <= 17) || (choice >= 50 && choice <= 53)) i_am_open = 1;
139.   else end();
140.   // check memory cells **************************************************************************
141.   if (get_memory_cell(0) < 0) {
142.   print_str_color("*** error ***", 1);
143.   print_big_str("wrong lock level in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
144.   end();
145.   }
146.   if (get_memory_cell(2) < 0 || get_memory_cell(2) > 299 || get_memory_cell(3) < 0 || get_memory_cell(3) > 29) {
147.   print_str_color("*** error ***", 1);
148.   print_big_str("wrong flag address in Door at XXYY:", (my_loc_x() * 100) + my_loc_y(), "");
149.   end();
150.   }
151.   // *********************************************************************************************
152.  
153.   // if door has been opened by another script (changed to an open door terrain), unlock it and set the flag
154.   if (i_am_open == 1 && i_am_locked == 1) {
155.   i_am_locked = 0;
156.   if (get_memory_cell(2) > 0 || get_memory_cell(3) > 0) inc_flag(get_memory_cell(2), get_memory_cell(3), index_power);
157.   }
158.  
159.   // auto-open doors *****************************************************************************
160.   // auto-open if a non joined-NPC is adjacent (just in front of it), and no force barrier on it
161.   // bash/pick only affects locked doors with memory cell (0) value < 250, once per turn
162.   if (i_am_open == 0 && is_object_on_space(ter_loc_x, ter_loc_y, 4) == 0 &&
163.   ((last_force_tick != get_current_tick() && get_memory_cell(0) < 250) || i_am_locked == 0)) {
164.   done = 0;
165.  
166.   val_1 = 0;
167.   i = ter_loc_x - 1;
168.   if (direction != 2) i = i + 1;
169.   if (direction != 4) val_1 = 1;
170.   while (i <= ((ter_loc_x + 1) - val_1) && done == 0) {
171.  
172.   val_2 = 0;
173.   j = ter_loc_y - 1;
174.   if (direction != 1) j = j + 1;
175.   if (direction != 3) val_2 = 1;
176.   while (j <= ((ter_loc_y + 1) - val_2) && done == 0) {
177.  
178.   thechar = char_on_spot(i, j);
179.   if (thechar > 5) {
180.   // check the specie and state of the creature to open the door
181.   choice = get_species(thechar);
182.   if (char_ok(thechar) != 1) result = 0;
183.   else if (choice == 5 || choice == 6 || choice == 9 || choice == 10 || choice == 11) result = 0;
184.   else if ((get_char_status(thechar, 10) + get_char_status(thechar, 11) + get_char_status(thechar, 13) +
185.   get_char_status(thechar, 18) + get_char_status(thechar, 29)) > 0) result = 0;
186.   else result = 1;
187.   // if OK proceed to open
188.   if (result == 1) {
189.   // if not locked just open it
190.   if (i_am_locked == 0) {
191.   flip_terrain(ter_loc_x, ter_loc_y);
192.   if (dist_to_party() <= 8) play_sound(-58);
193.   done = 1;
194.   }
195.   // if locked try to force with bash/pick
196.   else {
197.   // check hostile attitude
198.   if (get_attitude(thechar) >= 10) {
199.   // result : 0 : do nothing, 1 : bash only, 2 : pick only, 3 : bash or pick
200.   result = 0;
201.   // can bash (strenght (0) and health)
202.   val_1 = get_stat(thechar, 0) + (get_level(thechar) / 2);
203.   if ((val_1 * 9) >= (get_physical_strength() * 10) && get_health(thechar) > get_physical_strength()) {
204.   result = result + 1;
205.   }
206.   // can pick (Int (2) >= 3, specie : human (0), nephil (2), slith (3), vahnatai (13))
207.   choice = get_species(thechar);
208.   if (get_stat(thechar, 2) >= 3 && (choice == 0 || choice == 2 || choice == 3 || choice == 13)) {
209.   val_2 = (get_stat(thechar, 1) + get_stat(thechar, 2) + get_stat(thechar, 15) + get_level(thechar)) / 3;
210.   // nephil bonus
211.   if (choice == 2) val_2 = val_2 + 4;
212.   // lockpicks bonuses
213.   if (char_has_item(thechar, 176) == 1) val_2 = val_2 + 10;
214.   else if (char_has_item(thechar, 175) == 1) val_2 = val_2 + 4;
215.   else if (char_has_item(thechar, 174) == 1) val_2 = val_2 + 2;
216.   if (val_2 >= get_mechanism_difficulty()) result = result + 2;
217.   }
218.   if (result != 0) {
219.   last_force_tick = get_current_tick();
220.   // choose action, result : 1 : bash, 2 : pick
221.   if (result == 3) {
222.   if (get_ran(1, 1, val_1 - get_physical_strength()) > get_ran(1, 1, val_2 - get_mechanism_difficulty())) result = 1;
223.   else result = 2;
224.   }
225.   // try to bash the door with val_1
226.   if (result == 1) {
227.   if (get_ran(1, 1, val_1) >= (get_physical_strength() + get_ran(1, -3, 3))) {
228.   result = 1;
229.   set_physical_strength(0);
230.   }
231.   else {
232.   result = 0;
233.   // creature gets some damages
234.   choice = get_ran(1, 1, get_physical_strength());
235.   if (choice > (get_level(thechar) + 1) / 2) choice = (get_level(thechar) + 1) / 2;
236.   change_char_health(thechar, choice * -1);
237.   }
238.   play_sound(-152);
239.   }
240.   // else try to pick the lock with val_2
241.   else if (result == 2) {
242.   if (get_ran(1, 1, val_2) >= (get_mechanism_difficulty() + get_ran(1, -3, 3))) {
243.   result = 1;
244.   if (dist_to_party() <= 6) play_sound(-9);
245.   }
246.   else {
247.   result = 0;
248.   }
249.   }
250.   // door forced
251.   if (result == 1) {
252.   if (get_memory_cell(2) > 0 || get_memory_cell(3) > 0) inc_flag(get_memory_cell(2), get_memory_cell(3), index_power);
253.   i_am_locked = 0;
254.   flip_terrain(ter_loc_x, ter_loc_y);
255.   done = 1;
256.   }
257.   }
258.   }
259.   }
260.   }
261.   }
262.   // restore val_1 and val_2 adjusters
263.   if (direction != 4) val_1 = 1;
264.   else val_1 = 0;
265.   if (direction != 3) val_2 = 1;
266.   else val_2 = 0;
267.   j = j + 1;
268.   }
269.   i = i + 1;
270.   }
271.   }
272.  break;
273.  
274.  beginstate SEARCH_STATE;
275.