archives/gates_of_skeldal
2
0
Fork 0
mirror of https://github.com/ondra-novak/gates_of_skeldal.git synced 2025-07-15 10:46:44 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
gates_of_skeldal/MAPS/EDIT_MAP.C
Ondřej Novák a7278bac40 libs compiles
2025-01-25 21:15:16 +01:00

1179 lines
37 KiB
C
Raw Blame History

#include <skeldal_win.h>
#include <types.h>
#include <process.h>
#include <dos.h>
#include <mem.h>
#include <stdio.h>
#include <bgraph.h>
#include <event.h>
#include <devices.h>
#include <bmouse.h>
#include <gui.h>
#include <bios.h>
#include <strlite.h>
#include <strlists.h>
#include "mapy.h"
#include <basicobj.h>
#include <memman.h>
#include "globals.h"
#include "edit_map.h"
#include "steny.h"
#include "save_map.h"
#include "wiz_tool.h"
#include "resource.h"
int temp_source;
int sektor_info=-1;
int sektor_win=-1;
int draw_win=-1;
int change_map;
char datapath[]="";
char last_directions=0;
char *strs(int num)
{
static char s[200];
char **format;
int *p;
p=(int *)(o_end->userptr);
format=(char **)p+4;
sprintf(s,*format,num);
return s;
}
long vals(int num)
{
char s[200];
long i;
get_value(0,num,s);
sscanf (s,"%d", &i);
return i;
}
void test_int(void)
{
int *p;
char s[200];
char **t;
int i;
p=(int *)(o_aktual->userptr);
get_value(0,o_aktual->id,s);
sscanf (s,"%d", &i);
p=p+2;
if (i<*p || i>*(p+1)) cancel_event();
t=(char **)p+2;
sprintf(s,*t,i);
set_value(0,o_aktual->id,s);
}
void fill_bit_fields(int win,int id_start,int source,int count)
{
while (count)
{
c_set_value(win,id_start,source & 1);
id_start+=10;
source>>=1;
count--;
}
}
long get_bit_fields(int win,int id_start,int count)
{
long l;
int mask;
mask=0;l=0;
while (count)
{
l|=f_get_value(win,id_start)<<mask;
id_start+=10;
mask++;
count--;
}
return l;
}
void string_list_sup_call()
{
int id,v;
OBJREC *p;
id=o_aktual->id;
p=o_aktual;
v=f_get_value(0,id);
v=string_list(*(char **)(o_aktual->userptr),v);
if (v+1) c_set_value(0,id,v);
o_aktual=p;
p->on_change();
o_aktual=o_start;
}
void string_list_sup()
{
run_background(string_list_sup_call);
}
void str_line_init(OBJREC *o,void **x) //source_list
{
o->userptr=(void *)getmem(16);
memcpy(o->userptr,x,sizeof(*x));
}
void str_line_draw(int x1,int y1,int x2,int y2,OBJREC *o)
{
char c[200];
char **s;
int *d;
d=(int *)o->data;
bar(x1,y1,x2,y2);
s=*(char ***)(o->userptr);
if (*d<0 || *d>=str_count(s) || s[*d]==0) strcpy(c,"???");else strcpy(c,s[*d]);
while (text_width(c)>(x2-x1))
{
char *t;
t=strchr(c,'\0');
*(--t)='\0';
}
position(x1,y1);
outtext(c);
}
void str_line_event(EVENT_MSG *msg,OBJREC *o)
{
if (msg->msg==E_CONTROL)
{
memcpy(o->userptr,msg->data,4);
}
}
void str_line(OBJREC *o)
{
o->call_init=str_line_init;
o->call_draw=str_line_draw;
o->call_event=str_line_event;
o->datasize=4;
}
static void refresh_vyk_map()
{
int i,j,s,d;
for(i=1;i<maplen;i++)
for(j=0;j<4;j++)
mapa.sidedef[i][j].oblouk &= ~0x10;
for(i=0;i<256;i++)
{
s=vyklenky[i].sector;
d=vyklenky[i].dir;
if (s!=0) mapa.sidedef[s][d].oblouk |= 0x10;
}
}
char edit_side_save(int target,int smer)
{
TSTENA nw;
TSTENA *p=&nw;
TSTENA *o;
TSTENA chs;
int apl,i, j;
int selmode;
apl=get_bit_fields(0,400,4);
if (apl==0) return msg_box("Editor st<73>n",2,"Nen<EFBFBD> za<7A>krtnut<75> <20><>dn<64> strana. Pokra<72>ovat?","Ano","Ne",NULL)==1;
if (smer!=-1)
if (count_of_sel()>1)
selmode=msg_box("Editor st<73>n",'\x2',"Je ozna<6E>eno v<>ce sektor<6F>. Chce<63> upravit pouze ...","Aktu<EFBFBD>ln<EFBFBD>","V<EFBFBD>echny","Zm<EFBFBD>ny","Zp<EFBFBD>t",NULL);
else selmode=(apl!=1 && apl!=2 && apl!=4 && apl!=8 && target!=0)?3:1;
else
smer=0,apl=0xf,selmode=1;
if (selmode==4) return 0;
p->flags=get_bit_fields(0,120,20);
p->flags|=f_get_value(0,350);
p->prim_anim=vals(50)-1;
p->sec_anim=vals(60)-1;
p->xsec=vals(70)>>1;
p->ysec=vals(80)>>1;
p->lclip=vals(440);
p->sector_tag=vals(90);
p->side_tag=f_get_value(0,100);
p->action=f_get_value(0,110);
p->prim=f_get_value(0,20);
p->sec=f_get_value(0,30);
p->oblouk=f_get_value(0,40)+(f_get_value(0,450)<<5)+(f_get_value(0,470)<<7);
p->side_tag|=(f_get_value(0,480)<<7);
o=&mapa.sidedef[target][smer];
if (selmode==3)
{
memset(&chs,0,sizeof(chs));
if (p->flags!=o->flags) chs.flags=o->flags ^ p->flags;
if (p->prim_anim!=o->prim_anim) chs.prim_anim=0xFF;
if (p->sec_anim!=o->sec_anim) chs.sec_anim=0xFF;
if (p->xsec!=o->xsec) chs.xsec=0xFF;
if (p->ysec!=o->ysec) chs.ysec=0xFF;
if (p->lclip!=o->lclip) chs.lclip=0xFF;
if (p->sector_tag!=o->sector_tag) chs.lclip=0xFF;
if ((p->side_tag & 0x7F)!=(o->side_tag & 0x7F)) chs.side_tag|=0x7F;
if ((p->side_tag & 0x80)!=(o->side_tag & 0x80)) chs.side_tag|=0x80;
if (p->action!=o->action) chs.action=0xFF;
if (p->prim!=o->prim) chs.prim=0xFF;
if (p->sec!=o->sec) chs.sec=0xFF;
if ((p->oblouk & 0x1F)!=(o->oblouk & 0x1F)) chs.sec|=0x1F;
if ((p->oblouk & 0x60)!=(o->oblouk & 0x60)) chs.sec|=0x60;
if ((p->oblouk & 0x80)!=(o->oblouk & 0x80)) chs.sec|=0x80;
}
else
{
memset(&chs,0xff,sizeof(chs));
}
for (i=0;i<4;(apl>>=1),i++) if (apl & 1)
{
o=&mapa.sidedef[target][i];
move_changes(p,o,&chs,sizeof(TSTENA));
if (selmode!=1)
for(j=1;j<maplen;j++)
if (minfo[j].flags & 0x1 && i!=target)
move_changes(p,&mapa.sidedef[j][i],&chs,sizeof(TSTENA));
}
refresh_vyk_map();
return 1;
}
void edit_side_ok()
{
int target,smer;
target=f_get_value(0,360);
smer=f_get_value(0,370);
if (edit_side_save(target,smer))
{
close_current();
info_sector(target);
}
}
void *edit_side_predvolba_0(EVENT_MSG *msg)
{
char *c;
if (msg->msg==E_INIT) return &edit_side_predvolba_0;
if (msg->msg==E_DONE) return NULL;
c=(char *)msg->data;
strcpy(c,"Vlastnosti nastaveny jako p<>edvolba...");
c=strchr(c,'\0');
msg->data=(void *)c;
msg->msg=-1;
return NULL;
}
void edit_side_predvolba_1(void)
{
edit_side_save(0,-1);
send_message(E_STATUS_LINE,E_DONE,E_IDLE,edit_side_predvolba_0);
send_message(E_STATUS_LINE,E_ADD,E_IDLE,edit_side_predvolba_0);
}
void edit_side_predvolba_2(void)
{
send_message(E_STATUS_LINE,E_DONE,E_IDLE,edit_side_predvolba_0);
}
void value_store_init(OBJREC *o,int *bytes)
{
o->datasize=*bytes;
}
void value_store(OBJREC *o)
{
o->call_init=value_store_init;
}
void action_flags()
{
CTL3D b1;
long flags;
flags=f_get_value(0,350);
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
def_dialoge(300,220,300,210,"V<EFBFBD>ce vlajek");
define(CANCEL_BUTT,11,5,80,20,2,button,"Zru<EFBFBD>it");property(&b1,NULL,NULL,WINCOLOR);
on_control_change(terminate_gui);
define(OK_BUTT,100,5,80,20,2,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);
on_control_change(terminate_gui);
define(10,10,20,250,10,0,check_box,side_flgs[24]);
define(20,10,32,250,10,0,check_box,side_flgs[25]);
define(30,10,44,250,10,0,check_box,side_flgs[26]);
define(40,10,56,250,10,0,check_box,side_flgs[27]);
define(50,10,68,250,10,0,check_box,side_flgs[28]);
define(60,10,88,250,10,0,check_box,side_flgs[29]);
define(70,10,100,250,10,0,check_box,side_flgs[30]);
define(80,10,112,250,10,0,check_box,side_flgs[31]);
define(90,10,124,250,10,0,check_box,side_flgs[20]);
define(100,10,136,250,10,0,check_box,side_flgs[21]);
define(110,10,148,250,10,0,check_box,side_flgs[22]);
define(120,10,160,250,10,0,check_box,side_flgs[23]);
fill_bit_fields(0,10,flags>>24,8);
fill_bit_fields(0,90,flags>>20,4);
redraw_window();
escape();
if (o_aktual->id==OK_BUTT)
{
flags=get_bit_fields(0,10,8)<<24;
flags|=get_bit_fields(0,90,4)<<20;
}
close_window(waktual);
c_set_value(0,350,flags);
}
int find_vyklenek_id(int sector,int dir)
{
int i;
for(i=0;i<256;i++) if (vyklenky[i].sector==sector && vyklenky[i].dir==dir) return i;
return -1;
}
int find_free_vyklenek()
{
int i;
for(i=0;i<256;i++) if (vyklenky[i].sector==0) return i;
return -1;
}
static void edit_vyklenek_start()
{
int smer,sector;
int id;
smer=f_get_value(0,370);
sector=f_get_value(0,360);
id=find_vyklenek_id(sector,smer);
if (id==-1)
{
TVYKLENEK *v;
id=find_free_vyklenek();
if (id==-1)
{
msg_box("Omezeni!",'\x1',"V map<61> je pou<6F>ito ji<6A> mnoho v<>klenk<6E> ve zdi. Maxim<69>ln<6C> po<70>et je 256","Ok",NULL);
return;
}
v=vyklenky+id;
v->xpos=250;
v->ypos=160;
v->xs=80;
v->ys=60;
v->sector=sector;
v->dir=smer;
v->items[0]=0;
}
edit_vyklenek(id);
refresh_vyk_map();
}
void edit_side(int source,int smer)
{
TSTENA *p;
CTL3D b1,b2,b3;
char s[200];
p=&mapa.sidedef[source][smer];
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
memcpy(&b2,def_border(5,WINCOLOR),sizeof(CTL3D));
memcpy(&b3,def_border(6,WINCOLOR),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
sprintf(s,"Vlastnosti st<73>n, sektor %d st<73>na %d",source,smer);
def_window(400,324,s);
waktual->x=125;
waktual->y=60;
waktual->modal=1;
define(CANCEL_BUTT,10,5,80,20,2,button,"Zru<EFBFBD>it");property(&b1,NULL,NULL,WINCOLOR);
on_control_change(close_current);
define(OK_BUTT,190,5,80,20,2,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);
on_control_change(edit_side_ok);
define(3400,100,5,80,20,2,button,"P<EFBFBD>edvolba");property(&b1,NULL,NULL,WINCOLOR);
on_control_change(edit_side_predvolba_1);on_control_exit(edit_side_predvolba_2);
define(10,5,20,300,35,0,label,"Prim<EFBFBD>rn<EFBFBD>: Sekundarn<72>: Oblouk:");property(&b3,NULL,NULL,WINCOLOR);
define(20,10,35,90,12,0,str_line,side_names);property(&b2,NULL,NULL,WINCOLOR);c_default(p->prim);
on_control_enter(string_list_sup);
define(30,110,35,90,12,0,str_line,side_names);property(&b2,NULL,NULL,WINCOLOR);c_default(p->sec);
on_control_enter(string_list_sup);
define(40,210,35,90,12,0,str_line,oblouky);property(&b2,NULL,NULL,WINCOLOR);c_default(p->oblouk & 0x0f);
on_control_enter(string_list_sup);
define(-1,5,60,250,12,0,label,"Animace primarn<72>:");
define(-1,5,75,250,12,0,label,"Animace sekundarn<72>:");
define(-1,5,90,250,12,0,label,"X pozice sek. st<73>ny:");
define(-1,5,105,250,12,0,label,"Y pozice sek. st<73>ny:");
define(-1,5,120,250,12,0,label,"C<EFBFBD>lov<EFBFBD> sektor ud<75>losti:");
define(-1,5,135,250,12,0,label,"C<EFBFBD>lov<EFBFBD> st<73>na ud<75>losti:");
define(-1,5,150,250,12,0,label,"Popis akce:");
define(-1,260,60,100,12,0,label,"Aplikuj na st<73>nu:");
define(50,200,60,50,10,0,input_line,10,1,16,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs((p->prim_anim & 0xf)+1));on_control_exit(test_int);
define(60,200,75,50,10,0,input_line,10,1,16,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs((p->sec_anim & 0xf)+1));on_control_exit(test_int);
define(70,200,90,50,10,0,input_line,10,0,499,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->xsec<<1));on_control_exit(test_int);
define(80,200,105,50,10,0,input_line,10,0,511,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->ysec<<1));on_control_exit(test_int);
define(90,200,120,50,10,0,input_line,10,0,65535,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->sector_tag));on_control_exit(test_int);
define(100,200,135,50,10,0,str_line,steny2);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->side_tag & 0x3);on_control_enter(string_list_sup);
define(110,100,150,150,10,0,str_line,actions);property(&b2,NULL,NULL,WINCOLOR);
on_control_enter(string_list_sup); c_default(p->action);
define(120,10,175,150,10,0,check_box,side_flgs[0]);
define(130,10,187,150,10,0,check_box,side_flgs[1]);
define(140,10,199,150,10,0,check_box,side_flgs[2]);
define(150,10,211,150,10,0,check_box,side_flgs[3]);
define(160,10,223,150,10,0,check_box,side_flgs[4]);
define(170,10,235,150,10,0,check_box,side_flgs[5]);
define(180,10,247,150,10,0,check_box,side_flgs[6]);
define(190,10,259,150,10,0,check_box,side_flgs[7]);
define(200,190,175,100,10,0,check_box,side_flgs[8]);
define(210,190,187,100,10,0,check_box,side_flgs[9]);
define(220,190,199,100,10,0,check_box,side_flgs[10]);
define(230,190,211,150,10,0,check_box,side_flgs[11]);
define(240,190,223,150,10,0,check_box,side_flgs[12]);
define(250,190,235,150,10,0,check_box,side_flgs[13]);
define(260,190,247,150,10,0,check_box,side_flgs[14]);
define(270,190,259,150,10,0,check_box,side_flgs[15]);
define(280,10,271,75,10,0,check_box,side_flgs[16]);
define(290,10,283,75,10,0,check_box,side_flgs[17]);
define(300,190,271,150,10,0,check_box,side_flgs[18]);
define(310,10,295,75,11,0,check_box,side_flgs[19]);
define(400,290,80,100,10,0,check_box,"Severn<EFBFBD>");
define(410,290,95,100,10,0,check_box,"V<EFBFBD>chodn<EFBFBD>");
define(420,290,110,100,10,0,check_box,"Ji<EFBFBD>n<EFBFBD>");
define(430,290,125,100,10,0,check_box,"Z<EFBFBD>padn<EFBFBD>");
define(340,290,150,100,15,0,button2,"V<EFBFBD>ce >>");on_control_change(action_flags);
define(350,290,150,100,15,0,value_store,4);c_default(p->flags & 0xfff00000);
define(360,290,150,100,15,0,value_store,4);c_default(source);
define(370,290,150,100,15,0,value_store,4);c_default(smer);
define(-1,5,20,60,10,1,label,"Lclip:");
define(440,30,35,30,12,1,input_line,3,0,255,"%3d");
property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->lclip));on_control_exit(test_int);
define(450,10,220,30,30,1,radio_butts,3,"-","\x4","\x6");c_default((p->oblouk>>5) & 0x3);
property(NULL,icones,NULL,WINCOLOR);
define(460,10,175,80,12,1,button,"V<EFBFBD>klenek");on_control_change(edit_vyklenek_start);
define(470,190,283,150,10,0,check_box,"Lze polo<6C>it za");c_default(p->oblouk>>7);
define(480,10,307,75,10,0,check_box,"P<EFBFBD>edsunout s.");c_default(p->side_tag>>7);
fill_bit_fields(0,120,p->flags,20); if (source)
fill_bit_fields(0,400,1<<smer,4); else fill_bit_fields(0,400,0xf,4);
set_enable(0,3400,source!=0);
set_enable(0,460,source!=0);
redraw_window();
}
void edit_side_sup(void)
{
edit_side(temp_source,o_aktual->id/10-5);
}
void edit_sector(int source)
{
TSECTOR *p;
TSTR_LIST l;
CTL3D b1,b2,b3;
l=read_directory("c:\\windows\\system\\*.*",DIR_FULL,_A_NORMAL);
p=&mapa.sectordef[source];
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
memcpy(&b2,def_border(5,WINCOLOR),sizeof(CTL3D));
memcpy(&b3,def_border(3,WINCOLOR),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
def_dialoge(100,100,300,200,"String list - test only");
define(9,10,20,240,170,0,listbox,l,0x1f);c_default(0);
o_end->autoresizex=1;
o_end->autoresizey=1;
define(10,3,42,17,110,1,scroll_bar_v,0,10,1,SCROLLBARCOL);
property(NULL,NULL,NULL,WINCOLOR);
o_end->autoresizey=1;
define(11,1,20,21,17,1,scroll_button,-1,0,"\x1e");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(12,1,22,21,17,2,scroll_button,1,10,"\x1f");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(20,1,1,10,10,2,resizer);
/* define(OK_BUTT,100,5,80,20,2,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);
on_change(terminate);
define(CANCEL_BUTT,10,5,80,20,2,button,"Zru<72>it");property(&b1,NULL,NULL,WINCOLOR);
on_change(terminate);
define(-1,5,20,100,12,0,label,"P<>ipojen<65>:");
define(10,10,35,50,12,0,input_line,20,0,MAPSIZE-1,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->step_next[0]));on_exit(test_int);
define(20,10,50,50,12,0,input_line,20,0,MAPSIZE-1,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->step_next[1]));on_exit(test_int);
define(30,10,65,50,12,0,input_line,20,0,MAPSIZE-1,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->step_next[2]));on_exit(test_int);
define(40,10,80,50,12,0,input_line,20,0,MAPSIZE-1,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->step_next[3]));on_exit(test_int);
define(50,70,35,80,12,0,button,"Sever");property(&b1,NULL,NULL,WINCOLOR);on_change(edit_side_sup);
define(60,70,50,80,12,0,button,"V<>chod");property(&b1,NULL,NULL,WINCOLOR);on_change(edit_side_sup);
define(70,70,65,80,12,0,button,"Jih");property(&b1,NULL,NULL,WINCOLOR);on_change(edit_side_sup);
define(80,70,80,80,12,0,button,"Z<>pad");property(&b1,NULL,NULL,WINCOLOR);on_change(edit_side_sup);
temp_source=source;
*/redraw_window();
escape();
close_window(waktual);
release_list(l);
}
void run_edit_side(void)
{
char s[100];
int i;
OBJREC *o;
get_value(0,5,s);
if (strcmp(s,"?"))
{
sscanf(s,"%d",&i);
o=o_aktual;
edit_side(i,o_aktual->id/10-10);
}
}
void Apply(void)
{
int sec,i;
char s[100];
get_value(0,5,s);
if (!strcmp(s,"?")) return;
sscanf(s,"%d",&sec);
{
TSECTOR *p;int j;
p=&mapa.sectordef[sec];
for (j=0;j<4;j++) p->step_next[j]=(word)vals((j+1)*10);
}
for (i=1;i<maplen;i++)
if (minfo[i].flags & 1)
{
int j;
for (j=0;j<4;j++)
if (change_map & (1<<j))
mapa.sidedef[i][j].prim=(char)f_get_value(0,(j+5)*10);
if(change_map & 0x10) mapa.sectordef[i].ceil=(char)f_get_value(0,200);
if(change_map & 0x20) mapa.sectordef[i].floor=(char)f_get_value(0,210);
if(change_map & 0x40) mapa.sectordef[i].sector_type=(char)f_get_value(0,220);
}
redraw_desktop();
}
void jdi_na_sektor(s)
{
WINDOW *w,*w2;
if (!s) return;
cur_layer=minfo[s].layer;
xmap_offs=minfo[s].x;
ymap_offs=minfo[s].y;
c_set_value(map_win,20,ymap_offs);
c_set_value(map_win,30,xmap_offs);
unselect_map();
minfo[s].flags=1;
info_sector(s);
w=find_window(map_win);
w2=waktual;
if (w!=NULL)
{
waktual=w;
redraw_window();
waktual=w2;
}
}
void chozeni(EVENT_MSG *msg)
{
MS_EVENT *ms;
if (msg->msg==E_MOUSE)
{
ms=get_mouse(msg);
if (ms->event_type & 0x8)
{
int s;
s=vals(o_aktual->id);
jdi_na_sektor(s);
}
}
}
void chozeni2(EVENT_MSG *msg,OBJREC *o)
{
word s2,s1;
char ok=1;
if (msg->msg==E_INIT) return ;
if (msg->msg==E_DONE) return ;
if (msg->msg==E_KEYBOARD)
{
if (o_aktual==NULL || o_aktual->on_change!=chozeni2) return;
if (waktual->id==map_win || waktual->id==tool_bar)
select_window(sektor_win);
if (waktual->id!=sektor_win) return;
s2=vals(5);s1=s2;
if (s2>maplen) return;
if (!(*(char *)msg->data))
switch (*(int *)msg->data>>8)
{
case 'H':s1=mapa.sectordef[s2].step_next[0];break;
case 'P':s1=mapa.sectordef[s2].step_next[2];break;
case 'M':s1=mapa.sectordef[s2].step_next[1];break;
case 'K':s1=mapa.sectordef[s2].step_next[3];break;
default:ok=0;
}
else if (*(char *)msg->data!=13) ok=0;
if (ok)
{
if (s1>maplen) return;
jdi_na_sektor(s1);
while (_bios_keybrd(_KEYBRD_READY)) _bios_keybrd(_KEYBRD_READ);
msg->msg=-1;
}
}
if (msg->msg==E_GET_FOCUS)
{
memcpy(&o->f_color,flat_color(0x3e0),sizeof(FC_TABLE));
redraw_object(o);
}
if (msg->msg==E_LOST_FOCUS)
{
memcpy(&o->f_color,flat_color(0),sizeof(FC_TABLE));
redraw_object(o);
}
return ;
}
void sector_details_call(int sect_num)
{
TSECTOR *p;
CTL3D b1,b2,b3;
int start,end,i;
char s[200];
p=&mapa.sectordef[sect_num];
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
memcpy(&b2,def_border(5,WINCOLOR),sizeof(CTL3D));
memcpy(&b3,def_border(3,WINCOLOR),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
sprintf(s,"Detaily sektoru %d",sect_num);
def_dialoge(100,50,440,340,s);
define(-1,30,30,100,12,0,label,"Strop:");
define(-1,30,50,100,12,0,label,"Podlaha:");
define(-1,30,70,100,12,0,label,"Sektor:");
define(-1,30,90,100,12,0,label,"C<EFBFBD>l akce:");
define(-1,30,110,100,12,0,label,"St<EFBFBD>na akce:");
define(-1,30,130,100,12,0,label,"Popis akce:");
define(10,30,28,100,13,1,str_line,ceils);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->ceil); on_control_enter(string_list_sup);
define(20,30,48,100,13,1,str_line,floors);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->floor); on_control_enter(string_list_sup);
define(30,30,68,100,13,1,str_line,sector_types);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->sector_type); on_control_enter(string_list_sup);
define(40,30,88,50,13,1,input_line,10,0,MAPSIZE,"%6d");property(&b2,NULL,NULL,WINCOLOR);
set_default(strs(p->sector_tag));on_control_exit(test_int);
define(50,30,108,100,13,1,str_line,steny2);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->side_tag & 3); on_control_enter(string_list_sup);
define(60,30,128,150,13,1,str_line,actions);property(&b2,NULL,NULL,WINCOLOR);
c_default(p->action); on_control_enter(string_list_sup);
define(70,5,150,214,80,0,radio_butts,7,
"(1) Norm<72>ln<6C> podlaha",
"(2) Dva druhy podlah",
"(3) Dva sm<73>ry",
"(4) Dva sm<73>ry a druhy",
"(5) <20>ty<74>i sm<73>ry",
"(6) <20>ty<74>i sm<73>ry a dva druhy",
"(7) <20>achovnice");c_default(p->flags & 0x7);
define(80,5,150,214,80,1,radio_butts,7,
"(1) Norm<72>ln<6C> strop",
"(2) Dva druhy strop",
"(3) Dva sm<73>ry",
"(4) Dva sm<73>ry a druhy",
"(5) <20>ty<74>i sm<73>ry",
"(6) <20>ty<74>i sm<73>ry a dva druhy",
"(7) <20>achovnice");c_default(p->flags >> 4 & 0x7);
define(90,5,240,214,10,0,check_box,"(?)Animace podlahy");c_default((p->flags & 0x8)!=0);
define(95,5,240,214,10,1,check_box,"(?)Animace stropu");c_default((p->flags & 0x80)!=0);
define(65,5,252,214,10,0,check_box,"Sekundarni shading");c_default((minfo[sect_num].flags & 0x100)>>8);
define(75,5,258,214,40,1,radio_butts,4,"*default*","<EFBFBD>ipka","Schody","Bez symbolu");c_default((minfo[sect_num].flags & 0x600)>>9);
define(83,5,264,214,10,0,check_box,"!Automap (kouzlem)");c_default((minfo[sect_num].flags & 0x800)>>11);
define(85,5,276,214,10,0,check_box,"!Summon");c_default((minfo[sect_num].flags & 0x1000)>>12);
define(87,5,288,214,10,0,check_box,"Neprojde hledan<61>m cesty");c_default((minfo[sect_num].flags & 0x2000)>>13);
define(100,10,10,80,20,3,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(110,10,10,80,20,2,button,"Zru<EFBFBD>it");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(120,100,10,80,20,2,button,"P<EFBFBD>edvolba");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
set_enable(0,120,sect_num!=0);
redraw_window();
do
{
sem:
escape();
if (o_aktual->id-110)
{
i=0;
if (o_aktual->id==120)
{
start=0;end=0;minfo[0].flags|=1;
}
else
{
if (count_of_sel()<2 || (i=msg_box("Co te<74>?",'\x2',"M<EFBFBD>m vlastnosti aplikovat na jeden sektor nebo na vybranou oblast?",
"Na sektor","Na oblast","Zru<EFBFBD>it",NULL))==1)
{
start=sect_num;
end=sect_num;
minfo[sect_num].flags |=1;
}
else
{
start=1;
end=maplen-1;
}
}
if (i==3) goto sem;
else
for (i=start;i<=end;i++) if (minfo[i].flags & 1)
{
p=&mapa.sectordef[i];
p->ceil=f_get_value(0,10);
p->floor=f_get_value(0,20);
p->sector_type=f_get_value(0,30);
p->sector_tag=vals(40);
p->side_tag=f_get_value(0,50);
p->action=f_get_value(0,60);
p->flags=f_get_value(0,70)+16*f_get_value(0,80)+8*f_get_value(0,90)+0x80*f_get_value(0,95);;
minfo[i].flags&=~0x1f00;
minfo[i].flags|=(f_get_value(0,65)<<8)|(f_get_value(0,75)<<9)|(f_get_value(0,83)<<11)|(f_get_value(0,85)<<12)|(f_get_value(0,87)<<13);
}
}
}
while (o_aktual && o_aktual->id==120);
close_window(waktual);
minfo[0].flags &= ~1;
}
void set_change_map(void)
{
int i;
i=o_aktual->id / 10-5;
if (i>14) i-=11;
change_map|=1<<i;
}
void sector_details(void)
{
int i;
i=vals(5);
sector_details_call(i);
info_sector(i);
}
void get_error(char *err)
{
/* char *c,mezera,spc;
int i;
short *p;
p=(short *)0xb8000;
if (p[0]==0xff)
{
strcpy(err,"Neo<65>ek<65>van<61> zhroucen<65>.");
return;
}
mezera=1;spc=1;
c=err;
for(i=0;i<160;i++)
{
*c=*p++ & 0xff;
if (*c<33)
{
c+=mezera;mezera=0;
if (spc) spc++;
}
else
{
c++;mezera=1;
spc=0;
}
if (spc>10) break;
}
*c=0;
if (c!=err)
{
do
c--;
while (c!=err && *c==32);
if (*c!=32) c++;
*c=0;
}*/
}
void call_testmap(int pos)
{
char tt[250];
HWND hWnd;
if (save_all_map()) return;
save_items();
LoadString(GetModuleHandle(NULL),3,tt,250);
hWnd=FindWindow(NULL,tt);
if (hWnd==NULL)
{
msg_box("Testovani mapy",'\x1',"Pro testovani mapy, spust hru Skeldal.exe v okne s tvym dobrodruzstvim "
"Vytvor novou skupinu, popripade nahraj pozici."
"Po nahrati urovne muzes zacit hru testovat. MapEdit se propoji s hrou.","Ok",NULL);
}
else
{
const char *fname=strrchr(filename,'\\');
ATOM atm;
LRESULT res;
if (fname==NULL) fname=filename;else fname++;
atm=GlobalAddAtom(fname);
SendMessageTimeout(hWnd,WM_RELOADMAP,pos,(LPARAM)atm,SMTO_NORMAL,2000,&res);
GlobalDeleteAtom(atm);
BringWindowToTop(hWnd);
}
}
void testmap(void)
{
call_testmap(vals(5));
}
void close_sector_win(void)
{
close_window(waktual);
send_message(E_DONE,E_KEYBOARD,chozeni2);
}
void open_sector_win(void)
{
if (find_window(sektor_win)==NULL)
{
CTL3D b1,b2;
FC_TABLE f_sel;
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
memcpy(&b2,def_border(5,WINCOLOR),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
memcpy(&f_sel,flat_color(0x0017),sizeof(charcolors));
sektor_win=def_window(120,325,"Vlastnosti");
waktual->y=2;waktual->x=SCR_WIDTH_X-120-3;
on_control_change(close_sector_win);
define(100,4,19,59,14,0,button2,"Sever:");on_control_change(run_edit_side);
define(110,4,49,59,14,0,button2,"V<EFBFBD>chod:");on_control_change(run_edit_side);
define(120,4,79,59,14,0,button2,"Jih:");on_control_change(run_edit_side);
define(130,4,109,59,14,0,button2,"Z<EFBFBD>pad:");on_control_change(run_edit_side);
define(-1,5,140,59,10,0,label,"Strop:");
define(-1,5,170,59,10,0,label,"Podlaha:");
define(-1,5,200,59,10,0,label,"Typ sektoru:");
define(10,65,20,50,12,0,input_line,20,0,MAPSIZE-1,"%5d");property(&b2,NULL,&f_sel,WINCOLOR);
set_default("0");on_control_exit(test_int);on_event(chozeni);
define(20,65,50,50,12,0,input_line,20,0,MAPSIZE-1,"%5d");property(&b2,NULL,&f_sel,WINCOLOR);
set_default("0");on_control_exit(test_int);on_event(chozeni);
define(30,65,80,50,12,0,input_line,20,0,MAPSIZE-1,"%5d");property(&b2,NULL,&f_sel,WINCOLOR);
set_default("0");on_control_exit(test_int);on_event(chozeni);
define(40,65,110,50,12,0,input_line,20,0,MAPSIZE-1,"%5d");property(&b2,NULL,&f_sel,WINCOLOR);
set_default("0");on_control_exit(test_int);on_event(chozeni);
define(50,5,35,95,12,0,str_line,side_names);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(60,5,65,95,12,0,str_line,side_names);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(70,5,95,95,12,0,str_line,side_names);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(80,5,125,95,12,0,str_line,side_names);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(140,103,35,12,12,0,check_box,"");o_end->call_event=o_end->on_change;
define(150,103,65,12,12,0,check_box,"");o_end->call_event=o_end->on_change;
define(160,103,95,12,12,0,check_box,"");o_end->call_event=o_end->on_change;
define(170,103,125,12,12,0,check_box,"");o_end->call_event=o_end->on_change;
define(200,5,155,110,12,0,str_line,ceils);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(210,5,185,110,12,0,str_line,floors);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(220,5,215,110,12,0,str_line,sector_types);property(&b2,NULL,&f_sel,WINCOLOR);
c_default(0); on_control_enter(string_list_sup);on_control_change(set_change_map);
define(-1,1,30,60,10,3,label,"Sektor:");
define(OK_BUTT,60,67,55,17,3,button2,"Aplikuj");on_control_change(Apply);
define(300,4,67,55,17,3,button2,"Detaily");on_control_change(sector_details);
define(5,60,30,55,12,3,input_line,20,0,MAPSIZE-1,"%5d");property(&b2,NULL,NULL,WINCOLOR);
set_default("?");on_control_change(chozeni2);
define(310,4,3,112,20,3,button,"Testovat mapu");on_control_change(testmap);
define(320,4,47,55,17,2,button2,"Zoom+");on_control_change(zoomin);
define(330,4,47,55,17,3,button2,"Zoom-");on_control_change(zoomout);
send_message(E_ADD,E_KEYBOARD,chozeni2);
waktual->popup=1;
}
else
{
select_window(sektor_win);
}
redraw_window();
}
void info_sector(int sector)
{
char c[100];
WINDOW *w;
int i;
if (!sector) return;
w=waktual;
if (waktual->id!=sektor_win) open_sector_win();
sprintf(c,"%5d",sector);
set_value(0,5,c);
for(i=0;i<4;i++)
{
sprintf(c,"%5d",mapa.sectordef[sector].step_next[i]);
set_value(0,(i+1)*10,c);
}
c_set_value(0,50,mapa.sidedef[sector][0].prim);
c_set_value(0,60,mapa.sidedef[sector][1].prim);
c_set_value(0,70,mapa.sidedef[sector][2].prim);
c_set_value(0,80,mapa.sidedef[sector][3].prim);
c_set_value(0,140,(mapa.sidedef[sector][0].flags & 0x200)!=0);
c_set_value(0,150,(mapa.sidedef[sector][1].flags & 0x200)!=0);
c_set_value(0,160,(mapa.sidedef[sector][2].flags & 0x200)!=0);
c_set_value(0,170,(mapa.sidedef[sector][3].flags & 0x200)!=0);
c_set_value(0,200,mapa.sectordef[sector].ceil);
c_set_value(0,210,mapa.sectordef[sector].floor);
c_set_value(0,220,mapa.sectordef[sector].sector_type);
select_window(w->id);
change_map=0;
}
void draw_win_1(void)
{
int i;
for (i=20;i<70;i++) c_set_value(draw_win,i,0);
c_set_value(draw_win,10,1);
}
void draw_win_2(void)
{
c_set_value(draw_win,10,get_bit_fields(draw_win,10,6)==0);;
}
void open_draw_win(void)
{
if (find_window(draw_win)==NULL)
{
FC_TABLE f_sel;
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
memcpy(&f_sel,flat_color(0x0017),sizeof(charcolors));
draw_win=def_window(120,165,"Vlajky");
waktual->y=2;waktual->x=SCR_WIDTH_X-120-3;
define(10,5,30,100,10,0,check_box,"Rozd<EFBFBD>lit");c_default(1);
on_control_change(draw_win_1);
define(20,5,45,100,10,0,check_box,"!Hra<72>");c_default(0);
on_control_change(draw_win_2);
define(30,5,60,100,10,0,check_box,"!Nestv<74>ra");c_default(0);
on_control_change(draw_win_2);
define(40,5,75,100,10,0,check_box,"!V<>c");c_default(0);
on_control_change(draw_win_2);
define(50,5,90,100,10,0,check_box,"!Zvuk");c_default(0);
on_control_change(draw_win_2);
define(60,5,105,100,10,0,check_box,"PrimVis");c_default(0);
on_control_change(draw_win_2);
define(70,5,18,110,17,3,button2,"Zoom in");on_control_change(zoomin);
define(80,5,1,110,17,3,button2,"Zoom out");on_control_change(zoomout);
waktual->popup=1;
}
else
{
select_window(sektor_win);
}
redraw_window();
}
long get_draw_flags(void)
{
long l;
if (find_window(draw_win)!=NULL)
{
l=get_bit_fields(draw_win,10,6);
if (l & 1)l=0; else
if (l & 0x20) l=(l & 0x1f)|SD_PRIM_VIS;
}
else
l=0xff91;
return l;
}
static void veci_ve_vyklenku(TSTR_LIST *ls,short *list)
{
int i;
if (*ls!=NULL) release_list(*ls);
*ls=create_list(8);
for(i=0;list[i]!=0;i++)
{
int it=list[i]-1;
if (it>=max_items) str_add(ls,"<P<>edm<64>t neexistuje>");else str_add(ls,item_list[it].jmeno);
}
}
static void add_to_vyk()
{
int i,p;
TSTR_LIST ls;
TSTR_LIST ls2;
TVYKLENEK *v;
int id;
i=f_get_value(0,9);
p=f_get_value(0,29);
id=f_get_value(0,20);
send_message(E_GUI,29,E_CONTROL,0,&ls);
send_message(E_GUI,9,E_CONTROL,0,&ls2);
if (ls2[i]==NULL) return;
sscanf(ls2[i],"%d",&i);
if (i==-1) return;
v=vyklenky+id;
if (p!=7)memmove(v->items+p+1,v->items+p,(7-p)*2);
v->items[8]=0;
v->items[p]=i+1;
veci_ve_vyklenku(&ls,&v->items);
send_message(E_GUI,29,E_CONTROL,1,ls);
}
static void remove_from_vyk()
{
int i;
TVYKLENEK *v;
TSTR_LIST ls;
int id;
i=f_get_value(0,29);
if (i>=8) return;
id=f_get_value(0,20);
v=vyklenky+id;
memmove(&v->items[i],&v->items[i+1],(8-i)*2);
send_message(E_GUI,29,E_CONTROL,0,&ls);
veci_ve_vyklenku(&ls,&v->items);
send_message(E_GUI,29,E_CONTROL,1,ls);
}
static change_grep()
{
TSTR_LIST ls;
char grep_en;
int grep_type;
int grep_num;
c_set_value(0,9,0);
send_message(E_GUI,9,E_CONTROL,2);
grep_en=f_get_value(0,90);
grep_type=f_get_value(0,80);
if (grep_en) grep_num=grep_type;else grep_num=-1;
send_message(E_GUI,9,E_CONTROL,0,&ls);
create_isort_list(&ls,grep_num);
send_message(E_GUI,9,E_CONTROL,1,ls);
redraw_desktop();
}
void edit_vyklenek(int idnum)
{
TVYKLENEK *v=vyklenky+idnum;
TSTR_LIST vyklist=NULL;
TSTR_LIST ls_sorts=NULL;
CTL3D b1,b2,b3;
TVYKLENEK old;
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
memcpy(&b2,def_border(5,WINCOLOR),sizeof(CTL3D));
memcpy(&b3,def_border(6,WINCOLOR),sizeof(CTL3D));
memcpy(&old,v,sizeof(TVYKLENEK));
veci_ve_vyklenku(&vyklist,&v->items);
create_isort_list(&ls_sorts,-1);
def_dialoge(70,100,500,200,"Oprava v<>klenk<6E>");
define(9,10,20,200,126,0,listbox,ls_sorts,RGB555(31,31,31),0);
property(&b3,NULL,NULL,WINCOLOR);c_default(0);
define(10,216,40,21,87,0,scroll_bar_v,0,10,1,SCROLLBARCOL);
property(&b2,NULL,NULL,WINCOLOR);
define(11,216,20,21,17,0,scroll_button,-1,0,"\x1e");
property(&b1,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(12,216,130,21,17,0,scroll_button,1,10,"\x1f");
property(&b1,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(20,0,0,0,0,0,value_store,4);c_default(idnum);
define(29,10,20,200,120,1,listbox,vyklist,RGB555(31,31,31),0);
property(&b3,NULL,NULL,WINCOLOR);c_default(0);
define(40,242,40,40,15,0,button,">>");on_control_change(add_to_vyk);
define(50,242,60,40,15,0,button,"<<");on_control_change(remove_from_vyk);
define(80,30,150,120,12,1,str_line,typy_veci);c_default(0);
property(&b2,NULL,NULL,WINCOLOR);on_control_enter(string_list_sup);on_control_change(change_grep);
define(-1,150,150,50,10,1,label,"Filtr:");
define(90,10,150,10,10,1,check_box,"");c_default(0);on_control_change(change_grep);
define(-1,10,30,1,10,3,label,"Xpos Ypos Xsiz Ysiz Sector Pos");
define(100,8,12,40,12,3,input_line,10,0,500,"%4d");set_default(strs(v->xpos));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(110,53,12,40,12,3,input_line,10,0,500,"%4d");set_default(strs(v->ypos));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(120,98,12,40,12,3,input_line,10,0,500,"%4d");set_default(strs(v->xs));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(130,143,12,40,12,3,input_line,10,0,500,"%4d");set_default(strs(v->ys));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(140,188,12,40,12,3,input_line,10,0,maplen,"%4d");set_default(strs(v->sector));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(150,233,12,40,12,3,input_line,10,0,3,"%4d");set_default(strs(v->dir));
property(&b2,NULL,NULL,WINCOLOR);on_control_exit(test_int);
define(200,5,5,60,20,2,button,"Ok");on_control_change(terminate_gui);property(&b1,NULL,NULL,WINCOLOR);
define(210,70,5,60,20,2,button,"Zru<EFBFBD>it");on_control_change(terminate_gui);property(&b1,NULL,NULL,WINCOLOR);
define(220,135,5,60,20,2,button,"Vymazat");on_control_change(terminate_gui);property(&b1,NULL,NULL,WINCOLOR);
redraw_window();
opp:
escape();
if (o_aktual->id==200)
{
v->xpos=vals(100);
v->ypos=vals(110);
v->xs=vals(120);
v->ys=vals(130);
v->sector=vals(140);
v->dir=vals(150);
}
else if (o_aktual->id==220)
if (msg_box("Mapedit",'\x2',"Chce<EFBFBD> opravdu v<>klenek zbourat?","Ano","Ne",NULL)==1)
{
v->sector=0;
}
else goto opp;
else if (o_aktual->id==210)
{
memcpy(v,&old,sizeof(old));
}
send_message(E_GUI,9,E_CONTROL,0,&ls_sorts);
release_list(vyklist);
release_list(ls_sorts);
close_current();
}
Reference in a new issue View git blame Copy permalink