openboe/oboe
2
0
Fork 0
Code Issues 146 Pull Requests 4 Actions Packages Projects Releases Wiki Activity
Files
034d98713f7869a75b055e66ef3d22e54fafd1c7
oboe/Win32/Scenarios Editor/SCENARIO.CPP
Chokboyz 034d98713f Classic Blades of Exile Beta 2 initial upload. 
Changelog (without any order) :

Bug Fixes :

- Giant Strength ability and Skill ability now use the ability strength rather than the item level to calculate effect.
- Won't take damage when moving boats over damaging terrains (fire, cold, magic, poison, disease) anymore.
- Won't take damage when horses refuses to enter a damaging terrain (fire, cold, magic) anymore.
- Horses won't enter damaging terrains (fire, cold, magic) or "horse blocking" terrains when outdoors anymore.
- Boom effects won't be displayed at random places when being damaged outdoors anymore.
- Damage won't be displayed in boom animation when attacking invulnerable monsters, when they are, in fact, unharmed ...
- The first pc won't become active with 0 AP anymore when a pc get killed by backshots.
- Fixed the town loading behavior so that Empties won't appear in Place Town Encounters anymore.
- Cleaned the ressource file (smaller executable).
- Changed the "force place monster" function to preferably flush a summoned monster if flushing is needed. Also prevent a potential infinite loop if trying to force place a monster and all the 60 monsters of a town have a life flag.
- Tweaked exploding arrows firing animation to be smoother (arrow fired, then explosion).
- The spell usable Stinking Cloud ability was protecting against acid instead of the Protection from Acid ability. Fixed.
- The Protection from Disease item ability should now works to the full extent.
- Removed a check on the item graphic when deciding whether to play the"swallow" sound; now checks only for item variety. (Celtic Minstrel)
- Corrected the code so that the party cannot be split again if already split.
- Various messages code cleaning/fixing (Celtic Minstrel)
- Removed the 50 node limit. To prevent infinite loop an interrupt sequence has been implemented (Ctrl-C).
- Cave Bridges battlefield should now appears instead of basic cave floor.
- Wall trims are now working.
- Slowdowns due to trims drawing (animated water, ...) should be fixed now.
- Scenarios in subfolders (under Scenarios/) are now found.
- No more limit for the number of listed scenarios.
- Clicking '?' icon on shopping and talk mode now gives help, even if in 'No instant help' mode.

Changes :

- All terrains and monsters sheets now loaded in memory to bypass storage sheet. That should speed up the game and fix some graphical oddities. Mac and Windows graphics can now be swapped on the fly (i.e without restarting the game). That also removes any graphical limitation in the game.
- In the same way, PC graphics will now be drawn directly to the game gworld.
- You can't end the scenario via a special node if the party is dead anymore (prevent saving an "all dead" party)
- Added a safety check to monsters with Absorb Spells ability to prevent negative health.
- Jobs dialog reimplemented (not useable for now).
- 'Burma Shave' Easter Egg readded.
- Debug Mode : ghost mode implemented.

Classic Scenario Editor Beta 2 :

- Dumping functions won't change current town/outdoor section anymore.
- Finished porting the file IO functions to 32 bits.
- Added a rudimentary custom intro picture behavior : if the intro picture is set to 100, the first icon on the custom sheet will be displayed in the scenario selection menu. Scenario intro pics must be drawn on the same scale as talk icons.
- Whenever the “Place Random Items” function is used, the editor will inform the user that it could not place all items because the town item # limit has been reached, regardless of how many items are actually in the town. That has been fixed (the message now displays only if the max number of items is indeed reached).
- Cleaned the ressources (smaller executable).
- Added a Monster data dumping function (dumps all info about monsters : wandering/special enc/town monsters details ...)
- Added a Specials data dumping function (dumps all info about specials : number, types, variables, ...)
- Town Room/Outdoors Info rectangles are now initialized at ((-1,-1),(-1,-1)) freeing the 0 coordinate and fixing the "Rectangle X" description at (0,0) in the game.
- Cleanse Rectangle SDF1 info rewritten to match actual behavior (0 leave force/fire/webs/crate/barrel, 1 cleans all).
- Corrected the Do SFX Burst info text (1 - telep., 2 - elec.)
- When placing an item with a custom graphic in a town, the editor will display the graphic in the upper-left corner of the space it is placed on. Fixed
- If you edit a monster’s abilities and click Cancel, the ability of that monster will be removed. Fixed.
- If you edit a item's ability, all previously unsaved modifications are erased. Fixed.
- Disappearences of right scroll bar fixed.

Chokboyz

git-svn-id: http://openexile.googlecode.com/svn/trunk@104 4ebdad44-0ea0-11de-aab3-ff745001d230
2009-06-29 15:43:59 +00:00

2807 lines
79 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_pic;
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,(char *) 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,(char *) str);
get_str(str,21,80 + store_ter.special);
csit(813,68,(char *) str);
if (store_ter.picture >= 2000){
custom_pic = 5;
csp(813,14,store_ter.picture-2000);
}
else if (store_ter.picture >= 1000){
custom_pic = 1;
csp(813,14,store_ter.picture-1000);
}
else if (store_ter.picture >= 400)
csp(813,14,store_ter.picture - 100);
else csp(813,14,store_ter.picture);
}
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,store;
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;
custom_pic = store_ter.picture / 1000;
}
else {
custom_pic = store_ter.picture / 1000;
break;
}
CDSN(813,5,store_ter.picture);
if(store_ter.picture >= 2000){
csp(813,14,store_ter.picture-2000);
}
else if (store_ter.picture >= 1000) {
custom_pic = 1;
csp(813,14,store_ter.picture-1000);
}
else {
if (store_ter.picture >= 400)
csp(813,14,store_ter.picture - 100);
else csp(813,14,store_ter.picture);
}
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 item_hit,i,store_dialog_answer;
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);
}
else{
custom_pic = (store_monst.picture_num) / 1000;
csp(814,34,store_monst.picture_num - custom_pic * 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((char *) str,"Width = %d",store_monst.x_width);
csit(814,40,(char *) str);
sprintf((char *) str,"Height = %d",store_monst.y_width);
csit(814,41,(char *) 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,(char *) str);
get_str(str,20,130 + store_monst.a1_type);
csit(814,43,(char *) str);
get_str(str,20,130 + store_monst.a23_type);
csit(814,44,(char *) 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)
{
char str[256];
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
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();
custom_pic = (store_monst.picture_num) / 1000;
break;
}
put_monst_info_in_dlog();
custom_pic = (store_monst.picture_num) / 1000;
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 item_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
short i;
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)
{
char str[256];
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
{
short item_hit,i,store_dialog_answer;
char temp_str[256];
//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()
{
char str[256];
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 ?? should be 122 ...
custom_pic = 1;
csp(818,49,store_item.graphic_num - 150);
}
else{
csp(818,49,1800 + store_item.graphic_num);
}
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];
short i;
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,1000,"Type Flag must be from 0 to 1000.","",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.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)
{
char str[256];
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();
custom_pic = (store_item.graphic_num >= 150) ? 1 : 0;
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();
custom_pic = (store_item.graphic_num >= 150) ? 1 : 0;
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 item_hit,i,store_dialog_answer;
char temp_str[256];
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];
short i;
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()
{
char str[256];
short i;
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)) {
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;
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)
{
char str[256];
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 > 2) {
give_error("You can only give an ability of this sort to a melee 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;
else store_item2.ability = 0;
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;
else store_item2.ability = 0;
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,95,store_item2.ability + 1,824,"Choose Usable Ability (Not spell)");
if (i >= 0) store_item2.ability = i - 1;
else store_item2.ability = 0;
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;
else store_item2.ability = 0;
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;
else store_item2.ability = 0;
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;
else store_item2.ability = 0;
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
{
short item_hit,i,store_dialog_answer;
char temp_str[256];
//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()
{
char str[256];
short i;
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];
short i;
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)
{
char str[256];
short i,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
{
short spec_item_hit,i,store_dialog_answer;
char temp_str[256];
//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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
short i;
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
{
short save_rects_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
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
{
short horses_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
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
{
short boats_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
short i;
switch (item_hit) {
case 32:
if (save_add_town() == TRUE)
dialog_not_toast = FALSE;
break;
}
}
void edit_add_town()
// ignore parent in Mac version
{
short add_town_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
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
{
short item_placement_hit,i,store_dialog_answer;
char temp_str[256];
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.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]);
return TRUE;
}
void put_scen_details_in_dlog()
{
char str[256];
short i;
cd_set_led_range(803,30,33,scenario.difficulty);
cd_set_led_range(803,21,24,scenario.rating);
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]);
}
void edit_scen_details_event_filter (short item_hit)
{
char str[256];
short i;
switch (item_hit) {
case 8:
if (save_scen_details() == TRUE)
dialog_not_toast = FALSE;
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
{
short scen_details_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
short i;
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
{
short make_scen_1_hit,i,store_dialog_answer;
char temp_str[256];
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()
{
char str[256];
short i;
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)
{
char str[256];
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 make_scen_2_hit,i,store_dialog_answer;//array[6];
char temp_str[256];
//array = val_array;
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;
long dummy;
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
{
short town_strs_hit,i,store_dialog_answer;
char temp_str[256],str2[256];
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()
{
char str[256];
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()
{
char str[256];
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)
{
char str[256];
short i,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
{
short advanced_town_hit,i,store_dialog_answer;
char temp_str[256];
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