Mini Kabibi Habibi

Current Path : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/
Current File : C:/Users/ITO/Desktop/VF9/program files/microsoft visual foxpro 9/samples/solution/ffc/agent.sct
6_VERSION =   3.00_agent.hdataenvironmentdataenvironmentDataenvironmentYTop = 0
Left = 0
Width = 0
Height = 0
DataSource = .NULL.
Name = "Dataenvironment"
12frmsolution..\solution.vcxformFrmsolution1&Height = 280
Width = 343
DoCreate = .T.
Caption = "Working with Microsoft Agent"
Name = "Frmsolution1"
C_solutions1.Top = 252
C_solutions1.Left = 228
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 252
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 12
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 324
Shape2.ZOrderSet = 0
Shape2.Name = "Shape2"
Label1.Caption = "Click an Agent Button to show an Agent. You can then perform an action by selecting one from the list on the left and pressing the Play button. You can also have the agent speak some text by typing it in the box below and pressing the Speak button."
Label1.Height = 60
Label1.Left = 19
Label1.Top = 24
Label1.Width = 314
Label1.TabIndex = 13
Label1.ZOrderSet = 3
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 252
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 14
Cmdclose1.ZOrderSet = 4
Cmdclose1.Name = "Cmdclose1"
_agent..\..\..\ffc\_agent.vcxcustom_agentFrmsolution1@Top = 252
Left = 60
Height = 24
Width = 24
Name = "_agent"
listboxlistbox
lbxAnimationsFrmsolution1�FontSize = 8
Height = 96
Left = 12
Sorted = .T.
TabIndex = 6
Top = 96
Width = 120
ZOrderSet = 7
Name = "lbxAnimations"
�PROCEDURE Requery
this.clear()
For Each lcAnimation In thisform._agent.activeAgent.animationNames
	this.addItem(lcAnimation)
EndFor
ENDPROC
>�� %%A%����U=
��C�����������6���C�������UTHISCLEARLCANIMATIONTHISFORM_AGENTACTIVEAGENTANIMATIONNAMESADDITEMRequery,��1��A1�)%
commandbutton
commandbuttoncmdPlayFrmsolution1~Top = 96
Left = 144
Height = 23
Width = 72
FontSize = 8
Caption = "Play"
TabIndex = 7
ZOrderSet = 8
Name = "cmdPlay"
`PROCEDURE Click
thisform._agent.play(Alltrim(thisform.lbxAnimations.DisplayValue))

ENDPROC
��� ��ƀ%����U��CC���������UTHISFORM_AGENTPLAY
LBXANIMATIONSDISPLAYVALUEClick,��1�2U)�
commandbutton
commandbuttoncmdStopFrmsolution1Top = 120
Left = 144
Height = 23
Width = 72
FontSize = 8
Caption = "Stop"
TabIndex = 8
ZOrderSet = 9
Name = "cmdStop"
2PROCEDURE Click
thisform._agent.stop()
ENDPROC
�� ��k�%[pj�U��C�����UTHISFORM_AGENTSTOPClick,��11')�
commandbutton
commandbuttoncmdPeedyFrmsolution1�Top = 120
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Peedy"
TabIndex = 3
ZOrderSet = 10
Name = "cmdPeedy"
PROCEDURE Click
If thisform._agent.load("Peedy","peedy.acs")
  thisform._agent.setActiveAgent("Peedy")	
  thisform._agent.show(Rand() * 400, Rand() * 400)
  thisform.lbxAnimations.Requery()
Else
  =MessageBox( PEEDY_NOT_INSTALLED_LOC, MB_ICONSTOP)
Endif

ENDPROC
*�� �%��	��U1(%�C�Peedy�	peedy.acs�����n���C�Peedy�������CC���C����������C������*����C٥The Peedy character is not installed on this machine. Please install it from the Microsoft Agent web site (http://www.microsoft.com/products/msagent/) and try again.��x���UTHISFORM_AGENTLOADSETACTIVEAGENTSHOW
LBXANIMATIONSREQUERYClick,��1����AA2)
commandbutton
commandbuttoncmdRobbyFrmsolution1�Top = 96
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Robby"
TabIndex = 2
ZOrderSet = 11
Name = "cmdRobby"
PROCEDURE Click
If thisform._agent.load("Robby","Robby.acs")
  thisform._agent.setActiveAgent("Robby")
  thisform._agent.show(Rand() * 400, Rand() * 400)
  thisform.lbxAnimations.Requery()
Else
  =MessageBox(ROBBY_NOT_INSTALLED_LOC, MB_ICONSTOP)
ENDIF

ENDPROC
*�� �%��	��U1(%�C�Robby�	Robby.acs�����n���C�Robby�������CC���C����������C������*����C٥The Robby character is not installed on this machine. Please install it from the Microsoft Agent web site (http://www.microsoft.com/products/msagent/) and try again.��x���UTHISFORM_AGENTLOADSETACTIVEAGENTSHOW
LBXANIMATIONSREQUERYClick,��1����AA2)
commandbutton
commandbuttoncmdGenieFrmsolution1�Top = 168
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Genie"
TabIndex = 5
ZOrderSet = 12
Name = "cmdGenie"
PROCEDURE Click
If thisform._agent.load("Genie","genie.acs")
  thisform._agent.setActiveAgent("Genie")	
  thisform._agent.show(Rand() * 400, Rand() * 400)
  thisform.lbxAnimations.Requery()
Else
  =MessageBox( GENIE_NOT_INSTALLED_LOC, MB_ICONSTOP)
Endif
ENDPROC
*�� �%��	��U1(%�C�Genie�	genie.acs�����n���C�Genie�������CC���C����������C������*����C٥The Genie character is not installed on this machine. Please install it from the Microsoft Agent web site (http://www.microsoft.com/products/msagent/) and try again.��x���UTHISFORM_AGENTLOADSETACTIVEAGENTSHOW
LBXANIMATIONSREQUERYClick,��1����AA1)
commandbutton
commandbutton	cmdMerlinFrmsolution1�Top = 144
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Merlin"
TabIndex = 4
ZOrderSet = 13
Name = "cmdMerlin"
PROCEDURE Click
If thisform._agent.load("Merlin","merlin.acs")
  thisform._agent.setActiveAgent("Merlin")	
  thisform._agent.show(Rand() * 400, Rand() * 400)
  thisform.lbxAnimations.Requery()
Else
  =MessageBox( MERLIN_NOT_INSTALLED_LOC, MB_ICONSTOP)
Endif
ENDPROC
.�� ^�%��	��U5*%�C�Merlin�
merlin.acs�����q���C�Merlin�������CC���C����������C������.����C٦The Merlin character is not installed on this machine. Please install it from the Microsoft Agent web site (http://www.microsoft.com/products/msagent/) and try again.��x���UTHISFORM_AGENTLOADSETACTIVEAGENTSHOW
LBXANIMATIONSREQUERYClick,��1����QA1)
commandbutton
commandbuttoncmdShowTimeFrmsolution1�Top = 168
Left = 144
Height = 23
Width = 72
FontSize = 8
Caption = "Showtime!"
TabIndex = 9
ZOrderSet = 14
Name = "cmdShowTime"
�PROCEDURE Click
With thisform._agent

	If .load("Peedy", "Peedy.acs") And .load("Merlin", "Merlin.acs")
		If .load("Genie", "Genie.acs")
        	If .setActiveAgent("Genie")
        		.hide()
        	Endif
        Endif
  
		If .load("Robby", "Robby.acs")
        	If .setActiveAgent("Robby")
        		.hide()
        	Endif
        EndIf

    	If .setActiveAgent("Peedy")
    		.hide()
    	Endif

    	If .setActiveAgent("Merlin")
    		.hide()
    	Endif

    	.setActiveAgent("Peedy")
    	.show(400,200)

    	.setActiveAgent("Merlin")
    	.show(200,200)
    	.play("Announce")
    	.play("GestureLeft")
    	loMReq = .Speak(ST_M_01_LOC)
    	
    	.setActiveAgent("Peedy")
    	.wait(loMReq)
    	.play("lookright")
    	loPReq = .Speak(ST_P_01_LOC)
    	.play("lookrightreturn")
    	
    	.setActiveAgent("Merlin")
    	.wait(loPReq)
    	.play("Explain")
    	loMReq = .Speak(ST_M_02_LOC)
    	.play("LookLeft")
    	
    	.setActiveAgent("Peedy")
    	.wait(loMReq)
    	.play("think")
    	loPReq = .Speak(ST_P_02_LOC)
    	.play("restpose")
    	
    	.setActiveAgent("Merlin")
    	.wait(loPReq)
    	.play("lookleftreturn")
    	.play("Pleased")
    	.Speak(ST_M_03_LOC)
    	loMReq = .play("surprised")
    	
    	.setActiveAgent("Peedy")
    	.wait(loMReq)
    	.Speak(ST_P_03_LOC)
    	.moveTo(250,200)
    	loPReq = .play("domagic1")
    	.play("domagic2")
    	
    	.setActiveAgent("Merlin")
    	.wait(loPReq)
    	.hide()
    	
    	.setActiveAgent("Peedy")
    	.play("Pleased")
    	.hide()
    Else
    	=MessageBox(SHOWTIME_REQUIREMENTS_LOC, MB_ICONSTOP)
	Endif		
EndWith
ENDPROC
u�� \\�!%�@��U���������B%�C�Peedy�	Peedy.acs��C�Merlin�
Merlin.acs�	����#%�C�Genie�	Genie.acs�����%�C�Genie�������C�����#%�C�Robby�	Robby.acs�����%�C�Robby�������C�����%�C�Peedy������C����%�C�Merlin���5���C������C�Peedy�����C���������C�Merlin�����C��������C�Announce�����C�GestureLeft���5T��C�#Why did the chicken cross the road?�����C�Peedy�����C��	����C�	lookright���/T�
�C�Are you calling me a chicken?�����C�lookrightreturn�����C�Merlin�����C�
�	����C�Explain���FT��C�4I'm just asking, why did the chicken cross the road?�����C�LookLeft�����C�Peedy�����C��	����C�think���$T�
�C�I don't know. Why?�����C�restpose�����C�Merlin�����C�
�	����C�lookleftreturn�����C�Pleased���.��C� You tell me! You're the chicken!���T��C�	surprised�����C�Peedy�����C��	��/��C�!I don't have to put up with this.�����C�������T�
�C�domagic1�����C�domagic2�����C�Merlin�����C�
�	����C�����C�Peedy�����C�Pleased�����C���������C��The Showtime button requires both the Peedy and Merlin characters to be installed on this machine. Please install them from the Microsoft Agent web site (http://www.microsoft.com/products/msagent/) and try again.��x�����UTHISFORM_AGENTLOADSETACTIVEAGENTHIDESHOWPLAYLOMREQSPEAKWAITLOPREQMOVETOClick,��1"1q�AA2q�AAr�A��A2!Ba�Q2�q��B�Qaa2�1AaB��Q��2���aB��2Q��1AA1�)\textboxtextboxtxtSpeakFrmsolution1�FontSize = 8
Alignment = 3
Value = ("hello")
Height = 23
Left = 12
TabIndex = 10
Top = 204
Width = 240
ZOrderSet = 15
Name = "txtSpeak"

commandbutton
commandbuttoncmdSpeakFrmsolution1�Top = 204
Left = 264
Height = 23
Width = 72
FontSize = 8
Caption = "Speak"
TabIndex = 11
ZOrderSet = 16
Name = "cmdSpeak"
QPROCEDURE Click
thisform._agent.speak(this.parent.txtSpeak.value)


ENDPROC
��� ����%����U��C���������UTHISFORM_AGENTSPEAKTHISPARENTTXTSPEAKVALUEClick,��1�3F)�kArial, 0, 9, 5, 15, 12, 32, 3, 0
MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0
Arial, 0, 8, 5, 14, 11, 30, 3, 0
+_agent.h6�`�3-..\..\..\foxpro.h>��,?Height = 280
Width = 343
DoCreate = .T.
Caption = "Working with Microsoft Agent"
Name = "Frmsolution1"
C_solutions1.Top = 252
C_solutions1.Left = 228
C_solutions1.Name = "C_solutions1"
Behindscenes1.Top = 252
Behindscenes1.Left = 12
Behindscenes1.TabIndex = 12
Behindscenes1.ZOrderSet = 2
Behindscenes1.Name = "Behindscenes1"
Shape2.Top = 12
Shape2.Left = 12
Shape2.Height = 72
Shape2.Width = 324
Shape2.ZOrderSet = 0
Shape2.Name = "Shape2"
Label1.Caption = "Click an Agent Button to show an Agent. You can then perform an action by selecting one from the list on the left and pressing the Play button. You can also have the agent speak some text by typing it in the box below and pressing the Speak button."
Label1.Height = 60
Label1.Left = 19
Label1.Top = 24
Label1.Width = 314
Label1.TabIndex = 13
Label1.ZOrderSet = 3
Label1.Name = "Label1"
Label4.TabIndex = 1
Label4.ZOrderSet = 5
Label4.Name = "Label4"
Cmdclose1.Top = 252
Cmdclose1.Left = 264
Cmdclose1.TabIndex = 14
Cmdclose1.ZOrderSet = 4
Cmdclose1.Name = "Cmdclose1"

HelpContextID = 1231624