Gammon Forum

' do stuff
dim jfw
set jfw = CreateObject("jfwapi")

sub OnPluginEnable()
jfw.SayString "plugin enabled!  ready.", 0
end sub

sub OnPluginConnect
jfw.SayString "World connected.", 0
end sub

sub OnPluginClose
jfw.SayString "goodbye.", 0
end sub

sub OnPluginDisconnect
jfw.SayString "world disconnected!", 0
end sub

sub OnPluginDisable
jfw.SayString "disabled.", 0
end sub

Function OnPluginLineReceived (sText)
jfw.SayString cStr(sText), 0
  OnPluginLineReceived = vbTrue  ' display it
End Function

' useful for triggers:
public sub saystring(string, important)
' string is the string to speak.
' important: set to 1 to stop speaking of other text and begin reading this right away.  
' set to 0 to speak this text after other reading is done.
' for example, set important to 1 to stop reading an area description when making a trigger 
' to match when an enimy enters the area
jfw.SayString string, important
end sub

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Saturday, November 05, 2005, 8:53 PM -->
<!-- MuClient version 3.68 -->

<!-- Plugin "jfw" generated by Plugin Wizard -->

<muclient>
<plugin
   name="jfw"
   author="Tyler Spivey"
   id="f4a3e103c1d8715efa157b23"
   language="VBscript"
   purpose="speaks incoming text using jfw."
   date_written="2005-11-05 20:53:14"
   requires="3.68"
   version="1.0"
   >

</plugin>

<!--  Triggers  -->
<aliases>
  <alias
   script="togglespeaking"
   match="jfw"
   enabled="y"
   group="speech"
   omit_from_command_history="y"
   omit_from_log="y"
   omit_from_output="y"
   sequence="100"
  >
  </alias>
</aliases>

<triggers>
</triggers>

<!--  Script  -->


<script>
<![CDATA[

dim jfwobject
dim speak 'do we want to speak?

sub toggleSpeaking (name, line, wc)
  if speak = 1 then
    speak = 0
    jfwobject.sayString "jfw auto speak off.", 0
  else
    speak = 1
    jfwobject.sayString "jfw auto speak on.",0
  end if
end sub

sub OnPluginInstall
  set jfwobject = CreateObject("jfwapi")
  jfwobject.sayString "jfw speech is ready to rock!",0
  speak = 1
end sub

sub OnPluginScreendraw (t, log, line)
  if (t = 0 or t = 1)  and speak = 1 then
    jfwobject.sayString line, 0
  end if
end sub
  
sub OnPluginBroadcast (msg, id, name, text)
  if msg = 222 then
    jfwobject.sayString text,0
  end if
end sub
]]>
</script>


</muclient>

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Saturday, November 05, 2005, 8:53 PM -->
<!-- MuClient version 3.68 -->

<!-- Plugin "jfw" generated by Plugin Wizard -->

<muclient>
<plugin
   name="sapi_speaker"
   author="Tyler Spivey"
   id="539af5868ca499f001d47b55"
   language="VBscript"
   purpose="speaks incoming text using jfw."
   date_written="2007-04-14"
   requires="3.68"
   version="1.0"
   >

</plugin>

<!--  Triggers  -->
<aliases>
  <alias
   script="togglespeaking"
   match="jfw"
   enabled="y"
   group="speech"
   omit_from_command_history="y"
   omit_from_log="y"
   omit_from_output="y"
   sequence="100"
  >
  </alias>
</aliases>

<triggers>
</triggers>

<!--  Script  -->


<script>
<![CDATA[

dim jfwobject
dim speak 'do we want to speak?

sub toggleSpeaking (name, line, wc)
  if speak = 1 then
    speak = 0
    jfwobject.Speak "sapi auto speak off.", 1
  else
    speak = 1
    jfwobject.Speak "sapi auto speak on.",1
  end if
end sub

sub OnPluginInstall
  set jfwobject = CreateObject("SAPI.SpVoice")
  jfwobject.Speak "sapi speaker is ready to rock!",1
  speak = 1
end sub

sub OnPluginScreendraw (t, log, line)
  if (t = 0 or t = 1)  and speak = 1 then
    jfwobject.Speak line, 1
  end if
end sub
  
sub OnPluginBroadcast (msg, id, name, text)
  if msg = 222 then
    jfwobject.Speak text,1
  end if
end sub
]]>
</script>


</muclient>