We hope you enjoy your visit.

You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
[code] Wizard; yet code for your website; By Icy-gal
Topic Started: Jan 25 2010, 09:17 AM (118 Views)
Reid
Member Avatar
una trappola!

This topic has been moved from our official support board.

Originally posted by: Icy-gal
[code
 
Wizard; yet code for your website]code from here

very kool code that makes a wizard appear on the screen and talk to your guests. i havent been able to get it to work on my forum, cause its to big. but it works great on websites! :w00t:

enter code here for preview
Code:
 
<html>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="190;URL=main.htm">
<title>:page title:</title>
</head>

<body bgcolor="black"><center><!--msnavigation--><table dir="ltr" border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">

<table style="margin:16 0; background:buttonface; color: buttontext; border: 2px outset; display:none; width: 100%; font-style:normal; font-variant:normal; font-weight:normal; font-size:8pt; font-family:Verdana; padding-left:8; padding-right:8; padding-top:1; padding-bottom:3">
<tr>
<td>
<div <B ID="MyAgentObject">
</div>
<script language="VBScript">
Public Agent, Char, AnUnlikelyRequestName, Playing, Path, ScreenOrgX, ScreenOrgY, PointFactor, RestFactor, DownloadButton
PreferredLanguage = "VBScript"

AltCharPaths = 1

NoLocal = False

MyFirstTime = True

PlayedOnce = False

ModCharID = "EmptyForNow"

Spanish = 1034

English = 1033

on error resume next

sub window_onload

ScreenOrgX = window.event.screenX - window.event.clientX
ScreenOrgY = window.event.screenY - window.event.clientY

playing = false

if ( agentstart.selectedindex >= 0 ) and ( agentstart.selectedindex < 5 ) then DownloadButton = "center"
if ( agentstart.selectedindex > 4 ) and ( agentstart.selectedindex < 9 ) then DownloadButton = "left"
if ( agentstart.selectedindex > 8 ) and ( agentstart.selectedindex < 13 ) then DownloadButton = "right"

select case agentstart.selectedindex
case 0
DoAgent
case 1
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 2
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 3
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=center><button id=StartAgent>Click here to replay the animated presentation</button></p>"
end select
DoAgent
case 4
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=center><button id=StartAgent>Click here to replay the animated presentation</button></p>"
end select
DoAgent
case 5
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 6
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 7
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=left><button id=StartAgent>Click here to replay the animated presentation</button></p>"
end select
DoAgent
case 8
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=left><button id=StartAgent>Click here to replay animated presentation</button></p>"
end select
DoAgent
case 9
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 10
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Tecleo aquí para animada una presentación</button></p>"
Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Click here for an animated presentation</button></p>"
end select
case 11
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "AfterBegin","<p align=right><button id=StartAgent>Click here to replay the animated presentation</button></p>"
end select
DoAgent
case 12
select Case AgentLanguage.SelectedIndex
Case 0 : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Haga clic aquí para jugar de nuevo animada la presentación</button></p>"
Case else : document.body.insertAdjacentHTML "BeforeEnd","<p align=right><button id=StartAgent>Click here to replay the animated presentation</button></p>"
end select
DoAgent
end select

end sub

sub document_onclick

if window.event.srcelement.id = "StartAgent" then DoAgent

end sub

Sub DoAgent

select Case AgentLanguage.SelectedIndex
Case 0 : Window.Status = "Instalando software lógica de Microsoft, sea paciente, conteste SÍ a las guías entonces Re-Click al botón o recargue por favor esta paginación."
Case else: Window.Status = "Installing Software From Microsoft, please be patient, answer YES to Prompts then Re-Click The Button or Re-Load this Page."
end select

if MyFirstTime then

MyAgentObject.insertAdjacentHTML "AfterBegin","<Object ID=" & Chr(34) & "Agent" & Chr(34) & " Width=32 Height=32 ClassID=" & Chr(34) & "CLSID:D45FD31B-5C6E-11D1-9EC1-00C04FD7081F" & Chr(34) & "CodeBase=" & Chr(34) & "#VERSION=2,0,0,0" & Chr(34) & ">" & "</Object>"

select Case AgentLanguage.SelectedIndex
Case 0
MyAgentObject.insertAdjacentHTML "AfterBegin","<OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:0C7F3F20-8BAB-11d2-9432-00C04F8EF48F" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=4,0,0,0" & Chr(34) & ">" & "</OBJECT>"
MyAgentObject.insertAdjacentHTML "BeforeEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:C3480C0A-A7F8-11D1-AA75-00C04FA34D72" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=2,0,0,0" & Chr(34) & ">" & "</OBJECT>"
MyAgentObject.insertAdjacentHTML "AfterEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:1D87F5B9-05F1-11d2-AD7C-0000F8799342" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=1,0,0,0" & Chr(34) & ">" & "</OBJECT>"
Case 1
MyAgentObject.insertAdjacentHTML "BeforeEnd","<Object ID=" & Chr(34) & "TruVoice" & Chr(34) & "Width=32 Height=32 ClassID=" & Chr(34) & "CLSID:B8F2846E-CE36-11D0-AC83-00C04FD97575" & Chr(34) & "CodeBase=" & Chr(34) & "#VERSION=6,0,0,0" & Chr(34) & ">" & "</Object>"
Case 2
MyAgentObject.insertAdjacentHTML "AfterBegin","<OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:0C7F3F20-8BAB-11d2-9432-00C04F8EF48F" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=4,0,0,0" & Chr(34) & ">" & "</OBJECT>"
MyAgentObject.insertAdjacentHTML "AfterEnd"," <OBJECT WIDTH=0 HEIGHT=0 CLASSID=" & Chr(34) & "CLSID:1D87F5B2-05F1-11d2-AD7C-0000F8799342" & Chr(34) & "CODEBASE=" & Chr(34) & "#VERSION=1,0,0,0" & Chr(34) & ">" & "</OBJECT>"
end select

MyFirstTime = False

end if

if not playing and AgentText.innerText <> "" then
on error resume next

Set Agent = CreateObject("Agent.Control.2")

if err.number <> 0 then exit sub

Agent.Connected = True

for x = 0 to 5

select Case AgentBox.SelectedIndex
Case 0 :CharID = "PM_Green" : CharFile = "PM_Green.acs" : LCharFile = "PM_Green.acf" : AltCharPaths = 0 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array( 1, 2, 3, 4, 5,10) : Path = "http://www.fyi-net.com/msagent/"
Case 1 :CharID = "Merlin" : CharFile = "Merlin.acs" : LCharFile = "merlin/merlin.acf" : AltCharPaths = 0 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array( 0, 2, 3, 4, 6,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 2 :CharID = "Genie" : CharFile = "Genie.acs" : LCharFile = "genie/genie.acf" : AltCharPaths = 0 : RestFactor = 0.95 : PointFactor = 0.133 : NextSelection = array( 0, 1, 3, 4, 7,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 3 :CharID = "Peedy" : CharFile = "Peedy.acs" : LCharFile = "peedy/peedy.acf" : AltCharPaths = 0 : RestFactor = 0.92 : PointFactor = 0.111 : NextSelection = array( 0, 1, 2, 4, 8,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 4 :CharID = "Robby" : CharFile = "Robby.acs" : LCharFile = "robby/robby.acf" : AltCharPaths = 0 : RestFactor = 0.94 : PointFactor = 0.111 : NextSelection = array( 0, 1, 2, 3, 9,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 5 :CharID = "PM_Green" : CharFile = "PM_Green.acs" : LCharFile = "PM_Green.acf" : AltCharPaths = 1 : RestFactor = 0.90 : PointFactor = 0.333 : NextSelection = array(10,10,10,10,10,10) : Path = "http://www.fyi-net.com/msagent/"
Case 6 :CharID = "Merlin" : CharFile = "Merlin.acs" : LCharFile = "merlin/merlin.acf" : AltCharPaths = 1 : RestFactor = 0.55 : PointFactor = 0.333 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 7 :CharID = "Genie" : CharFile = "Genie.acs" : LCharFile = "genie/genie.acf" : AltCharPaths = 1 : RestFactor = 0.95 : PointFactor = 0.133 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 8 :CharID = "Peedy" : CharFile = "Peedy.acs" : LCharFile = "peedy/peedy.acf" : AltCharPaths = 1 : RestFactor = 0.92 : PointFactor = 0.111 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/"
Case 9 :CharID = "Robby" : CharFile = "Robby.acs" : LCharFile = "robby/robby.acf" : AltCharPaths = 1 : RestFactor = 0.94 : PointFactor = 0.111 : NextSelection = array(10,10,10,10,10,10) : Path = "http://agent.microsoft.com/agent2/chars/"
end select

if x = 0 then SavedSelection = NextSelection

for i = 0 to AltCharPaths

err.clear

if i < 1 then
Agent.Characters.Load CharID, CharFile
else
Agent.Characters.Load CharID, Path & LCharFile
end if

if err.number = 0 then
If i = 1 then
NoLocal = True
select Case AgentLanguage.SelectedIndex
Case 0 : Window.Status = "El Cargar O El Controlar Si hay Secuencias Del Carácter Para " & CharID & " Sea Por favor Paciente."
Case else : Window.Status = "Loading Or Checking For Character Sequences For " & CharID & " Please Be Patient."
end select
end if
exit for
end if

next

if err.number <> 0 then
if SavedSelection(x) = 10 then
select Case AgentLanguage.SelectedIndex
Case 0 : msgbox "Este carácter no fue encontrado en ningunas de las localizaciones generalmente. Intente otro carácter, o selecciónelo de la opción de Microsoft para que este carácter cargue de microsoft automáticamente." & vbCr & "ok?"
Case else : msgbox "This character was not found in none of the usual locations. Try another character, or select the from Microsoft option for this character to load from microsoft automatically." & vbCr & "ok?"
end select
set agent = nothing
exit sub
end if
end if

if err.number = 0 then exit for

if SavedSelection(x) <> 10 then AgentBox.SelectedIndex = SavedSelection(x)

next

playing = True

Set Char = Agent.Characters(CharID)

select Case AgentLanguage.SelectedIndex
Case 0 : Char.LanguageID = Spanish
Case 1 : Char.LanguageID = English
Case 2
if NoLocal then
Char.LanguageID = 1033
else
Char.TTSModeID = "{227A0E41-A92A-11d1-B17B-0020AFED142E}"
end if
end select

if CharID = "PM_Green" then
ModCharID = "pmgreen"
Copyright = "</A><br>Uses Microsoft Agent Technology<br><A HREF=" & Chr(34) & "http://www.fyi-net.com" & Chr(34) & "TARGET=" & Chr(34) & "_BLANK" & Chr(34) & ">" & CharID & " (c) Copyright 2000 FYI-Net L.P. All Rights reserved </A> </small></Font></P>"
else
ModCharID = lcase(CharID)
Copyright = "</A> <br><br>Uses Microsoft Agent Technology<br>" & CharID & " (c) 1996-1998 Microsoft Corporation. All rights reserved</small></Font>"
end if

if NoLocal then
if not PlayedOnce then
select Case AgentLanguage.SelectedIndex
Case 0 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " "
Case 1 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " "
Case 2 :document.body.insertAdjacentHTML "BeforeEnd","<P align=" & DownloadButton & "><Font size =-1><small>" & copyright & " "
end select
end if
Char.Get "State", "Showing, Speaking, Hiding"
Char.Get "Animation", "Greet, GreetReturn"
Char.MoveTo 100,100
Char.Show
if not PlayedOnce then
select Case AgentLanguage.SelectedIndex
Case 0 : Char.Speak "\spd=130\ Hola, mi nombre es " & CharID &" Me no salvan actualmente en su sistema así que he puesto una conexión en la paginación de modo que usted pueda descargarme después de esto si usted elige, yo deba ahora conseguir mis pedazos del Internet o controle por lo menos para ver si mis pedazos son aquí a partir de vez última, yo pueda parecer me pegan, pero no soy, sea por favor paciente, yo seré listo pronto. Usted puede descargarme haciendo clic en los thats del botón dice más adelante consigue este carácter y entonces elegir el funcionamiento de esto la opción actual de la localización y yo estará disponible sin este retardo y la necesidad de informarle en el futuro."
Case 1 : Char.Speak "Hello, my name is " & CharID &" I am currently not stored on your system so I have placed a link on the page so that you can download me after this if you choose, I must now get my pieces from the internet or at least check to see if my pieces are here from last time, I may look like I am stuck, but I am not, please be patient, I will be ready shortly. You can download me later by clicking on the button thats says get this character and then choosing the Run From Current Location option and I will be available without this delay and the need to inform you of this in the future."
Case 2 : Char.Speak "Hello, my name is " & CharID &" I am currently not stored on your system so I will not be able to speak with a British voice until I am downloaded on your computer, I have placed a link on the page so that you can download me after this if you choose, I must now get my pieces from the internet or at least check to see if my pieces are here from last time, I may look like I am stuck, but I am not, please be patient, I will be ready shortly. You can download me later by clicking on the button thats says get this character and then choosing the Run From Current Location option and I will be available without this delay and the need to inform you of this in the future."
end select
end if
else
if not PlayedOnce then
select Case AgentLanguage.SelectedIndex

end select
end if
Char.MoveTo 100,100
Char.Show
Char.MoveTo ScreenOrgX + document.body.clientWidth - char.width, ScreenOrgY + document.body.clientheight - char.height * RestFactor
Window.Status = "Playing your message"
end if

for x = 0 to 1

tx = replace(AgentText.innerText,vbCr,"{}")

Do While tx <> ""

MacroStart = instr(tx, "{")

Select Case MacroStart
Case 0
if not NoLocal then
select Case AgentLanguage.SelectedIndex
Case 0 : Char.Speak "\spd=130\ " & tx
Case 1 : Char.Speak tx
Case 2 : Char.Speak "\spd=190\ " & tx
end select
end if
tx = ""
Case 1
if len(tx) > 1 then tx = mid(tx, MacroStart + 1) else tx = ""
Case else
if not NoLocal then
select Case AgentLanguage.SelectedIndex
Case 0 :Char.Speak "\spd=130\ " & left(tx, MacroStart - 1)
Case 1 :Char.Speak left(tx, MacroStart - 1)
Case 2 :Char.Speak "\spd=190\ " & left(tx, MacroStart - 1)
end select
end if
if len(tx) > 1 then tx = mid(tx, MacroStart + 1) else tx = ""
End Select

MacroEnd = instr(tx, "}")

Select Case MacroEnd
Case 0
tx = ""
Case 1
if len(tx) > 1 then tx = mid(tx, MacroEnd + 1) else tx = ""
Case else
Macro = trim(left(tx, MacroEnd - 1))
if not NoLocal then
if left(Macro,1) <> "#" then
window.execScript "Char." & Macro, PreferredLanguage
else
window.execScript mid(Macro,2), PreferredLanguage
end if
else
if left(Macro,1) = "p" then
window.execScript "Char.Get " & Chr(34) & "Animation" & Chr(34) & ", " & mid(Macro,5), PreferredLanguage
end if
end if
if len(tx) > 1 then tx = mid(tx, MacroEnd + 1) else tx = ""
End Select

Loop

if not NoLocal then exit for

if NoLocal then NoLocal = False

next

set AnUnlikelyRequestName = Char.Hide

if err.number = 0 then
window.settimeout "finish", 2000, "vbscript"
else
Playing = false
set char = nothing
set agent = nothing
end if

end if

PlayedOnce = True

End Sub

sub finish

if AnUnlikelyRequestName.status <> 0 then
window.settimeout "finish", 2000, "vbscript"
else
set char = nothing
set agent = nothing
Playing = False
end if

end sub

</script>
<td colspan="2" height="1%" style="background:ActiveCaption; color:captiontext; font-weight:bold">Instant
Animated Agent Stationery III Copyright by Programming-Services.com the
FREE Computer Jobs/Resumes Site
<tr>
<td colspan="2" height="1%" class="box">Uses Microsoft Agent Technology
- Microsoft Genie, Merlin, Peedy, and Robby characters (c) 1996-1998
Microsoft Corporation, All rights reserved.<br>
PM_Green character (c) Copyright 2000 FYI-Net L.P. All Rights reserved<br>
<br>
Type your normal message outside (above or below) this box. This box
will not be visible to the recipient.<br>
You may need to click in the white area outside of the grey box prior
to entering text into the grey box.
<tr>
<td nowrap height="1%" class="box">Select Language
<td align="right" height="1%" class="box"><select id="AgentLanguage" size="1" style="font:8pt Verdana">
<option value="Spanish">Spanish
<option value="English" selected>English
<option value="British">British
</select>
<tr>
<td nowrap height="1%" class="box">Select how to start your agent:
<td align="right" height="1%" class="box"><select id="AgentStart" size="1" style="font:8pt Verdana">
<option value="auto">The agent plays automatically
<option value="playtop">Add a button to start the agent at the top
centered
<option value="playbottom">Add a button to start the agent at the
bottom centered
<option value="replaytop">Automatic with a replay button at the top
centered
<option value="replaybottom">Automatic with a replay button at the
bottom centered
<option value="playtop">Add a button to start the agent at the top
on left side
<option value="playbottom">Add a button to start the agent at the
bottom on left side
<option value="replaytop">Automatic with a replay button at the top
on left side
<option value="replaybottom">Automatic with a replay button at the
bottom on left side
<option value="playtop">Add a button to start the agent at the top
on right side
<option value="playbottom">Add a button to start the agent at the
bottom on right side
<option value="replaytop">Automatic with a replay button at the top
on right side
<option value="replaybottom">Automatic with a replay button at the
bottom on right side
</select>
<tr>
<td nowrap height="1%" class="box">Select your agent:
<td align="right" height="1%" class="box"><select id="AgentBox" size="1" style="font:8pt Verdana">
<option value="PM_Green">PM_Green or Any Character Found on
Recipient's Computer or PM_Green From FYI-Net
<option value="merlin">Merlin or Any Character Found on Recipient's
Computer or Merlin From Microsoft
<option value="genie">Genie or Any Character Found on Recipient's
Computer or Genie From Microsoft
<option value="peedy">Peedy or Any Character Found on Recipient's
Computer or Peedy From Microsoft
<option value="robby">Robby or Any Character Found on Recipient's
Computer or Robby From Microsoft
<option value="PM_Green">PM_Green Found on Recipient's Computer or
PM_Greeen From FYI-Net
<option value="merlin">Merlin Found on Recipient's Computer or
Merlin From Microsoft
<option value="genie">Genie Found on Recipient's Computer or Genie
From Microsoft
<option value="peedy">Peedy Found on Recipient's Computer or Peedy
From Microsoft
<option value="robby">Robby Found on Recipient's Computer or Robby
From Microsoft
</select>
<tr>
<td colspan="2" height="1%" class="box">Type below the text the Agent
should say. You can include animation's and character commands by
surrounding them with braces. For example: {play &quot;Wave&quot;} or
{moveto 100,200}. You can also just enter plain text by itself without
all this stuff if desired.
<tr>
<td id="AgentText" colspan="2" style="background: window; border:2px inset; color: text; padding:8; font-style:normal !important; font-variant:normal !important; font-weight:normal !important; font-size:8pt !important; font-family:Verdana !important" height="120" valign="top">{show}<br>
{moveto 275,250}
{play &quot;GetAttention&quot;}&nbsp;<br>
{play &quot;GetAttentionContinued&quot;}<br>
{play &quot;GetAttentionContinued&quot;}<br>
{play &quot;GetAttentionReturn&quot;}Hey there!<br>
{play &quot;Blink&quot;}<br>
{play &quot;Surprised&quot;}Oh i am surprised<br>
{play &quot;Congratulate&quot;}Well done here is a trophy<br>
{play &quot;Blink&quot;}I'm blinkin!<br>
{play &quot;Announce&quot;}i have an annoucement to make<br>
{play &quot;Blink&quot;}i like blinking
{play &quot;Pleased&quot;}i am pleased <br>
{play &quot;Explain&quot;}Im explaining something
{play &quot;Read&quot;}readin<br>
{play &quot;ReadContinued&quot;}next page<br>
{play &quot;Sad&quot;}I am sad<br>
{play &quot;DoMagic1&quot;}magic<br>
{play &quot;DoMagic2&quot;}magic<br>
{play &quot;Pleased&quot;}pleased<br>
<br>
{play &quot;Wave&quot;}Wavin<br>
{hide}<br>
<br>
<br>
</table>


&nbsp;
<table border=0 cellspacing=0 cellpadding=0 width=564>
<tr valign="top" align="left">
<td width="40"><img src="/clipart/pbi/c.gif" height=1 width=31></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=3></td>
<td width="69"><img src="/clipart/pbi/c.gif" height=1 width=36></td>
<td width="3"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="3"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="51"><img src="/clipart/pbi/c.gif" height=1 width=49></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="8"><img src="/clipart/pbi/c.gif" height=1 width=6></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=3></td>
<td width="67"><img src="/clipart/pbi/c.gif" height=1 width=65></td>
<td width="38"><img src="/clipart/pbi/c.gif" height=1 width=36></td>
<td width="24"><img src="/clipart/pbi/c.gif" height=1 width=22></td>
<td width="53"><img src="/clipart/pbi/c.gif" height=1 width=51></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="11"><img src="/clipart/pbi/c.gif" height=1 width=9></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=1></td>
<td width="15"><img src="/clipart/pbi/c.gif" height=1 width=13></td>
<td width="6"><img src="/clipart/pbi/c.gif" height=1 width=4></td>
<td width="22"><img src="/clipart/pbi/c.gif" height=1 width=20></td>
<td width="211"><img src="/clipart/pbi/c.gif" height=1 width=209></td>
<td width="58"><img src="/clipart/pbi/c.gif" height=1 width=56></td>
<td width="9"><img src="/clipart/pbi/c.gif" height=1 width=7></td>
<td width="26"><img src="/clipart/pbi/c.gif" height=1 width=24></td>
<td width="2"><img src="/clipart/pbi/c.gif" height=1 width=0></td>
</tr>
<tr valign="top" align="left">
<td colspan=28 height=3 width="792">
<p align="center">&nbsp;
<p align="center">

Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
ZetaBoards - Free Forum Hosting
Create your own social network with a free forum.
« Previous Topic · Codes & Modifications · Next Topic »
Add Reply