[Pythianproject-cvsmail] CVS: PythianProject/Source/Conversation/Interpreter/second frmMain.dfm,1.2,1.3 frmMain.pas,1.2,1.3

[Kamil K. <kkr...@us...>]

Update of /cvsroot/pythianproject/PythianProject/Source/Conversation/Interpreter/second
In directory slayer.i.sourceforge.net:/tmp/cvs-serv4043

Modified Files:
	frmMain.dfm frmMain.pas 
Log Message:
kk 
now the NPC speech in the output memo is bold and blue and you can choose
what conversation you want to play (if more than 1 are available)


Index: frmMain.dfm
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Conversation/Interpreter/second/frmMain.dfm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
Binary files /tmp/cvsAerdBX and /tmp/cvsWoG7QK differ

Index: frmMain.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Conversation/Interpreter/second/frmMain.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** frmMain.pas	2000/09/17 11:37:07	1.2
--- frmMain.pas	2000/09/18 19:38:26	1.3
***************
*** 6,10 ****
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls, ExtCtrls, XDOM, conversationObjectsUnit, OleCtrls, HTTSLib_TLB,
!   Spin;
  
  type
--- 6,10 ----
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    StdCtrls, ExtCtrls, XDOM, conversationObjectsUnit, OleCtrls, HTTSLib_TLB,
!   Spin, ComCtrls;
  
  type
***************
*** 14,18 ****
      pnlBottom: TPanel;
      Label2: TLabel;
-     OutMemo: TMemo;
      pnlControl: TPanel;
      btnStart: TButton;
--- 14,17 ----
***************
*** 31,34 ****
--- 30,35 ----
      CheckBox1: TCheckBox;
      SpellTimer: TTimer;
+     OutMemo: TRichEdit;
+     Shape1: TShape;
      procedure btnStartClick(Sender: TObject);
      procedure FormCreate(Sender: TObject);
***************
*** 107,110 ****
--- 108,114 ----
  
  procedure Tfrm_Main.LoadXML;
+ var
+   i: Integer;
+   s: string;
  begin
    try
***************
*** 120,124 ****
    // turn currentXMLDoc into conversation objects
    TranslateDOMToConvTree(currentXMLDoc);
!   curConv := ConversationEngine.Conversations[0];
  end;
  
--- 124,147 ----
    // turn currentXMLDoc into conversation objects
    TranslateDOMToConvTree(currentXMLDoc);
!   i := 0;
!   if ConversationEngine.Conversations.Count > 1 then
!   begin
!     i := ConversationEngine.Conversations.Count;
!     s := InputBox('Conversation', 'Which conv. should be runned (0..' +
!            IntToStr(i-1) + '): ', '0');
!     try
!       i := StrToInt(s);
!       if (i < 0) or (i > ConversationEngine.Conversations.Count -  1) then
!         raise Exception.Create('Integer value not in range!');
!     except
!       on E:Exception do
!       begin
!         i := 0;
!         ShowMessage('Bad value (choosing conversation number 0)'+#13#10+E.Message);
!       end;
!     end;
!   end;
! 
!   curConv := ConversationEngine.Conversations[i];
  end;
  
***************
*** 154,159 ****
  
  procedure Tfrm_Main.DisplayThis;
  begin
!   OutMemo.Lines.Append(LogLine);
  end;
  
--- 177,199 ----
  
  procedure Tfrm_Main.DisplayThis;
+ var
+   s: string;
  begin
!   OutMemo.SelLength := 0;
!   if curObj is TNPCSpeech then
!   begin
!     OutMemo.SelAttributes.Color := clNavy;
!     OutMemo.SelAttributes.Style := [fsBold, fsUnderline]
!   end else
!   if curObj is TPlayerOption then
!   begin
!     OutMemo.SelAttributes.Style := [fsBold];
!   end;
!   s := LogLine;
!   if Trim(s) <> '' then
!     OutMemo.Lines.Add(s);
! 
!   OutMemo.SelAttributes.Style := [];
!   OutMemo.SelAttributes.Color := clBlack;
  end;
  
***************
*** 161,165 ****
  begin
    Result := curObj.ReturnStrRepr;
!   
    if curObj is TConversation then
      Result := 'System: Conversation Data'
--- 201,205 ----
  begin
    Result := curObj.ReturnStrRepr;
! 
    if curObj is TConversation then
      Result := 'System: Conversation Data'