[Pythianproject-cvsmail] CVS: PythianProject/Source/AIDesigner AIEditorMainForm.dfm,NONE,1.1 AIEditorMainForm.pas,NONE,1.1 stimIcon.bmp,NONE,1.1 AIDesigner.cfg,1.1,1.2 AIDesigner.dpr,1.1,1.2 DesignerEngine.pas,1.3,1.4 frmMain.dfm,1.4,NONE frmMain.pas,1.4,NONE

[Michael H. <mh...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/AIDesigner
In directory slayer.i.sourceforge.net:/tmp/cvs-serv5988/Source/AIDesigner

Modified Files:
	AIDesigner.cfg AIDesigner.dpr DesignerEngine.pas 
Added Files:
	AIEditorMainForm.dfm AIEditorMainForm.pas stimIcon.bmp 
Removed Files:
	frmMain.dfm frmMain.pas 
Log Message:
renamed AI designer form file. Conversation editor mods. -mike

--- NEW FILE ---
ÿ

Font.ColorclWindowTextFont.Heightõ	Font.Name
MS Sans Serif
Font.Style
FormCreate
PixelsPerInch`
TextHeight
ActivePageGUISheetAlignalClientTabOrder
BevelOuterbvNoneCaptionPanel1TabOrder
EditorTreeLeft
ActivePageKeySheetAlignalClientStyle
tsFlatButtonsTabOrder
BlankSheetCaption
BlankSheet
TabVisible
ImageIndex

TabVisible
B
ImageIndex
TabVisible
B
AINameEditLeft*TopWidthí
AINameEditOnChangeAINameEditChange
Font.ColorclYellowFont.Heightõ	Font.Name
MS Sans Serif
Font.Style
ParentFontTabOrderOnChangeAINotesMemoChange
ImageIndex
TabVisible
B
ScriptMemoLeft
Font.ColorclWindowTextFont.Heightõ	Font.NameTahoma
Font.Style
ScriptMemo
ParentFontParentShowHint
ScrollBarsssBothShowHint	TabOrder
WantTabs	OnChangeScriptMemoChange
ImageIndex
TabVisible
B
ImageIndex
TabVisibleOnResizeKeySheetResize
B
B
goVertLine
goHorzLine
goRangeSelect	goEditing
KeyAddDataLeftTop
WidthKHeightAnchorsakLeftakBottom
ImageIndex
TabVisible
Keys used:
B
KeySetListLeftTopRWidth
Height¹
OnDblClickKeySetListDblClick
OnDragDropKeySetListDragDrop
OnDragOverKeySetListDragOverOnResizeKeySetListResizeOnSelectItemKeySetListSelectItem
ImageIndex
TabVisible
ê

&









































B
¯¯¯¯¯¯¯¯¯¯5Open an AIML file or create a new one using the file 5menu. Left click on the node and give the new file a 3name. AIML File names have no relation to their OS 2dependant names, the name given here will be used 6by the AI subsystems to locate and create AIs given a 6universal name. For instance, to get to a shopkeeper, 5the AI id "merchants.shopkeeper" might be used, with 4merchants being the file name, and shopkeeper being the name of an AI in that file.
Known bugs
¯¯¯¯¯¯¯¯¯¯Lots, but none significant;- Let's you fill in blank fields for idealine/goal/key etc.
ScrollBars
ssVerticalTabOrder

ImageIndex
TabVisible
B
goVertLine
goHorzLine
goRangeSelect	goEditing
 Operator Columns
Items.Strings
Addition (+)Subtraction ( - )
ImageIndex

Font.ColorclWindowTextFont.Heightó	Font.NameTahoma
Font.Style
ParentFontReadOnly	TabOrder
Top
NewAIFile1Caption&New AI FileShortCutN@OnClickNewAIFile1Click
Save1Click
Exit1Click
Help2Click
TImageList	TreeIconsLeft*TopBitmap
B


DefaultExt.aimlFilter5AIML Files|*.aiml|XML Files|*.xml|All Files (*.*)|*.*
InitialDir
.TitleOpen AIML fileLeftJTop
TPopupMenu	TreePopupImages	TreeIconsLeft
Top.
Closefile1CaptionClose &fileOnClickClosefile1Click
Goal1Click
DefaultExtaimlFilter2AIML file|*.aiml|XML file|*.xml|Any file (*.*)|*.*
InitialDir
.TitleSave AIML asLeft*Top.
--- NEW FILE ---
unit AIEditorMainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Menus, ExtCtrls, ImgList, StdCtrls, XDOM, VoterAICore, Scripts,
  DataFields, Grids;

const
  DEFAULT_AINAME = 'Unnamed AI';

type
  TMainForm = class(TForm)
    PageControl1: TPageControl;
    GUISheet: TTabSheet;
    Splitter1: TSplitter;
    Panel1: TPanel;
    EditorTree: TTreeView;
[...1000 lines suppressed...]

procedure TMainForm.Save1Click(Sender: TObject);
var aif:TAIFile;
begin
  aif := GetAIFilefromNode(CurrentPageNode);
  try
    aif.save;
  except
    Saveas1Click(self);
  end;
end;

procedure TMainForm.Closefile1Click(Sender: TObject);
begin
  if MessageDlg('Save changes?',mtConfirmation,[mbYes,mbNo],0) = mrYes then Save1Click(sender);
  AIFiles.Delete(AIFiles.IndexOf(CurrentPageObject));
  CurrentPageNode.Delete;
end;

end.

--- NEW FILE ---
BM6
Index: AIDesigner.cfg
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/AIDesigner/AIDesigner.cfg,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** AIDesigner.cfg	2000/08/31 17:29:42	1.1
--- AIDesigner.cfg	2000/09/17 10:46:16	1.2
***************
*** 34,38 ****
  -E"..\..\Bin"
  -N"..\..\Bin\DCU"
- -LN"e:\program files\borland\delphi4\Lib"
  -U"..\Units"
  -O"..\Units"
--- 34,37 ----

Index: AIDesigner.dpr
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/AIDesigner/AIDesigner.dpr,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** AIDesigner.dpr	2000/08/31 17:29:42	1.1
--- AIDesigner.dpr	2000/09/17 10:46:17	1.2
***************
*** 3,7 ****
  uses
    Forms,
!   frmMain in 'frmMain.pas' {MainForm},
    VoterAICore in '..\Units\VoterAICore.pas',
    DesignerEngine in 'DesignerEngine.pas';
--- 3,7 ----
  uses
    Forms,
!   AIEditorMainForm in 'AIEditorMainForm.pas' {MainForm},
    VoterAICore in '..\Units\VoterAICore.pas',
    DesignerEngine in 'DesignerEngine.pas';

Index: DesignerEngine.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/AIDesigner/DesignerEngine.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** DesignerEngine.pas	2000/09/03 14:32:50	1.3
--- DesignerEngine.pas	2000/09/17 10:46:17	1.4
***************
*** 17,25 ****
    AIFiles :TList;
    DesignerTree :TTreeView;
-   
  
  procedure InitDesignerEngine;
  procedure FinalizeDesignerEngine;
! function DesignerLoadFile(FileName:string):integer;
  
  // tree refresh procedures
--- 17,25 ----
    AIFiles :TList;
    DesignerTree :TTreeView;
  
+ 
  procedure InitDesignerEngine;
  procedure FinalizeDesignerEngine;
! function DesignerLoadFile(FileName:string):TAIFile;
  
  // tree refresh procedures
***************
*** 36,40 ****
  
  procedure InitDesignerEngine;
! var
    TestAI: TAIShell;
    TestAIFile :TAIFile;
--- 36,40 ----
  
  procedure InitDesignerEngine;
! {var
    TestAI: TAIShell;
    TestAIFile :TAIFile;
***************
*** 42,46 ****
    K1,K2,K3,K4,K5,K6,K7:TDataKey;
    S:TKeySetShell;
!   IL:TIdeaLineShell;
  begin
    AIFiles := TList.Create;
--- 42,46 ----
    K1,K2,K3,K4,K5,K6,K7:TDataKey;
    S:TKeySetShell;
!   IL:TIdeaLineShell; }
  begin
    AIFiles := TList.Create;
***************
*** 148,152 ****
  procedure RefreshAIFileNode(AIFile:TAIFile; Node:TTreeNode; Recurse:boolean);
  var a:integer;
-     NeedToCreateChild:boolean;
  begin
    Node.Text := AIFile.Name + '  (' + ExtractFileName(AIFile.FileName) + ')';
--- 148,151 ----
***************
*** 256,265 ****
    in XML }
  
! function DesignerLoadFile(FileName:string):integer;
  var
    f:TAIFile;
    a:integer;
  begin
!   Result := -1;
  
    // search for already loaded file
--- 255,264 ----
    in XML }
  
! function DesignerLoadFile(FileName:string):TAIFile;
  var
    f:TAIFile;
    a:integer;
  begin
!   Result := nil;
  
    // search for already loaded file
***************
*** 268,272 ****
      begin
        ShowMessage('File already loaded');
!       Result := 0;
        exit;
      end;
--- 267,271 ----
      begin
        ShowMessage('File already loaded');
!       Result := AIFiles[a];
        exit;
      end;
***************
*** 277,281 ****
    // now update tree
    RefreshAIFileNode(F,DesignerTree.Items.AddObjectFirst(nil,'',F),true);
!   result := 0;
  end;
  
--- 276,281 ----
    // now update tree
    RefreshAIFileNode(F,DesignerTree.Items.AddObjectFirst(nil,'',F),true);
!   f.Generate;
!   result := f;
  end;
  

--- frmMain.dfm DELETED ---

--- frmMain.pas DELETED ---