From: "Connie" Subject: Lesson 14 Have fun Date: Sat, 20 Sep 2003 11:06:23 -0500 Lines: 1364 MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_NextPart_000_0B04_01C37F67.3AA72F20" X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 5.50.4807.1700 X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4807.1700 Message-ID: Newsgroups: annexcafe.scripting Path: news.annexcafe.com Xref: news.annexcafe.com annexcafe.scripting:24917 NNTP-Posting-Host: cdm-66-36-127.susp.cox-internet.com 66.76.36.127 This is a multi-part message in MIME format. ------=_NextPart_000_0B04_01C37F67.3AA72F20 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Welcome to the Annexcafe Scripting group. This is a teaching group for = those who want to learn how to write scripts for email stationery. The = lessons you will be using are all written by me unless otherwise stated. = I hold all copyrights to these lessons and TERMS OF USE are listed = below. Please read the rules listed below and please abide by them. TERMS OF USE Rule 1. Do not remove my name from the lessons and do not claim them as = your own. These lessons cannot be sold in any shape form or fashion. Do = not add them to a book, CD, Site, Group or any other form which is not = 100% free. This also means if your site is a membership site and money = is charged for the membership, do not put these lessons on your site.=20 Rule 2. Please use these lessons and learn from them. Please share them = freely with your friends. If you want to open a scripting group to teach = others how to write scripts for email stationery, as long as your group = teaches these lessons at no charge and as long as membership to your = group is offered at no charge, you may use these lessons on your group. = You may place them on your site for free download and you can print them = out or put them on a cd if there is no charge at all for the download, = no membership charge for the site and no charge for the CD or the = printed pages. This means no charge for shipping or handling of the CD = or printed pages either. These lessons are to remain always 100% free to = anyone who wishes to use them.=20 If you have a problem holding to the rules and TERMS of USE for these = lessons, then do not download them and do not use them. Downloading them = and using them in any way means you agree to the Terms of Use of these = lessons. =A9Connie Schutza Hill 2003 All rights reserved -------------------------------------------------------------------------= -------------------- Welcome to lesson 14. This week we are going to learn to use the ZigZag = filter. =20 -----------------------------------------------What we need for the = lesson-------------------------- 1. 2 main images Make sure they are the same size and be sure to use = public domain images or your own photos or artwork you made from = scratch. If you post on the Annexcafe you are welcome to use images by = one of the honored artists. Please do not use any other copyrigthed = images.=20 2. A midi. 3. 2 seamless background tiles. One is for the normal background, one = is for the table.. 4. HTML Kit or Windows notepad. --------------------------color codes in the = lesson------------------------------------------- During the lesson. If you see something in this bright blue color that = is just to draw your attention to that tag.=20 Things that are this dark blue will be there to show you how your script = should look right there at that spot in the lesson. I will keep moving = the whole script down till at the very end you will see the full script. = That will help you see what you miss if you hit a problem in the lesson. = In an effort to make the lessons even easier to understand, the new = stuff you added to the script since the last time you got the full = script, will be in bold red text. Because some of you print the lessons = out I hope the red text will help you see just where everything we just = added went in the script a bit better.=20 Anything in green is the way the new bit of script that you are adding = should look. That way you can make sure you have it right as you work = and you can then check what the full script should look like so far by = moving to the next dark blue area which will always follow the green = area. The red lines just sort of mark sections of the lesson so I can keep up = with where I am as I go along. I will add numbers to these lines so you = can keep your place better. I will also note what each section is for in = red so that will help you keep your place as you go along.=20 ------------------------------------------------------1------------------= ------------------------- Let's set up our script so we can get started on the lesson. This week I am using the very same script I used last lesson and just = changing the VBS. If you want to do a new script from start to finish = then set up a two cell table, mine is a side by side but your's can be = over and under if you wish, that is up to you. One cell will hold the = two images and one will hold text. Remember to put a div inside the = image cell and position it relative and put both images inside this div = and position them absolute. Be sure you give both the images id names. = Set up your style so the table looks like you want it to look and make = sure you put the size of the image in the style and also the position = absolute and left and top. We have to give the images lay out or the = filter will not work. Start the vbs and you can go ahead and put in the = background scroll. Put the tile on the table and we will be all set. =20 ------------------------------------------------------2------------------= ------------------------- Your script should look something like this one. =20
3D"Henriette 3D"Henriette
text
------------------------------------------------------3------------------= ------------------------- We are ready to talk about the new filter we are going to use in this = lesson. =20 The zigzag filter is another transition filter. This one hides or shows = the image or other object to which it is applied in a motion much like = erasing a chalk board. It goes one row at a time and wipes from left to = right, drops down a line and then wipes from right to left. Then it = repeats the action till the image is all hidden or all showing. Really = a nice effect. We can adjust the speed the wipe goes, we can adjust the height and = width of the bits the filter hides or shows at a time as well. =20 As with the other filters we have worked with, this filter requires that = the object it is applied to have layout. So remember to give height and = width to each object that you want the filter to be applied to and = position the object as well or the filter is not going to work. There is one other thing I would like to tell you too, on this filter if = you set the size of the grid to more than two digits you are going to = get an error message. Actually I have tried many numbers on these = settings and once you go over 64 you really do not see much difference = in the action of the filter. But if you put in something like 100 forget = it, you are going to get a big old error message.. LOL=20 ------------------------------------------------------4------------------= ------------------------- Okay let's get started on the VBS part to put this filter into action.=20 First we have to tell the pc we want to use the filter on the images so = we put in the filter code. It looks like this and make sure your object = name matches the id name you gave to your image. Just below the line of code that tells the pc to put the tile on the = table and just above the x=3D0 and y=3D0 you will want to put these = lines of code. p.style.FILTER=3D" progid:DXImageTransform.Microsoft.zigzag" p2.style.FILTER=3D" progid:DXImageTransform.Microsoft.zigzag" Notice we do not tell the pc a style for this filter at this time. This = can be done by adding (GridSizeX=3D16, GridSizeY=3D64) right after the = word zigzag but because I wanted to use this filter in a different grid = size each time it changed the images I left off the style of the filter. = Now I can change the style in each sub the same way we changed the = transition number on the reveal trans filter last week. If you want the = filter to use the same size grid each time, you can put the style on the = filter and leave off the gridSize lines of code in the subs. You could = do this another way as well but the way I am doing it makes for less = typing and less typing means less chance of a typo messing up your = script, and we are all in favor of less typos in our scripting.. lol=20 Next, we want to tell the pc the visibility of the images. We want one = to be showing when the stat opens and one to be hidden , we also want to = call up the sub that will start the filter working so we will put in a = sub Window_OnLoad() and this will go just below the x=3D0 and y=3D0 in = our script. We will put all this information in the onload sub and we = will also need to tell the pc how long to wait before it starts making = the first action sub work so we will have our SetTimeOut. Of course = after that we will end the sub. Our full onload sub will look like the = one below.=20 Sub Window_OnLoad()=20 p.style.visibility=3D"hidden" p2.style.visibility=3D"visible" SetTimeOut "action", 4000=20 End Sub -------------------------------------------------------5-----------------= ------------------------- Do not preview your script yet because it will toss an error. But this = is how the VBS should look right now.. -------------------------------------------------------6-----------------= ------------------------- Great we are now ready to move on to the subs which will make the filter = do it's magic. Drop down below the scroll sub and start this sub but make sure you are = above the closing tag or the script will not work. The first = thing we want our filter to do is make the image that is showing go away = and then make the one that is hidden show up. So we have to tell the pc = to first clear the time clock we set in the on load sub when we told it = to set time out at 4000. Then we have to tell the pc to apply the = filter that we are using to the image that is visible. Next we want to = tell the pc how wide the section is that we want the filter to show or = remove with each step of the transition. So we have a new line of code = and it is GridSizeX and it is followed by a number, that number can be = what you want it to be but remember keep the number to one or two = digits or you will get an error message and your script will stop = working. Next we want to tell the pc how tall to make that section that = will hide or show each step of the filter action and ths is GridSizeY = and it is followed by a number and this number does not have to match = the X number but, like the X number a three digit number will mess up = the script so keep it to one or two digits. Next we want to tell the pc = what we want the visibilty to be when the filter is done working and = then we have to tell it how long to take to hide the image. When you = get the script working you will want to play with the number on this = line to get the image to have a smooth action as the filter plays, just = set it to something you like the look of, there is no right or wrong in = this part because that is part of the design of the stat and script and = that is always up to the script writer. So we have code that looks like = this in the first part of the sub Sub action() ClearTimeout p2.filters(0).Apply() p2.filters(0).GridSizeX=3D"30" p2.filters(0).GridSizeY=3D"30" p2.style.visibility=3D"hidden" p2.filters(0).Play(6.000) The second part of this sub will tell the pc to make the next image = visible and on this one because the script is hiding one image and = sowing the next one at the same time, we want to make sure our gridSize = numbers match the ones in the first part of the sub. It will work if we = do not match them but it looks really bad so it is best to have them = match within a sub. Do not forget to put your SetTimeOut and call the = next sub and do not forget to end your sub when we are done with it. = That gives you the second half of your first sub which will look much = like the one below. p.filters(0).Apply() p.filters(0).GridSizeX=3D"30" p.filters(0).GridSizeY=3D"30" p.style.visibility=3D"visible" p.filters(0).Play(6.000) SetTimeOut "action2",8000 End Sub Now we have to get the pc to put the first image back so we can see it = and hide the second image. So we will need another sub and this one I = named action2. On this one I do not want the pc to use the same = GridSize so I will need to tell it which size I want to use to undo what = it just did in the first sub.. lol =20 The full code will look like this one. Notice the only thing that = changed in this one is the sub name, the GridSizeX and GridSizeY and the = visibility of the image, and you may want to change the number in the = play line. Where the first time it had hidden it now has visible and = the one that said visible says hidden. The name of the next sub to call = has changed to reflect the name of the next sub we will need to make the = script look good and not be boring with the same action over and over = with no change. Your full sub will look much like the one below. Sub action2() ClearTimeout p.filters(0).Apply() p.filters(0).GridSizeX=3D"6" p.filters(0).GridSizeY=3D"6" p.style.visibility=3D"hidden" p.filters(0).Play(3.000) p2.filters(0).Apply() p2.filters(0).GridSizeX=3D"6" p2.filters(0).GridSizeY=3D"6" p2.style.visibility=3D"visible" p2.filters(0).Play(3.000) SetTimeOut "action3",6000 End Sub We will write yet another sub to undo what we had the pc just do and = this time the same things will change that changed in the last sub. So = the new sub will look like this one. Sub action3() ClearTimeout p2.filters(0).Apply() p2.filters(0).GridSizeX=3D"20" p2.filters(0).GridSizeY=3D"20" p2.style.visibility=3D"hidden" p2.filters(0).Play(6.000) p.filters(0).Apply() p.filters(0).GridSizeX=3D"20" p.filters(0).GridSizeY=3D"20" p.style.visibility=3D"visible" p.filters(0).Play(6.000) SetTimeOut "action4",8000 End Sub Now we are ready to write our last sub and make it go back to the first = one and repeat the whole thing over and over forever. One tip on this = part, be sure that when you write your last sub the same image is = showing when this sub is finished that was showing when you started. If = you do not do it this way then the first sub will not show to be working = because it cannot hide what is not showing. =20 Our last sub looks like this one and again, the same things will change = that have changed in the last few subs.. Be sure to call the first sub = up as the next sub for the script to play so it will loop back for you. Sub action4() ClearTimeout p.filters(0).Apply() p.filters(0).GridSizeX=3D"10" p.filters(0).GridSizeY=3D"10" p.style.visibility=3D"hidden" p.filters(0).Play(6.000) p2.filters(0).Apply() p2.filters(0).GridSizeX=3D"10" p2.filters(0).GridSizeY=3D"10" p2.style.visibility=3D"visible" p2.filters(0).Play(6.000) SetTimeOut "action",8000 End Sub -------------------------------------------------------7-----------------= ------------------------- Here is what the full VBS of your script will look like=20 ------------------------------------------------------8------------------= ------------------------ We are all done with this script. Give it a try and see how it is = working. If you have any errors check the starting script against your = script and see if the error is in that part and if not then check the = VBS part. If you still cannot find the error give a yell for help on = the group and I will be happy to help you find the trouble.=20 -------------------------------------------------------Homework----------= ------------------------- Write your own script using this filter. You can use other stuff you = have learned in the script as well and try to do a script using more = images than I have in the lesson and maybe even build a table with more = image cells and use the filter in those cells as well as the main cell. = Make some big magic and have fun..=20 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~=20 =A9Connie Schutza Hill 2003 All rights reserved ------=_NextPart_000_0B04_01C37F67.3AA72F20 Content-Type: text/html; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable
 
 

Welcome to the Annexcafe Scripting group. This is a teaching group = for those=20 who want to learn how to write scripts for email stationery. The lessons = you=20 will be using are all written by me unless otherwise stated. I hold all=20 copyrights to these lessons and TERMS OF USE are listed = below.=20 Please read the rules listed below and please abide by them.

TERMS OF USE

Rule 1. Do not remove my name from the lessons and do not claim them = as your=20 own. These lessons cannot be sold in any shape form or fashion. Do not = add them=20 to a book, CD, Site, Group or any other form which is not 100% free. = This also=20 means if your site is a membership site and money is charged for the = membership,=20 do not put these lessons on your site.

Rule 2. Please use these lessons and learn from them. Please share = them=20 freely with your friends. If you want to open a scripting group to teach = others=20 how to write scripts for email stationery, as long as your group teaches = these=20 lessons at no charge and as long as membership to your group is offered = at no=20 charge, you may use these lessons on your group. You may place them on = your site=20 for free download and you can print them out or put them on a cd if = there is no=20 charge at all for the download, no membership charge for the site and no = charge=20 for the CD or the printed pages. This means no charge for shipping or = handling=20 of the CD or printed pages either. These lessons are to remain always = 100% free=20 to anyone who wishes to use them.

If you have a problem holding to the rules and TERMS of USE for these = lessons, then do not download them and do not use them. Downloading them = and=20 using them in any way means you agree to the Terms of Use of these=20 lessons.


=A9Connie Schutza Hill = 2003
All rights=20 reserved

----------------------------------------------------------------------= -----------------------

Welcome to lesson 14. This week we are going to learn to use the = ZigZag=20 filter.  

-----------------------------------------------What we=20 need for the lesson--------------------------

1. 2 main images   Make sure they are the same size = and=20 be sure to use public domain images or your own photos or artwork = you made=20 from scratch. If you post on the Annexcafe you are welcome to use images = by one=20 of the honored artists. Please do not use any other copyrigthed images. =

2. A midi.

3. 2 seamless background tiles.  One is for the normal = background,=20 one is for the table..

4. HTML Kit or Windows notepad.

 

--------------------------color codes in the=20 lesson-------------------------------------------

During the lesson. If you see something in this bright blue = color=20 that is just to draw your attention to that tag. =

Things that are this dark blue will be there to show you how = your=20 script should look right there at that spot in the lesson. I will keep = moving=20 the whole script down till at the very end you will see the full script. = That=20 will help you see what you miss if you hit a problem in the lesson. In = an effort=20 to make the lessons even easier to understand, the new stuff you added = to the=20 script since the last time you got the full script, will be in=20 bold red text. Because some of you print the lessons out I hope the = red text=20 will help you see just where everything we just added went in the script = a bit=20 better.

Anything in green is the way the new bit of script that you = are=20 adding should look. That way you can make sure you have it right as you = work and=20 you can then check what the full script should look like so far by = moving to the=20 next dark blue area which will always follow the green = area.

The red lines just sort of mark = sections of the=20 lesson so I can keep up with where I am as I go along. I will add = numbers to=20 these lines so you can keep your place better. I will also note what = each=20 section is for in red so that will help you keep your place as you go = along.=20

------------------------------------------------------1-------= ------------------------------------

Let's set up our script so we can get started on the = lesson.
 
This week I am using the very same script I used last lesson and = just=20 changing the VBS.  If you want to do a new script from start to = finish then=20 set up a two cell table, mine is a side by side but your's can be = over and=20 under if you wish, that is up to you.  One cell will hold the two = images=20 and one will hold text.  Remember to put a div inside the image = cell and=20 position it relative and put both images inside this div and position = them=20 absolute. Be sure you give both the images id names.  Set up = your=20 style so the table looks like you want it to look and make sure you put = the size=20 of the image in the style and also the position absolute and left and = top. =20 We have to give the images lay out or the filter will not work.  = Start the=20 vbs and you can go ahead and put in the background scroll. Put the = tile on=20 the table and we will be all set. 
 
-------------------------------------------------= -----2-------------------------------------------
 
Your script should look something = like this=20 one.
 
<HTML>
<HEAD>=20
<STYLE>
Body{
BORDER-RIGHT: #714528 7px = inset;
BORDER-TOP:=20 #714528 7px outset;
BORDER-LEFT: #714528 7px = outset;
BORDER-BOTTOM:=20 #714528 7px=20 inset;
scrollbar-face-color:#714528;
scrollbar-highlight-color:#AC7= 856;
scrollbar-3dlight-color:#714528;
scrollbar-darkshadow-color:#7= 14528;
scrollbar-shadow-color:#714528;
scrollbar-arrow-color:#AC785= 6;
scrollbar-track-color:#714528;
}
 
.tb1{
border-top: #9A6C4E 6px=20 solid;
border-left: #462917 6px solid;
border-right: #9A6C4E 6px=20 solid;
border-bottom: #462917 6px solid;
}
.tc{
border-top: = #492B18=20 4px solid;
border-left: #9A6C4E 4px solid;
border-right: #492B18 = 4px=20 solid;
border-bottom: #9A6C4E 4px solid;
}
.phto{
position:=20 absolute;
height: 450px;
width: 350px;
left:=20 0px;
top:0px;
}
 
.d{
BORDER-RIGHT: #492B18 7px=20 double;
BORDER-TOP: #492B18 7px double;
BORDER-LEFT: #9A6C4E 7px=20 double;
BORDER-BOTTOM: #9A6C4E 7px double;
position: = relative;
height:=20 464px;
width: 364px;
left: = 0px;
top:0px;
}
.tx1{
BORDER-RIGHT:=20 #492B18 7px double;
BORDER-TOP: #492B18 7px double;
BORDER-LEFT: = #9A6C4E=20 7px double;
BORDER-BOTTOM: #9A6C4E 7px=20 double;
scrollbar-face-color:#714528;
scrollbar-highlight-color:#AC= 7856;
scrollbar-3dlight-color:#714528;
scrollbar-darkshadow-color:#= 714528;
scrollbar-shadow-color:#714528;
scrollbar-arrow-color:#AC78= 56;
scrollbar-track-color:#714528;
padding:10px;
text-align:=20 center;
OVERFLOW: auto;
FONT-FAMILY: Tahoma;
FONT-SIZE: = 12pt;
COLOR:=20 #AC7856;
height:464px;
width: 225px;
}
 
</STYLE>
</HEAD>
<BODY=20 bgcolor=3D#462917 background=3D"C:/Program Files/Common Files/Microsoft=20 Shared/Stationery/pd Henriette Ronner-Knip=20 1821-1909_tile2.jpg">
<BGSOUND balance=3D0 src=3D"C:/Program = Files/Common=20 Files/Microsoft Shared/Stationery/purelove-jmc[1].mid" volume=3D0=20 loop=3Dinfinite>
 
<TABLE class=3Dtb1 id=3Dt1 = width=3D350px=20 align=3Dcenter cellpadding=3D10=20 cellspacing=3D30>
 <TR>
 <TD class=3Dtc=20 align=3Dcenter><div align=3Dcenter class=3Dd>
<IMG = class=3Dphto id=3Dp=20 alt=3D"Henriette Ronner-Knip 1821-1909" src=3D"C:/Program Files/Common=20 Files/Microsoft Shared/Stationery/pd Henriette Ronner-Knip=20 1821-1909_350-450-1.jpg">
<IMG class=3Dphto id=3Dp2 = alt=3D"Henriette=20 Ronner-Knip 1821-1909" src=3D"C:/Program Files/Common Files/Microsoft=20 Shared/Stationery/pd Henriette Ronner-Knip=20 1821-1909_350-450-2.jpg"></DIV></TD>
 <TD = class=3Dtc=20 align=3Dcenter><DIV id=3Dd1=20 class=3Dtx1>text</DIV></TD></TR></TABLE>
 
<!--this tile goes on the table=20 -->
<IMG id=3Dtabbg1
style=3D"LEFT: -1800px; POSITION: = absolute; TOP:=20 -1800px;" 
src=3D"C:/Program Files/Common Files/Microsoft=20 Shared/Stationery/pd Henriette Ronner-Knip=20 1821-1909_tile1.jpg">
 
 
 
 
 
<SCRIPT=20 language=3Dvbscript>
'*----------------------------------*
'*REM= do the=20 magic
'*This script was written by Connie Schutza
'* September 12=20 2003
'*magic never=20 ends
'-----------------------------------*
 
window.status=3D" ----Script and = stationery=20 by Connie---Art by Charles Olivier de Penne = 1831-1897---"
 
t1.style.backgroundImage=3D"URL("&tabbg1.src&= amp;")"=20
 
 
 
x=3D0
y=3D0
 
 
 
SetInterval=20 "chsscroll",64
 
Sub=20 chsscroll()
x=3Dx
y=3Dy-1
document.body.style.backgroundposition= =3Dx&"=20 "&y
End Sub
 
 
 
</SCRIPT>
</BODY>
</HTML><= /STRONG>

------------------------------------------------------3--= -----------------------------------------
 
We are ready to talk about the new = filter we=20 are going to use in this lesson. 
The zigzag filter is another transition filter.  This one = hides or=20 shows the image or other object to which it is applied in a motion much = like=20 erasing a chalk board.  It goes one row at a time and wipes from = left to=20 right, drops down a line and then wipes from right to left. Then it = repeats the=20 action till the image is all hidden or all showing.  Really a nice=20 effect.
 
We can adjust the speed the wipe goes, we can adjust the = height and=20 width of the bits the filter hides or shows at a time as = well.  
 
As with the other filters we have worked with, this filter requires = that=20 the object it is applied to have layout.  So remember to give = height and=20 width to each object that you want the filter to be applied to and = position the=20 object as well or the filter is not going to work.
 
There is one other thing I would like to tell you too, on this = filter if=20 you set the size of the grid to more than two digits you are going to = get an=20 error message.  Actually I have tried many numbers on these = settings and=20 once you go over 64 you really do not see much difference in the action = of the=20 filter. But if you put in something like 100 forget it, you are going to = get a=20 big old error message..  LOL
 
------------------------------------------------------4--= -----------------------------------------
 
Okay let's get started on the VBS = part to put=20 this filter into action.
 
First we have to tell the pc we want to use the filter on the = images so we=20 put in the filter code.  It looks like this and make sure your = object name=20 matches the id name you gave to your image.
 
Just below the line of code that tells the pc to put the tile on = the table=20 and just above the x=3D0 and y=3D0  you will want to put these = lines of=20 code.
 
p.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
p2.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
 
Notice we do not tell the pc a style for this filter at this = time. =20 This can be done by adding (GridSizeX=3D16, GridSizeY=3D64) right after the word = zigzag but=20 because I wanted to use this filter in a different grid size each time = it=20 changed the images I left off the style of the filter.  Now I = can=20 change the style in each sub the same way we changed the = transition=20 number on the reveal trans filter last week.  If you want the = filter to use=20 the same size grid each time, you can put the style on the filter and = leave off=20 the gridSize lines of code in the subs.  You could do this another = way as=20 well but the way I am doing it makes for less typing and less = typing means=20 less chance of a typo messing up your script, and we are = all in=20 favor of less typos in our scripting.. lol
 
Next, we want to tell the pc the visibility of the images. We want = one to=20 be showing when the stat opens and one to be hidden , we also want to = call up=20 the sub that will start the filter working so we will put in a sub=20 Window_OnLoad() and this will go just below the x=3D0 and y=3D0 in our = script. We=20 will put all this information in the onload sub and we will also need to = tell=20 the pc how long to wait before it starts making the first action sub = work so we=20 will have our SetTimeOut. Of course after that we will end the sub. Our = full=20 onload sub will look like the one below.
 
Sub Window_OnLoad() =
p.style.visibility=3D"hidden"
p2.style.visibility=3D"v= isible"
SetTimeOut =20 "action", 4000
End Sub
 
-------------------------------------------------------5-= -----------------------------------------
 
Do not preview your script yet = because it will=20 toss an error.  But this is how the VBS should look right=20 now..
 
 
<SCRIPT=20 language=3Dvbscript>
'*----------------------------------*
'*REM= do the=20 magic
'*This script was written by Connie Schutza
'* September 12=20 2003
'*magic never=20 ends
'-----------------------------------*
 
window.status=3D" ----Script and = stationery=20 by Connie---Art by Charles Olivier de Penne = 1831-1897---"
 
t1.style.backgroundImage=3D"URL("&tabbg1.src&")" =
 

p.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
p2.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
 
x=3D0
y=3D0
 
Sub Window_OnLoad() =
p.style.visibility=3D"hidden"
p2.style.visibility=3D"v= isible"
SetTimeOut =20 "action", 4000
End Sub
 
SetInterval=20 "chsscroll",64
 
Sub=20 chsscroll()
x=3Dx
y=3Dy-1
document.body.style.backgroundposition= =3Dx&"=20 "&y
End Sub
 
</SCRIPT>
</BODY>
</HTML><= /STRONG>
-------------------------------------------------------6-= -----------------------------------------
 
Great we are now ready to move on to the subs which will make the = filter do=20 it's magic.
 
Drop down below the scroll sub and start this sub but make = sure you=20 are above the closing </SCRIPT> tag or the script will not = work.  The=20 first thing we want our filter to do is make the image that is showing = go away=20 and then make the one that is hidden show up.  So we have to tell = the pc to=20 first clear the time clock we set in the on load sub when we told it to = set time=20 out at 4000.  Then we have to tell the pc to apply the filter that = we are=20 using to the image that is visible.  Next we want to tell the pc = how wide=20 the section is that we want the filter to show or remove with each step = of the=20 transition.  So we have a new line of code and it is GridSizeX and = it is=20 followed by a number, that number can be what you want  it to be = but=20 remember keep the number to one or two digits or you will get = an error=20 message and your script will stop working.  Next we want to tell = the pc how=20 tall to make that section that will hide or show each step of = the filter=20 action and ths is GridSizeY and it is followed by a number and this = number does=20 not have to match the X number but, like the X number a three digit = number will=20 mess up the script so keep it to one or two digits.  Next we want = to=20 tell the pc what we want the visibilty to be when the filter = is done=20 working and then we have to tell it how long to take to hide the=20 image.  When you get the script working you will want to play with = the=20 number on this line to get the image to have a smooth action = as the=20 filter plays, just set it to something you like the look of, there is no = right=20 or wrong in this part because that is part of the design of the stat and = script=20 and that is always up to the script writer.  So we have code that = looks=20 like this in the first part of the sub
 
Sub=20 action()
ClearTimeout
p2.filters(0).Apply()
p2.filters(0).GridSi= zeX=3D"30"
p2.filters(0).GridSizeY=3D"30"
p2.style.visibility=3D"hi= dden"
p2.filters(0).Play(6.000)
 
The second part of this sub will tell the pc to make the next image = visible=20 and on this one because the script is hiding one image and sowing the = next one=20 at the same time, we want to make sure our gridSize numbers match the = ones in=20 the first part of the sub.  It will work if we do not match them = but it=20 looks really bad so it is best to have them match within a sub. Do not = forget to=20 put your SetTimeOut and call the next sub and do not forget to end your = sub when=20 we are done with it.  That gives you the second half of your first = sub=20 which will look much like the one below.
 
p.filters(0).Apply()
p.filters(0).GridSizeX=3D= "30"
p.filters(0).GridSizeY=3D"30"
p.style.visibility=3D"visible"p.filters(0).Play(6.000)
SetTimeOut=20 "action2",8000
End Sub
 
Now we have to get the pc to put the first image back so we can see = it and=20 hide the second image.  So we will need another sub and this one I = named=20 action2.  On this one I do not want the pc to use the=20 same GridSize so I will need to tell it which size I want = to use=20 to undo what it just did in the first sub.. lol 
 
The full code will look like this one.  Notice the only = thing=20 that changed in this one is the sub name, the GridSizeX and = GridSizeY and=20 the visibility of the image, and you may want to change the number in = the play=20 line.  Where the first time it had hidden it now has visible and = the one=20 that said visible says hidden.  The name of the next sub to call = has=20 changed to reflect the name of the next sub we will need to make the = script look=20 good and not be boring with the same action over and over with no = change. =20 Your full sub will look much like the one below.
 
Sub=20 action2()
ClearTimeout
p.filters(0).Apply()
p.filters(0).GridSiz= eX=3D"6"
p.filters(0).GridSizeY=3D"6"
p.style.visibility=3D"hidden"=
p.filters(0).Play(3.000)
p2.filters(0).Apply()
p2.filters(0).Gr= idSizeX=3D"6"
p2.filters(0).GridSizeY=3D"6"
p2.style.visibility=3D"= visible"
p2.filters(0).Play(3.000)
SetTimeOut=20 "action3",6000
End Sub
 
We will write yet another sub to undo what we had the pc just do = and this=20 time the same things will change that changed in the last sub.  So = the new=20 sub will look like this one.
 
Sub=20 action3()
ClearTimeout
p2.filters(0).Apply()
p2.filters(0).GridS= izeX=3D"20"
p2.filters(0).GridSizeY=3D"20"
p2.style.visibility=3D"h= idden"
p2.filters(0).Play(6.000)
p.filters(0).Apply()
p.filters(= 0).GridSizeX=3D"20"
p.filters(0).GridSizeY=3D"20"
p.style.visibilit= y=3D"visible"
p.filters(0).Play(6.000)
SetTimeOut=20 "action4",8000
End Sub
 
Now we are ready to write our last sub and make it go back to the = first one=20 and repeat the whole thing over and over forever.  One tip on this = part, be=20 sure that when you write your last sub the same image is showing when = this sub=20 is finished that was showing when you started.  If you do not = do it=20 this way then the first sub will not show to be working because it = cannot hide=20 what is not showing. 
 
Our last sub looks like this one and again, the same things will = change=20 that have changed in the last few subs.. Be sure to call the first sub = up as the=20 next sub for the script to play so it will loop back for you.
 
Sub=20 action4()
ClearTimeout
p.filters(0).Apply()
p.filters(0).GridSiz= eX=3D"10"
p.filters(0).GridSizeY=3D"10"
p.style.visibility=3D"hidde= n"
p.filters(0).Play(6.000)
p2.filters(0).Apply()
p2.filters(0).= GridSizeX=3D"10"
p2.filters(0).GridSizeY=3D"10"
p2.style.visibility= =3D"visible"
p2.filters(0).Play(6.000)
SetTimeOut=20 "action",8000
End Sub
 
 
-------------------------------------------------------7-= -----------------------------------------
 
Here is what the full VBS of your = script will=20 look like
 

<SCRIPT=20 language=3Dvbscript>
'*----------------------------------*
'*REM= do the=20 magic
'*This script was written by Connie Schutza
'* September 19=20 2003
'*magic never=20 ends
'-----------------------------------*
 
window.status=3D" ----Script and = stationery=20 by Connie---Art by Charles Olivier de Penne = 1831-1897---"
 
t1.style.backgroundImage=3D"URL("&tabbg1.src&")" =
p.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
p2.style.FILTER=3D"=20 progid:DXImageTransform.Microsoft.zigzag"
 

 
 
x=3D0
y=3D0
 
Sub Window_OnLoad() =
p.style.visibility=3D"hidden"
p2.style.visibility=3D"v= isible"
SetTimeOut =20 "action", 4000
End Sub
 
SetInterval=20 "chsscroll",64
 
Sub=20 chsscroll()
x=3Dx
y=3Dy-1
document.body.style.backgroundposition= =3Dx&"=20 "&y
End Sub
 
Sub=20 action()
ClearTimeout
p2.filters(0).Apply()
p2.filters(0).GridSi= zeX=3D"30"
p2.filters(0).GridSizeY=3D"30"
p2.style.visibility=3D"hi= dden"
p2.filters(0).Play(6.000)
p.filters(0).Apply()
p.filters(0= ).GridSizeX=3D"30"
p.filters(0).GridSizeY=3D"30"
p.style.visibility= =3D"visible"
p.filters(0).Play(6.000)
SetTimeOut=20 "action2",8000
End Sub
 
Sub=20 action2()
ClearTimeout
p.filters(0).Apply()
p.filters(0).GridSiz= eX=3D"6"
p.filters(0).GridSizeY=3D"6"
p.style.visibility=3D"hidden"=
p.filters(0).Play(3.000)
p2.filters(0).Apply()
p2.filters(0).Gr= idSizeX=3D"6"
p2.filters(0).GridSizeY=3D"6"
p2.style.visibility=3D"= visible"
p2.filters(0).Play(3.000)
SetTimeOut=20 "action3",6000
End Sub
 
Sub=20 action3()
ClearTimeout
p2.filters(0).Apply()
p2.filters(0).GridS= izeX=3D"20"
p2.filters(0).GridSizeY=3D"20"
p2.style.visibility=3D"h= idden"
p2.filters(0).Play(6.000)
p.filters(0).Apply()
p.filters(= 0).GridSizeX=3D"20"
p.filters(0).GridSizeY=3D"20"
p.style.visibilit= y=3D"visible"
p.filters(0).Play(6.000)
SetTimeOut=20 "action4",8000
End Sub
 
Sub=20 action4()
ClearTimeout
p.filters(0).Apply()
p.filters(0).GridSiz= eX=3D"10"
p.filters(0).GridSizeY=3D"10"
p.style.visibility=3D"hidde= n"
p.filters(0).Play(6.000)
p2.filters(0).Apply()
p2.filters(0).= GridSizeX=3D"10"
p2.filters(0).GridSizeY=3D"10"
p2.style.visibility= =3D"visible"
p2.filters(0).Play(6.000)
SetTimeOut=20 "action",8000
End Sub

</SCRIPT>
</BODY>
</HTML>=
 
------------------------------------------------------8--= ----------------------------------------
 
We are all done with this script.  Give it a try and see how = it is=20 working.  If you have any errors check the starting script against = your=20 script and see if the error is in that part and if not then check the = VBS=20 part.  If you still cannot find the error give a yell for help on = the group=20 and I will be happy to help you find the trouble.
 
-------------------------------------------------------Ho= mework-----------------------------------
 
Write your own script using this filter.  You can use other = stuff you=20 have learned in the script as well and try to do a script using more = images than=20 I have in the lesson and maybe even build a table with more image cells = and use=20 the filter in those cells as well as the main cell.   Make = some big=20 magic and have fun..
 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~= ~~=20

=A9Connie Schutza Hill 2003
All = rights=20 reserved

 
------=_NextPart_000_0B04_01C37F67.3AA72F20--