<html>

<head>
<title>Test the Pikachu Character</title>
<meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type">
<meta content="Microsoft FrontPage 5.0" name="GENERATOR">
</head>

<body bgColor="#ffffff">
<div align="center"><center>

<table border="0" cellPadding="5" width="90%">
<tbody>
  <tr>
    <td><p align="center">&nbsp;
      <OBJECT id=Agent codeBase=#VERSION=2,0,0,0 
      classid=CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F width=0 
      height=0></OBJECT>
      <OBJECT id=TruVoice codeBase=#VERSION=6,0,0,0 
      classid=clsid:B8F2846E-CE36-11D0-AC83-00C04FD97575 
      data=data:application/x-oleobject;base64,boTyuDbO0BGsgwDAT9l1dQADAAAAAAAAAAAAAA== 
      width=14 height=14></OBJECT>
    &nbsp; 
<script language="VBScript">
</script>

<script language="JavaScript">
<!--

function SymError()
{
  return true;
}

window.onerror = SymError;

var SymRealWinOpen = window.open;

function SymWinOpen(url, name, attributes)
{
  return (new Object());
}

window.open = SymWinOpen;

//-->
</script>

<script language="VBScript"><!--

Dim Bonzi
Dim LoadRequestUNC
Dim LoadRequestURL
Dim GetShowAnimation
Dim BonziState
Dim rqUnload

Sub Window_OnLoad
	' Load the character
	LoadCharacter
End Sub

Sub DoIntro
	' Set the character's language ID
	Bonzi.LanguageID = &H0409

	' Make the character appear
	On Error Resume Next
	BonziState = ""
	Bonzi.Moveto 10,00
	Bonzi.Show

	' Start the monologue
	Bonzi.Play "Explain"
	Bonzi.Play "Greet"
	Bonzi.Speak "Hi i'm Pikachu!"
	Bonzi.Play "PleasedHard"
	Bonzi.Speak "I can do different things like check mail"
	Bonzi.Play "MailCheck"
	Bonzi.Play "MailCheckFull"
	Bonzi.Play "MailReturn"
	Bonzi.Speak "Use Thunderbolt"
	Bonzi.Play "DoMagic1"
	Bonzi.Speak "Search for files"
	Bonzi.Play "Searching"
	Bonzi.Speak "Write"
	Bonzi.Play "Writing"
	Bonzi.Speak "Read"
	Bonzi.Play "Reading"
	Bonzi.Speak "Save"
	Bonzi.Play "Save"
	Bonzi.Speak "Print"
	Bonzi.Play "Print"
	Bonzi.Speak "Give you a Award"
	Bonzi.Play "Congratulate"
	Bonzi.Speak "and much much more!"
	Bonzi.Play "Announce"
	Bonzi.Speak "I can also be you Office assistant in Microsoft Word"
	Bonzi.Play "Announce"
	Bonzi.Speak "To make me your Office assistant character you first need Microsoft Office 2000 or higher"
	Bonzi.Speak "Then open a Microsoft Office program like Microsoft Word and then right click your current Office Assistant character"
	Bonzi.Speak "Then click choose assistant, and then choose Pikachu"
	Bonzi.Speak "then I will come up to help you with Microsoft office."
	Bonzi.Play "DoMagic2"
	Set rqUnload = Bonzi.Speak ("I can't wait to help you!")	
	
End Sub


Sub Agent_RequestComplete(ByVal Request)

' The Request to load the ACF character fails 
If Request = LoadRequestURL Then
	
	' If it failed
	If Request.Status = 1 Then
		Msgbox "Bonzi could not be loaded. The server may be busy. Try refreshing this page."
		Exit Sub
		
	' If it succeeded
	ElseIf Request.Status = 0 Then
		' Assign Bonzi to the loaded character
		Set Bonzi = Agent.Characters("Bonzi")
		' Get the preliminary animations necessary to show Bonzi
		Set GetShowAnimation = Bonzi.Get ("state", "showing, speaking")
		Bonzi.Get "animation", "MoveDown, GestureDown, Suggest, Blink, Greet, Pleased, Explain, Think, GestureRight, Idle1_1, Idel2_1, Idle2_2, Announce, Uncertain", False
		
	End If

' The request to get the animation 
ElseIf Request = GetShowAnimation Then
	' If it failed 
	If Request.Status = 1 Then
		Msgbox "Request to load the Show animation failed. The server may be busy."
		Exit Sub
	' If it succeeded
	ElseIf Request.Status = 0 Then
		DoIntro
	End If
	
ElseIf Request = rqUnload Then
	'Unload character
	agent.Characters.Unload "Bonzi"
	
End If
End Sub


Sub LoadCharacter
	On Error Resume Next
	Set LoadRequestUNC = Agent.Characters.Load ("Pikachu", "Pikachu.acs")
	Set Bonzi = Agent.Characters("Pikachu")
	DoIntro
End Sub


Sub EvaluateEvent
	on error resume next
	Select Case BonziState
		Case "FinishedIntro"
	Bonzi.Play "Explain"
	Bonzi.Play "Greet"
	Bonzi.Speak "Hi i'm Pikachu!"
	Bonzi.Play "PleasedHard"
	Bonzi.Speak "I can do different things like check mail"
	Bonzi.Play "MailCheck"
	Bonzi.Play "MailCheckFull"
	Bonzi.Play "MailReturn"
	Bonzi.Speak "Use Thunderbolt"
	Bonzi.Play "DoMagic1"
	Bonzi.Speak "Search for files"
	Bonzi.Play "Searching"
	Bonzi.Speak "Write"
	Bonzi.Play "Writing"
	Bonzi.Speak "Read"
	Bonzi.Play "Reading"
	Bonzi.Speak "Save"
	Bonzi.Play "Save"
	Bonzi.Speak "Print"
	Bonzi.Play "Print"
	Bonzi.Speak "Give you a Award"
	Bonzi.Play "Congratulate"
	Bonzi.Speak "and much much more!"
	Bonzi.Play "Announce"
	Bonzi.Speak "I can also be you Office assistant in Microsoft Word"
	Bonzi.Play "Announce"
	Bonzi.Speak "To make me you Office assistant you first need Microsoft Office 2000 or higher"
	Bonzi.Speak "Then open a Mocrosoft Office program like Microsoft Word and then right click your current Office Assistant charactor"
	Bonzi.Speak "Then click choose assistant, and then choose Pikachu"
	Bonzi.Speak "then I will come up to help you with Microsoft office."
	Bonzi.Play "DoMagic2"
	Set rqUnload = Bonzi.Speak ("I can't wait to help you!")
			
		Case Else
			Bonzi.Stop
			Bonzi.Play "Alert"
			Bonzi.Speak "Pi-Pikachu!|Pikachu!|\pit=170\Hee hee hee!"
			Bonzi.Play "Blink"
	End Select
End Sub

Sub Agent_Click (ByVal CharacterID, ByVal Button, ByVal Shift, ByVal X, ByVal Y)
	EvaluateEvent
End Sub

Sub Agent_Move (ByVal CharacterID, ByVal X, ByVal Y, ByVal Cause)
	if Bonzi.MoveCause = 1 then
		EvaluateEvent
	end if
End Sub

--></script> <p align=center><h1>Pikachu Character version 1.0</h1></p>
<p>This HTML document is ment to test if the Pikachu character works.</p>
<h2>How to make Pikachu your Office Assistant</h2>
<p>To make Pikachu your Office Assistant you first need Microsoft Office 2000 or higher</p>
<img src="step1pikachu.jpg" align=right><p>Then you start a Microsoft office program like Microsoft Word then you right click your current Office assistant character and then click Choose Assistant</p>
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<img src="step2pikachu.jpg" align=right><p>Then pick Pikachu</p>
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<p>&nbsp;
<img src="step3pikachu.jpg" align=right><p>Then Pikachu will show up to help you</p>


<p></p>
<div align="center"><center>

<table border="0" cellPadding="2" width="90%">
<tbody>
</tbody>
</table>
</center></div>
</body>
</html>
<script language="JavaScript">
<!--
var SymRealOnLoad;
var SymRealOnUnload;

function SymOnUnload()
{
  window.open = SymWinOpen;
  if(SymRealOnUnload != null)
     SymRealOnUnload();
}

function SymOnLoad()
{
  if(SymRealOnLoad != null)
     SymRealOnLoad();
  window.open = SymRealWinOpen;
  SymRealOnUnload = window.onunload;
  window.onunload = SymOnUnload;
}

SymRealOnLoad = window.onload;
window.onload = SymOnLoad;

//-->
</script>