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

1184 lines
32 KiB
C
Raw Blame History

#include <skeldal_win.h>
#include <dos.h>
#include <types.h>
#include <mem.h>
#include <malloc.h>
#include <memman.h>
#include <stdio.h>
#include <bgraph.h>
#include <event.h>
#include <devices.h>
#include <bmouse.h>
#include <gui.h>
#include <strlite.h>
#include <strlists.h>
#include <wav.h>
#include <zvuk.h>
#include "mapy.h"
#include <basicobj.h>
#include "globals.h"
#include "edit_map.h"
#include "save_map.h"
#include "steny.h"
#include "mob_edit.h"
#include <pcx.h>
char *mob_dir;
TSTR_LIST enemy_list=NULL;
TSTR_LIST enemy_sound=NULL;
TMOB moblist[TOTAL_MOBS];
short mob_map[MAPSIZE];
int enemy_win=-1;
void edit_mob(int i);
static void mirror_pcx(word *pcx)
{
int xs;
int ys;
int i,j,k,l;
char *c,*d,*e;
xs=pcx[0];
ys=pcx[1];
pcx+=3+256;
l=xs/2;
c=(char *)pcx;
for(i=0;i<ys;i++,c+=xs)
for(j=0,d=c,e=c+xs-1;j<l;j++,d++,e--)
{
k=*d;*d=*e;*e=k;
}
}
void pcx_view_init(OBJREC *o)
{
o->userptr=getmem(129+4);
memset(o->userptr,0,129+4);
}
void pcx_view_draw(int x1,int y1,int x2,int y2,OBJREC *o)
{
char *oldname;
char *newname;
void *picture;
char mirror=0;
picture=*(void **)(oldname=o->userptr);
oldname+=4;
newname=o->data;
if (newname[0]=='*')
newname++,mirror=1;
if (strcmp(oldname,newname))
{
free(picture);
picture=NULL;
}
if (picture==NULL)
{
open_pcx(newname,A_8BIT,&picture);
if (mirror && picture!=NULL) mirror_pcx(picture);
}
if (picture==NULL)
{
char *d=strrchr(newname,'\\');
void *z;long s;
if (d!=NULL) d++;else d=newname;
z=afile(d,read_group(0),&s);
if (z!=NULL) load_pcx(z,s,A_8BIT,&picture);free(z);
if (mirror) mirror_pcx(picture);
}
bar(x1,y1,x2,y2);
if (picture!=NULL) put_picture(x1,y1,picture);
*(void **)(o->userptr)=picture;
strcpy(oldname,newname);
}
void pcx_view_done(OBJREC *o)
{
void *picture;
picture=*(void **)(o->userptr);
free(picture);
}
void pcx_view(OBJREC *o)
{
o->call_init=pcx_view_init;
o->call_draw=pcx_view_draw;
o->call_done=pcx_view_done;
o->datasize=129;
}
void symetry_draw(int x1,int y1,int x2,int y2,OBJREC *o)
{
x2;
curcolor=RGB555(31,31,31);
x1+=*(int *)o->data;
ver_line_xor(x1,y1,y2);
}
void symetry_event(EVENT_MSG *msg,OBJREC *o)
{
MS_EVENT *ms;
if (msg->msg==E_MOUSE)
{
int x1,x2;
ms=get_mouse(msg);
if (ms->tl1)
{
x1=*(int *)o->data+o->locx;
curcolor=RGB555(31,31,31);
schovej_mysku();
ver_line_xor(x1,o->locy,o->locy+o->ys);
x2=ms->x;
ver_line_xor(x2,o->locy,o->locy+o->ys);
ukaz_mysku();
if (x1<x2) showview(x1,o->locy,x2+1,o->locy+o->ys);
else showview(x2,o->locy,x1+1,o->locy+o->ys);
*(int *)o->data=x2-o->locx;
}
}
}
void symetry(OBJREC *o)
{
o->call_draw=symetry_draw;
o->call_event=symetry_event;
o->datasize=4;
}
#define delete_mob(i) memset(&moblist[i],0,sizeof(TMOB);moblist[i].cislo_vzoru=-1;create_enemy_list()
#define clear_mob_map() memset(mob_map,0xff,sizeof(mob_map))
#define clear_map_place(i) (mob_map[i]=-1)
#define place_mob(i,j) (mob_map[i]=(j))
void purge_mob_map()
{
clear_mob_map();
}
int add_mob_sound(char *wav)
{
int i,c;
if (enemy_sound==NULL)
{
enemy_sound=create_list(4);
return str_add(&enemy_sound,wav);
}
else
{
c=str_count(enemy_sound);
for(i=0;i<c;i++)
if (enemy_sound[i]!=NULL)
if (!strcmp(enemy_sound[i],wav)) return i;
return str_add(&enemy_sound,wav);
}
}
void check_unused_sounds()
{
char *block;
int c,i,j,z;
if (enemy_sound==NULL) return;
c=str_count(enemy_sound);
block=(char *)getmem(c);
memset(block,1,c);
for(i=0;i<TOTAL_MOBS;i++)
if (moblist[i].cislo_vzoru!=-1)
for(j=0;j<MOB_SOUNDS;j++)
{
z=moblist[i].sounds[j];
if (z && z<=c) block[z-1]=0;
}
for(i=0;i<max_items;i++) if (item_list[i].sound) block[item_list[i].sound-1]=0;
for(i=0;i<c;i++)
if (block[i]) str_remove(&enemy_sound,i);
}
void init_mob_list()
{
int i;
memset(moblist,0,sizeof(moblist));
for(i=0;i<TOTAL_MOBS;i++)moblist[i].cislo_vzoru=-1;
clear_mob_map();
}
int create_mob()
{
int i;
for(i=0;i<TOTAL_MOBS;i++)
if (moblist[i].cislo_vzoru==-1) return i;
return -1;
}
void create_enemy_list()
{
int i,mob_total;
if (enemy_list!=NULL) release_list(enemy_list);
enemy_list=NULL;
mob_total=0;
for(i=0;i<TOTAL_MOBS;i++)if (moblist[i].cislo_vzoru!=-1) mob_total++;
enemy_list=create_list(mob_total+2);
if (mob_total)
for(i=0;i<TOTAL_MOBS;i++)if (moblist[i].cislo_vzoru!=-1)
{
char s[50];
sprintf(s,"%3d %s",i,moblist[i].name);
str_add(&enemy_list,s);
}
else;
str_add(&enemy_list," -1 <nov<6F> potvora>");
}
void new_mob()
{
int i,j;
char c;
if (!mglob.local_monsters && check_data_password()==0) return;
i=f_get_value(0,29);
c=enemy_list[i]!=NULL && moblist[i].cislo_vzoru!=-1;
j=create_mob();
if (c)
{
sscanf(enemy_list[i],"%d",&i);
if (i!=-1) moblist[j]=moblist[i];
}
else
{
memset(moblist+i,0,sizeof(TMOB));
moblist[i].cislo_vzoru=-1;
}
edit_mob(j);
create_enemy_list();
send_message(E_GUI,29,E_CONTROL,1,enemy_list);
}
static char nvlast[][16]=
{"S<EFBFBD>la","UM(%kouzlen<65>)","Pohyblivost","Obratnost","Max zran<61>n<EFBFBD>",
"","","Obrana(doln<6C>)","Obrana(Horn<72>)","<EFBFBD>tok(Doln<6C>)",
"<EFBFBD>tok(Horn<72>)","Ohe<EFBFBD>","Voda","Zem<EFBFBD>","Vzduch","Mysl","<EFBFBD>ivoty Regen",
"","","Magick<EFBFBD> s<>la(D)", "Magick<EFBFBD> s<>la(H)","","<EFBFBD><EFBFBD>innek z<>sahu","*"};
char smery_anim[][7]=
{"Vp<EFBFBD>ed","Vlevo","Vzad","Vpravo","<EFBFBD>tok","Z<EFBFBD>sah"};
char smery_znaky[]="FLBRCH";
char sekvence[]="0123456789ABCDEF";
char load_ddl_seq(char *name,char otoceni)
{
char *z,*c;
long size;
c=z=afile(name,9,&size);
if (z!=NULL)
{
while (otoceni--) if (z!=NULL) z=strchr(z+1,'\n');
if (z==NULL)
{
free(c);
return 0;
}
while (*z<32) z++;
memcpy(sekvence,z,sizeof(sekvence));
}
free(c);
return 1;
}
char load_sequence(char *mobname,int otoceni)
{
char s[128];
char st[13];
FILE *f;
int i,c;
sprintf(s,"%s%s.SEQ",MOB_DIR,mobname);
sprintf(st,"%s.SEQ",mobname);
f=fopen(s,"r");
if (f==NULL)
{
char text[256];
if (load_ddl_seq(st,otoceni)) return 0;
sprintf(text,"Nemohu nalezt soubor %s jen<65> ma obsahovat sekvence animac<61> pro tuto potvoru...",s);
msg_box("Upozorn<EFBFBD>n<EFBFBD>!",'\x1',text,"Beru na v<>dom<6F>",NULL);
return 1;
}
while(otoceni--)
while (fgetc(f)!='\n');
c=fgetc(f); i=0;
while (c!=EOF && c!='\n' && i<sizeof(sekvence))
{
sekvence[i++]=c;
c=fgetc(f);
}
fclose(f);
if (c==EOF)
{
char text[256];
sprintf(text,"Soubor %s obsahuje chybn<62> <20>daje",s);
msg_box("Upozorn<EFBFBD>n<EFBFBD>!",'\x1',text,"Beru na v<>dom<6F>",NULL);
return 1;
}
return 0;
}
void pohyb_moba(EVENT_MSG *msg,void **data)
{
static int phase;
static char turn;
static int delay=0;
char ch;
data;
switch (msg->msg)
{
case E_INIT:phase=-1;
turn=f_get_value(0,185);
break;
case E_TIMER:if (delay) delay--;
else
{
char name[129],c[10];
word *picture;
int x,y,xs,ys;
delay=2;
get_value(0,100,c);
sprintf(name,"%s%s%c%c.PCX",MOB_DIR,c,smery_znaky[turn]=='R'?'L':smery_znaky[turn],sekvence[phase+1]);
x=320;y=0;xs=1;ys=1;
ch=open_pcx(name,A_8BIT,(void **)&picture);
if (ch)
{
void *z;long s;char *c;
c=strrchr(name,'\\');if (c==NULL) c=name;else c++;
z=afile(c,9,&s);
if (z!=NULL) load_pcx(z,s,A_8BIT,(void **)&picture),free(z),ch=0;else ch=1,picture=NULL;
}
if (!ch)
{
if (turn==3)
mirror_pcx(picture);
x-=f_get_value(0,300+turn*16+phase+1);
xs=picture[0];
ys=picture[1];
y=460-ys;
if (x<0) x=0;
put_picture(x,y,picture);
free(picture);
}
phase=(phase+1)%vals(120+turn);
showview(0,0,0,0);
curcolor=0;
bar(x,y,x+xs,y+ys);
}
break;
case E_KEYBOARD:exit_wait=1;break;
case E_MOUSE:
{
MS_EVENT *ms;
ms=get_mouse(msg);
if (ms->event_type & 0x4) exit_wait=1;
msg->msg=-1;
}
}
}
void play_mob()
{
int i;
char s[12];
int mx = DxGetResX() - 1;
int my = DxGetResY() - 1;
get_value(0,100,s);
i=f_get_value(0,185);
if (load_sequence(s,i)) return;
update_mysky();
schovej_mysku();
curcolor=0;
bar(0,0,mx,my);
send_message(E_ADD,E_TIMER,pohyb_moba);
send_message(E_ADD,E_KEYBOARD,pohyb_moba);
send_message(E_ADD,E_MOUSE,pohyb_moba);
escape();
send_message(E_DONE,E_TIMER,pohyb_moba);
send_message(E_DONE,E_KEYBOARD,pohyb_moba);
send_message(E_DONE,E_MOUSE,pohyb_moba);
redraw_desktop();
ukaz_mysku();
}
void build_mobs_name()
{
int i,j,k;
char c,path[129],name[10];
char *d;
char m;
i=f_get_value(0,180);
j=f_get_value(0,185);
get_value(0,100,name);
c=smery_znaky[j];
if (c=='R') c='L',m=1;else m=0;
sprintf(path,"%s%s%s%c%c.PCX",m?"*":"",MOB_DIR,name,c,sekvence[i]);
k=f_get_value(0,205);
c_set_value(0,205,300);
c_set_value(0,205,k);
c_set_value(0,205,300);
set_value(0,200,path);
c_set_value(0,205,f_get_value(0,300+i+16*j));
d=strrchr(path,'\\');if (d!=NULL) d++;else d=path;
set_value(0,207,d);
}
void check_mobs_name()
{
char s[10];
int i;
get_value(0,100,s);
for(i=0;i<6 && s[i];i++) if (s[i]==32) s[i]='_';
for(;i<6;i++) s[i]='_';
s[i]=0;
strupr(s);
set_value(0,100,s);
c_set_value(0,180,0);
c_set_value(0,185,0);
build_mobs_name();
}
void mob_next()
{
int i,j,max;
char s[12];
i=f_get_value(0,180);
j=f_get_value(0,185);
get_value(0,100,s);
load_sequence(s,j);
c_set_value(0,300+i+16*j,f_get_value(0,205));
max=vals(120+j);
i=(i+1)%(max+1);
c_set_value(0,180,i);
build_mobs_name();
redraw_desktop();
}
void mob_turn()
{
int i,j;
char s[12];
i=f_get_value(0,180);
j=f_get_value(0,185);
c_set_value(0,300+i+16*j,f_get_value(0,205));
do
j=(j+1)%+6;
while (!vals(120+j));
c_set_value(0,185,j);
c_set_value(0,180,0);
get_value(0,100,s);
load_sequence(s,j);
build_mobs_name();
redraw_desktop();
}
void mob_ask_delete()
{
if (msg_box("Dotaz?",'\x2',"Opravdu chce<63> potovoru vymazat ze seznam<61> vzor<6F>? Ujisti se, <20>e tuto potvoru nepou<6F><75>v<EFBFBD><76> v <20><>dn<64> jin<69> map<61>","Ano","Ne",NULL)==1)
terminate_gui();
o_aktual=find_object(waktual,260);
}
char *sound_ev[]=
{"P<EFBFBD>i ch<63>zi","<EFBFBD>tok","Z<EFBFBD>sah","Reserved"};
void mob_test_sound()
{
char *c;
TSTR_LIST ls;
int d;
send_message(E_GUI,9,E_CONTROL,0,&ls);
d=f_get_value(0,9);
if (ls[d]==NULL) return;
concat(c,"",ls[d]);
name_conv(c);
add_task(16384,play_wav,c,0);
do_events();
do_events();
}
void mob_sound_copy()
{
int id=o_aktual->id;
TSTR_LIST ls;
int d;
char c[20];
send_message(E_GUI,9,E_CONTROL,0,&ls);
d=f_get_value(0,9);
if (ls[d]==NULL) return;
strncpy(c,ls[d],20);name_conv(c);
id-=20;
set_value(0,id,c);
}
void mob_inv()
{
int m,i;
CTL3D b1;
TSTR_LIST ls_sorts=NULL;
create_isort_list(&ls_sorts,-1);
m=f_get_value(0,190);
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
def_dialoge(100,50,400,390,"Invent<EFBFBD><EFBFBD> potvory");
str_insline(&ls_sorts,0,"<nic>");
for(i=0;i<MOBS_INV;i++)
{
define(i+10,10,20+i*15,250,10,0,str_line,ls_sorts);on_enter(string_list_sup);
c_default(moblist[m].inv[i]);
}
define(300,5,20,80,20,1,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(310,5,45,80,20,1,button,"Zru<EFBFBD>it");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
redraw_desktop();
escape();
if (o_aktual->id==300)
for(i=0;i<MOBS_INV;i++) moblist[m].inv[i]=f_get_value(0,i+10);
close_current();
release_list(ls_sorts);
}
static char *aff_list[]=
{
"INVIS",
"OKO ZA OKO",
"NASTAV TV<54><56>",
"ENERGY DRAIN",
"MANA SHIELD (*)",
"SANCTUARY SHIELD (1/2 zasahu)",
"HIGH SANCTUARY (omezit zasah)",
"BLIND (slepota)",
"REGENERACE (*)",
"OCHRANA P<>ED ZIMOU (*)",
"OCHRANA P<>ED <20><>REM (*)",
"KNOCK BACK",
"< volno >",
"< volno >",
"< volno >",
"Vyhrazeno pro d<>mona"
};
void spell_affections()
{
int m,i;
CTL3D b1;
m=f_get_value(0,700);
memcpy(&b1,def_border(1,0),sizeof(CTL3D));
default_font=vga_font;
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
def_dialoge(100,50,400,390,"Affections");
for(i=0;i<16;i++)
{
define(i+10,10,20+i*12,250,10,0,check_box,aff_list[i]);c_default((m & (1<<i))!=0);
}
define(-1,10,230,1,1,0,label,"(*) - u nestvur neimplementov<6F>no");
define(-1,10,242,1,1,0,label,"Sanctuary bere potvo<76>e jen 1/2 <20>ivot<6F> ze z<>sahu");
define(-1,10,254,1,1,0,label,"High Sanc. o<>ez<65>v<EFBFBD> z<>sah na max 18 <20>ivot<6F>");
define(-1,10,266,1,1,0,label,"Energy drain p<>id<69> 1/2 toho co ubere postav<61>m");
define(-1,10,278,1,1,0,label,"BLIND - potvora je slepa (senceless)");
define(-1,10,290,1,1,0,label,"REGENERACE - Ka<4B>d<EFBFBD> kolo +HPREG <20>ivot<6F>");
define(300,5,20,80,20,1,button,"Ok");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(310,5,45,80,20,1,button,"Zru<EFBFBD>it");property(&b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
redraw_desktop();
escape();
if (o_aktual->id==300)
{
for(i=0,m=0;i<16;i++) m|=f_get_value(0,i+10)<<i;
}
close_current();
c_set_value(0,700,m);
}
void mob_sound_call(int mob)
{
int i,j;
TSTR_LIST list;
CTL3D b1,b2,b3;
char *c;
i=mob;
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));
def_dialoge(100,50,300,250,"Zvuk potvory");
concat(c,sample_path,"*.wav");
list=read_directory(c,DIR_BREIF,_A_NORMAL);
read_ddl_list_wav(&list);
define(9,10,20,200,126,0,listbox,list,RGB555(31,31,31),0);
property(&b3,NULL,NULL,WINCOLOR);c_default(0);on_control_change(mob_test_sound);
define(10,217,40,19,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(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(12,216,130,21,17,0,scroll_button,1,10,"\x1f");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
for(j=0;j<MOB_SOUNDS-1;j++)
{
int z,y;
z=moblist[i].sounds[j];
y=160+15*j;
define(-1,5,y,1,1,0,label,sound_ev[j]);
define(j+20,120,y,120,12,0,input_line,13);
property(&b2,NULL,NULL,WINCOLOR);
if (z && enemy_sound!=NULL && (z<=str_count(enemy_sound)))
set_default(enemy_sound[z-1]);else set_default("");
define(j+40,245,y,20,12,0,button,"<");
property(&b1,NULL,NULL,WINCOLOR);on_control_change(mob_sound_copy);
}
define(90,5,30,100,10,2,check_box,"Loop (WALK!)");c_default((moblist[i].vlajky & 0x40)!=0);
define(100,5,5,80,20,2,button,"Ok");on_control_change(terminate_gui); property(&b1,NULL,NULL,WINCOLOR);
define(110,90,5,80,20,2,button,"Zru<EFBFBD>it");on_control_change(terminate_gui); property(&b1,NULL,NULL,WINCOLOR);
redraw_window();
escape();
if (o_aktual->id==100)
{
char s[20];
for(j=0;j<MOB_SOUNDS-1;j++)
{
get_value(0,20+j,s);
strupr(s);
if (s[0]) moblist[i].sounds[j]=add_mob_sound(s)+1;else moblist[i].sounds[j]=0;
}
moblist[i].vlajky&=~0x40;
moblist[i].vlajky|=f_get_value(0,90)<<6;
}
close_current();
}
static void mob_sound()
{
int i;
i=f_get_value(0,190);
mob_sound_call(i);
}
static void open_dialog_edit_box()
{
int i,j,k;
CTL3D b1,b2,b3;
i=f_get_value(0,190);
if (!f_get_value(0,k=o_aktual->id))
{
moblist[i].dialog=-1;
return;
}
j=moblist[i].dialog;
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));
def_dialoge(100,250,250,180,"P<EFBFBD>i<EFBFBD>a<EFBFBD> dialog");
define(9,10,20,200,126,0,listbox,dlg_names,RGB555(31,31,31),0);
property(&b3,NULL,NULL,WINCOLOR);c_default(pgf2name(j));
define(10,217,40,19,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(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(12,216,130,21,17,0,scroll_button,1,10,"\x1f");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(100,5,5,80,20,2,button,"Ok");on_control_change(terminate_gui); property(&b1,NULL,NULL,WINCOLOR);
define(110,90,5,80,20,2,button,"Zru<EFBFBD>it");on_control_change(terminate_gui); property(&b1,NULL,NULL,WINCOLOR);
redraw_window();
escape();
if (o_aktual->id==100)
{
moblist[i].dialog=dlg_pgfs[f_get_value(0,9)];
}
close_current();
c_set_value(0,k,moblist[i].dialog>=0);
}
/*static void ask_dialog(EVENT_MSG *msg,OBJREC *obj)
{
if (msg->msg==E_MOUSE)
{
MS_EVENT *ms;
ms=get_mouse(msg);
if ((ms->event_type & 0xA && *(char *)obj->data))
open_dialog_edit_box();
}
}*/
void edit_mob(int i)
{
int y,z;
CTL3D *b1;
if (!mglob.local_monsters && check_data_password()==0) return;
i;
if (!moblist[i].anim_counts[0]) moblist[i].anim_counts[0]=1;
def_dialoge(50,20,550,415,"Definice potvory");
define(200,310,35,290,1,0,pcx_view);set_default("_");
define(205,310,35,290,370,0,symetry);c_default(moblist[i].adjusting[0]);
define(207,5,20,120,20,1,input_line,20);set_default("");
define(-1,190,20,100,12,0,label,"Jm<EFBFBD>no potvory");
define(10,300,20,200,12,0,input_line,31);set_default(moblist[i].name);property(def_border(2,WINCOLOR),NULL,NULL,WINCOLOR);
z=0;b1=def_border(5,WINCOLOR);
for(y=20;y<380;)
{
if (nvlast[z][0])
{
define(-1,5,y,140,12,0,label,nvlast[z]);
define(z+20,120,y,60,12,0,input_line,8,-32767,32767,"%6d");set_default(strs(moblist[i].vlastnosti[z]));on_control_exit(test_int);
property(b1,NULL,NULL,WINCOLOR);
y+=15;
}
z+=1;
if (nvlast[z][0]=='*') break;
}
y+=15;
define(-1,5,y,140,12,0,label,"<EFBFBD>ivel:");
define(102,120,y,60,12,0,str_line,zivly);c_default(moblist[i].vlastnosti[VLS_MGZIVEL]);on_enter(string_list_sup);property(b1,NULL,NULL,WINCOLOR);y+=15;
define(-1,5,y,140,12,0,label,"Jm<EFBFBD>no grafiky");
define(100,120,y,60,12,0,input_line,6);set_default(moblist[i].mobs_name);property(b1,NULL,NULL,WINCOLOR);on_control_exit(check_mobs_name);y+=15;
define(-1,5,y,140,12,0,label,"Rychlost");
define(101,130,y,30,12,0,input_line,3,0,128,"%3d");set_default(strs(moblist[i].speed));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);y+=15;
define(-1,5,y,140,12,0,label,"<EFBFBD>ance <20>t<EFBFBD>ku");
define(103,130,y,30,12,0,input_line,3,0,255,"%3d");set_default(strs(moblist[i].flee_num));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);y+=15;
define(-1,5,y,140,12,0,label,"Kouzlo");
define(104,130,y,30,12,0,input_line,3,0,255,"%3d");set_default(strs(moblist[i].casting));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);y+=15;
define(-1,5,y,140,12,0,label,"Specproc");
define(105,120,y,60,12,0,str_line,mob_procs);c_default(moblist[i].specproc);on_enter(string_list_sup);property(b1,NULL,NULL,WINCOLOR);y+=15;
y=260;define(-1,220,248,140,12,0,label,"Po<EFBFBD>et anim.");
for(z=0;z<6;z++)
{
define(-1,190,y,50,12,0,label,smery_anim[z]);
define(z+120,260,y,20,12,0,input_line,2,!z*2,15,"%2d");set_default(strs(moblist[i].anim_counts[z]));on_control_exit(test_int);
property(b1,NULL,NULL,WINCOLOR);
y+=15;
}
define(127,285,320,20,12,0,input_line,2,1,15,"%2d");set_default(strs(moblist[i].hit_pos));on_control_exit(test_int);
property(b1,NULL,NULL,WINCOLOR);
define(430,190,350,50,10,0,check_box,"Chod<EFBFBD>");
define(440,190,362,50,10,0,check_box,"<EFBFBD>to<EFBFBD><EFBFBD>");
define(450,190,374,50,10,0,check_box,"Sly<EFBFBD><EFBFBD>");
define(460,250,350,100,10,0,check_box,"Jeden na pol<6F><6C>ku");
define(470,250,362,60,10,0,check_box,"Str<EFBFBD><EFBFBD>ce");
define(480,250,374,40,10,0,check_box,"Sebere");
define(490,250,386,40,10,0,check_box,"Sb<EFBFBD>r<EFBFBD>");
define(500,190,386,50,10,0,check_box,"St<EFBFBD><EFBFBD>l<EFBFBD>");
define(510,20,438,50,10,0,check_box,"Dialog.");c_default(moblist[i].dialog>=0);on_control_change(open_dialog_edit_box);
define(-1,190,50,50,12,0,label,"Dohled");
define(-1,190,65,50,12,0,label,"Dosah");
define(-1,190,80,50,12,0,label,"Expy:");
define(-1,190,95,50,12,0,label,"Bonus:");
define(-1,190,110,50,12,0,label,"Pen<EFBFBD>ze:");
define(160,260,50,30,12,0,input_line,3,0,255,"%3d");set_default(strs(moblist[i].dohled));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
define(170,260,65,30,12,0,input_line,3,0,255,"%3d");set_default(strs(moblist[i].dosah));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
define(175,250,80,55,12,0,input_line,6,0,999999,"%6d");set_default(strs(moblist[i].experience));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
define(176,250,95,55,12,0,input_line,6,0,65535,"%6d");set_default(strs(moblist[i].bonus));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
define(177,255,110,50,12,0,input_line,6,0,65535,"%5d");set_default(strs(moblist[i].money));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
define(180,0,0,0,0,0,value_store,4);c_default(0);//cislo_animace
define(185,0,0,0,0,0,value_store,4);c_default(0);//cislo_pozice
define(190,0,0,0,0,0,value_store,4);c_default(i);//cislo_i
b1=def_border(1,0);
define(210,190,144,80,20,0,button,"Dal<EFBFBD><EFBFBD> >>");property(b1,NULL,NULL,WINCOLOR);on_control_change(mob_next);
define(220,190,166,80,20,0,button,"Oto<EFBFBD>it");property(b1,NULL,NULL,WINCOLOR);on_control_change(mob_turn);
define(230,190,188,80,20,0,button,"Test");property(b1,NULL,NULL,WINCOLOR);on_control_change(play_mob);
define(240,84,2,80,20,2,button,"Zru<EFBFBD>it");property(b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(250,2,2,80,20,2,button,"Ok");property(b1,NULL,NULL,WINCOLOR);on_control_change(terminate_gui);
define(260,166,2,80,20,2,button,"Vymazat");property(b1,NULL,NULL,WINCOLOR);on_control_change(mob_ask_delete);
define(270,2,24,80,20,2,button,"Zvuky");property(b1,NULL,NULL,WINCOLOR);on_control_change(mob_sound);
define(280,84,24,80,20,2,button,"Invent<EFBFBD><EFBFBD>");property(b1,NULL,NULL,WINCOLOR);on_control_change(mob_inv);
define(290,166,24,80,20,2,button,"Aff");property(b1,NULL,NULL,WINCOLOR);on_control_change(spell_affections);
define(-1,190,220,1,1,0,label,"Pals:");
define(520,230,220,30,12,0,input_line,3,-127,127,"%3d");set_default(strs(moblist[i].paletts_count));on_control_exit(test_int);property(b1,NULL,NULL,WINCOLOR);
for(y=0;y<6*16;y++) {define(300+y,0,0,0,0,0,value_store,4);c_default(moblist[i].adjusting[y]);}
define(630,0,0,0,0,0,value_store,1);c_default(0);//IN_BATTLE;
define(640,190,400,50,10,0,check_box,"Pr<EFBFBD>choz<EFBFBD>");
define(650,190,412,50,10,0,check_box,"C<EFBFBD>t<EFBFBD>");
define(660,190,424,100,10,0,check_box,"Astral (wind)");
define(670,300,400,100,10,0,check_box,"Reload mob");
define(680,300,412,100,10,0,check_box,"Kouzl<EFBFBD>");
define(700,0,0,0,0,0,value_store,4);c_default(moblist[i].vlastnosti[VLS_KOUZLA]);
movesize_win(waktual,0,0,DxGetResX(),DxGetResY());
check_mobs_name();
fill_bit_fields(0,430,moblist[i].stay_strategy,8);
fill_bit_fields(0,630,moblist[i].vlajky,6);
redraw_desktop();
escape();
if (o_aktual->id==250)
{
TMOB *p;
p=&moblist[i];
get_value(0,10,p->name);
for(z=0;z<24;z++)
if (nvlast[z][0]) p->vlastnosti[z]=vals(20+z);else p->vlastnosti[z]=0;
get_value(0,100,p->mobs_name);
p->speed=vals(101);
p->vlastnosti[VLS_MGZIVEL]=f_get_value(0,102);
p->flee_num=vals(103);
p->casting=vals(104);
p->specproc=f_get_value(0,105);
for(z=0;z<6;z++) p->anim_counts[z]=vals(120+z);
p->hit_pos=vals(127);
p->stay_strategy=get_bit_fields(0,430,8);
p->vlajky=get_bit_fields(0,630,6) | (p->vlajky & 0x40);
p->dohled=vals(160);
p->dosah=vals(170);
p->experience=vals(175);
p->bonus=vals(176);
p->money=vals(177);
p->vlastnosti[VLS_KOUZLA]=f_get_value(0,700);
for(z=0;z<6*16;z++) p->adjusting[z]=f_get_value(0,300+z);
if (p->name[0]=='\0')
{
msg_box("Doporu<EFBFBD>en<EFBFBD>",' ',"Bylo by dobr<62> potvoru nazvat, kvuli snadn<64> manipulaci","Ok",NULL);
strcpy(p->name,p->mobs_name);
}
p->lives=p->vlastnosti[VLS_MAXHIT];
p->cislo_vzoru=i;
p->locx=128;
p->headx=128;
p->locy=128;
p->heady=128;
for(y=0;y<6;y++)
for(z=0;z<16;z++)
if (moblist[i].anim_counts[y]==0) moblist[i].adjusting[z+y*16]=moblist[i].adjusting[z];
p->paletts_count=vals(520);
}
z=o_aktual->id;
close_current();
if (z==260)
{
int j;
char redraw=0;
for(j=0;j<maplen;j++) if ((mob_map[j] & 0x3fff)==i)
{
redraw=1;
jdi_na_sektor(j);
if (msg_box("Potvora je v map<61>. Vymazat?",'\0x2',"Chce<EFBFBD> vymazat tuto potvoru a v<>echny dal<61><6C>?","Ano","Ne",NULL)==2) return;
break;
}
for(j=0;j<maplen;j++) if ((mob_map[j] & 0x3fff)==i) mob_map[j]=-1;
moblist[i].cislo_vzoru=-1;
if (redraw) redraw_desktop();
}
check_unused_sounds();
}
void edit_mob_event()
{
int i;
i=f_get_value(0,29);
if (enemy_list[i]==NULL) return;
sscanf(enemy_list[i],"%d",&i);
if (i>=0 && i<TOTAL_MOBS) edit_mob(i);
create_enemy_list();
send_message(E_GUI,29,E_CONTROL,1,enemy_list);
}
void umistit_moba()
{
int i,j;
i=f_get_value(0,29);
if (enemy_list[i]==NULL) return;
sscanf(enemy_list[i],"%d",&i);
for(j=0;j<maplen;j++) if (minfo[j].flags & 1)
{
if (mob_map[j]!=-1 && (mob_map[j] & 0x3fff)==i) mob_map[j]+=16384;else mob_map[j]=i;
}
redraw_desktop();
}
void vymazat_moba()
{
int j;
for(j=0;j<maplen;j++) if (minfo[j].flags & 1) mob_map[j]=-1;
redraw_desktop();
}
void enemy_window()
{
memcpy(f_default,flat_color(0x0000),sizeof(charcolors));
tool_sel=30;
create_map_win(3,3,SCR_WIDTH_X-200,SCR_WIDTH_Y-10);
if (find_window(enemy_win)==NULL)
{
int i;
CTL3D *b1;
create_enemy_list();
default_font=vga_font;
for (i=1;i<maplen;i++) if (minfo[i].flags & 1) break;
if (i==maplen) i=0;
enemy_win=def_window(200,280,"Potvory");
waktual->minsizx=140;
waktual->minsizy=150;
define(-1,3,1,10,10,2,resizer);
define(29,5,20,170,190,0,listbox,enemy_list,RGB555(31,31,0),4);c_default(0);
o_end->autoresizex=1;
o_end->autoresizey=1;
b1=def_border(3,WINCOLOR);
define(30,5,38,15,156,1,scroll_bar_v,0,10,1,SCROLLBARCOL);
property(b1,NULL,NULL,WINCOLOR);
o_end->autoresizey=1;
define(31,3,20,19,15,1,scroll_button,-1,0,"\x1e");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(32,3,68,19,15,2,scroll_button,1,10,"\x1f");
property(NULL,icones,NULL,WINCOLOR);on_control_change(scroll_support);
define(40,5,5,60,20,3,button,"Vymazat");property(b1,NULL,NULL,WINCOLOR);on_control_change(vymazat_moba);
define(50,5,30,60,20,3,button,"Um<EFBFBD>stit");property(b1,NULL,NULL,WINCOLOR);on_control_change(umistit_moba);
define(60,70,5,60,20,3,button,"Novou");property(b1,NULL,NULL,WINCOLOR);on_control_change(new_mob);
define(70,70,30,60,20,3,button,"Opravit");property(b1,NULL,NULL,WINCOLOR);on_control_change(edit_mob_event);
movesize_win(waktual,SCR_WIDTH_X,0,170,SCR_WIDTH_Y-20);
redraw_window();
}
else
select_window(enemy_win);
}
void select_enemy(int at_sector)
{
int i,num,pos;
num=mob_map[at_sector];
if (num==-1) return;
num&=0x3fff;
pos=0;
for(i=0;i<num;i++) if (moblist[i].cislo_vzoru!=-1) pos++;
if (moblist[i].cislo_vzoru==-1) return;
c_set_value(enemy_win,29,pos);
select_window(enemy_win);
redraw_window();
send_message(E_GUI,29,E_CONTROL,2);
select_window(map_win);
}
void save_mobs()
{
FILE *f;int i;
f=fopen(MOB_FILE,"wb");
if (f==NULL) return;
i=MOB_VER;
fwrite(&i,1,sizeof(i),f);
i=sizeof(TMOB);
fwrite(&i,1,sizeof(i),f);
for(i=0;i<TOTAL_MOBS;i++)
if (moblist[i].cislo_vzoru!=-1) fwrite(&moblist[i],1,sizeof(TMOB),f);
fclose(f);
}
void load_mobs()
{
FILE *f;int i,s;
TMOB *x;
memset(moblist,0xff,sizeof(moblist));
f=fopen(MOB_FILE,"rb");
if (f==NULL) return;
fread(&i,1,sizeof(i),f);
fread(&s,1,sizeof(s),f);
x=(TMOB *)getmem(s);
if (i==MOB_VER)
while (fread(x,1,s,f)) moblist[x->cislo_vzoru]=*x;
free(x);
fclose(f);
}
void *save_mobs_to_map(long *size)
{
int i,cnt;
TMOB *m,*c;
for(i=0,cnt=0;i<TOTAL_MOBS;i++) if (moblist[i].cislo_vzoru!=-1) cnt++;
if (!cnt) return NULL;
c=m=NewArr(TMOB,cnt);
for(i=0,c=m;i<TOTAL_MOBS;i++,c++) if (moblist[i].cislo_vzoru!=-1) memcpy(c,moblist+i,sizeof(TMOB));
*size=cnt*sizeof(TMOB);
return m;
}
void load_mobs_to_map(void *p,long size)
{
TMOB *m;
int i,cnt;
memset(moblist,0xff,sizeof(moblist));
cnt=size/sizeof(TMOB);
for(i=0,m=p;i<cnt;i++,m++) moblist[m->cislo_vzoru]=*m;
}
void *save_mob_map(long *size)
{
int i,c;
short *data,*p;
for(i=0,c=0;i<maplen;i++)
if (mob_map[i]!=-1) c++;
if (!c) return NULL;
if (c>255) msg_box("Omezen<EFBFBD>",'\x1',"Nelze m<>t v jedn<64> map<61> v<>c potvor ne<6E> 255. MAPEDIT n<>kter<65> nenahraje.","Ok",NULL);
p=data=getmem(*size=c*4);
for(i=0;i<maplen;i++)
if (mob_map[i]!=-1)
{
*p++=i;
*p++=mob_map[i];
}
return data;
}
void load_mob_map(void *data,int size)
{
int i,end;
short *p;
end=size/4;
p=data;
for(i=0;i<end;i++,p+=2) mob_map[p[0]]=p[1];
}
static void check_correct_sounds()
{
int c,i,j,z;
char err;
c=str_count(enemy_sound);
for(i=0;i<TOTAL_MOBS;i++)
{
err=0;
if (moblist[i].cislo_vzoru!=-1)
for(j=0;j<MOB_SOUNDS;j++)
{
z=moblist[i].sounds[j];
if (z && (z>c || enemy_sound[z-1]==NULL))
{
moblist[i].sounds[j]=0;
err=1;
}
}
if (err)
{
char text[200];
sprintf(text,"Nestv<EFBFBD>ra \"%s\" m<> <20>patnou referenci zvuku! Polo<6C>ka bude vynulov<6F>na!",moblist[i].name);
if (msg_box("Chybn<EFBFBD> reference",'\x1',text,"Pokra<EFBFBD>ovat","Opravit",NULL)==2) mob_sound_call(i);
}
}
}
void save_sound_map()
{
FILE *f;
int i,c;
if (enemy_sound==NULL)
{
remove(MOB_SOUND);
return;
}
check_correct_sounds();
f=fopen(MOB_SOUND,"wb");
c=str_count(enemy_sound);
while (c>0 && enemy_sound[c-1]==NULL) c--;
fwrite(&c,1,4,f);
for(i=0;i<c;i++)
{
if (enemy_sound[i]==NULL) fwrite(&enemy_sound[i],1,1,f);
else fwrite(enemy_sound[i],1,strlen(enemy_sound[i])+1,f);
}
fclose(f);
}
void load_sound_dat(void *p,long siz)
{
int i;
char *c,*s;
c=s=p;
i=0;
while (c-s<siz)
{
if (c[0]) str_replace(&enemy_sound,i,c);
c=strchr(c,0);
if (c==NULL)
{
msg_box("Load Error",'\x1',"Chyba nastala p<>i na<6E><61>t<EFBFBD>n<EFBFBD> souboru SOUND.DAT: Nekonzistetn<74> <20>daje. N<>kter<65> zvuky nebudou p<>i<EFBFBD>azeny!","Ok",NULL);
break;
}
c++;
i++;
}
}
void load_sound_map()
{
FILE *f;
long siz;
char *c,*s;
f=fopen(MOB_SOUND,"rb");
if (f==NULL) return;
if (enemy_sound!=NULL) release_list(enemy_sound);
enemy_sound=create_list(4);
fseek(f,0,SEEK_END);
siz=ftell(f)-4;fseek(f,4,SEEK_SET);
s=c=(char *)getmem(siz);
memset(s,0,siz);
fread(s,1,siz,f);
fclose(f);
load_sound_dat(s,siz);
free(s);
check_correct_sounds();
}
int save_sound_dat(FILE *f,int id)
{
int i,cnt;
TSTR_LIST ls;
cnt=str_count(enemy_sound);
ls=create_list(cnt+1);
for(i=0;i<cnt;i++) if (enemy_sound[i]!=NULL)str_replace(&ls,i+1,enemy_sound[i]);
i=save_scr_list(f,ls,id);
release_list(ls);
return i;
}
void remove_mobs_from_sector(int sector)
{
mob_map[sector]=-1;
}
Reference in a new issue View git blame Copy permalink