Visual Basic · October 21, 2014 0

Jaguar32.bas

‘Jaguar32.Bas Silver Edition FIXED
‘(For Visual Basic Versions 4, 5, 6)
‘For use with Aol (95 and 4.0)
‘Release Date: Christmas of ’98
‘Please note disclaimer at bottom along with Fader notes from monk-e-god
‘Do NOT copy bas file under any conditions. See disclaimer.

Use Jaguar32 at your own risk. We are not responsible for anything
‘made using or while using jaguar32.

‘Creators contact addresses: (if known)
‘Jaguar Jaguar32X@Juno.com (Main Email)
‘Jaguar Jaguar32X@iname.com (Fowarding Service)
‘Jaguar (AIM) PuRRBaLL11 [That has an eleven at the end of it if you cant read or understand that] ‘Flux dr_flux@hotmail.com
‘Monk-e-god monkegod@hotmail.com
‘Genghis LordGenghis@Juno.Com (cant get it to work)
‘Dolan xxdolanxx@hotmail.com
‘Beav phishme7@juno.com
‘JMR XxJMR@aol.com

‘Creators: (9)
‘Jaguar
‘Flux
‘VSTD COORD
‘Baron
‘Genghis
‘monk-e-god
‘Beav
‘JMR
‘Dolan

‘Jaguar32 News and Updates:
‘Well once again, a new version. Woohoo! I made about 6 new subs or
‘functions and we now have faders thanks to monk-e-god who kicks
‘ye royal ass. Also, once Dolan gets to it, he is making a server so all
‘the lazy people can have servers. I am getting a new computer this
‘Christmas and its kicking even more royal ass. I am now opening
‘Jaguar32 up to new suggestions to subs and functions I can make.
‘Im running out of ideas. Accually, I have enough to update it for about
‘3 years, but I thought it would be nice to open it up to your suggestions.
‘Plus, you get recognized for your work since people will use it.
‘Im also thinking about a programming group over the internet, which
‘would be both AOL and non AOL related which if you think its a good
‘idea email me. That about wraps it up.

‘A note from Jaguar about disclaimer:
‘Programmers of the Jaguar32 team have decided that since we make
‘and distribute Jaguar32 as freeware and that we do not have a charge
‘for Jaguar32 that we strictly enforce the disclaimer. In other words,
‘we spent a hell of a lot of time bringing you Jaguar32 and its a aid
‘to you in your programming so we ask that you follow the disclaimer.

‘Dislcaimer:

Use Jaguar32 at your own risk. We are not responsible for anything
‘made using or while using jaguar32.

‘Thank you for choosing Jaguar32.Bas. Before you start using this bas
‘file there are a couple of things we have all agreed on. First off, we do
‘not want anyone to add on to this bas file and call it theirs. Make your
‘own fucking bas file from scratch like we did! Second, please do not
‘tamper with the code that is in the bas file unless you have emailed
‘Jaguar and I have said it was ok. Third, if someone wants Jaguar32
‘please tell them to email Jaguar at Jaguar32X@Juno.com. Fourth,
‘unless you have the expressed written permission by one of the
‘creators, we do not want to see this bas file on servers or mms
‘because it is constantly being updated, and we have the latest
‘update. Basically cause we have to send the thing out again to
‘people that we have sent it to a million times.

‘PS. The Addroom (not the one for AOL4) works only on AOL95
‘not AOL3.0

‘Special Thanks Given To:
‘All of Jaguar, Genghis, Baron, VSTD, and Flux’s friends (you know who you are)
‘All of Teel (including Rj2 who is totally awesome)
‘NIKON <~He is way cool
‘Puma & Panther & Leopard
‘People who dont decompile and steal codes.
‘People who prog their ass off and dont get any credit for what they do.
‘The holy hand-grenade and the man-eating bunny.

‘Some notes on Fader Functions by monk-e-god.
‘Some subs in this bas may not be self-explanatory at first because
‘they require you to type in the red, green, and blue values of each color.
‘Some of you might not know the RGB values of certain colors so here are
‘a few:

‘Red = R: 255, G: 0, B:0
‘Green = R: 0, G: 255, B:0
‘Blue = R: 0, G: 0, B: 255
‘Yellow = R: 255, G: 255, B: 0
‘White = R: 255, G: 255, B: 255
‘Black = R: 0, G: 0, B: 0

‘So to fade from Blue to Black to Blue you would do:
‘FadedText$ = XFader_FadeThreeColor(0, 0, 255, 0, 0, 0, 0, 0, 255, Text2Fade$, False)

‘Or you could use the easier subs by doing:
‘FadedText$ = XFader_FadeByColor3(FADE_BLUE, FADE_BLACK, FADE_BLUE, Text2Fade$, False)

‘To make the text wavy all you have
‘to do is set the last parameter(Wavy)
‘to True.

‘Multifading 101 by Monk-e-god
‘To use this you need to declare an array and fill it with the colors to fade.

‘Example:
‘Dim ColorArray(4)
‘ColorArray(1) = FADE_RED
‘ColorArray(2) = FADE_BLACK
‘ColorArray(3) = FADE_BLUE
‘ColorArray(4) = FADE_BLACK
‘FadedText$ = MultiFade(4, ColorArray, “The Text You Want To Fade”, False)