This has very little REAL function, in fact it slows up processing of scripts and it wastes our time in research and in development, and will most likely NOT be used in a production environment.

But it is kind of cool

So let me show you what I have setup now:

code:

---

$=setconsole("minimize")
$videokey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Hardware Profiles\Current\System\CurrentControlSet\Services\"
$VidCard= enumkey("$videokey",$index)
if @error=0
	$video=$videokey+$VidCard+"\Device0"
	$xres=readvalue("$video","DefaultSettings.XResolution")
	$yres=readvalue("$video","DefaultSettings.YResolution")
else
	$xres=640
	$yres=480
	endif
$xlimit=val($xres)-120
$ylimit=val($yres)-150
? $xlimit $ylimit
$agent_control = "agent.control.2"
$agent_name = "Merlin"
$agent_path = "%windir%\msagent\chars\$agent_name.acs"
$agent_mode = "speak"
$agent = olecreateobject ( "$agent_control" )
$= oleputproperty ( $agent, "connected", "s","1" )
$characters = val ( "&" + olegetproperty ( $agent, "characters" ) )
$= olecallfunc ( $characters, "load", "ss","$agent_name","$agent_path" )
$character = val ( "&" + olecallfunc ( $characters, "character", "s", "$agent_name" ) )
$= olecallfunc ( $character, "show" )
$= olecallfunc ( $character, "play", "s", "announce" )
$= olecallfunc ( $character, "play", "s", "greet" )
$= olecallfunc ( $character, "$agent_mode", "s", "Greetings %username% !" )
sleep 10
$= olecallfunc ( $character, "play", "s", "restpose" )
$= olecallfunc ( $character, "$agent_mode", "s", "My name is $agent_name and "+"this is your logon script ... "  )
sleep 5
$= olecallfunc ( $character, "play", "s", "read" )
$= olecallfunc ( $character, "$agent_mode", "s", "Checking group membership ..." )
$= olecallfunc ( $character, "play", "s", "readreturn" )
sleep 10
$= olecallfunc ( $character, "moveto", "ss", "$xlimit", "0" )
$= olecallfunc ( $character, "play", "s", "domagic1" )
$= olecallfunc ( $character, "$agent_mode", "s", "I summon your network drives" )
$= olecallfunc ( $character, "$agent_mode", "s", "Appear!!" )
$= olecallfunc ( $character, "play", "s", "domagic2" )
sleep 15
$= olecallfunc ( $character, "moveto", "ss", "$xlimit", "$ylimit" )
$= olecallfunc ( $character, "$agent_mode", "s", "Examining your computer" )
$= olecallfunc ( $character, "play", "s", "search" )
sleep 10
$= olecallfunc ( $character, "moveto", "ss", "0", "$ylimit" )
$= olecallfunc ( $character, "play", "s", "wave" )
$= olecallfunc ( $character, "$agent_mode", "s", "All done... have a nice day !" )
$= olecallfunc ( $character, "hide" ) 
sleep 10
$= olecallfunc ( $character, "moveto", "ss", "$xlimit", "0" ) 
$= olecallfunc ( $character, "show" )
$= olecallfunc ( $character, "$agent_mode", "s", "But I'll be watching you..." )
sleep 5
$= olecallfunc ( $character, "hide" )
$= olereleaseobject ( $agent )
sleep 5
exit

---

I even found a santa claus character and a jack o' lantern character that could be useful at a later date...