openboe/oboe
2
0
Fork 0
Code Issues 146 Pull Requests 4 Actions Packages Projects Releases Wiki Activity
Files
1cd0b09749a71885b489faa83f358e4299490511
oboe/Win32/Scenario Editor/scenario.cpp
Chokboyz 1fb69d8754 Classic Blades of Exile : 
- Dying to a trap while attempting to open a container won't display the "get items in container" dialog with no alive character anymore.
- Casting the priest Light spell now updates the surrounding areas automatically (like Light and Long Light mage spells; moving or waiting isn't required anymore).
- Debug and Ghost mode are now turned off when loading a game.
- The shop scrolling bar is now properly cleaned up when loading a game while shopping.
- Items are now automatically combined when identified in a shop. To avoid any loss of information, the game now gives the identified item name in the message window (format : "Your item is identified. (full_item_name)"
- If an "active" character (i.e solo fighting) is incapacitated (AP reduced to 0 because of webs, sleep, paralysis, etc) the rest of the party (if present) is now activated the next turn.
- Entering a space containing the special node number 50 won't "force move" the party anymore.
- Added a compatibility option (mainly testing purpose) : "specials are triggered when on boat".
- The restart option of the death menu now works as intended.
- Finally renamed the "Heal All" monster priest spell from "Full Heal" to "Revive Self". That should prevent any further confusion.
- Using items now always updates the ap counter.
- For the sake of consistency : changed labels "Power Potion" to "Energy Potion" potions in the Alchemy menu.
- Redrawing the screen is now correctly handled by specials in all mode (e.g a special that changes a terrain will correctly redraw the screen, even if it was called by looking or moving).

Scenario Editor :

- Redid the custom pictures drawing implementation : custom pictures should now always appears and redraw (terrain, animated terrains, monsters, items, preset items, ...).
- It is now possible to directly give the "Drain missiles" ability to bows and crossbows (use the "Weapon Ability" menu).

Chokboyz

git-svn-id: http://openexile.googlecode.com/svn/trunk@160 4ebdad44-0ea0-11de-aab3-ff745001d230
2011-01-09 19:50:46 +00:00

2714 lines
77 KiB
C++
Raw Blame History

#include <windows.h>
#include <stdio.h>
#include "string.h"
#include "global.h"
#include "graphics.h"
#include "graphutl.h"
#include "scenario.h"
#include "dlogtool.h"
#include "keydlgs.h"
#include "townout.h"
#include "tfileio.h"
#include "tactions.h"
#include "edsound.h"
extern short cen_x, cen_y, overall_mode,cur_town;
extern Boolean mouse_button_held,dialog_not_toast;
extern short cur_viewing_mode,dialog_answer;
extern town_record_type town;
extern big_tr_type t_d;
extern short town_type; // 0 - big 1 - ave 2 - small
extern short max_dim[3],mode_count,to_create;
extern unsigned char template_terrain[64][64];
extern HBITMAP spec_scen_g;
extern scenario_data_type scenario;
extern special_node_type null_spec_node;
extern talking_node_type null_talk_node;
extern piles_of_stuff_dumping_type *data_store;
extern char scen_strs[160][256];
extern char scen_strs2[110][256];
extern char talk_strs[170][256];
extern char town_strs[180][256];
extern BOOL do_choose_anim;
extern short custom_type[500];
extern location cur_out;
extern scen_item_data_type scen_item_list;
short store_which_ter;
terrain_type_type store_ter;
short store_which_monst;
monster_record_type store_monst,store_monst2;
short store_which_item;
item_record_type store_item,store_item2;
short store_which_spec_item ;
short spec_item_spec,store_horse_page,store_boat_page ;
item_storage_shortcut_type store_storage;
short cur_shortcut;
RECT source_rect,draw_rect;
extern GWorldPtr terrain_buttons_gworld;
char *item_types[] = {"No Item","1-Handed weapon","2-Handed weapon","Gold","Bow","Arrows","Thrown missile",
"Potion/Magic Item","Scroll/Magic Item","Wand","Tool","Food","Shield","Armor","Helm",
"Gloves","Shield","Boots","Ring","Necklace",
"Weapon Poison","Non-Use Object","Pants","Crossbow","Bolts","Missile (no ammo)","Unused","Unused"};
unsigned char m_level[200] = {
0,1,1,1,1,1,1,1,1,1, // 0
1,1,30,4,8,12,20,25,3,5, // 10
28,3,8,20,4,8,20,5,10,25, // 20
35,8,6,2,2,7,6,12,2,5, // 30
4,6,5,6,8,7,18,7,10,8, // 40
8,12,12,15,18,22,28,26,3,10, // 50
4,3,6,8,12,11,10,14,18,35, // 60
14,10,4,8,8,3,7,3,2,4, // 70
3,18,2,18,7,20,30,35,5,3, // 80
1,9,8,7,7,18,18,25,35,3, // 90
5,24,18,10,25,7,2,28,1,1, // 100
1,1,1,1,1,3,7,8,4,8, // 110
3,12,18,4,7,5,8,18,22,10, // 120
12,6,12,16,7,25,28,25,3,3, // 130
3,4,14,2,6,8,8,10,4,5, // 140
8,7,10,12,14,10,12,14,24,13, // 150
18,18,22,22,10,30,20,27,30,7, // 160
30,15,12,18,3,5,7,39,20,24, // 170
24,8,7,25,2,10,18,0,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
short m_health[200] = {
0,6,6,6,6,6,6,6,6,6, // 0
3,3,140,20,40,75,115,140,14,16, // 10
90,18,40,90,18,40,90,16,40,90, // 20
160,40,35,6,6,35,30,80,10,22, // 30
15,25,18,30,45,35,70,30,50,40, // 40
40,70,70,100,90,110,140,130,15,50, // 50
20,15,30,40,60,55,50,70,90,170, // 60
70,50,20,40,40,15,35,30,10,20, // 70
15,100,10,90,35,70,150,200,25,20, // 80
5,90,75,70,70,120,120,190,400,15, // 90
25,120,90,50,120,35,10,200,3,3, // 100
3,7,7,1,5,15,35,40,14,40, // 110
15,50,90,150,35,25,40,90,110,50, // 120
60,25,50,80,35,125,140,150,8,8, // 130
10,10,140,10,30,40,40,60,30,25, // 140
40,35,50,60,70,50,60,70,200,70, // 150
70,70,90,120,100,200,100,150,200,40, // 160
500,100,80,110,17,30,30,2500,100,125, // 170
140,40,10,80,6,30,50,150,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_armor[200] = {
1,1,1,1,1,1,1,1,1,1, // 0
1,1,30,8,12,18,22,25,6,6, // 10
20,8,14,20,8,14,20,5,10,20, // 20
30,4,4,2,2,9,7,15,3,5, // 30
4,7,6,12,18,9,15,7,3,5, // 40
10,18,18,24,10,14,24,25,2,6, // 50
0,0,2,2,2,7,8,10,5,15, // 60
7,10,4,7,7,0,0,0,2,2, // 70
2,1,10,12,8,14,20,20,4,2, // 80
2,10,10,14,14,14,14,18,25,2, // 90
2,8,8,5,9,12,12,18,1,1, // 100
1,1,1,1,1,1,1,3,1,1, // 110
1,6,6,12,8,5,5,7,10,0, // 120
7,2,5,13,6,20,18,25,0,0, // 130
0,0,10,2,3,4,5,6,0,6, // 140
10,10,12,20,30,8,14,8,18,20, // 150
14,14,18,25,25,25,20,30,9,0, // 160
15,6,10,14,3,1,10,40,14,14, // 170
10,6,30,20,1,2,4,12,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_skill[200] = {
2,2,2,2,2,2,2,2,2,1, // 0
1,2,30,8,10,14,20,23,5,6, // 10
28,2,4,8,2,4,8,2,4,5, // 20
5,3,3,1,1,12,8,25,5,8, // 30
3,9,8,4,18,10,10,7,14,6, // 40
6,6,6,28,12,10,28,28,4,10, // 50
5,3,9,13,18,7,10,17,20,30, // 60
8,16,7,12,12,4,7,7,3,5, // 70
5,15,4,18,12,18,24,33,5,5, // 80
3,12,12,8,8,8,8,23,35,4, // 90
6,7,7,5,12,0,0,0,1,1, // 100
1,1,1,1,1,5,9,12,3,25, // 110
5,9,20,25,10,5,12,15,24,13, // 120
8,3,12,18,10,4,28,33,3,3, // 130
3,3,12,4,6,7,7,13,30,5, // 140
8,6,8,14,22,12,18,10,30,20, // 150
15,15,13,26,0,0,30,36,30,4, // 160
26,18,15,17,6,5,10,35,20,20, // 170
17,7,2,16,2,8,14,18,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
short m_a1[200] = {
6,6,6,6,6,6,6,6,6,1, // 0
1,2,210,107,109,110,208,212,8,6, // 10
10,8,8,208,8,8,208,6,8,10, // 20
12,6,6,3,3,12,106,108,7,9, // 30
8,107,8,8,110,206,206,10,208,12, // 40
10,10,10,310,408,408,510,410,8,108, // 50
104,8,108,208,308,10,108,0,110,0, // 60
210,0,106,206,206,8,110,12,6,10, // 70
8,0,7,215,0,208,0,510,106,8, // 80
3,212,16,18,18,112,112,410,514,8, // 90
10,10,10,106,206,0,0,0,2,2, // 100
2,2,2,2,2,106,206,306,8,206, // 110
8,106,0,0,12,8,10,206,306,409, // 120
306,106,407,410,106,12,310,0,106,8, // 130
8,7,110,8,108,208,108,308,108,10, // 140
112,8,10,210,310,208,308,208,410,0, // 150
310,310,10,410,0,0,810,913,913,8, // 160
710,512,210,212,12,0,208,840,308,308, // 170
308,209,8,912,8,108,210,312,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
short m_a2[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,210,0,0,110,208,212,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,0,106,108,0,0, // 30
0,0,0,0,110,0,0,0,208,0, // 40
0,0,0,310,0,0,0,0,0,0, // 50
0,0,10,13,405,0,0,306,0,308, // 60
0,208,8,10,10,8,0,0,0,0, // 70
0,310,0,110,10,15,310,310,0,0, // 80
0,0,0,0,0,0,0,310,0,0, // 90
0,0,0,8,10,0,0,0,0,0, // 100
0,0,0,0,0,0,0,12,0,0, // 110
0,0,210,409,0,0,0,8,106,0, // 120
0,0,0,0,0,0,0,410,0,0, // 130
0,0,110,0,0,0,0,0,0,0, // 140
0,0,0,0,0,0,0,0,0,212, // 150
0,0,0,0,0,0,0,0,0,0, // 160
310,0,108,12,0,105,0,730,308,308, // 170
308,209,0,0,0,0,0,212,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
short m_a3[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,00,0,0,108,0,0, // 30
0,0,0,0,0,00,00,0,0,0, // 40
0,0,0,0,0,0,0,0,0,0, // 50
00,0,10,13,405,0,0,306,0,308, // 60
0,208,8,10,10,8,0,0,0,0, // 70
0,310,0,110,10,15,310,310,0,0, // 80
0,0,0,0,0,0,0,0,0,0, // 90
0,0,0,8,10,0,0,0,0,0, // 100
0,0,0,0,0,0,0,12,0,0, // 110
0,0,210,409,0,0,0,8,106,0, // 120
0,0,0,0,0,0,0,410,0,0, // 130
0,0,0,0,0,0,0,0,0,0, // 140
0,0,0,0,0,0,0,0,0,212, // 150
0,0,0,0,0,0,0,0,0,0, // 160
310,0,108,12,0,105,0,730,308,308, // 170
308,0,0,0,0,0,0,212,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_a1t[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,0,4,4,0,0, // 30
0,0,0,0,0,0,0,0,0,0, // 40
0,0,0,0,0,0,0,0,1,1, // 50
1,1,2,2,2,1,1,0,1,0, // 60
1,0,2,2,2,3,3,3,2,2, // 70
2,0,2,2,0,2,0,2,2,0, // 80
0,0,0,0,0,0,0,0,0,2, // 90
2,2,2,2,2,0,0,0,2,2, // 100
2,2,2,2,2,2,2,2,2,2, // 110
4,1,0,0,0,0,0,2,2,3, // 120
2,2,2,2,4,4,2,0,3,3, // 130
3,3,3,2,2,2,2,2,2,0, // 140
0,0,0,0,0,0,0,0,0,0, // 150
0,0,0,0,0,0,2,2,2,4, // 160
2,2,2,2,0,0,3,2,2,2,// 170
2,2,7,9,0,0,0,2,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_a23t[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,0,4,4,0,0, // 30
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 50
0,0,1,1,1,0,0,1,0,1,
0,1,1,1,1,3,3,3,0,0,
0,1,0,1,1,1,4,1,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,1,1,0,0,0,0,0, //100
0,0,0,0,0,0,0,1,0,0,
0,0,0,1,1,0,0,1,1,0,
0,0,0,0,0,0,0,1,0,0,
0,0,3,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 150
0,0,0,0,0,0,0,0,0,0,
1,1,1,1,0,1,0,1,2,2,
2,2,0,0,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_type[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,5,5,5,5,5,5,4,4,4, // 20
4,4,4,0,0,0,5,5,6,6, // 30
6,6,6,6,6,6,6,6,6,6, // 40
6,6,6,6,9,9,9,9,8,8, // 50
8,8,8,8,8,8,8,8,8,8, // 60
8,8,1,1,1,10,10,10,2,2, // 70
2,2,2,1,7,7,7,7,7,6, // 80
6,6,6,6,6,6,6,6,6,1, // 90
1,2,2,1,1,11,11,11,2,2, // 100
2,2,2,2,2,2,2,2,12,12, // 110
6,2,2,3,2,8,8,1,1,10, // 120
12,12,12,12,2,2,2,2,10,10, // 130
10,10,10,12,12,12,12,12,12,6, // 140
6,6,6,6,6,9,9,9,9,11, // 150
11,11,11,11,11,11,2,2,2,6, // 160
1,2,2,2,1,8,10,13,1,1, // 170
1,1,14,14,6,6,6,7,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_speed[200] = {
0,4,4,4,4,4,4,4,4,4, // 0
4,4,6,4,4,5,8,8,4,4, // 10
4,4,4,4,4,4,4,4,5,6, // 20
7,4,4,4,4,4,5,8,3,3, // 30
4,6,4,4,6,4,4,4,4,4, // 40
4,4,4,4,3,4,4,4,4,4, // 50
4,4,4,4,9,4,4,4,4,5, // 60
4,4,4,4,4,3,3,3,4,4, // 70
4,3,8,4,4,4,4,4,4,4, // 80
4,7,6,4,4,4,4,6,8,4, // 90
4,5,6,4,4,4,4,5,2,3, // 100
3,3,3,2,2,4,4,4,4,4, // 110
7,4,4,4,3,4,4,4,4,3, // 120
4,4,4,4,4,5,5,5,3,3, // 130
3,3,3,3,3,4,4,4,4,4, // 140
4,4,4,4,4,4,4,4,4,4, // 150
4,4,4,7,4,4,4,5,3,4, // 160
4,4,3,4,4,3,4,4,4,4, // 170
4,4,9,8,3,5,5,6,4,4, // 180
4,4,4,4,4,4,4,4,4,4}; // 190
unsigned char m_mu[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,2,4,7, // 20
7,5,3,0,0,0,0,0,0,0, // 30
0,0,0,3,0,0,6,0,0,0,
4,0,6,0,0,4,0,0,0,0, // 50
0,0,0,0,0,3,0,0,5,7,
4,0,0,0,0,0,0,0,0,0,
0,0,0,4,2,5,0,7,1,0,
0,0,0,3,0,6,0,0,7,0,
0,6,0,0,0,1,0,7,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,0,0,0,3,0,
0,0,0,0,0,6,5,4,0,0,
0,1,0,0,0,0,0,0,0,0,
0,4,6,0,0,0,0,3,0,0, // 150
0,0,0,0,0,7,0,0,0,0,
5,0,0,0,0,0,0,7,0,0,
0,0,3,2,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_cl[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,2,4,6,2,4,6,0,0,0, // 20
0,0,0,0,0,0,0,0,0,0, // 30
0,0,0,3,0,0,0,0,0,4,
0,7,0,0,0,4,0,0,0,0, // 50
0,0,0,0,0,0,0,0,0,7,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,2,3,0,7,1,0,
0,0,0,0,3,0,6,0,7,0,
0,3,0,0,0,1,0,7,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,5,0,0,0,0,2,0,3,0,
0,0,0,0,0,0,4,0,0,0,
0,1,0,0,0,0,0,0,0,0,
0,5,6,0,0,0,0,3,0,0, // 150
0,0,0,5,0,7,0,0,0,0,
7,0,0,0,0,0,0,7,0,0,
0,0,0,2,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_breath[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,0,0,0,0,0, // 30
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 50
0,0,0,0,0,0,0,0,0,0,
0,0,0,4,104,0,0,0,0,0,
0,0,0,6,0,0,0,8,1,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,0,5,0,0,0,0,4,107,0,
0,0,0,0,0,0,0,7,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,// 150
7,107,208,9,209,0,0,0,0,0,
9,0,0,0,0,0,0,35,0,15,
115,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_poison[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,4,0,0,0,2, // 30
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 50
0,0,0,0,0,0,0,0,0,0,
3,0,0,0,0,0,0,2,0,0,
2,0,0,0,0,0,6,8,1,0,
0,0,0,0,0,0,0,0,0,0,
5,0,0,0,0,0,0,0,0,0, //100
0,0,0,0,0,0,0,0,3,9,
0,0,0,0,7,0,0,0,0,0,
0,0,4,0,0,0,7,0,0,0,
0,0,0,0,0,0,4,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 150
0,0,0,0,0,0,0,6,7,0,
0,0,0,4,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_treas[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,0,2,2,2,2,2,1,1, // 10
2,1,2,3,1,2,3,1,2,3, // 20
4,2,1,1,1,1,1,2,1,1, // 30
1,2,1,2,3,1,2,1,2,2, // 40
2,3,3,4,1,2,4,2,0,0, // 50
0,0,0,0,0,0,1,2,3,4, // 60
0,0,0,2,2,0,0,0,0,0, // 70
0,0,0,2,2,2,3,4,2,1, // 80
0,2,2,2,2,2,2,3,4,0, // 90
0,2,2,0,0,0,0,0,0,0, // 100
0,0,0,0,0,0,0,0,0,0, // 110
1,0,0,0,0,0,0,2,3,0, // 120
0,0,0,0,0,3,3,3,0,0, // 130
0,0,0,0,0,0,0,0,0,1, // 140
2,2,2,2,4,1,2,2,4,0, // 150
0,0,0,0,0,0,0,0,3,2, // 160
3,2,1,2,0,0,0,4,2,3, // 170
3,0,0,0,1,2,3,0,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_abil[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,3,0,0,0,0,0,0,2, // 10
20,0,0,0,0,0,0,0,0,0, // 20
0,0,0,0,0,0,0,0,0,0, // 30
0,0,2,0,0,0,0,0,3,0, // 40
0,0,0,0,4,5,6,5,0,10, // 50
0,0,18,18,18,0,16,17,17,17, // 60
0,0,0,0,0,0,15,12,0,14, // 70
0,27,0,0,0,0,9,0,0,0, // 80
0,0,7,0,0,0,0,0,0,0, // 90
0,0,9,8,8,13,13,0,0,0, // 100
0,0,0,0,0,0,0,0,19,19, // 110
21,11,11,12,0,0,0,22,23,23, // 120
27,0,24,33,25,26,29,22,27,31, // 130
28,0,35,30,30,25,0,25,25,0, // 140
0,0,0,0,0,4,5,5,6,0, // 150
0,0,33,28,24,9,0,0,29,0, // 160
0,34,0,32,0,0,31,13,0,0, // 170
0,0,28,29,0,0,0,33,0,0, // 180
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_pict[200] = {
149,0,1,2,3,4,5,6,7,8, // 0
9,10,11,12,13,14,15,16,17,18, // 10
19,20,21,21,22,23,23,24,25,26, // 20
27,28,29,30,31,3,32,33,34,35, // 30
36,37,38,39,40,41,43,44,45,46, // 40
47,46,47,48,49,50,51,52,53,54, // 50
55,42,57,58,58,56,59,60,61,62, // 60
63,64,65,66,67,68,69,68,70,70, // 70
70,71,72,73,74,75,76,76,77,78, // 80
79,80,81,82,83,84,85,86,87,88, // 90
88,89,89,90,90,91,91,92,93,94, // 100
95,96,97,98,99,100,106,101,102,102, // 110
103,56,149,104,71,56,60,66,105,69, // 120
107,108,109,110,71,111,112,113,114,115, // 130
116,117,118,119,120,121,120,121,122,123, // 140
124,125,126,127,128,49,51,50,51,129, // 150
130,131,132,133,134,135,136,137,138,139, // 160
140,141,142,143,144,55,68,140,157,156, // 170
158,159,166,165,170,155,155,171,149,149, // 180
149,149,149,149,149,149,149,149,149,149}; // 190
unsigned char m_magic_r[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,1,0,0,0,0,0,0,0, // 10
0,1,1,1,1,1,1,1,1,2, // 20
2,1,1,0,0,0,0,1,0,0, // 30
0,0,0,0,0,0,1,0,0,0,
0,1,1,0,0,0,0,0,0,0, // 50
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,1,1,0,0,
0,0,0,0,0,0,0,1,1,0,
0,2,2,0,0,0,0,2,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,0,0,2,0,0,0,0,0,0,
0,0,0,0,0,2,1,1,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,1, // 150
1,1,1,1,2,2,0,0,1,2,
1,0,0,1,0,0,1,2,0,0,
0,0,2,1,0,0,0,2,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_fire_r[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,1,0,0,0,0,0,0,0, // 10
0,0,0,1,0,0,1,1,1,1, // 20
2,0,0,0,0,0,0,1,0,0, // 30
0,0,0,0,0,0,1,0,0,0,
0,1,1,0,0,0,0,0,0,2, // 50
0,0,0,0,0,0,0,0,0,1,
0,0,0,2,0,0,0,0,0,0,
0,0,0,2,2,2,2,2,2,0,
0,0,0,0,0,1,1,1,1,0,
0,1,1,0,0,0,0,2,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,0,0,2,0,0,0,2,0,0,
0,0,0,0,0,2,1,2,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 150
2,0,0,1,2,2,0,0,0,0,
2,0,0,0,0,0,1,2,0,2,
0,0,2,1,0,0,0,1,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_cold_r[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,1,0,0,0,0,0,0,0, // 10
0,0,0,1,0,0,1,0,1,1, // 20
2,0,0,0,0,0,0,1,0,0, // 30
0,0,0,0,0,0,1,0,0,0,
0,1,1,0,0,0,0,0,2,2, // 50
2,2,2,2,2,2,2,2,2,2,
2,2,0,0,2,0,2,0,0,0,
0,1,0,0,0,0,1,1,0,0,
0,0,0,0,0,1,1,1,1,0,
0,1,1,0,0,0,0,2,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,2,2,2,0,2,2,0,2,2,
1,1,1,0,0,2,1,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0, // 150
0,2,0,1,2,2,0,0,0,0,
0,0,0,0,0,2,0,1,0,0,
2,0,2,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_poison_r[200] = {
0,0,0,0,0,0,0,0,0,0, // 0
0,0,1,0,0,0,0,0,0,0, // 10
0,0,0,0,0,0,0,0,0,0, // 20
1,0,0,0,0,0,1,1,0,0, // 30
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,2,2,2, // 50
2,2,2,2,2,2,2,2,2,2,
2,2,0,0,0,2,2,2,0,0,
2,2,0,0,2,2,2,2,2,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,2,2,2,0,0, //100
0,0,0,0,0,0,0,0,0,0,
0,2,2,2,2,2,2,0,0,0,
0,0,0,0,2,1,1,2,2,2,
2,2,2,1,1,1,1,0,0,0,
0,0,0,0,0,0,0,0,0,2, // 150
2,2,2,1,2,2,0,0,0,0,
1,1,0,0,0,2,2,1,0,0,
0,0,2,2,0,0,0,2,0,0,
0,0,0,0,0,0,0,0,0,0}; // 190
unsigned char m_pic_index[200] = {
1,2,3,4,5,6,7,8,9,10,
11,12,13,14,15,16,17,18,19,20, //10
21,22,23,24,25, 26,27,28,29,30, //20
31,32,33,34,35, 36,37,38,39,40, //30
41,42,43,44,46,47,48,49,50,51, //40
53,55,57,59,60,61,62,63,64,65, //50
66,67,68,69,70, 71,72,73,74,75, //60
76,77,78,79,81, 82,83,85,86,87, //70
88,89,90,91,92, 93,94,95,96,97, //80
98,99,100,101,102, 103,104,105,106,107, //90
108,109,111,112,113, 114,116,117,118,119, //100
120,122,123,125,127, 128,129,130,131,135, //110
136,137,139,140,141,142,143,144,145,146, //120
147,148,149,150,151,152,153,154,155,159, //130
160,164,166,168,170,171,172,173,174,175, //140
176,177,178,179,180,181,182,183,184,185, //150
186,187,188,189,190,191,192,193,194,195, //160
196,197,198,199,0,0,0,0,0,0, //170
0,0,0,0,0,0,0,0,0,0, //180
0,0,0,0,0,0,0,0,0,0}; //190
unsigned char m_pic_index_x[200] = {
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1, //10
1,1,1,1,1,1,1,1,1,1, //20
1,1,1,1,1,1,1,1,1,1, //30
1,1,1,1,1,1,1,1,1,1, //40
1,1,1,1,1,1,1,1,1,1, //50
1,1,1,1,1,1,1,1,1,1, //60
1,1,1,2,1,1,1,1,1,1, //70
1,1,1,1,1,1,1,1,1,1, //80
1,1,1,1,1,1,1,1,1,1, //90
1,2,1,1,1,2,1,1,1,1, // 100
2,1,1,1,1,1,1,1,2,1, //110
1,2,1,1,1,1,1,1,1,1, //120
1,1,1,1,1,1,1,1,2,1, //130
2,2,2,1,1,1,1,1,1,1, //140
1,1,1,1,1,1,1,1,1,1, //150
1,1,1,1,1,1,1,1,1,1, //160
1,1,1,1,1,1,1,1,1,1, //170
1,1,1,1,1,1,1,1,1,1, //180
1,1,1,1,1,1,1,1,1,1}; //190
unsigned char m_pic_index_y[200] = {
1,1,1,1,1,1,1,1,1,1,
1,1,1,1,1,1,1,1,1,1, //10
1,1,1,1,1,1,1,1,1,1, //20
1,1,1,1,1,1,1,1,1,1, //30
1,1,1,1,1,1,1,1,1,2, //40
2,2,2,1,1,1,1,1,1,1, //50
1,1,1,1,1,1,1,1,1,1, //60
1,1,1,1,1,1,2,1,1,1, //70
1,1,1,1,1,1,1,1,1,1, //80
1,1,1,1,1,1,1,1,1,1, //90
1,1,1,1,1,1,1,1,1,1, //100
1,1,2,2,1,1,1,1,2,1, //110
1,1,1,1,1,1,1,1,1,1, //120
1,1,1,1,1,1,1,1,2,1, //130
2,1,1,2,1,1,1,1,1,1, //140
1,1,1,1,1,1,1,1,1,1, //150
1,1,1,1,1,1,1,1,1,1, //160
1,1,1,1,1,1,1,1,1,1, //170
1,1,1,1,1,1,1,1,1,1, //180
1,1,1,1,1,1,1,1,1,1}; //190
short ter_pics[256] = {0,1,2,3,4,5,6,6,7,8,
8,9,10,10,11,12,12,13,14,15,
16,17,18,19,20,21,22,23,24,25,
26,27,28,29,30,31,32,33,34,35,
36,37,38,39,40,41,42,43,44,45,
46,47,48,49,50,51,52,53,54,55,
56,57,58,59,60,61,62,63,64,65,
66,400,401,402,403,404,404,405,406,202,
203,204,215,216,67,68,69,85,86,87,
74,70,71,72,73,75,76,83,84,121,
122,178,179,180,411,182,183,184,185,186,
79,80,81,82,83,84,198,199,181,205,
206,227,88,88,89,90,90,90,90,91,
92,93,94,95,96,88,97,98,99,100,
100,101,102,102,102,102,103,104,105,106,
107,108,100,109,110,110,111,112,112,112,
112,113,114,115,116,117,118,110,119,120,
123,123,123,124,125,126,127,128,129,150,
151,152,146,147,148,149,130,131,132,133,
134,135,136,137,138,139,140,141,142,143,
144,145,153,154,155,156,412,413,213,214,
157,157,158,159,160,161,162,163,164,165,
166,167,168,169,170,171,172,173,174,175,
176,177,187,188,189,190,2,192,193,195,
194,196,197,191,200,201,207,208,209,210,
211,212,407,408,409,410};
short ter_block[256] = {
0,0,0,0,0,5,5,1,5,5,
1,5,5,1,5,5,1,5,5,5,
5,5,5,5,5,5,5,5,5,5,
5,5,5,5,5,5,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
3,3,3,3,3,3,3,3,3,3,
3,3,3,0,3,0,0,0,0,0,
0,3,0,0,3,2,2,4,2,0,
0,0,0,0,0,0,0,0,0,0,
3,4,0,0,0,4,0,4,0,4,
4,4,0,0,4,0,4,4,0,4,
4,0,4,4,0,0,5,5,0,4,
4,4,5,5,1,5,5,5,5,0,
4,0,5,4,5,5,5,5,4,5,
5,1,5,5,5,5,0,4,0,5,
5,5,5,4,5,5,1,5,5,5,
5,0,4,0,5,5,5,5,5,4,
0,2,2,0,4,4,4,4,4,4,
4,4,4,4,4,4,4,4,4,4,
4,5,4,4,4,0,0,0,0,0,
0,4,4,4,0,4,0,0,2,2,
0,2,4,4,4,0,4,0,4,0,
0,0,4,4,0,0,4,4,4,4,
4,4,5,5,5,5,5,5,5,5,
5,5,5,5,5,5,2,2,2,2,
2,2,0,0,0,0};
short ter_traits[256] = {
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,2,0,15,0,0,
0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,5,0,0,0,
0,14,14,0,0,0,11,11,0,0,
0,5,0,0,0,0,0,0,0,0,
0,11,0,1,0,1,10,10,10,22,
9,8,11,7,7,7,0,0,0,0,
1,0,1,10,10,10,22,9,8,11,
7,7,7,0,0,1,0,1,10,10,
10,22,9,8,11,7,7,7,0,0,
0,20,4,20,0,14,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,
0,14,0,0,14,0,0,0,0,0,
0,14,0,0,0,0,0,0,0,0,
0,20,0,0,0,0,0,0,0,0,
0,14,0,14,20,0,0,0,0,0,
0,0,21,21,21,21,21,21,21,21,
21,21,21,21,21,21,0,0,0,0,
0,0,16,17,18,19};
monster_record_type return_monster_template(unsigned char store)
{
monster_record_type monst;
short m_num,i;
m_num = store;
monst.m_num = m_num;
if (m_num >= 187)
m_num = 187;
monst.level = m_level[m_num];
monst.m_health = m_health[m_num];
monst.health = monst.m_health;
monst.max_mp = 0;
monst.mp = monst.max_mp;
monst.armor = m_armor[m_num];
monst.skill = m_skill[m_num];
monst.a[0] = m_a1[m_num];
monst.a[1] = m_a2[m_num];
monst.a[2] = m_a3[m_num];
if (monst.a[0] > 0)
monst.a[0] += 100;
if (monst.a[1] > 0)
monst.a[1] += 100;
if (monst.a[2] > 0)
monst.a[2] += 100;
monst.a1_type = m_a1t[m_num];
monst.a23_type = m_a23t[m_num];
monst.m_type = m_type[m_num];
monst.speed = m_speed[m_num];
monst.ap = 0;
monst.mu = m_mu[m_num];
monst.cl = m_cl[m_num];
if ((monst.mu > 0) || (monst.cl > 0))
monst.max_mp = monst.mp = 14 * m_level[m_num];
monst.breath = m_breath[m_num] % 100;
monst.breath_type = m_breath[m_num] / 100;
monst.treasure = m_treas[m_num];
monst.spec_skill = m_abil[m_num];
monst.m_morale = 10 * m_level[m_num];
if (m_level[m_num] >= 20)
monst.m_morale += 10 * (m_level[m_num] - 20);
monst.morale = monst.m_morale;
monst.poison = m_poison[m_num];
monst.picture_num = m_pict[m_num];
monst.direction = 0;
monst.corpse_item = -1;
monst.corpse_item_chance = -1;
for (i = 0; i < 15; i++)
monst.status[i] = 0;
monst.x_width = monst.y_width = 1;
for (i = 0; i < 200; i++)
if (m_pict[m_num] == m_pic_index[i]) {
monst.picture_num = i;
monst.x_width = m_pic_index_x[i];
monst.y_width = m_pic_index_y[i];
i = 200;
}
// monst.x_width = xdim[m_num];
// monst.y_width = ydim[m_num];
monst.radiate_1 = 0;
monst.radiate_2 = 0;
monst.default_attitude = 0;
monst.summon_type = 0;
monst.default_facial_pic = 0;
monst.res1 = 0;
monst.res2 = 0;
monst.res3 = 0;
monst.immunities = 0;
if (m_magic_r[m_num] == 1)
monst.immunities = monst.immunities | 1;
if (m_magic_r[m_num] == 2)
monst.immunities = monst.immunities | 2;
if (m_fire_r[m_num] == 1)
monst.immunities = monst.immunities | 4;
if (m_fire_r[m_num] == 2)
monst.immunities = monst.immunities | 8;
if (m_cold_r[m_num] == 1)
monst.immunities = monst.immunities | 16;
if (m_cold_r[m_num] == 2)
monst.immunities = monst.immunities | 32;
if (m_poison_r[m_num] == 1)
monst.immunities = monst.immunities | 64;
if (m_poison_r[m_num] == 2)
monst.immunities = monst.immunities | 128;
return monst;
}
void init_scenario()
{
short i;
RECT dummy_rect = {0,0,0,0};
char temp_str[256];
boat_record_type null_boat = {{0,0},{0,0},{0,0},-1,FALSE,FALSE};
horse_record_type null_horse = {{0,0},{0,0},{0,0},-1,FALSE,FALSE};
item_storage_shortcut_type null_item_s ={-1,{-1,-1,-1,-1,-1,-1,-1,-1,-1,-1},{0,0,0,0,0,0,0,0,0,0},0};
short j,item_to_hide[13] = {214,233,270,271,280,281,286,290,291,297,304,311,348};
scenario.ver[0] = 1;
scenario.ver[1] = 0;
scenario.ver[2] = 0;
scenario.min_run_ver = 1;
scenario.prog_make_ver[0] = 1;
scenario.prog_make_ver[1] = 0;
scenario.prog_make_ver[2] = 0;
scenario.num_towns = 1;
scenario.out_width = 1;
scenario.out_height = 1;
scenario.difficulty = 0;
scenario.intro_pic = 0;
scenario.default_ground = 1;
for (i = 0; i < 200; i++) {
scenario.town_size[i] = 1;
scenario.town_hidden[i] = 0;
scenario.town_data_size[i][0] = 0;
scenario.town_data_size[i][1] = 0;
scenario.town_data_size[i][2] = 0;
scenario.town_data_size[i][3] = 0;
scenario.town_data_size[i][4] = 0;
}
scenario.intro_mess_len = 0;
scenario.where_start.x = 24;
scenario.where_start.y = 24;
scenario.out_sec_start.x = 0;
scenario.out_sec_start.y = 0;
scenario.out_start = scenario.where_start;
scenario.which_town_start = 0;
for (i = 0; i < 10; i++) {
scenario.town_to_add_to[i] = -1;
scenario.flag_to_add_to_town[i][0] = 0;
scenario.flag_to_add_to_town[i][1] = 0;
}
for (i = 0; i < 100; i++) {
scenario.out_data_size[i][0] = 0;
scenario.out_data_size[i][1] = 0;
}
for (i = 0; i < 3; i++) {
scenario.store_item_rects[i] = dummy_rect;
scenario.store_item_towns[i] = -1;
}
for (i = 0; i < 50; i++) {
scenario.special_items[i] = 0;
scenario.special_item_special[i] = -1;
}
scenario.rating = 0;
scenario.uses_custom_graphics = 0;
for (i = 0; i < 256; i++) {
scenario.scen_monsters[i] = return_monster_template(i);
get_str(temp_str,2,i);
if ((i > 187) || (i == 0))
sprintf((char *)scen_item_list.monst_names[i], "Unused");
else sprintf((char *)scen_item_list.monst_names[i], "%s", temp_str);
if (i == 0)
sprintf((char *)scen_item_list.monst_names[i], "Empty");
}
for (i = 0; i < 30; i++) {
scenario.scen_boats[i] = null_boat;
scenario.scen_horses[i] = null_horse;
}
for (i = 0; i < 256; i++) {
scenario.ter_types[i].picture = ter_pics[i];
scenario.ter_types[i].blockage = ter_block[i];
scenario.ter_types[i].special = ter_traits[i];
get_str(temp_str,1,i + 1);
sprintf((char *)scen_item_list.ter_names[i], "%s", temp_str);
scenario.scen_specials[i] = null_spec_node;
}
for (i = 0; i < 20; i++) {
scenario.scenario_timer_times[i] = 0;
scenario.scenario_timer_specs[i] = -1;
}
for (i = 0; i < 10; i++) {
scenario.storage_shortcuts[i] = null_item_s;
}
scenario.last_out_edited.x = 0;
scenario.last_out_edited.y = 0;
scenario.last_town_edited = 0;
for (i = 0; i < 400; i++) {
scen_item_list.scen_items[i].variety = 0;
// =
for (j = 0; j < 13; j++)
if (i == item_to_hide[j])
scen_item_list.scen_items[i].item_properties =
scen_item_list.scen_items[i].item_properties | 32;
}
for (i = 0; i < 270; i++) {
get_str(temp_str,35,i + 1);
if (i < 160) {
sprintf((char *)scen_strs[i], "%s", temp_str);
scenario.scen_str_len[i] = strlen((char *) scen_strs[i]);
}
else {
sprintf((char *)scen_strs2[i - 160], "%s", temp_str);
scenario.scen_str_len[i] = strlen((char *) scen_strs[i - 160]);
}
}
}
void put_ter_info_in_dlog()
{
char str[256];
cdsin(813,12,store_which_ter);
CDST(813,2,scen_item_list.ter_names[store_which_ter]);
CDSN(813,5,store_ter.picture);
cd_set_led_range(813,19,24,store_ter.blockage);
cd_set_led(813,25,store_ter.fly_over);
cd_set_led(813,26,store_ter.boat_over);
cd_set_led(813,27,store_ter.block_horse);
cd_set_led_range(813,28,31,store_ter.step_sound);
str[0] = store_ter.shortcut_key;
str[1] = 0;
CDST(813,3, str);
CDSN(813,4,store_ter.trans_to_what);
CDSN(813,8,store_ter.light_radius);
cd_set_led_range(813,32,55,store_ter.special);
CDSN(813,6,store_ter.flag1);
CDSN(813,7,store_ter.flag2);
get_str(str,21,40 + store_ter.special);
csit(813,67, str);
get_str(str,21,80 + store_ter.special);
csit(813,68, str);
if (store_ter.picture >= 2000)
csp(813,14,store_ter.picture-2000, 5);
else if (store_ter.picture >= 1000)
csp(813,14,store_ter.picture-1000, 1);
else if (store_ter.picture >= 400)
csp(813,14,store_ter.picture - 100, 0);
else
csp(813,14,store_ter.picture, 0);
}
Boolean save_ter_info()
{
char str[256];
short i;
store_ter.picture = CDGN(813,5);
if ((store_ter.picture < 0) ||
((store_ter.picture > 413) && (store_ter.picture < 1000))) {
give_error("Picture number isn't in the proper range.","",813);
return FALSE;
}
if (store_which_ter >= 0) {
store_ter.blockage = cd_get_led_range(813,19,24);
store_ter.special = cd_get_led_range(813,32,55);
i = CDGN(813,6);
if ((store_ter.special < 2) || (store_ter.special > 6)) { // 0, 1, >= 7
if (cre(i,0,256,"First special flag must be from 0 to 255.","",813) == TRUE) return FALSE;
}
else if ((store_ter.special > 1) && (store_ter.special <= 4)) { // 2, 3, 4
if (cre(i,0,256,"First special flag must be from 0 to 100.","",813) == TRUE) return FALSE;
}
else if ((store_ter.special > 4) && (store_ter.special <= 7)) { // 5, 6, 7
if (cre(i,0,256,"First special flag must be from 0 to 8.","",813) == TRUE) return FALSE;
}
store_ter.flag1 = CDGN(813,6);
i = CDGN(813,7);
if ((store_ter.special == 1) || (store_ter.special == 21)) {
if (cre(i,0,256,"Second special flag must be from 0 to 200.","",813) == TRUE) return FALSE;
}
else if ((store_ter.special > 1) && (store_ter.special <= 7)) { // 2,3,4,5,6,7
if (cre(i,0,256,"Second special flag must be from 0 to 100.","",813) == TRUE) return FALSE;
}
store_ter.flag2 = CDGN(813,7);
i = CDGN(813,4);
if (cre(i,0,255,"Transform To What must be from 0 to 255.","",813) == TRUE) return FALSE;
store_ter.trans_to_what = CDGN(813,4);
store_ter.fly_over = cd_get_led(813,25);
store_ter.boat_over = cd_get_led(813,26);
store_ter.block_horse = cd_get_led(813,27);
store_ter.light_radius = CDGN(813,8);
if (cre(store_ter.light_radius,0,8,"Light radius must be from 0 to 8.","",813) == TRUE) return FALSE;
store_ter.step_sound = cd_get_led_range(813,28,31);
}
CDGT(813,3,(char *) str);
store_ter.shortcut_key = str[0];
CDGT(813,2,(char *) str);
str[29] = 0;
sprintf(scen_item_list.ter_names[store_which_ter],"%s",str);
scenario.ter_types[store_which_ter] = store_ter;
return TRUE;
}
void edit_ter_type_event_filter (short item_hit)
{
char str[256];
short i;
switch (item_hit) {
case 9:
dialog_not_toast = FALSE;
store_ter.picture = 0;
break;
case 62:
if (save_ter_info() == TRUE)
dialog_not_toast = FALSE;
store_ter.picture = 0;
break;
case 10:
if (save_ter_info() == FALSE) break;
store_which_ter--;
if (store_which_ter < 0) store_which_ter = 255;
store_ter = scenario.ter_types[store_which_ter];
put_ter_info_in_dlog();
break;
case 11:
if (save_ter_info() == FALSE) break;
store_which_ter++;
if (store_which_ter > 255) store_which_ter = 0;
store_ter = scenario.ter_types[store_which_ter];
put_ter_info_in_dlog();
break;
case 13: case 70:
if (item_hit == 13){ // Pick Picture
i = choose_graphic(0,252,store_ter.picture,813);
}
else {
do_choose_anim = TRUE;
i = choose_graphic(300,313,store_ter.picture,813); // Animated
}
if (i >= 0) {
if (i >= 300)
i += 100;
store_ter.picture = i;
}
else
break;
CDSN(813,5,store_ter.picture);
if(store_ter.picture >= 2000)
csp(813,14,store_ter.picture-2000, 2);
else if (store_ter.picture >= 1000)
csp(813,14,store_ter.picture-1000, 1);
else {
if (store_ter.picture >= 400)
csp(813,14,store_ter.picture - 100, 0);
else
csp(813,14,store_ter.picture, 0);
}
break;
default:
cd_hit_led_range(813,32,55,item_hit);
cd_hit_led_range(813,28,31,item_hit);
cd_hit_led_range(813,19,24,item_hit);
cd_flip_led(813,25,item_hit);
cd_flip_led(813,26,item_hit);
cd_flip_led(813,27,item_hit);
if ((item_hit >= 32) && (item_hit <= 55)) {
get_str(str,21,40 + item_hit - 32);
csit(813,67,(char *) str);
get_str(str,21,80 + item_hit - 32);
csit(813,68,(char *) str);
}
break;
}
}
short edit_ter_type(short which_ter)
// ignore parent in Mac version
{
short i;
char temp_str[256];
char *blocked_strs[6] = {"Clear","Walk through, Opaque","Clear, Special","Clear, Blocked","Blocked, Obstructed",
"Blocked, Opaque"};
char *sound_strs[4] = {"Footstep","Squish","Crunch","Silence"};
store_which_ter = which_ter;
store_ter = scenario.ter_types[which_ter];
//make_cursor_sword();
cd_create_dialog_parent_num(813,0);
put_ter_info_in_dlog();
for (i = 0; i < 24; i++) {
get_str(temp_str,21,i + 1);
cd_add_label(813,32 + i,(char *) temp_str,57);
}
for (i = 0; i < 4; i++)
cd_add_label(813,28 + i,sound_strs[i],35);
for (i = 0; i < 6; i++)
cd_add_label(813,19 + i,blocked_strs[i],57);
cd_attach_key(813,10,0);
cd_attach_key(813,11,0);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(813,0);
return 0;
}
void put_monst_info_in_dlog()
{
char str[256];
if (store_monst.picture_num < 1000)
csp(814,34,400 + store_monst.picture_num, 0);
else
csp(814,34,store_monst.picture_num % 1000, store_monst.picture_num / 1000);
cdsin(814,33,store_which_monst);
CDST(814,2,scen_item_list.monst_names[store_which_monst]);
CDSN(814,3,store_monst.picture_num);
sprintf(str,"Width = %d",store_monst.x_width);
csit(814,40, str);
sprintf(str,"Height = %d",store_monst.y_width);
csit(814,41, str);
CDSN(814,4,store_monst.level);
CDSN(814,5,store_monst.health);
CDSN(814,6,store_monst.armor);
CDSN(814,7,store_monst.skill);
CDSN(814,8,store_monst.speed);
CDSN(814,9,store_monst.mu);
CDSN(814,10,store_monst.cl);
CDSN(814,11,store_monst.a[0] / 100);
CDSN(814,12,store_monst.a[0] % 100);
CDSN(814,13,store_monst.a[1] / 100);
CDSN(814,14,store_monst.a[1] % 100);
CDSN(814,15,store_monst.a[2] / 100);
CDSN(814,16,store_monst.a[2] % 100);
CDSN(814,17,store_monst.default_facial_pic);
CDSN(814,18,store_monst.treasure);
cd_set_led_range(814,29,32,store_monst.default_attitude);
get_str(str,20,150 + store_monst.m_type);
csit(814,42, str);
get_str(str,20,130 + store_monst.a1_type);
csit(814,43, str);
get_str(str,20,130 + store_monst.a23_type);
csit(814,44, str);
}
Boolean save_monst_info()
{
char str[256];
short i;
CDGT(814,2,(char *) str);
str[19] = 0;
sprintf(scen_item_list.monst_names[store_which_monst],"%s",str);
//CDGT(814,2,scen_item_list.monst_names[store_which_monst]);
store_monst.picture_num = CDGN(814,3);
if (cre(store_monst.picture_num,0,5000,"Monster pic must be from 0 to 5000.","",814) > 0) return FALSE;
// later check pic num for error, and assign widths if custom
if (store_monst.picture_num >= 1000) {
if ((store_monst.picture_num >= 1000) && (store_monst.picture_num < 2000)) {
store_monst.x_width = 1; store_monst.y_width = 1; }
if ((store_monst.picture_num >= 2000) && (store_monst.picture_num < 3000)) {
store_monst.x_width = 2; store_monst.y_width = 1; }
if ((store_monst.picture_num >= 3000) && (store_monst.picture_num < 4000)) {
store_monst.x_width = 1; store_monst.y_width = 2; }
if ((store_monst.picture_num >= 4000) && (store_monst.picture_num < 5000)) {
store_monst.x_width = 2; store_monst.y_width = 2; }
}
else {
if (cre(store_monst.picture_num,0,174,"Non-customized monster pic must be from 0 to 173.","",814) > 0) return FALSE;
store_monst.x_width = m_pic_index_x[store_monst.picture_num];
store_monst.y_width = m_pic_index_y[store_monst.picture_num];
}
store_monst.level = CDGN(814,4);
if (cre(store_monst.level,0,40,"Level must be from 0 to 40.","",814) > 0) return FALSE;
store_monst.m_health = store_monst.health = CDGN(814,5);
if (cre(store_monst.health,0,2500,"Health must be from 0 to 2500.","",814) > 0) return FALSE;
store_monst.armor = CDGN(814,6);
if (cre(store_monst.armor,0,50,"Armor must be from 0 to 50.","",814) > 0) return FALSE;
store_monst.skill = CDGN(814,7);
if (cre(store_monst.skill,0,40,"Skill must be from 0 to 40.","",814) > 0) return FALSE;
store_monst.speed = CDGN(814,8);
if (cre(store_monst.speed,1,12,"Speed must be from 2 to 12.","",814) > 0) return FALSE;
store_monst.mu = CDGN(814,9);
if (cre(store_monst.mu,0,7,"Magic Spells must be from 0 to 7.","",814) > 0) return FALSE;
store_monst.cl = CDGN(814,10);
if (cre(store_monst.cl,0,7,"Priest Spells must be from 0 to 7.","",814) > 0) return FALSE;
i = CDGN(814,11);
if (cre(i,0,20,"Attack 1 number of dice must be from 0 to 20 (0 means no attack).","",814) > 0) return FALSE;
i = CDGN(814,13);
if (cre(i,0,20,"Attack 2 number of dice must be from 0 to 20 (0 means no attack).","",814) > 0) return FALSE;
i = CDGN(814,15);
if (cre(i,0,20,"Attack 3 number of dice must be from 0 to 20 (0 means no attack).","",814) > 0) return FALSE;
i = CDGN(814,12);
if (cre(i,0,50,"Attack 1 damage per die must be from 1 to 50.","",814) > 0) return FALSE;
i = CDGN(814,14);
if (cre(i,0,50,"Attack 2 damage per die must be from 1 to 50.","",814) > 0) return FALSE;
i = CDGN(814,16);
if (cre(i,0,50,"Attack 3 damage per die must be from 1 to 50.","",814) > 0) return FALSE;
store_monst.a[0] = CDGN(814,11) * 100 + CDGN(814,12);
store_monst.a[1] = CDGN(814,13) * 100 + CDGN(814,14);
store_monst.a[2] = CDGN(814,15) * 100 + CDGN(814,16);
store_monst.default_facial_pic = CDGN(814,17); // later
store_monst.treasure = CDGN(814,18);
if (cre(store_monst.treasure,0,4,"Treasure must be from 0 to 4.","",814) > 0) return FALSE;
store_monst.default_attitude = cd_get_led_range(814,29,32);
return TRUE;
}
void edit_monst_type_event_filter (short item_hit)
{
short i;
monster_record_type temp_monst;
switch (item_hit) {
case 20:
dialog_not_toast = FALSE; break;
case 19:
if (save_monst_info() == TRUE) {
scenario.scen_monsters[store_which_monst] = store_monst;
dialog_not_toast = FALSE;
}
break;
case 23: // abils
if (save_monst_info() == FALSE) break;
temp_monst = edit_monst_abil(store_monst,814);
store_monst = temp_monst;
put_monst_info_in_dlog();
break;
case 21://previous monster
if (save_monst_info() == FALSE) break;
scenario.scen_monsters[store_which_monst] = store_monst;
store_which_monst--;
if (store_which_monst < 1) store_which_monst = 255;
store_monst = scenario.scen_monsters[store_which_monst];
put_monst_info_in_dlog();
break;
case 22://next monster
if (save_monst_info() == FALSE) break;
scenario.scen_monsters[store_which_monst] = store_monst;
store_which_monst++;
if (store_which_monst > 255) store_which_monst = 1;
store_monst = scenario.scen_monsters[store_which_monst];
put_monst_info_in_dlog();
break;
case 24: // picture
if (save_monst_info() == FALSE) break;
i = choose_graphic(400,572,store_monst.picture_num + 400,814);
if (i >= 0) {
store_monst.picture_num = i - 400;
}
else{
put_monst_info_in_dlog();
break;
}
store_monst.x_width = m_pic_index_x[i-400];
store_monst.y_width = m_pic_index_y[i-400];
put_monst_info_in_dlog();
break;
case 25: // m type
if (save_monst_info() == FALSE) break;
i = choose_text_res(20,150,164,store_monst.m_type + 150,814,"Choose Monster Type:");
if (i >= 0) {
store_monst.m_type = i - 150;
}
put_monst_info_in_dlog();
break;
case 26: // att type 1
if (save_monst_info() == FALSE) break;
i = choose_text_res(20,130,139,store_monst.a1_type + 130,814,"Choose Attack 1 Type:");
if (i >= 0) {
store_monst.a1_type = i - 130;
}
put_monst_info_in_dlog();
break;
case 27: // att type 23
if (save_monst_info() == FALSE) break;
i = choose_text_res(20,130,139,store_monst.a23_type + 130,814,"Choose Attack 2 & 3 Type:");
if (i >= 0) {
store_monst.a23_type = i - 130;
}
put_monst_info_in_dlog();
break;
case 28: // talk pic
if (save_monst_info() == FALSE) break;
i = choose_graphic(1001,1084,store_monst.default_facial_pic + 1000,814);
if (i >= 0) {
store_monst.default_facial_pic = i - 1000;
}
else{
put_monst_info_in_dlog();
break;
}
put_monst_info_in_dlog();
break;
default:
cd_hit_led_range(814,29,32,item_hit);
break;
}
}
short edit_monst_type(short which_monst)
// ignore parent in Mac version
{
short i;
char *attitude[4] = {"Friendly, Docile","Hostile, Type A","Friendly, Will Fight","Hostile, Type B"};
store_which_monst = which_monst;
store_monst = scenario.scen_monsters[which_monst];
//make_cursor_sword();
cd_create_dialog_parent_num(814,0);
put_monst_info_in_dlog();
for (i = 0; i < 4; i++)
cd_add_label(814,29 + i,attitude[i],57);
cd_attach_key(814,21,0);
cd_attach_key(814,22,0);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(814,0);
return 0;
}
void put_monst_abils_in_dlog()
{
char str[256];
short i;
cdsin(815,24,store_which_monst);
CDSN(815,2,store_monst2.poison);
CDSN(815,3,store_monst2.breath);
get_str(str,20,store_monst2.spec_skill + 1);
csit(815,30,(char *) str);
get_str(str,20,store_monst2.radiate_1 + 50);
csit(815,33,(char *) str);
get_str(str,20,store_monst2.radiate_1 + 80);
csit(815,36,(char *) str);
CDSN(815,4,store_monst2.radiate_2);
CDSN(815,5,store_monst2.corpse_item);
CDSN(815,6,store_monst2.corpse_item_chance);
cd_set_led_range(815,9,12,store_monst2.breath_type);
cd_set_led_range(815,41,44,store_monst2.summon_type);
for (i = 0; i < 8; i++)
cd_set_led(815,13 + i,0);
if (store_monst2.immunities & 1 ) cd_set_led(815,13,1);
if (store_monst2.immunities & 2 ) cd_set_led(815,14,1);
if (store_monst2.immunities & 4 ) cd_set_led(815,15,1);
if (store_monst2.immunities & 8 ) cd_set_led(815,16,1);
if (store_monst2.immunities & 16 ) cd_set_led(815,17,1);
if (store_monst2.immunities & 32 ) cd_set_led(815,18,1);
if (store_monst2.immunities & 64 ) cd_set_led(815,19,1);
if (store_monst2.immunities & 128 ) cd_set_led(815,20,1);
}
Boolean save_monst_abils()
{
store_monst2.poison = CDGN(815,2);
if (cre(store_monst2.poison,0,8,"Poison must be from 0 to 8.","",815) > 0) return FALSE;
store_monst2.breath = CDGN(815,3);
if (cre(store_monst2.poison,0,40,"Breath Damage must be from 0 to 4.","",815) > 0) return FALSE;
store_monst2.breath_type = cd_get_led_range(815,9,12);
store_monst2.summon_type = cd_get_led_range(815,41,44);
store_monst2.radiate_2 = CDGN(815,4);
if ((store_monst2.radiate_1 >= 1) && (store_monst2.radiate_1 <= 6))
if (cre(store_monst2.radiate_2,0,100,"Radiation Chance must be from 0 to 100.","",815) > 0) return FALSE;
if ((store_monst2.radiate_1 >= 10) && (store_monst2.radiate_1 <= 12))
if (cre(store_monst2.radiate_2,0,255,"Summoned Monster must be from 0 to 255.","",815) > 0) return FALSE;
store_monst2.corpse_item = CDGN(815,5);
if (cre(store_monst2.corpse_item,-1,399,"Item To Drop must be from 0 to 399 (or -1 for no item).","",815) > 0) return FALSE;
store_monst2.corpse_item_chance = CDGN(815,6);
if (cre(store_monst2.corpse_item_chance,-1,100,"Dropping Chance must be from 0 to 100 (or -1 for no item).","",815) > 0) return FALSE;
store_monst2.immunities = 0;
if (cd_get_led(815,13) == 1) store_monst2.immunities = store_monst2.immunities | 1;
if (cd_get_led(815,14) == 1) store_monst2.immunities = store_monst2.immunities | 2;
if (cd_get_led(815,15) == 1) store_monst2.immunities = store_monst2.immunities | 4;
if (cd_get_led(815,16) == 1) store_monst2.immunities = store_monst2.immunities | 8;
if (cd_get_led(815,17) == 1) store_monst2.immunities = store_monst2.immunities | 16;
if (cd_get_led(815,18) == 1) store_monst2.immunities = store_monst2.immunities | 32;
if (cd_get_led(815,19) == 1) store_monst2.immunities = store_monst2.immunities | 64;
if (cd_get_led(815,20) == 1) store_monst2.immunities = store_monst2.immunities | 128;
return TRUE;
}
void edit_monst_abil_event_filter (short item_hit)
{
short i;
switch (item_hit) {
case 8: dialog_not_toast = FALSE; break;
case 7:
if (save_monst_abils() == TRUE)
dialog_not_toast = FALSE;
break;
case 31: // abils
if (save_monst_abils() == FALSE) break;
i = choose_text_res(20,1,38,store_monst2.spec_skill + 1,815,"Choose Monster Ability:");
if (i >= 0) {
store_monst2.spec_skill = i - 1;
put_monst_abils_in_dlog();
}
break;
case 34: // radiate
if (save_monst_abils() == FALSE) break;
i = choose_text_res(20,50,65,store_monst2.radiate_1 + 50,815,"Choose Radiation Ability:");
if (i >= 0) {
store_monst2.radiate_1 = i - 50;
put_monst_abils_in_dlog();
}
break;
default:
cd_hit_led_range(815,9,12,item_hit);
cd_hit_led_range(815,41,44,item_hit);
for (i = 13; i < 21; i++)
cd_flip_led(815,i,item_hit);
break;
}
}
monster_record_type edit_monst_abil(monster_record_type starting_record,short parent_num)
// ignore parent in Mac version
{
//store_which_monst = which_monst;
store_monst2 = starting_record;
//make_cursor_sword();
cd_create_dialog_parent_num(815,parent_num);
put_monst_abils_in_dlog();
cd_add_label(815,9,"Fire",35);
cd_add_label(815,10,"Cold",35);
cd_add_label(815,11,"Electricity",35);
cd_add_label(815,12,"Darkness",35);
cd_add_label(815,41,"No Summon",35);
cd_add_label(815,42,"Type 1",35);
cd_add_label(815,43,"Type 2",35);
cd_add_label(815,44,"Type 3",35);
cd_add_label(815,13,"Resist Magic",55);
cd_add_label(815,15,"Resist Fire",55);
cd_add_label(815,17,"Resist Cold",55);
cd_add_label(815,19,"Resist Poison",55);
cd_add_label(815,14,"Immune To Magic",55);
cd_add_label(815,16,"Immune To Fire",55);
cd_add_label(815,18,"Immune To Cold",55);
cd_add_label(815,20,"Immune To Poison",55);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(815,0);
return store_monst2;
}
void put_item_info_in_dlog()
{
cdsin(818,52,store_which_item);
CDST(818,2,store_item.full_name);
CDST(818,3,store_item.name);
if (store_item.graphic_num >= 150) //150 is too large if the base item bitmap is not expanded, should be 122 ...
csp(818,49, store_item.graphic_num - 150, 1);
else
csp(818,49,1800 + store_item.graphic_num, 0);
CDSN(818,4,store_item.graphic_num);
cd_set_led_range(818,18,45,store_item.variety);
CDSN(818,5,store_item.item_level);
CDSN(818,6,store_item.awkward);
CDSN(818,7,store_item.bonus);
CDSN(818,8,store_item.protection);
CDSN(818,9,store_item.charges);
CDSN(818,10,store_item.type_flag);
CDSN(818,11,store_item.value);
CDSN(818,12,store_item.weight);
CDSN(818,13,store_item.special_class);
cd_set_led_range(818,46,48,store_item.type - 1);
}
Boolean save_item_info()
{
char str[256];
CDGT(818,2,(char *) str);
str[24] = 0;
sprintf(store_item.full_name,"%s",str);
CDGT(818,3,(char *) str);
str[14] = 0;
sprintf(store_item.name,"%s",str);
store_item.graphic_num = CDGN(818,4);
store_item.variety = cd_get_led_range(818,18,45);
store_item.type = cd_get_led_range(818,46,48) + 1;
store_item.item_level = CDGN(818,5);
if (cre(store_item.item_level,0,50,"Item Level must be from 0 to 50.","",818) > 0) return FALSE;
if (((store_item.variety == 3) || (store_item.variety == 11)) && (store_item.item_level == 0))
store_item.item_level = 1;
store_item.awkward = CDGN(818,6);
if (cre(store_item.awkward,0,20,"Awkward must be from 0 to 20.","",818) > 0) return FALSE;
store_item.bonus = CDGN(818,7);
if (cre(store_item.bonus,0,60,"Bonus must be from 0 to 60.","",818) > 0) return FALSE;
store_item.protection = CDGN(818,8);
if (cre(store_item.protection,-10,20,"Protection must be from -10 to 20.","",818) > 0) return FALSE;
store_item.charges = CDGN(818,9);
if (cre(store_item.charges,0,100,"Charges must be from 0 to 100.","",818) > 0) return FALSE;
store_item.type_flag = CDGN(818,10);
if (cre(store_item.type_flag,0,255,"Type Flag must be from 0 to 255.","",818) > 0) return FALSE;
store_item.value = CDGN(818,11);
if (cre(store_item.value,0,10000,"Value must be from 0 to 10000.","",818) > 0) return FALSE;
store_item.weight = CDGN(818,12);
if (cre(store_item.weight,0,250,"Weight must be from 0 to 250.","",818) > 0) return FALSE;
store_item.special_class = CDGN(818,13);
if (cre(store_item.special_class,0,100,"Special Class must be from 0 to 100.","",818) > 0) return FALSE;
if ((store_item.type_flag > 0) && (store_item.charges == 0)) {
give_error("If the Type Flag is greater than 0, the Charges must also be greater than 0.","",818);
return FALSE;
}
if (store_item.variety > 25) {
give_error("The Unused item varieties are reserved for later expansions, and can't be used now.","",818);
return FALSE;
}
if ((store_item.ability >= 70) && (store_item.ability < 170) && (store_item.ability != 95) && (store_item.charges == 0)) {
give_error("An item with the special ability selected must have at least 1 charge.","",818);
return FALSE;
}
scen_item_list.scen_items[store_which_item] = store_item ;
return TRUE;
}
void edit_item_type_event_filter (short item_hit)
{
short i;
item_record_type temp_item;
switch (item_hit) {
case 15:
dialog_not_toast = FALSE; break;
case 14:
if (save_item_info() == TRUE)
dialog_not_toast = FALSE; break;
break;
case 16:
if (save_item_info() == FALSE) break;
store_which_item--;
if (store_which_item < 0) store_which_item = 399;
store_item = scen_item_list.scen_items[store_which_item];
put_item_info_in_dlog();
break;
case 17:
if (save_item_info() == FALSE) break;
store_which_item++;
if (store_which_item > 399) store_which_item = 0;
store_item = scen_item_list.scen_items[store_which_item];
put_item_info_in_dlog();
break;
case 56:
if (save_item_info() == FALSE) break;
i = choose_graphic(1800,1922,store_item.graphic_num + 1800,818);
if (i >= 0) {
store_item.graphic_num = i - 1800;
}
put_item_info_in_dlog();
break;
case 69:
if (store_item.variety == 0) {
give_error("You must give the item a type (weapon, armor, etc.) before you can choose its abilities.","",818);
break;
}
if ((store_item.variety == 3) || (store_item.variety == 11)) {
give_error("Gold and Food cannot be given special abilities.","",818);
break;
}
if(save_item_info() == FALSE) break;
temp_item = edit_item_abil(store_item,818);
if (temp_item.variety != 0)
store_item = temp_item;
put_item_info_in_dlog();
break;
default:
cd_hit_led_range(818,18,45,item_hit);
store_item.variety = cd_get_led_range(818,18,45);
if ((store_item.variety == 1) || (store_item.variety == 2))
store_item.type = 1;
cd_hit_led_range(818,46,48,item_hit);
break;
}
}
short edit_item_type(short which_item)
// ignore parent in Mac version
{
short i;
store_which_item = which_item;
store_item = scen_item_list.scen_items[store_which_item];
//make_cursor_sword();
cd_create_dialog_parent_num(818,0);
put_item_info_in_dlog();
for (i = 18; i < 46; i++)
cd_add_label(818, i,item_types[i - 18],47);
cd_add_label(818,46,"Edged",23);
cd_add_label(818,47,"Bashing",23);
cd_add_label(818,48,"Pole",23);
cd_attach_key(818,16,0);
cd_attach_key(818,17,0);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(818,0);
return 0;
}
void put_item_abils_in_dlog()
{
char str[256];
cdsin(824,16,store_which_item);
csit(824,32,store_item2.full_name);
csit(824,34,item_types[store_item2.variety]);
get_str(str,23,store_item2.ability + 1);
csit(824,19,(char *) str);
cd_set_led_range(824,5,8,store_item2.magic_use_type);
cd_set_led_range(824,26,30,store_item2.treas_class);
CDSN(824,2,store_item2.ability_strength);
if (store_item2.item_properties & 1)
cd_set_led(824,9,1);
else cd_set_led(824,9,0);
if (store_item2.item_properties & 4)
cd_set_led(824,10,1);
else cd_set_led(824,10,0);
if (store_item2.item_properties & 16)
cd_set_led(824,11,1);
else cd_set_led(824,11,0);
if (store_item2.item_properties & 32)
cd_set_led(824,12,1);
else cd_set_led(824,12,0);
}
Boolean save_item_abils()
{
store_item2.magic_use_type = cd_get_led_range(824,5,8);
store_item2.treas_class = cd_get_led_range(824,26,30);
store_item2.ability_strength = CDGN(824,2);
if ((store_item2.ability != 119) && (store_item2.ability != 120) && (store_item2.ability != 95)) {
if (cre(store_item2.ability_strength,0,10,"Ability Strength must always be a number from 0 to 10.","",824) > 0) return FALSE;
}
// else if (cre(store_item2.ability_strength,0,255,"Ability Strength must be 0 to 255 - the number of the monster to summon.","",824) > 0) return FALSE; => useless, ability strength is an unsigned char
store_item2.item_properties = 0;
store_item2.item_properties |= (cd_get_led(824,9) == 1) ? 1 : 0;
store_item2.item_properties |= (cd_get_led(824,10) == 1) ? 4 : 0;
store_item2.item_properties |= (cd_get_led(824,11) == 1) ? 16 : 0;
store_item2.item_properties |= (cd_get_led(824,12) == 1) ? 32 : 0;
return TRUE;
}
void edit_item_abil_event_filter (short item_hit)
{
short i;
switch (item_hit) {
case 4:
dialog_not_toast = FALSE; break;
case 3:
if (save_item_abils() == TRUE)
dialog_not_toast = FALSE;
break;
case 17:
if (save_item_abils() == FALSE) break;
if((store_item.variety == 4) || (store_item.variety == 23)){//bow and crossbow special case
i = choose_text_res(23,20,21,((store_item2.ability == 0) ? 20 : 21),824,"Choose Ranged Weapon Ability (inherent)");
if(i >= 0)
store_item2.ability = ((i==20) ? 0 : 11);
put_item_abils_in_dlog();
}
else{
if (store_item.variety > 2) {
give_error("You can only give an ability of this sort to a melee or ranged weapon.","",824);
break;
}
i = choose_text_res(23,1,15,store_item2.ability + 1,824,"Choose Weapon Ability (inherent)");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
}
break;
case 35:
if (save_item_abils() == FALSE) break;
if ((store_item.variety == 5) || (store_item.variety == 6)|| (store_item.variety == 7) || (store_item.variety == 8) ||
(store_item.variety == 9) || (store_item.variety == 10) || (store_item.variety == 20) ||
(store_item.variety == 21) || (store_item.variety == 24)){
give_error("You can only give an ability of this sort to an non-missile item which can be equipped (like armor, or a ring).","",824);
break;
}
i = choose_text_res(23,31,63,store_item2.ability + 1,824,"Choose General Ability (inherent)");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
break;
case 36:
if (save_item_abils() == FALSE) break;
if ((store_item.variety == 5) || (store_item.variety == 6) || (store_item.variety == 24)){
give_error("You can only give an ability of this sort to an item which isn't a missile.","",824);
break;
}
i = choose_text_res(23,71,96,store_item2.ability + 1,824,"Choose Usable Ability (Not spell)");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
break;
case 39:
if (save_item_abils() == FALSE) break;
if ((store_item.variety == 5) || (store_item.variety == 6) || (store_item.variety == 24)){
give_error("You can only give an ability of this sort to an item which isn't a missile.","",824);
break;
}
i = choose_text_res(23,111,136,store_item2.ability + 1,824,"Choose Usable Ability (Spell)");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
break;
case 38:
if (save_item_abils() == FALSE) break;
if (store_item.variety != 21){
give_error("You can only give an ability of this sort to an item of type Non-Use Object.","",824);
break;
}
i = choose_text_res(23,151,162,store_item2.ability + 1,824,"Choose Reagent Ability");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
break;
case 37:
if (save_item_abils() == FALSE) break;
if ((store_item.variety != 5) && (store_item.variety != 6) && (store_item.variety != 24)){
give_error("You can only give an ability of this sort to an item which isn't a missile.","",824);
break;
}
i = choose_text_res(23,171,177,store_item2.ability + 1,824,"Choose Missile Ability");
if (i >= 0) store_item2.ability = i - 1;
put_item_abils_in_dlog();
break;
default:
cd_hit_led_range(824,26,30,item_hit);
cd_hit_led_range(824,5,8,item_hit);
for (i = 9; i < 13; i++)
cd_flip_led(824,i,item_hit);
break;
}
}
item_record_type edit_item_abil(item_record_type starting_record,short parent_num)
// ignore parent in Mac version
{
//store_which_item = which_item;
store_item2 = starting_record;
//make_cursor_sword();
cd_create_dialog_parent_num(824,parent_num);
put_item_abils_in_dlog();
cd_add_label(824,26,"Type 0: Junk, Not left",68);
cd_add_label(824,27,"Type 1: Lousy, 1 - 20 gp",68);
cd_add_label(824,28,"Type 2: So-so, 20-200 gp",68);
cd_add_label(824,29,"Type 3: Good, 200+ gp",68);
cd_add_label(824,30,"Type 4: Great, 2500+ gp",68);
cd_add_label(824,5,"Help using PC",50);
cd_add_label(824,6,"Harm using PC",50);
cd_add_label(824,7,"Help whole party",50);
cd_add_label(824,8,"Harm whole party",50);
cd_add_label(824,9,"Always identified",50);
cd_add_label(824,10,"Magical",50);
cd_add_label(824,11,"Cursed",50);
cd_add_label(824,12,"Conceal ability",50);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(824,0);
return store_item2;
}
void put_spec_item_in_dlog()
{
cdsin(806,19,store_which_spec_item);
CDST(806,2,scen_strs[60 + store_which_spec_item * 2]);
CDST(806,3,scen_strs[60 + store_which_spec_item * 2 + 1]);
CDSN(806,4,scenario.special_item_special[store_which_spec_item]);
if (scenario.special_items[store_which_spec_item] >= 10)
cd_set_led(806,15,1); else cd_set_led(806,15,0);
if (scenario.special_items[store_which_spec_item] % 10 > 0)
cd_set_led(806,17,1); else cd_set_led(806,17,0);
}
Boolean save_spec_item()
{
char str[256];
CDGT(806,2,(char *) str);
str[25] = 0;
sprintf(scen_strs[60 + store_which_spec_item * 2 + 0],"%s",str);
CDGT(806,3,scen_strs[60 + store_which_spec_item * 2 + 1]);
spec_item_spec = CDGN(806,4);
if (cre(scenario.special_item_special[store_which_spec_item],
-1,255,"Scenario special node called must be from 0 to 255 (or -1 for no special).","",806) > 0) return FALSE;
scenario.special_item_special[store_which_spec_item] = spec_item_spec;
scenario.special_items[store_which_spec_item] = 0;
if (cd_get_led(806,15) == 1)
scenario.special_items[store_which_spec_item] += 10;
if (cd_get_led(806,17) == 1)
scenario.special_items[store_which_spec_item] += 1;
return TRUE;
}
void edit_spec_item_event_filter (short spec_item_hit)
{
short spec;
switch (spec_item_hit) {
case 11:
dialog_not_toast = FALSE; break;
case 5:
if (save_spec_item() == TRUE)
dialog_not_toast = FALSE;
break;
case 20:
if (save_spec_item() == FALSE) break;
store_which_spec_item--;
if (store_which_spec_item < 0) store_which_spec_item = 49;
spec_item_spec = scenario.special_item_special[store_which_spec_item];
put_spec_item_in_dlog();
break;
case 21:
if (save_spec_item() == FALSE) break;
store_which_spec_item++;
if (store_which_spec_item > 49) store_which_spec_item = 0;
spec_item_spec = scenario.special_item_special[store_which_spec_item];
put_spec_item_in_dlog();
break;
case 13: //choose edit
if (save_spec_item() == FALSE)
break;
spec = CDGN(806,4);
if ((spec < 0) || (spec >= 256)) {
spec = get_fresh_spec(0);
if (spec < 0) {
give_error("You can't create a new special encounter because there are no more free scenario special nodes.",
"To free a special node, set its type to No Special and set its Jump To special to -1.",806);
break;
}
CDSN(806,4,spec);
}
edit_spec_enc(spec,0,806);
if ((spec >= 0) && (spec < 256) && (scenario.scen_specials[spec].pic < 0))
CDSN(806,4,-1);
if (save_spec_item() == FALSE)
break;
break;
default:
cd_flip_led(806,15,spec_item_hit);
cd_flip_led(806,17,spec_item_hit);
break;
}
}
void edit_spec_item(short which_item)
// ignore parent in Mac version
{
//store_which_spec_item = which_spec_item;
store_which_spec_item = which_item;
spec_item_spec = scenario.special_item_special[store_which_spec_item];
cd_create_dialog_parent_num(806,0);
put_spec_item_in_dlog();
cd_attach_key(806,20,0);
cd_attach_key(806,21,0);
cd_activate_item(806,12,0);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(806,0);
}
void put_save_rects_in_dlog()
{
short i;
for (i = 0; i < 3; i++) {
CDSN(807,3 + 5 * i,scenario.store_item_rects[i].top);
CDSN(807,4 + 5 * i,scenario.store_item_rects[i].left);
CDSN(807,5 + 5 * i,scenario.store_item_rects[i].bottom);
CDSN(807,6 + 5 * i,scenario.store_item_rects[i].right);
CDSN(807,2 + 5 * i,scenario.store_item_towns[i]);
}
}
Boolean save_save_rects()
{
short i;
for (i = 0; i < 3; i++) {
scenario.store_item_rects[i].top = CDGN(807,3 + 5 * i);
scenario.store_item_rects[i].left = CDGN(807,4 + 5 * i);
scenario.store_item_rects[i].bottom = CDGN(807,5 + 5 * i);
scenario.store_item_rects[i].right = CDGN(807,6 + 5 * i);
scenario.store_item_towns[i] = CDGN(807,2 + 5 * i);
if ((scenario.store_item_towns[i] < -1) || (scenario.store_item_towns[i] >= 200)) {
give_error("Towns must be in 0 to 200 range (or -1 for no save items rectangle).","",807);
return FALSE;
}
}
if (((scenario.store_item_towns[0] == scenario.store_item_towns[1]) &&
(scenario.store_item_towns[0] >= 0) && (scenario.store_item_towns[1] >= 0))
||
((scenario.store_item_towns[2] == scenario.store_item_towns[1]) &&
(scenario.store_item_towns[2] >= 0) && (scenario.store_item_towns[1] >= 0))
||
((scenario.store_item_towns[2] == scenario.store_item_towns[0]) &&
(scenario.store_item_towns[2] >= 0) && (scenario.store_item_towns[0] >= 0))
) {
give_error("The three towns towns with saved item rectangles must be different.","",807);
return FALSE;
}
return TRUE;
}
void edit_save_rects_event_filter (short save_rects_hit)
{
switch (save_rects_hit) {
case 18:
dialog_not_toast = FALSE; break;
case 17:
if (save_save_rects() == TRUE)
dialog_not_toast = FALSE;
break;
}
}
void edit_save_rects()
// ignore parent in Mac version
{
cd_create_dialog_parent_num(807,0);
put_save_rects_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(807,0);
}
Boolean save_horses()
{
short i;
for (i = 0; i < 6; i++) {
scenario.scen_horses[6 * store_horse_page + i].which_town = CDGN(808,2 + i);
if (cre(scenario.scen_horses[6 * store_horse_page + i].which_town,
-1,199,"Town number must be from 0 to 199 (or -1 for horse to not exist).","",808) == TRUE) return FALSE;
scenario.scen_horses[6 * store_horse_page + i].horse_loc.x = CDGN(808,8 + i);
if (cre(scenario.scen_horses[6 * store_horse_page + i].horse_loc.x,
0,63,"Horse location coordinates must be from 0 to 63.","",808) == TRUE) return FALSE;
scenario.scen_horses[6 * store_horse_page + i].horse_loc.y = CDGN(808,14 + i);
if (cre(scenario.scen_horses[6 * store_horse_page + i].horse_loc.y,
0,63,"Horse location coordinates must be from 0 to 63.","",808) == TRUE) return FALSE;
scenario.scen_horses[6 * store_horse_page + i].property = cd_get_led(808,43 + i);
}
return TRUE;
}
void put_horses_in_dlog()
{
short i;
for (i = 0; i < 6; i++) {
cdsin(808,23 + i,6 * store_horse_page + i);
CDSN(808,2 + i,scenario.scen_horses[6 * store_horse_page + i].which_town);
CDSN(808,8 + i,scenario.scen_horses[6 * store_horse_page + i].horse_loc.x);
CDSN(808,14 + i,scenario.scen_horses[6 * store_horse_page + i].horse_loc.y);
cd_set_led(808,43 + i,scenario.scen_horses[6 * store_horse_page + i].property);
}
}
void edit_horses_event_filter (short item_hit)
{
short i;
switch (item_hit) {
case 20:
if (save_horses() == TRUE)
dialog_not_toast = FALSE;
break;
case 21:
if (save_horses() == FALSE) break;
store_horse_page--;
if (store_horse_page < 0) store_horse_page = 4;
put_horses_in_dlog();
break;
case 22:
if (save_horses() == FALSE) break;
store_horse_page++;
if (store_horse_page > 4) store_horse_page = 0;
put_horses_in_dlog();
break;
default:
for (i = 0; i < 6; i++)
cd_flip_led(808,43 + i,item_hit);
break;
}
}
void edit_horses()
// ignore parent in Mac version
{
store_horse_page = 0;
cd_create_dialog_parent_num(808,0);
put_horses_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(808,0);
}
Boolean save_boats()
{
short i;
for (i = 0; i < 6; i++) {
scenario.scen_boats[6 * store_boat_page + i].which_town = CDGN(809,2 + i);
if (cre(scenario.scen_boats[6 * store_boat_page + i].which_town,
-1,199,"Town number must be from 0 to 199 (or -1 for boat to not exist).","",809) == TRUE) return FALSE;
scenario.scen_boats[6 * store_boat_page + i].boat_loc.x = CDGN(809,8 + i);
if (cre(scenario.scen_boats[6 * store_boat_page + i].boat_loc.x,
0,63,"boat location coordinates must be from 0 to 63.","",809) == TRUE) return FALSE;
scenario.scen_boats[6 * store_boat_page + i].boat_loc.y = CDGN(809,14 + i);
if (cre(scenario.scen_boats[6 * store_boat_page + i].boat_loc.y,
0,63,"boat location coordinates must be from 0 to 63.","",809) == TRUE) return FALSE;
scenario.scen_boats[6 * store_boat_page + i].property = cd_get_led(809,43 + i);
}
return TRUE;
}
void put_boats_in_dlog()
{
short i;
for (i = 0; i < 6; i++) {
cdsin(809,24 + i,6 * store_boat_page + i);
CDSN(809,2 + i,scenario.scen_boats[6 * store_boat_page + i].which_town);
CDSN(809,8 + i,scenario.scen_boats[6 * store_boat_page + i].boat_loc.x);
CDSN(809,14 + i,scenario.scen_boats[6 * store_boat_page + i].boat_loc.y);
cd_set_led(809,43 + i,scenario.scen_boats[6 * store_boat_page + i].property);
}
}
void edit_boats_event_filter (short item_hit)
{
short i;
switch (item_hit) {
case 20:
if (save_boats() == TRUE)
dialog_not_toast = FALSE;
break;
case 22:
if (save_boats() == FALSE) break;
store_boat_page--;
if (store_boat_page < 0) store_boat_page = 4;
put_boats_in_dlog();
break;
case 23:
if (save_boats() == FALSE) break;
store_boat_page++;
if (store_boat_page > 4) store_boat_page = 0;
put_boats_in_dlog();
break;
default:
for (i = 0; i < 6; i++)
cd_flip_led(809,43 + i,item_hit);
break;
}
}
void edit_boats()
// ignore parent in Mac version
{
store_boat_page = 0;
cd_create_dialog_parent_num(809,0);
put_boats_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(809,0);
}
Boolean save_add_town()
{
short i;
for (i = 0; i < 10; i++) {
scenario.town_to_add_to[i] = CDGN(810,2 + i);
if (cre(scenario.town_to_add_to[i],
-1,199,"Town number must be from 0 to 199 (or -1 for no effect).","",810) == TRUE) return FALSE;
scenario.flag_to_add_to_town[i][0] = CDGN(810,12 + i);
if (cre(scenario.flag_to_add_to_town[i][0],
0,299,"First part of flag must be from 0 to 299.","",810) == TRUE) return FALSE;
scenario.flag_to_add_to_town[i][1] = CDGN(810,22 + i);
if (cre(scenario.flag_to_add_to_town[i][1],
0,9,"Second part of flag must be from 0 to 9.","",810) == TRUE) return FALSE;
}
return TRUE;
}
void put_add_town_in_dlog()
{
short i;
for (i = 0; i < 10; i++) {
CDSN(810,2 + i,scenario.town_to_add_to[i]);
CDSN(810,12 + i,scenario.flag_to_add_to_town[i][0]);
CDSN(810,22 + i,scenario.flag_to_add_to_town[i][1]);
}
}
void edit_add_town_event_filter (short item_hit)
{
switch (item_hit) {
case 32:
if (save_add_town() == TRUE)
dialog_not_toast = FALSE;
break;
}
}
void edit_add_town()
// ignore parent in Mac version
{
cd_create_dialog_parent_num(810,0);
put_add_town_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(810,0);
}
Boolean save_item_placement()
{
short i;
store_storage.property = cd_get_led(812,38);
store_storage.ter_type = CDGN(812,22);
if (cre(store_storage.ter_type,
-1,255,"Terrain Type must be from 0 to 255 (or -1 for No Shortcut).","",812) == TRUE) return FALSE;
for (i = 0; i < 10; i++) {
store_storage.item_num[i] = CDGN(812,2 + i);
if (cre(store_storage.item_num[i],
-1,399,"All item numbers must be from 0 to 399 (or -1 for No Item).","",812) == TRUE) return FALSE;
store_storage.item_odds[i] = CDGN(812,12 + i);
if (cre(store_storage.item_odds[i],
0,100,"All item chances must bve from 0 to 100.","",812) == TRUE) return FALSE;
}
scenario.storage_shortcuts[cur_shortcut] = store_storage;
return TRUE;
}
void put_item_placement_in_dlog()
{
short i;
cdsin(812,27,cur_shortcut);
cd_set_led(812,38,store_storage.property);
CDSN(812,22,store_storage.ter_type);
for (i = 0; i < 10; i++) {
CDSN(812,2 + i,store_storage.item_num[i]);
CDSN(812,12 + i,store_storage.item_odds[i]);
}
}
void edit_item_placement_event_filter (short item_hit)
{
short i;
switch (item_hit) {
case 23:
if (save_item_placement() == TRUE)
dialog_not_toast = FALSE;
break;
case 24:
dialog_not_toast = FALSE;
break;
case 26:
if (save_item_placement() == FALSE) break;
cur_shortcut--;
if (cur_shortcut < 0) cur_shortcut = 9;
store_storage = scenario.storage_shortcuts[cur_shortcut];
put_item_placement_in_dlog();
break;
case 25:
if (save_item_placement() == FALSE) break;
cur_shortcut++;
if (cur_shortcut > 9) cur_shortcut = 0;
store_storage = scenario.storage_shortcuts[cur_shortcut];
put_item_placement_in_dlog();
break;
case 41:
store_storage.ter_type = CDGN(812,22);
i = choose_text_res(-4,0,255,store_storage.ter_type,812,"Which Terrain?");
store_storage.ter_type = i;
CDSN(812,22,i);
break;
default:
if ((item_hit >= 42) && (item_hit <= 51)) {
i = CDGN(812,2 + item_hit - 42);
i = choose_text_res(-2,0,399,i,812,"Place which item?");
if (i >= 0)
CDSN(812,2 + item_hit - 42,i);
break;
}
cd_flip_led(812,38,item_hit);
break;
}
}
void edit_item_placement()
// ignore parent in Mac version
{
store_storage = scenario.storage_shortcuts[0];
cur_shortcut = 0;
cd_create_dialog_parent_num(812,0);
put_item_placement_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(812,0);
}
Boolean save_scen_details()
{
char str[256];
short i;
scenario.difficulty = cd_get_led_range(803,30,33);
scenario.rating = cd_get_led_range(803,21,24);
scenario.adjust_diff = cd_get_led(803,35);
scenario.ver[0] = CDGN(803,2);
scenario.ver[1] = CDGN(803,3);
scenario.ver[2] = CDGN(803,4);
for (i = 0; i < 3; i++)
if (cre(scenario.ver[i],
0,9,"The digits in the version number must be in the 0 to 9 range.","",803) == true) return false;
CDGT(803,5,(char *) str);
str[59] = 0;
strcpy(scen_strs[1],(char *) str);
CDGT(803,6,(char *) str);
str[59] = 0;
strcpy(scen_strs[2],(char *) str);
CDGT(803,7,scen_strs[3]);
//enable legacy compatibility switch
if(cd_get_led(803,37) == 1)
scenario.prog_make_ver[0]=1;
else
scenario.prog_make_ver[0]=2;
return true;
}
void put_scen_details_in_dlog()
{
cd_set_led_range(803,30,33,scenario.difficulty);
cd_set_led_range(803,21,24,scenario.rating);
cd_set_led(803,35,scenario.adjust_diff);
CDSN(803,2,scenario.ver[0]);
CDSN(803,3,scenario.ver[1]);
CDSN(803,4,scenario.ver[2]);
CDST(803,5,scen_strs[1]);
CDST(803,6,scen_strs[2]);
CDST(803,7,scen_strs[3]);
//enable legacy compatibility switch
if(scenario.prog_make_ver[0]==1)
cd_set_led(803,37,1);
else
cd_set_led(803,37,0);
}
void edit_scen_details_event_filter (short item_hit)
{
switch (item_hit) {
case 8:
if (save_scen_details() == TRUE)
dialog_not_toast = FALSE;
break;
case 35:
cd_set_led(803,35,1 - cd_get_led(803,35));
break;
case 37://enable legacy compatibility switch
cd_set_led(803,37,1 - cd_get_led(803,37));
break;
default:
cd_hit_led_range(803,21,24,item_hit);
cd_hit_led_range(803,30,33,item_hit);
break;
}
}
void edit_scen_details()
// ignore parent in Mac version
{
cd_create_dialog_parent_num(803,0);
put_scen_details_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(803,0);
}
void put_make_scen_1_in_dlog()
{
CDST(800,2,"Scenario name");
CDST(800,3,"filename");
}
void edit_make_scen_1_event_filter (short item_hit)
{
char str[256];
short i,j;
switch (item_hit) {
case 4:
CDGT(800,3,(char *) str);
j = strlen((char *) str);
if (j == 0) {
give_error("You've left the file name empty.","",800);
break;
}
if (j > 28) {
give_error("The file name can be at most 28 characters long.","",800);
break;
}
for (i = 0; i < j; i++)
if ((str[i] < 33) || (str[i] == 34) || (str[i] == 42) || (str[i] == 47) || (str[i] == 58) || (str[i] == 60) || (str[i] == 62) || (str[i] == 63) || (str[i] == 92) || (str[i] == 124) || (str[i] > 126)) {
give_error("The file name must not include these symbols: \\, /, :, *, ?, \", <, >, |","",800);
return;
}
dialog_answer = 1;
dialog_not_toast = FALSE;
break;
case 9:
dialog_answer = 0;
dialog_not_toast = FALSE;
break;
default:
cd_flip_led(800,11,item_hit);
break;
}
}
short edit_make_scen_1(char *filename,char *title,short *grass)
// ignore parent in Mac version
{
cd_create_dialog_parent_num(800,0);
put_make_scen_1_in_dlog();
while (dialog_not_toast)
ModalDialog();
CDGT(800,2,title);
title[30] = 0;
CDGT(800,3,filename);
*grass = cd_get_led(800,11);
cd_kill_dialog(800,0);
return dialog_answer;
}
void put_make_scen_2_in_dlog()
{
CDSN(801,2,1);
CDSN(801,3,1);
CDSN(801,4,0);
CDSN(801,5,1);
CDSN(801,6,0);
}
void edit_make_scen_2_event_filter (short item_hit)
{
short i,j,k;
switch (item_hit) {
case 11:
i = CDGN(801,2);
if (cre(i,
1,50,"Outdoors width must be between 1 and 50.","",801) == TRUE) return ;
j = CDGN(801,3);
if (cre(j,
1,50,"Outdoors height must be between 1 and 50.","",801) == TRUE) return ;
if (cre(i * j,
1,100,"The total number of outdoor sections (width times height) must be between 1 and 100.","",801) == TRUE) return ;
i = CDGN(801,4);
j = CDGN(801,5);
k = CDGN(801,6);
if (cre(i,
0,200,"Number of small towns must be between 0 and 200.","",801) == TRUE) return ;
if (cre(j,
1,200,"Number of medium towns must be between 0 and 200. The first town (Town 0) must always be of medium size.","",801) == TRUE) return ;
if (cre(k,
0,200,"Number of large towns must be between 0 and 200.","",801) == TRUE) return ;
if (cre(i + j + k,
1,200,"The total number of towns must be from 1 to 200 (you must have at least 1 town).","",801) == TRUE) return ;
dialog_not_toast = FALSE;
break;
case 10:
dialog_answer = 0;
dialog_not_toast = FALSE;
break;
default:
cd_flip_led(801,26,item_hit);
break;
}
}
short edit_make_scen_2(short *val_array)
// ignore parent in Mac version
{
short i;
cd_create_dialog_parent_num(801,0);
put_make_scen_2_in_dlog();
while (dialog_not_toast)
ModalDialog();
for (i = 0; i < 5; i++)
val_array[i] = CDGN(801,2 + i);
val_array[5] = cd_get_led(801,26);
cd_kill_dialog(801,0);
return dialog_answer;
}
void build_scenario()
{
short two_flags[6]; // width, height, large, med, small, default_town
char f_name[256],f_name2[256],title[256];
short grass,which_town;
short i,j;
if (edit_make_scen_1((char *) f_name,(char *) title,&grass) == FALSE)
return;
sprintf((char *) f_name2,"%s.exs",f_name);
if (edit_make_scen_2((short *) two_flags) == FALSE)
return;
if (fancy_choice_dialog(860,0) == 2)
return;
init_out();
init_scenario();
strcpy((char *) scen_strs[0],(char *) title);
if (two_flags[5] == 0) {
init_town(1);
if (grass == 0)
for (i = 0; i < 48; i++)
for (j = 0; j < 48; j++)
t_d.terrain[i][j] = 0;
}
else {
import_town(-1);
}
if (two_flags[3] > 0)
two_flags[3]--;
make_new_scenario(f_name2,two_flags[0],two_flags[1],two_flags[5],grass,title);
//strcpy((char *) scen_strs[0],(char *) title);
//scenario.scen_str_len[0] = strlen(scen_strs[0]);
// now make sure correct outdoors is in memory, because we're going to be saving scenarios
// for a while
if (strlen(f_name2) == 0)
return;
overall_mode = 60;
cur_out.x = 0; cur_out.y = 0;
load_outdoors(cur_out,0);
for (i = 0; i < two_flags[2]; i++) {
which_town = scenario.num_towns;
scenario.num_towns++;
scenario.town_size[which_town] = 0;
scenario.town_hidden[which_town] = 0;
cur_town = which_town;
init_town(0);
strcpy(town_strs[0],"Large town");
town_type = 0;
save_scenario();
}
for (i = 0; i < two_flags[3]; i++) {
which_town = scenario.num_towns;
scenario.num_towns++;
scenario.town_size[which_town] = 1;
scenario.town_hidden[which_town] = 0;
cur_town = which_town;
init_town(1);
strcpy(town_strs[0],"Medium town");
town_type = 1;
save_scenario();
}
for (i = 0; i < two_flags[4]; i++) {
which_town = scenario.num_towns;
scenario.num_towns++;
scenario.town_size[which_town] = 2;
scenario.town_hidden[which_town] = 0;
cur_town = which_town;
init_town(2);
strcpy(town_strs[0],"Small town");
town_type = 2;
save_scenario();
}
//Delay(200,&dummy);
load_town(0);
augment_terrain(cur_out);
update_item_menu();
}
void set_starting_loc_filter (short item_hit)
{
char str[256];
short i,j,k;
switch (item_hit) {
case 5:
i = CDGN(805,2);
j = CDGN(805,3);
k = CDGN(805,4);
if ((i < 0) || (i >= scenario.num_towns)) {
sprintf((char *) str,"The starting town must be from 0 to %d.",scenario.num_towns - 1);
give_error((char *) str,"",805);
break;
}
if ((j < 0) || (j >= max_dim[scenario.town_size[i]] - 1) ||
(k < 0) || (k >= max_dim[scenario.town_size[i]] - 1)) {
give_error("This coordinate is not inside the bounds of the town.","",805);
break;
}
scenario.which_town_start = i;
scenario.where_start.x = j;
scenario.where_start.y = k;
dialog_not_toast = FALSE;
break;
case 12:
dialog_not_toast = FALSE;
break;
}
}
void set_starting_loc()
// ignore parent in Mac version
{
cd_create_dialog_parent_num(805,0);
CDSN(805,2,scenario.which_town_start);
CDSN(805,3,scenario.where_start.x);
CDSN(805,4,scenario.where_start.y);
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(805,0);
}
Boolean save_scenario_events()
{
short i;
for (i = 0; i < 10; i++) {
scenario.scenario_timer_times[i] = CDGN(811,2 + i);
if ((scenario.scenario_timer_times[i] > 0) &&
(scenario.scenario_timer_times[i] % 10 != 0)) {
give_error("All scenario event times must be multiples of 10 (e.g. 100, 150, 1000, etc.).","",811);
return FALSE;
}
scenario.scenario_timer_specs[i] = CDGN(811,12 + i);
if (cre(scenario.scenario_timer_specs[i],-1,255,"The scenario special nodes must be between 0 at 255 (or -1 for no special)."
,"",811) == TRUE) return FALSE;
}
return TRUE;
}
void put_scenario_events_in_dlog()
{
short i;
for (i = 0; i < 10; i++) {
CDSN(811,2 + i,scenario.scenario_timer_times[i]);
CDSN(811,12 + i,scenario.scenario_timer_specs[i]);
}
}
void edit_scenario_events_event_filter (short item_hit)
{
short spec;
switch (item_hit) {
case 22:
if (save_scenario_events() == TRUE)
dialog_not_toast = FALSE;
break;
default:
if ((item_hit >= 30) && (item_hit <= 39)) {
if (save_scenario_events() == FALSE)
break;
spec = CDGN(811,item_hit - 30 + 12);
if ((spec < 0) || (spec > 255)) {
spec = get_fresh_spec(0);
if (spec < 0) {
give_error("You can't create a new scenario special encounter because there are no more free special nodes.",
"To free a special node, set its type to No Special and set its Jump To special to -1.",811);
break;
}
CDSN(811,item_hit - 30 + 12,spec);
}
edit_spec_enc(spec,0,811);
if ((spec >= 0) && (spec < 256) && (scenario.scen_specials[spec].pic < 0))
CDSN(811,item_hit - 30 + 12,-1);
}
break;
}
}
void edit_scenario_events()
// ignore parent in Mac version
{
cd_create_dialog_parent_num(811,0);
put_scenario_events_in_dlog();
while (dialog_not_toast)
ModalDialog();
cd_kill_dialog(811,0);
}
Reference in New Issue View Git Blame Copy Permalink