/*****************************************************************
関数名 : GameEdit
機能 : 武器編集の処理
引数 : なし
出力 : ゲームの状態
*****************************************************************/
int GameEdit()
{
InitEdit();
while(gState == GAME_EDIT) {
InputKey();
DrawEdit();
}
return gState;
}
//------------------------------------------------------------------------------
CGUIWgtEdit::CGUIWgtEdit(const CGUIString& rName, const CGUIString& rSceneName )
:CGUIWidget(ms_strType, rName, rSceneName)
{
InitEdit();
}
/* InvokeXLISP - invoke the xlisp interpreter */
int InvokeXLISP(xlCallbacks *callbacks,int argc,char *argv[])
{
xlSubrDef *sdp;
xlXSubrDef *xsdp;
/* initialize xlisp */
if (!xlInit(callbacks,argc,argv,NULL)) {
Error("initializing xlisp");
return FALSE;
}
/* set our platform type */
xlSetSoftwareType("WIN95");
/* add all of our functions */
for (sdp = subrtab; sdp->name != NULL; ++sdp)
xlSubr(sdp->name,sdp->subr);
for (xsdp = xsubrtab; xsdp->name != NULL; ++xsdp)
xlXSubr(xsdp->name,xsdp->subr);
/* initialize the widget classes */
InitWidgets();
/* initialize the window classes */
InitWindows();
/* initialize the canvas class */
InitCanvas();
/* initialize the menu classes */
InitMenus();
/* initialize the edit classes */
InitEdit();
/* initialize the toolbar routines */
InitToolbars();
/* initialize the accelerator routines */
InitAccelerators();
/* initialize the listener routines */
InitListener();
/* initialize the miscellaneous routines */
InitMisc();
/* setup the *command-line* variable */
xlVal = xlMakeCString((char *)GetCommandLine());
xlSetValue(xlEnter("*COMMAND-LINE*"),xlVal);
/* load the lisp code */
xlLoadFile("xlispw.lsp");
/* display the banner */
xlInfo("%s",xlBanner());
/* display the initial prompt */
xlCallFunctionByName(NULL,0,"LISTENER-PROMPT",0);
/* flush terminal output */
xlosFlushOutput();
/* return successfully */
return TRUE;
}
BOOL CNumberLimitEdit::InitEdit(int nDefault, int nMin, int nMax, UINT nErrorMsgID, UINT nTitleID)
{
CString strTitle;
strTitle.LoadString(nTitleID);
return InitEdit(nDefault, nMin, nMax, nErrorMsgID, strTitle);
}
