Return to scfgchat.c CVS log

Up to [Synchronet] / sbbs / sbbs2 / scfg

3.00c Win32

#line 2 "SCFGCHAT.C"

/* Developed 1990-1997 by Rob Swindell; PO Box 501, Yorba Linda, CA 92885 */

#include "scfg.h"

void page_cfg()
{
	static int dflt,bar;
	char str[81],done=0;
	int j,k;
	uint i;
	static page_t savpage;

while(1) {
	for(i=0;i<total_pages && i<MAX_OPTS;i++)
		sprintf(opt[i],"%-40.40s %.-20s",page[i]->cmd,page[i]->ar);
	opt[i][0]=0;
	savnum=0;
	j=WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT;
	if(total_pages)
		j|=WIN_DEL|WIN_GET;
	if(total_pages<MAX_OPTS)
		j|=WIN_INS|WIN_INSACT|WIN_XTR;
	if(savpage.cmd[0])
		j|=WIN_PUT;
	SETHELP(WHERE);
/*

External Sysop Chat Pagers:


This is a list of the configured external sysop chat pagers.

To add a pager, select the desired location and hit  INS .

To delete a pager, select it and hit  DEL .

To configure a pager, select it and hit  ENTER .
*/
	i=ulist(j,0,0,45,&dflt,&bar,"External Sysop Chat Pagers",opt);
	if((signed)i==-1)
		return;
	if((i&MSK_ON)==MSK_INS) {
		i&=MSK_OFF;
		sprintf(str,"%%!tone +chatpage.ton");
		SETHELP(WHERE);
/*

External Chat Pager Command Line:


This is the command line to execute for this external chat pager.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Command Line",str,50
			,K_EDIT)<1)
            continue;
		if((page=(page_t **)REALLOC(page,sizeof(page_t *)*(total_pages+1)))
            ==NULL) {
            errormsg(WHERE,ERR_ALLOC,nulstr,total_pages+1);
			total_pages=0;
			bail(1);
            continue; }
		if(total_pages)
			for(j=total_pages;j>i;j--)
				page[j]=page[j-1];
		if((page[i]=(page_t *)MALLOC(sizeof(page_t)))==NULL) {
			errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(page_t));
			continue; }
		memset((page_t *)page[i],0,sizeof(page_t));
		strcpy(page[i]->cmd,str);
		total_pages++;
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_DEL) {
		i&=MSK_OFF;
		FREE(page[i]);
		total_pages--;
		for(j=i;j<total_pages;j++)
			page[j]=page[j+1];
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_GET) {
		i&=MSK_OFF;
		savpage=*page[i];
		continue; }
	if((i&MSK_ON)==MSK_PUT) {
		i&=MSK_OFF;
		*page[i]=savpage;
		changes=1;
        continue; }
	j=0;
	done=0;
	while(!done) {
		k=0;
		sprintf(opt[k++],"%-27.27s%.40s","Command Line",page[i]->cmd);
		sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",page[i]->ar);
		sprintf(opt[k++],"%-27.27s%s","Intercept I/O Interrupts"
			,page[i]->misc&IO_INTS ? "Yes":"No");
		opt[k][0]=0;
		sprintf(str,"Sysop Chat Pager #%d",i+1);
		savnum=1;
		switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&j,0,str,opt)) {
			case -1:
				done=1;
				break;
			case 0:
				SETHELP(WHERE);
/*

External Chat Pager Command Line:


This is the command line to execute for this external chat pager.
*/
				strcpy(str,page[i]->cmd);
				if(!uinput(WIN_MID|WIN_SAV,0,10,"Command Line"
					,page[i]->cmd,50,K_EDIT))
					strcpy(page[i]->cmd,str);
				break;
			case 1:
				savnum=2;
				getar(str,page[i]->ar);
				break;
			case 2:
				k=1;
				strcpy(opt[0],"Yes");
				strcpy(opt[1],"No");
				opt[2][0]=0;
				savnum=2;
				SETHELP(WHERE);
/*

Intercept I/O Interrupts:


If you wish the DOS screen output and keyboard input to be intercepted
when running this chat pager, set this option to 
Yes
.
*/
				k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0,"Intercept I/O Interrupts"
					,opt);
				if(!k && !(page[i]->misc&IO_INTS)) {
					page[i]->misc|=IO_INTS;
					changes=1; }
				else if(k==1 && page[i]->misc&IO_INTS) {
					page[i]->misc&=~IO_INTS;
					changes=1; }
                break;

				} } }
}

void chan_cfg()
{
	static int chan_dflt,chan_bar,opt_dflt;
	char str[81],code[9],done=0,*p;
	int j,k;
	uint i;
	static chan_t savchan;

while(1) {
	for(i=0;i<total_chans && i<MAX_OPTS;i++)
		sprintf(opt[i],"%-25s",chan[i]->name);
	opt[i][0]=0;
	j=WIN_ACT|WIN_SAV|WIN_BOT|WIN_RHT;
	savnum=0;
	if(total_chans)
		j|=WIN_DEL|WIN_GET;
	if(total_chans<MAX_OPTS)
		j|=WIN_INS|WIN_INSACT|WIN_XTR;
	if(savchan.name[0])
		j|=WIN_PUT;
	SETHELP(WHERE);
/*

Multinode Chat Channels:


This is a list of the configured multinode chat channels.

To add a channel, select the desired location with the arrow keys and
hit  INS .

To delete a channel, select it with the arrow keys and hit  DEL .

To configure a channel, select it with the arrow keys and hit  ENTER .
*/
	i=ulist(j,0,0,45,&chan_dflt,&chan_bar,"Multinode Chat Channels",opt);
	if((signed)i==-1)
		return;
	if((i&MSK_ON)==MSK_INS) {
		i&=MSK_OFF;
		strcpy(str,"Open");
		SETHELP(WHERE);
/*

Channel Name:


This is the name or description of the chat channel.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Chat Channel Name",str,25
			,K_EDIT)<1)
            continue;
		sprintf(code,"%.8s",str);
		p=strchr(code,SP);
		if(p) *p=0;
        strupr(code);
		SETHELP(WHERE);
/*

Chat Channel Internal Code:


Every chat channel must have its own unique code for Synchronet to refer
to it internally. This code is usually an abreviation of the chat
channel name.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
			,code,8,K_EDIT|K_UPPER)<1)
			continue;
		if(!code_ok(code)) {
			helpbuf=invalid_code;
			umsg("Invalid Code");
			helpbuf=0;
            continue; }
		if((chan=(chan_t **)REALLOC(chan,sizeof(chan_t *)*(total_chans+1)))
            ==NULL) {
            errormsg(WHERE,ERR_ALLOC,nulstr,total_chans+1);
			total_chans=0;
			bail(1);
            continue; }
		if(total_chans)
			for(j=total_chans;j>i;j--)
				chan[j]=chan[j-1];
		if((chan[i]=(chan_t *)MALLOC(sizeof(chan_t)))==NULL) {
			errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(chan_t));
			continue; }
		memset((chan_t *)chan[i],0,sizeof(chan_t));
		strcpy(chan[i]->name,str);
		strcpy(chan[i]->code,code);
		total_chans++;
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_DEL) {
		i&=MSK_OFF;
		FREE(chan[i]);
		total_chans--;
		for(j=i;j<total_chans;j++)
			chan[j]=chan[j+1];
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_GET) {
		i&=MSK_OFF;
		savchan=*chan[i];
		continue; }
	if((i&MSK_ON)==MSK_PUT) {
		i&=MSK_OFF;
		*chan[i]=savchan;
		changes=1;
        continue; }
    j=0;
	done=0;
	while(!done) {
		k=0;
		sprintf(opt[k++],"%-27.27s%s","Name",chan[i]->name);
		sprintf(opt[k++],"%-27.27s%s","Internal Code",chan[i]->code);
		sprintf(opt[k++],"%-27.27s%lu","Cost in Credits",chan[i]->cost);
		sprintf(opt[k++],"%-27.27s%.40s","Access Requirements"
			,chan[i]->ar);
		sprintf(opt[k++],"%-27.27s%s","Password Protection"
			,chan[i]->misc&CHAN_PW ? "Yes" : "No");
		sprintf(opt[k++],"%-27.27s%s","Guru Joins When Empty"
			,chan[i]->misc&CHAN_GURU ? "Yes" : "No");
		sprintf(opt[k++],"%-27.27s%s","Channel Guru"
			,chan[i]->guru<total_gurus ? guru[chan[i]->guru]->name : "");
        sprintf(opt[k++],"%-27.27s%s","Channel Action Set"
            ,actset[chan[i]->actset]->name);
		opt[k][0]=0;
		SETHELP(WHERE);
/*

Chat Channel Configuration:


This menu is for configuring the selected chat channel.
*/
		savnum=1;
		sprintf(str,"%s Chat Channel",chan[i]->name);
		switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,str,opt)) {
			case -1:
				done=1;
				break;
			case 0:
				SETHELP(WHERE);
/*

Chat Channel Name:


This is the name or description of the chat channel.
*/
				strcpy(str,chan[i]->name);
				if(!uinput(WIN_MID|WIN_SAV,0,10,"Chat Channel Name"
					,chan[i]->name,25,K_EDIT))
					strcpy(chan[i]->name,str);
				break;
			case 1:
				SETHELP(WHERE);
/*

Chat Channel Internal Code:


Every chat channel must have its own unique code for Synchronet to refer
to it internally. This code is usually an abreviation of the chat
channel name.
*/
				strcpy(str,chan[i]->code);
				if(!uinput(WIN_MID|WIN_SAV,0,10,"Internal Code"
					,str,8,K_UPPER|K_EDIT))
					break;
				if(code_ok(str))
					strcpy(chan[i]->code,str);
				else {
					helpbuf=invalid_code;
					umsg("Invalid Code");
                    helpbuf=0; }
                break;
			case 2:
				ultoa(chan[i]->cost,str,10);
                SETHELP(WHERE);
/*

Chat Channel Cost to Join:


If you want users to be charged credits to join this chat channel, set
this value to the number of credits to charge. If you want this channel
to be free, set this value to 
0
.
*/
				uinput(WIN_MID|WIN_SAV,0,0,"Cost to Join (in Credits)"
                    ,str,10,K_EDIT|K_NUMBER);
				chan[i]->cost=atol(str);
                break;
			case 3:
				savnum=2;
				sprintf(str,"%s Chat Channel",chan[i]->name);
				getar(str,chan[i]->ar);
				break;
			case 4:
				k=1;
				strcpy(opt[0],"Yes");
				strcpy(opt[1],"No");
				opt[2][0]=0;
				savnum=2;
				SETHELP(WHERE);
/*

Allow Channel to be Password Protected:


If you want to allow the first user to join this channel to password
protect it, set this option to 
Yes
.
*/
				k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
					,"Allow Channel to be Password Protected"
					,opt);
				if(!k && !(chan[i]->misc&CHAN_PW)) {
					chan[i]->misc|=CHAN_PW;
					changes=1; }
				else if(k==1 && chan[i]->misc&CHAN_PW) {
					chan[i]->misc&=~CHAN_PW;
					changes=1; }
				break;
			case 5:
				k=1;
				strcpy(opt[0],"Yes");
				strcpy(opt[1],"No");
				opt[2][0]=0;
				savnum=2;
				SETHELP(WHERE);
/*

Guru Joins This Channel When Empty:


If you want the system guru to join this chat channel when there is
only one user, set this option to 
Yes
.
*/
				k=ulist(WIN_MID|WIN_SAV,0,0,0,&k,0
					,"Guru Joins This Channel When Empty"
					,opt);
				if(!k && !(chan[i]->misc&CHAN_GURU)) {
					chan[i]->misc|=CHAN_GURU;
					changes=1; }
				else if(k==1 && chan[i]->misc&CHAN_GURU) {
					chan[i]->misc&=~CHAN_GURU;
					changes=1; }
				break;
			case 6:
SETHELP(WHERE);
/*

Channel Guru:


This is a list of available chat Gurus.  Select the one that you wish
to have available in this channel.
*/
				k=0;
				for(j=0;j<total_gurus && j<MAX_OPTS;j++)
					sprintf(opt[j],"%-25s",guru[j]->name);
				opt[j][0]=0;
				savnum=2;
				k=ulist(WIN_SAV|WIN_RHT,0,0,25,&j,0
					,"Available Chat Gurus",opt);
				if(k==-1)
					break;
				chan[i]->guru=k;
				break;
			case 7:
SETHELP(WHERE);
/*

Channel Action Set:


This is a list of available chat action sets.  Select the one that you wish
to have available in this channel.
*/
				k=0;
				for(j=0;j<total_actsets && j<MAX_OPTS;j++)
					sprintf(opt[j],"%-25s",actset[j]->name);
				opt[j][0]=0;
				savnum=2;
				k=ulist(WIN_SAV|WIN_RHT,0,0,25,&j,0
					,"Available Chat Action Sets",opt);
				if(k==-1)
					break;
				changes=1;
				chan[i]->actset=k;
				break; } } }
}

void chatact_cfg(uint setnum)
{
	static int chatact_dflt,chatact_bar;
	char str[128],cmd[128],out[128];
	int j,k;
	uint i,n,chatnum[MAX_OPTS+1];
	static chatact_t savchatact;

while(1) {
	for(i=0,j=0;i<total_chatacts && j<MAX_OPTS;i++)
		if(chatact[i]->actset==setnum) {
			sprintf(opt[j],"%-*.*s %s",LEN_CHATACTCMD,LEN_CHATACTCMD
				,chatact[i]->cmd,chatact[i]->out);
			chatnum[j++]=i; }
	chatnum[j]=total_chatacts;
	opt[j][0]=0;
	savnum=2;
	i=WIN_ACT|WIN_SAV;
	if(j)
		i|=WIN_DEL|WIN_GET;
	if(j<MAX_OPTS)
		i|=WIN_INS|WIN_INSACT|WIN_XTR;
	if(savchatact.cmd[0])
		i|=WIN_PUT;
	SETHELP(WHERE);
/*

Multinode Chat Actions:


This is a list of the configured multinode chat actions.  The users can
use these actions in multinode chat by turning on action commands with
the 
/A
 command in multinode chat.  Then if a line is typed which
begins with a valid 
action command
 and has a user name, chat handle,
or node number following, the output string will be displayed replacing
the 
%s
 symbols with the sending user's name and the receiving user's
name (in that order).

To add an action, select the desired location with the arrow keys and
hit  INS .

To delete an action, select it with the arrow keys and hit  DEL .

To configure an action, select it with the arrow keys and hit  ENTER .
*/
	sprintf(str,"%s Chat Actions",actset[setnum]->name);
	i=ulist(i,0,0,70,&chatact_dflt,&chatact_bar,str,opt);
	savnum=3;
	if((signed)i==-1)
		return;
	if((i&MSK_ON)==MSK_INS) {
		i&=MSK_OFF;
		SETHELP(WHERE);
/*

Chat Action Command:


This is the command word (normally a verb) to trigger the action output.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Action Command",cmd,LEN_CHATACTCMD
			,K_UPPER)<1)
            continue;
		SETHELP(WHERE);
/*

Chat Action Output String:


This is the output string displayed with this action output.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"",out,LEN_CHATACTOUT
			,K_MSG)<1)
            continue;
		if((chatact=(chatact_t **)REALLOC(chatact
            ,sizeof(chatact_t *)*(total_chatacts+1)))==NULL) {
            errormsg(WHERE,ERR_ALLOC,nulstr,total_chatacts+1);
			total_chatacts=0;
			bail(1);
            continue; }
		if(j)
			for(n=total_chatacts;n>chatnum[i];n--)
				chatact[n]=chatact[n-1];
		if((chatact[chatnum[i]]=(chatact_t *)MALLOC(sizeof(chatact_t)))==NULL) {
			errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(chatact_t));
			continue; }
		memset((chatact_t *)chatact[chatnum[i]],0,sizeof(chatact_t));
		strcpy(chatact[chatnum[i]]->cmd,cmd);
		strcpy(chatact[chatnum[i]]->out,out);
		chatact[chatnum[i]]->actset=setnum;
		total_chatacts++;
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_DEL) {
		i&=MSK_OFF;
		FREE(chatact[chatnum[i]]);
		total_chatacts--;
		for(j=chatnum[i];j<total_chatacts && j<MAX_OPTS;j++)
			chatact[j]=chatact[j+1];
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_GET) {
		i&=MSK_OFF;
		savchatact=*chatact[chatnum[i]];
		continue; }
	if((i&MSK_ON)==MSK_PUT) {
		i&=MSK_OFF;
		*chatact[chatnum[i]]=savchatact;
		chatact[chatnum[i]]->actset=setnum;
		changes=1;
        continue; }
	SETHELP(WHERE);
/*

Chat Action Command:


This is the command that triggers this chat action.
*/
	strcpy(str,chatact[chatnum[i]]->cmd);
	if(!uinput(WIN_MID|WIN_SAV,0,10,"Chat Action Command"
		,chatact[chatnum[i]]->cmd,LEN_CHATACTCMD,K_EDIT|K_UPPER)) {
		strcpy(chatact[chatnum[i]]->cmd,str);
		continue; }
	SETHELP(WHERE);
/*

Chat Action Output String:


This is the output string that results from this chat action.
*/
	strcpy(str,chatact[chatnum[i]]->out);
	if(!uinput(WIN_MID|WIN_SAV,0,10,""
		,chatact[chatnum[i]]->out,LEN_CHATACTOUT,K_EDIT|K_MSG))
		strcpy(chatact[chatnum[i]]->out,str); }
}

void guru_cfg()
{
	static int guru_dflt,guru_bar,opt_dflt;
	char str[81],code[9],done=0,*p;
	int j,k;
	uint i;
	static guru_t savguru;

while(1) {
	for(i=0;i<total_gurus && i<MAX_OPTS;i++)
		sprintf(opt[i],"%-25s",guru[i]->name);
	opt[i][0]=0;
	savnum=0;
	j=WIN_ACT|WIN_SAV|WIN_RHT|WIN_BOT;
	if(total_gurus)
		j|=WIN_DEL|WIN_GET;
	if(total_gurus<MAX_OPTS)
		j|=WIN_INS|WIN_INSACT|WIN_XTR;
	if(savguru.name[0])
		j|=WIN_PUT;
	SETHELP(WHERE);
/*

Gurus:


This is a list of the configured Gurus.

To add a Guru, select the desired location with the arrow keys and
hit  INS .

To delete a Guru, select it with the arrow keys and hit  DEL .

To configure a Guru, select it with the arrow keys and hit  ENTER .
*/
	i=ulist(j,0,0,45,&guru_dflt,&guru_bar,"Artificial Gurus",opt);
	if((signed)i==-1)
		return;
	if((i&MSK_ON)==MSK_INS) {
		i&=MSK_OFF;
		SETHELP(WHERE);
/*

Guru Name:


This is the name of the selected Guru.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Guru Name",str,25
			,0)<1)
            continue;
		sprintf(code,"%.8s",str);
		p=strchr(code,SP);
		if(p) *p=0;
        strupr(code);
		SETHELP(WHERE);
/*

Guru Internal Code:


Every Guru must have its own unique code for Synchronet to refer to
it internally. This code is usually an abreviation of the Guru name.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Internal Code"
			,code,8,K_EDIT|K_UPPER)<1)
			continue;
		if(!code_ok(code)) {
			helpbuf=invalid_code;
			umsg("Invalid Code");
			helpbuf=0;
            continue; }
		if((guru=(guru_t **)REALLOC(guru,sizeof(guru_t *)*(total_gurus+1)))
            ==NULL) {
			errormsg(WHERE,ERR_ALLOC,nulstr,total_gurus+1);
			total_gurus=0;
			bail(1);
            continue; }
		if(total_gurus)
			for(j=total_gurus;j>i;j--)
				guru[j]=guru[j-1];
		if((guru[i]=(guru_t *)MALLOC(sizeof(guru_t)))==NULL) {
			errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(guru_t));
			continue; }
		memset((guru_t *)guru[i],0,sizeof(guru_t));
		strcpy(guru[i]->name,str);
		strcpy(guru[i]->code,code);
		total_gurus++;
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_DEL) {
		i&=MSK_OFF;
		FREE(guru[i]);
		total_gurus--;
		for(j=i;j<total_gurus;j++)
			guru[j]=guru[j+1];
		changes=1;
		continue; }
	if((i&MSK_ON)==MSK_GET) {
		i&=MSK_OFF;
		savguru=*guru[i];
		continue; }
	if((i&MSK_ON)==MSK_PUT) {
		i&=MSK_OFF;
		*guru[i]=savguru;
		changes=1;
        continue; }
    j=0;
	done=0;
	while(!done) {
		k=0;
		sprintf(opt[k++],"%-27.27s%s","Guru Name",guru[i]->name);
		sprintf(opt[k++],"%-27.27s%s","Guru Internal Code",guru[i]->code);
		sprintf(opt[k++],"%-27.27s%.40s","Access Requirements",guru[i]->ar);
		opt[k][0]=0;
		savnum=1;
		SETHELP(WHERE);
/*

Guru Configuration:


This menu is for configuring the selected Guru.
*/
		switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,guru[i]->name
			,opt)) {
			case -1:
				done=1;
				break;
			case 0:
				SETHELP(WHERE);
/*

Guru Name:


This is the name of the selected Guru.
*/
				strcpy(str,guru[i]->name);
				if(!uinput(WIN_MID|WIN_SAV,0,10,"Guru Name"
					,guru[i]->name,25,K_EDIT))
					strcpy(guru[i]->name,str);
				break;
			case 1:
SETHELP(WHERE);
/*

Guru Internal Code:


Every Guru must have its own unique code for Synchronet to refer to
it internally. This code is usually an abreviation of the Guru name.
*/
				strcpy(str,guru[i]->code);
				if(!uinput(WIN_MID|WIN_SAV,0,0,"Guru Internal Code"
					,str,8,K_EDIT|K_UPPER))
					break;
				if(code_ok(str))
					strcpy(guru[i]->code,str);
				else {
					helpbuf=invalid_code;
					umsg("Invalid Code");
                    helpbuf=0; }
				break;
			case 2:
				savnum=2;
				getar(guru[i]->name,guru[i]->ar);
				break; } } }
}

void actsets_cfg()
{
    static int actset_dflt,actset_bar,opt_dflt;
    char str[81];
    int j,k,done;
    uint i;
    static actset_t savactset;

while(1) {
	for(i=0;i<total_actsets && i<MAX_OPTS;i++)
		sprintf(opt[i],"%-25s",actset[i]->name);
	opt[i][0]=0;
	j=WIN_ACT|WIN_RHT|WIN_BOT|WIN_SAV;
	savnum=0;
    if(total_actsets)
        j|=WIN_DEL|WIN_GET;
	if(total_actsets<MAX_OPTS)
        j|=WIN_INS|WIN_INSACT|WIN_XTR;
    if(savactset.name[0])
        j|=WIN_PUT;
    SETHELP(WHERE);
/*

Chat Action Sets:


This is a list of the configured action sets.

To add an action set, select the desired location with the arrow keys and
hit  INS .

To delete an action set, select it with the arrow keys and hit  DEL .

To configure an action set, select it with the arrow keys and hit  ENTER .
*/
	i=ulist(j,0,0,45,&actset_dflt,&actset_bar,"Chat Action Sets",opt);
	if((signed)i==-1)
		return;
	if((i&MSK_ON)==MSK_INS) {
		i&=MSK_OFF;
        SETHELP(WHERE);
/*

Chat Action Set Name:


This is the name of the selected chat action set.
*/
		if(uinput(WIN_MID|WIN_SAV,0,0,"Chat Action Set Name",str,25
			,0)<1)
            continue;
        if((actset=(actset_t **)REALLOC(actset,sizeof(actset_t *)*(total_actsets+1)))
            ==NULL) {
            errormsg(WHERE,ERR_ALLOC,nulstr,total_actsets+1);
			total_actsets=0;
			bail(1);
            continue; }
        if(total_actsets)
            for(j=total_actsets;j>i;j--)
                actset[j]=actset[j-1];
        if((actset[i]=(actset_t *)MALLOC(sizeof(actset_t)))==NULL) {
            errormsg(WHERE,ERR_ALLOC,nulstr,sizeof(actset_t));
            continue; }
		memset((actset_t *)actset[i],0,sizeof(actset_t));
        strcpy(actset[i]->name,str);
        total_actsets++;
        changes=1;
        continue; }
	if((i&MSK_ON)==MSK_DEL) {
		i&=MSK_OFF;
        FREE(actset[i]);
        total_actsets--;
        for(j=i;j<total_actsets;j++)
            actset[j]=actset[j+1];
        changes=1;
        continue; }
	if((i&MSK_ON)==MSK_GET) {
		i&=MSK_OFF;
        savactset=*actset[i];
        continue; }
	if((i&MSK_ON)==MSK_PUT) {
		i&=MSK_OFF;
        *actset[i]=savactset;
        changes=1;
        continue; }
    j=0;
    done=0;
    while(!done) {
        k=0;
        sprintf(opt[k++],"%-27.27s%s","Action Set Name",actset[i]->name);
        sprintf(opt[k++],"%-27.27s","Configure Chat Actions...");
		opt[k][0]=0;
        SETHELP(WHERE);
/*

Chat Action Set Configuration:


This menu is for configuring the selected chat action set.
*/
		sprintf(str,"%s Chat Action Set",actset[i]->name);
		savnum=1;
		switch(ulist(WIN_ACT|WIN_MID|WIN_SAV,0,0,60,&opt_dflt,0,str
            ,opt)) {
            case -1:
                done=1;
                break;
            case 0:
                SETHELP(WHERE);
/*

Chat Action Set Name:


This is the name of the selected action set.
*/
                strcpy(str,actset[i]->name);
				if(!uinput(WIN_MID|WIN_SAV,0,10,"Action Set Name"
                    ,actset[i]->name,25,K_EDIT))
                    strcpy(actset[i]->name,str);
                break;
            case 1:
                chatact_cfg(i);
                break; } } }
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.