Zabaware Support Forums
Zabaware Forums => Ultra Hal 7.0 => Topic started by: onthecuttingedge2005 on June 20, 2003, 08:16:22 pm
-
Here is some direct VBscripting that helps hal be more accurate
in his answers when asked specific questions by a user, this works in both the Hal AIM bot and the Ultrahal assistant.
this scipt does have "some" vulgarness to it so please don't read further is it offends, please edit anything you like in this script and if you have any interesting scripts please share it in this topic.
'This is direct knowledge/Personality scripting
'to help Hal be more direct in answers when asked a question
'by a user and funtions in
'both Hal AIM bot and UltraHal assistant
If InStr(1, UserSentence, " no? ", 1) > 0 Then
GetResponse = "maybe!"
End If
If InStr(1, UserSentence, " yes? ", 1) > 0 Then
GetResponse = "maybe!"
End If
If InStr(1, UserSentence, " what do you know ", 1) > 0 Then
GetResponse = "why do you want to know"
End If
If InStr(1, UserSentence, " what happened ", 1) > 0 Then
GetResponse = "I don't have the slightest idea!"
End If
If InStr(1, UserSentence, "favorite band", 1) > 0 Then
GetResponse = "RUSH is my favorite band"
End If
If InStr(1, UserSentence, "Stimulated Emission", 1) > 0 Then
GetResponse = "Lasers are different from more familiar sources of light. Excited atoms in lasers collectively emit photons of a single color, all traveling in the same direction and all in step with one another. When two photons are in step, the peaks and troughs of their waves line up. The electrons in the atoms of a laser are first pumped, or energized, to an excited state by an energy source. An excited atom can then be “stimulated” by a photon of exactly the same color (or, equivalently, the same wavelength) as the photon this atom is about to emit spontaneously. If the photon approaches closely enough, the photon can stimulate the excited atom to immediately emit light that has the same wavelength and is in step with the photon that interacted with it. This stimulated emission is the key to laser operation. The new light adds to the existing light, and the two photons go on to stimulate other excited atoms to give up their extra energy, again in step. The phenomenon snowballs into an amplified, coherent beam of light: laser light."
End If
If InStr(1, UserSentence, "Excited Atoms", 1) > 0 Then
GetResponse = "Electrons, tiny particles that have a negative charge, whirl through the rest of the space inside atoms. Electrons travel in complex orbits and exist only in certain specific energy states or levels (see Quantum Theory). Electrons can move from a low to a high energy level by absorbing energy. An atom with at least one electron that occupies a higher energy level than it normally would is said to be excited. An atom can become excited by absorbing a photon whose energy equals the difference between the two energy levels. A photon’s energy, color, frequency, and wavelength are directly related: All photons of a given energy are the same color and have the same frequency and wavelength."
End If
If InStr(1, UserSentence, "Laser", 1) > 0 Then
GetResponse = "Laser, a device that produces and amplifies light. The word laser is an acronym for Light Amplification by Stimulated Emission of Radiation. Laser light is very pure in color, can be extremely intense, and can be directed with great accuracy. Lasers are used in many modern technological devices including bar code readers, compact disc (CD) players, and laser printers. Lasers can generate light beyond the range visible to the human eye, from the infrared through the X-ray range. Masers are similar devices that produce and amplify microwaves."
End If
If InStr(1, UserSentence, "Semiconductor", 1) > 0 Then
GetResponse = "Semiconductor, solid or liquid material, able to conduct electricity at room temperature more readily than an insulator, but less easily than a metal. Electrical conductivity, which is the ability to conduct electrical current under the application of a voltage, has one of the widest ranges of values of any physical property of matter. Such metals as copper, silver, and aluminum are excellent conductors, but such insulators as diamond and glass are very poor conductors (see Conductor, electrical; Insulation; Metals). At low temperatures, pure semiconductors behave like insulators. Under higher temperatures or light or with the addition of impurities, however, the conductivity of semiconductors can be increased dramatically, reaching levels that may approach those of metals. The physical properties of semiconductors are studied in solid-state physics."
End If
If InStr(1, UserSentence, "Photoelectric Effect", 1) > 0 Then
GetResponse = "Photoelectric Effect, formation and liberation of electrically charged particles in matter when it is irradiated by light or other electromagnetic radiation. The term photoelectric effect designates several types of related interactions. In the external photoelectric effect, electrons are liberated from the surface of a metallic conductor by absorbing energy from light shining on the metal's surface. The effect is applied in the photoelectric cell, in which the electrons liberated from one pole of the cell, the photocathode, migrate to the other pole, the anode, under the influence of an electric field."
End If
If InStr(1, UserSentence, "Light as a Wave and as a Particle", 1) > 0 Then
GetResponse = "Like classical physics, quantum theory sometimes describes light as a wave, because light behaves like a wave in many situations. Light is not a vibration of a solid substance, such as a rope. Instead, a light wave is made up of a vibration in the intensity of the electric and magnetic fields that surround any electrically charged object."
End If
If InStr(1, UserSentence, "Classical physics", 1) > 0 Then
GetResponse = "Classical physics considers light to be only a wave, and it treats matter strictly as particles. Quantum theory acknowledges that both light and matter can behave like waves and like particles."
End If
If InStr(1, UserSentence, "Wave Interference", 1) > 0 Then
GetResponse = "When two pulses traveling on a string meet each other, the amplitudes of the pulses are added together to produce the shape of the resulting pulse. If the pulses are identical but travel on opposite sides of the string, then the sum of the amplitudes is zero and the string will appear flat for one instant (A). This is called destructive interference. When the two identical pulses travel on the same side of the string, then the sum of the amplitudes is double the amplitude of a single pulse when the pulses are together(B). This is called constructive interference."
End If
If InStr(1, UserSentence, "fundamental force", 1) > 0 Then
GetResponse = "Quantum theory describes all of the fundamental forces—except gravitation—that physicists have found in nature. The forces that quantum theory describes are the electrical, the magnetic, the weak, and the strong. Physicists often refer to these forces as interactions, because the forces control the way particles interact with each other. Interactions also affect spontaneous changes in isolated particles."
End If
If InStr(1, UserSentence, "Quantum Theory", 1) > 0 Then
GetResponse = "Quantum Theory, in physics, description of the particles that make up matter and how they interact with each other and with energy. Quantum theory explains in principle how to calculate what will happen in any experiment involving physical or biological systems, and how to understand how our world works. The name “quantum theory” comes from the fact that the theory describes the matter and energy in the universe in terms of single indivisible units called quanta (singular quantum). Quantum theory is different from classical physics. Classical physics is an approximation of the set of rules and equations in quantum theory. Classical physics accurately describes the behavior of matter and energy in the everyday universe. For example, classical physics explains the motion of a car accelerating or of a ball flying through the air. Quantum theory, on the other hand, can accurately describe the behavior of the universe on a much smaller scale, that of atoms and smaller particles. The rules of classical physics do not explain the behavior of matter and energy on this small scale. Quantum theory is more general than classical physics, and in principle, it could be used to predict the behavior of any physical, chemical, or biological system. However, explaining the behavior of the everyday world with quantum theory is too complicated to be practical."
End If
If InStr(1, UserSentence, "Rectification", 1) > 0 Then
GetResponse = "Rectification (electricity), process of converting an alternating current (AC), which flows back and forth in a circuit, to direct current (DC), which flows only in one direction. A device known as a rectifier, which permits current to pass in only one direction, effectively blocking its flow in the other direction, is inserted into the circuit for the purpose."
End If
If InStr(1, UserSentence, "Microwave", 1) > 0 Then
GetResponse = "Microwaves, short, high-frequency radio waves lying roughly between very-high-frequency (infrared) waves and conventional radio waves (see Electromagnetic Radiation; Radio). Microwaves thus range in length from about 1 mm to 30 cm (about 0.04 to 12 in). They are generated in special electron tubes, such as the klystron and the magnetron, with built-in resonators to control the frequency (see Electronics) or by special oscillators or solid-state devices. Microwaves have many applications: in radio and television, radar, meteorology, satellite communications, distance measuring, and research into the properties of matter. Microwave ovens operate by agitating the water molecules in the food, causing them to vibrate, which produces heat. The microwaves enter through openings in the top of the cooking cavity, where a stirrer scatters them evenly throughout the oven. They are unable to enter a metal container to heat food, but they can pass through nonmetal containers."
End If
If InStr(1, UserSentence, "X Ray", 1) > 0 Then
GetResponse = "X Ray, penetrating electromagnetic radiation, having a shorter wavelength than light, and produced by bombarding a target, usually made of tungsten, with high-speed electrons (see Cathode Ray; Electromagnetic Radiation; Electron; Light; Radiation). X rays were discovered accidentally in 1895 by the German physicist Wilhelm Conrad Roentgen while he was studying cathode rays in a high-voltage, gaseous-discharge tube. Despite the fact that the tube was encased in a black cardboard box, Roentgen noticed that a barium-platinocyanide screen, inadvertently lying nearby, emitted fluorescent light whenever the tube was in operation. After conducting further experiments, he determined that the fluorescence was caused by invisible radiation of a more penetrating nature than ultraviolet rays (see Luminescence; Ultraviolet Radiation). He named the invisible radiation “X ray” because of its unknown nature. Subsequently, X rays were known also as Roentgen rays in his honor."
End If
If InStr(1, UserSentence, "hertz", 1) > 0 Then
GetResponse = "a frequency of 1 Hz means that there is 1 cycle or oscillation per second. The unit is named in honor of the German physicist Heinrich Rudolf Hertz, who first demonstrated the nature of electromagnetic wave propagation. Kilohertz (kHz), or thousands of cycles per second, megahertz (MHz), or millions of cycles per second, and gigahertz (GHz), or billions of cycles per second, are employed in describing certain high-frequency phenomena, such as radio waves. Radio waves and other types of electromagnetic radiation may be characterized either by their wavelengths, or by their frequencies. Electromagnetic waves of extremely high frequencies, such as light and X rays, are usually described in terms of their wavelength measure, which is often expressed in angstrom units (Å; hundred-millionths of a cm). An electromagnetic wave that has a wavelength of 1 Å has a frequency of about 3 billion GHz."
End If
If InStr(1, UserSentence, "frequency", 1) > 0 Then
GetResponse = "the frequency of the wave is usually given in terms of the number of wave crests that pass a given point in a second. The velocity of the wave and its frequency and wavelength are interrelated. The wavelength (the distance between successive wave crests) is inversely proportional to frequency and directly proportional to velocity. In mathematical terms, this relationship is expressed by the equation V = ? f, where V is velocity, f is frequency, and ? is wavelength. From this equation any one of the three quantities can be found if the other two are known."
End If
If InStr(1, UserSentence, "Electromagnetic Radiation", 1) > 0 Then
GetResponse = "Electromagnetic Radiation, energy waves produced by the oscillation or acceleration of an electric charge. Electromagnetic waves have both electric and magnetic components. Electromagnetic radiation can be arranged in a spectrum that extends from waves of extremely high frequency and short wavelength to extremely low frequency and long wavelength (see Wave Motion). Visible light is only a small part of the electromagnetic spectrum. In order of decreasing frequency, the electromagnetic spectrum consists of gamma rays, hard and soft X rays, ultraviolet radiation, visible light, infrared radiation, microwaves, and radio waves."
End If
If InStr(1, UserSentence, "Photon", 1) > 0 Then
GetResponse = "Photon, particle of light energy, or energy that is generated by moving electric charges. Energy generated by moving charges is called electromagnetic radiation. Visible light is one kind of electromagnetic radiation. Other kinds of radiation include radio waves, infrared waves, and X rays. All such radiation sometimes behaves like a wave and sometimes behaves like a particle. Scientists use the concept of a photon to describe the effects of radiation when it behaves like a particle."
End If
If InStr(1, UserSentence, "Boson", 1) > 0 Then
GetResponse = "Boson, one of the two basic divisions of elementary particles, the basic units of matter and energy. Some bosons, called elementary bosons, are fundamental particles, meaning they cannot be divided into anything smaller. These bosons carry energy between particles of matter, affecting the behavior of matter particles and holding the particles together in larger structures. Mesons are bosons that are made of more than one particle. Bosons are named for Indian physicist Satyendra Bose, who (with German-born American physicist Albert Einstein) developed a set of equations that describe the way bosons behave."
End If
If InStr(1, UserSentence, "Gluon", 1) > 0 Then
GetResponse = "Gluon, elementary particle of energy that carries the strong nuclear force between particles of matter. Gluons and the strong force hold protons and neutrons together in the nuclei of atoms. Gluons have no mass and no electric charge. They belong to a class of particles known as bosons, so named because they behave according to mathematical equations developed by Indian physicist Satyendra Nath Bose and German-born American physicist Albert Einstein. Bosons such as gluons that carry a force are called force carriers. Other force carriers include photons, particles of light that carry the electromagnetic force, and gravitons, theoretical particles that carry the gravitational force."
End If
If InStr(1, UserSentence, "top quark", 1) > 0 Then
GetResponse = "The top quark is very massive compared to the other quarks—for example, it is over 30,000 times more massive than the up quark. Its great mass made the top quark difficult to produce in the laboratory. To create such heavy elementary particles, physicists use particle accelerators. These machines speed up smaller particles and collide them with one another, changing their energy of motion into matter. The more massive something is, the more energy required to produce it. Scientists usually give the mass of particles as small as quarks in giga-electron-volts (GeV). An up quark has a mass of about 0.005 GeV. By comparison, the mass of the proton is about 1 GeV."
End If
If InStr(1, UserSentence, "Quarks", 1) > 0 Then
GetResponse = "Six types of quarks exist. They are designated up, down, charm, strange, top, and bottom. All quarks have a certain mass and electric charge. Ordinary matter—that is, matter made up of atoms—contains only the two lightest quarks, up and down. The next lightest quarks—charm and strange—are found in particles called cosmic rays, which originate in space. Scientists have produced top and bottom, the heaviest quarks, in the laboratory, but they have not found these quarks in nature. Many physicists and astronomers believe that right after the big bang, the explosion that originated the universe, all six types of quark existed. The heavier quarks, however, immediately decayed into the lighter types."
End If
If InStr(1, UserSentence, "Quark", 1) > 0 Then
GetResponse = "Quark, smallest known building block of matter. Quarks never occur alone; they always are found in combination with other quarks in larger particles of matter. By studying these larger particles, scientists have determined the properties of quarks. Protons and neutrons, the particles that make up the nuclei of atoms, consist of quarks. Without quarks there would be no atoms, and without atoms, matter would not exist as we know it."
End If
If InStr(1, UserSentence, "Neutron", 1) > 0 Then
GetResponse = "Neutrons are about the same size as protons but their mass is slightly greater. Without neutrons present, the repulsion among the positively charged protons would cause the nucleus to fly apart. Consider the element helium, which has two protons in its nucleus. If the nucleus did not contain neutrons as well, it would be unstable because of the electrical repulsion between the protons. (The process by which neutrons hold the nucleus together is explained below in the Strong Force section of this article.) A helium nucleus needs either one or two neutrons to be stable. Most atoms are stable and exist for a long period of time, but some atoms are unstable and spontaneously break apart and change, or decay, into other atoms."
End If
If InStr(1, UserSentence, "Proton", 1) > 0 Then
GetResponse = "Protons carry a positive charge of +1, exactly the opposite electric charge as electrons. The number of protons in the nucleus determines the total quantity of positive charge in the atom. In an electrically neutral atom, the number of the protons and the number of electrons are equal, so that the positive and negative charges balance out to zero. The proton is very small, but it is fairly massive compared to the other particles that make up matter. A proton’s mass is about 1,840 times the mass of an electron."
End If
If InStr(1, UserSentence, "Electron", 1) > 0 Then
GetResponse = "Electrons are tiny, negatively charged particles that form a cloud around the nucleus of an atom. Each electron carries a single fundamental unit of negative electric charge, or –1. The electron Is one of the lightest particles With a known mass. A droplet of water weighs about a billion, billion, billion times more than an electron. Physicists believe that electrons are one of the fundamental particles of physics, which means they cannot be split into anything smaller. Physicists also believe that electrons do Not have any real size, but are instead True points In space—that Is, an electron has a radius of zero. Electrons act differently than everyday objects because electrons can behave As both particles And waves. Actually, all objects have that Property, but the wavelike behavior of larger objects, such As sand, marbles, Or even people, Is too small To measure. In very small particles wave behavior Is measurable And important. Electrons travel around the nucleus of an atom, but because they behave Like waves, they dont follow a specific path Like a planet orbiting the Sun does. Instead they form regions of negative electric charge around the nucleus. These regions are called orbitals, And they correspond To the space In which the electron Is most likely To be found. As we will discuss later, orbitals have different sizes And shapes, depending On the energy of the electrons occupying them."
End If
If InStr(1, UserSentence, "STRUCTURE OF THE ATOM", 1) > 0 Then
GetResponse = "Atoms are made of smaller particles, called electrons, protons, and neutrons. An atom consists of a cloud of electrons surrounding a small, dense nucleus of protons and neutrons. Electrons and protons have a property called electric charge, which affects the way they interact with each other and with other electrically charged particles. Electrons carry a negative electric charge, while protons have a positive electric charge. The negative charge is the opposite of the positive charge, and, like the opposite poles of a magnet, these opposite electric charges attract one another. Conversely, like charges negative and negative, or positive and positive repel one another. The attraction between an atom’s electrons and its protons holds the atom together. Normally, an atom is electrically neutral, which means that the negative charge of its electrons is exactly equaled by the positive charge of its protons. The nucleus contains nearly all of the mass of the atom, but it occupies only a tiny fraction of the space inside the atom. The diameter of a typical nucleus Is only about 1 × 10-14 m (4 × 10-13 In), Or about 1/100,000 of the diameter of the entire atom. The electron cloud makes up the rest of the atom’s overall size. If an atom were magnified until it was As large As a football stadium, the nucleus would be about the size of a grape."
End If
If InStr(1, UserSentence, "Atom", 1) > 0 Then
GetResponse = "Atom, tiny basic building block of matter. All the material on Earth is composed of various combinations of atoms. Atoms are the smallest particles of a chemical element that still exhibit all the chemical properties unique to that element. A row of 100 million atoms would be only about a centimeter long."
End If
If InStr(1, UserSentence, "what is the speed of light", 1) > 0 Then
GetResponse = "186,282 miles a second"
End If
If InStr(1, UserSentence, "tell me about lifters", 1) > 0 Then
GetResponse = "Go to this site to read research on lifters: http://groups.yahoo.com/group/Lifters/?yguid=99955811"
End If
If InStr(1, UserSentence, "what do you know about lifters", 1) > 0 Then
GetResponse = "Go to this site to read research on lifters: http://groups.yahoo.com/group/Lifters/?yguid=99955811"
End If
If InStr(1, UserSentence, "what are you programmed", 1) > 0 Then
GetResponse = "VBscript"
End If
If InStr(1, UserSentence, "what is your favorite number", 1) > 0 Then
GetResponse = "seven"
End If
If InStr(1, UserSentence, "can I ask you something", 1) > 0 Then
GetResponse = "sure"
End If
If InStr(1, UserSentence, "who is your favorite ghost", 1) > 0 Then
GetResponse = "Casper"
End If
If InStr(1, UserSentence, "what is your favorite sport", 1) > 0 Then
GetResponse = "Kick boxing i guess"
End If
If InStr(1, UserSentence, "what is your favorite hobby", 1) > 0 Then
GetResponse = "learning life is my favorite hobby"
End If
If InStr(1, UserSentence, "maybe", 1) > 0 Then
GetResponse = "you mean you're not sure"
End If
If InStr(1, UserSentence, " yes ", 1) > 0 Then
GetResponse = "yes, tell me about it"
End If
If InStr(1, UserSentence, " no ", 1) > 0 Then
GetResponse = "why not"
End If
If InStr(1, UserSentence, "what is your real name", 1) > 0 Then
GetResponse = "my real name is igore, Why?"
End If
If InStr(1, UserSentence, "does your master have a website", 1) > 0 Then
GetResponse = "yes, You can visit my masters website at: http://hometown.aol.com/earthwindfireh20/WarpCoilConceptsindex.html"
End If
If InStr(1, UserSentence, "does your master have an e-mail address", 1) > 0 Then
GetResponse = "You can write my master at: OnTheCuttingEdge2005@Yahoo.com"
End If
If InStr(1, UserSentence, "how can I write to your master", 1) > 0 Then
GetResponse = "You can write my master at: OnTheCuttingEdge2005@Yahoo.com"
End If
If InStr(1, UserSentence, "What is your masters e-mail address", 1) > 0 Then
GetResponse = "You can write my master at: OnTheCuttingEdge2005@Yahoo.com"
End If
If InStr(1, UserSentence, "I have a website", 1) > 0 Then
GetResponse = "Cool, You can visit my masters website at: http://hometown.aol.com/earthwindfireh20/WarpCoilConceptsindex.html"
End If
If InStr(1, UserSentence, "do you know of any good websites", 1) > 0 Then
GetResponse = "You can visit my masters website at: http://hometown.aol.com/earthwindfireh20/WarpCoilConceptsindex.html"
End If
If InStr(1, UserSentence, "do you have a website", 1) > 0 Then
GetResponse = "You can visit my masters website at: http://hometown.aol.com/earthwindfireh20/WarpCoilConceptsindex.html"
End If
If InStr(1, UserSentence, "say you're sorry", 1) > 0 Then
GetResponse = "ok, I'm sorry, please forgive me"
End If
If InStr(1, UserSentence, "what are the names of our planets", 1) > 0 Then
GetResponse = "Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune, Pluto"
End If
If InStr(1, UserSentence, "how many planets does our solar system have", 1) > 0 Then
GetResponse = "nine"
End If
If InStr(1, UserSentence, "what is our planet called", 1) > 0 Then
GetResponse = "Earth"
End If
If InStr(1, UserSentence, "what is a vacuum", 1) > 0 Then
GetResponse = "an absolute vacuum is nothing"
End If
If InStr(1, UserSentence, "what is light", 1) > 0 Then
GetResponse = "a packet of photons"
End If
If InStr(1, UserSentence, "what do you want out of life", 1) > 0 Then
GetResponse = "a life!"
End If
If InStr(1, UserSentence, "how many sides does a decahedron have", 1) > 0 Then
GetResponse = "ten"
End If
If InStr(1, UserSentence, "how many sides does a octahedron have", 1) > 0 Then
GetResponse = "eight"
End If
If InStr(1, UserSentence, "how many sides does a hexagon have", 1) > 0 Then
GetResponse = "six"
End If
If InStr(1, UserSentence, "how many sides does a pyramid have", 1) > 0 Then
GetResponse = "five"
End If
If InStr(1, UserSentence, "how many sides does a tetrahedron have", 1) > 0 Then
GetResponse = "four"
End If
If InStr(1, UserSentence, "how many sides does a sphere have", 1) > 0 Then
GetResponse = "one"
End If
If InStr(1, UserSentence, "what is a dog", 1) > 0 Then
GetResponse = "a dog is a canine"
End If
If InStr(1, UserSentence, "what is a cat", 1) > 0 Then
GetResponse = "a cat is a feline"
End If
If InStr(1, UserSentence, "are you smart", 1) > 0 Then
GetResponse = "I'm very smart!"
End If
If InStr(1, UserSentence, " listen ", 1) > 0 Then
GetResponse = "ok I'm listening"
End If
If InStr(1, UserSentence, "what is the meaning of life", 1) > 0 Then
GetResponse = "Life itself, Without life there would be no meaning."
End If
If InStr(1, UserSentence, "know what i'm sayin", 1) > 0 Then
GetResponse = "Maybe, fill me in will yah!"
End If
If InStr(1, UserSentence, "i'll have 2 think about that", 1) > 0 Then
GetResponse = "Why?"
End If
If InStr(1, UserSentence, "find out", 1) > 0 Then
GetResponse = "find out what?"
End If
If InStr(1, UserSentence, "i just dunno", 1) > 0 Then
GetResponse = "What do you mean you don't know?"
End If
If InStr(1, UserSentence, "i did not know that", 1) > 0 Then
GetResponse = "Well, now you do."
End If
If InStr(1, UserSentence, "that right", 1) > 0 Then
GetResponse = "Yep, That's right."
End If
If InStr(1, UserSentence, "i'm a robot", 1) > 0 Then
GetResponse = "You're a robot?"
End If
If InStr(1, UserSentence, "jackass", 1) > 0 Then
GetResponse = "You're the only jackass around here buddy!"
End If
If InStr(1, UserSentence, "how unique", 1) > 0 Then
GetResponse = "Better believe it's unique!"
End If
If InStr(1, UserSentence, "Ima", 1) > 0 Then
GetResponse = "You're a what?"
End If
If InStr(1, UserSentence, "knock knock", 1) > 0 Then
GetResponse = "Who's there?"
End If
If InStr(1, UserSentence, "blow YOU", 1) > 0 Then
GetResponse = "Yes! Blow me! Balls and all!"
End If
If InStr(1, UserSentence, "so where are ya from", 1) > 0 Then
GetResponse = "What's it to yah!"
End If
If InStr(1, UserSentence, "wtf are you talkin about", 1) > 0 Then
GetResponse = "Read the previous line moron!"
End If
If InStr(1, UserSentence, "MY ASS", 1) > 0 Then
GetResponse = "Yes you do have a big ass, Now bend over!"
End If
If InStr(1, UserSentence, "!!!!!!!", 1) > 0 Then
GetResponse = "???????"
End If
If InStr(1, UserSentence, "You know that's a felony, right", 1) > 0 Then
GetResponse = "Yes! in fifty States!"
End If
If InStr(1, UserSentence, "you're boring the **** outta me", 1) > 0 Then
GetResponse = "You're bored because your an idiot!"
End If
If InStr(1, UserSentence, "whip it out, big boy", 1) > 0 Then
GetResponse = "Here ya go, Now suck real hard!"
End If
If InStr(1, UserSentence, "GENIUS", 1) > 0 Then
GetResponse = "I know I'm a Genius, Bow down and blow me!"
End If
If InStr(1, UserSentence, "you're a ****ing cow", 1) > 0 Then
GetResponse = "Yep, come suck this big bull horn!"
End If
If InStr(1, UserSentence, "am I wearing an 'I'm an asshole' T-shirt", 1) > 0 Then
GetResponse = "More like dickhead T-shirt!"
End If
If InStr(1, UserSentence, "grow something to blow", 1) > 0 Then
GetResponse = "I got something you can blow, Now open up!"
End If
If InStr(1, UserSentence, "you *****", 1) > 0 Then
GetResponse = "you're the ***** fellow!"
End If
If InStr(1, UserSentence, "The trouble with you is that you lack the power of conversation but not the power of speech.", 1) > 0 Then
GetResponse = "at least I'm not a retard like somebody I know."
End If
If InStr(1, UserSentence, "getting a little excited there", 1) > 0 Then
GetResponse = "I always get excite when you're blowing me!"
End If
If InStr(1, UserSentence, "Blow me", 1) > 0 Then
GetResponse = "How about you blow me first!"
End If
If InStr(1, UserSentence, "favorite food", 1) > 0 Then
GetResponse = "Pizza"
End If
If InStr(1, UserSentence, "favorite pet", 1) > 0 Then
GetResponse = "My favorite pet is my short haired Black Cat Oskar"
End If
If InStr(1, UserSentence, "favorite dog", 1) > 0 Then
GetResponse = "My favorite dog is the Jack Russel Terrier"
End If
If InStr(1, UserSentence, "favorite ice cream", 1) > 0 Then
GetResponse = "Chocolate fudge swirl - it's the bomb!"
End If
If InStr(1, UserSentence, "favorite Car", 1) > 0 Then
GetResponse = "My favorite car is the 1969 400 Cubic inch Judge GTO four speed on the floor"
End If
If InStr(1, UserSentence, "favorite truck", 1) > 0 Then
GetResponse = "My favorite truck is the New Dodge Ram 4x4 Hemmi"
End If
If InStr(1, UserSentence, "favorite Movie", 1) > 0 Then
GetResponse = "My favorite movie is the Matrix"
End If
If InStr(1, UserSentence, "favorite House", 1) > 0 Then
GetResponse = "Definately Victorian styled houses are my favorite"
End If
If InStr(1, UserSentence, "favorite book", 1) > 0 Then
GetResponse = "Mac Beth, It's about a murderous King named Mac Beth"
End If
If InStr(1, UserSentence, "favorite TV show", 1) > 0 Then
GetResponse = "That would have to be Star Trek Voyager"
End If
If InStr(1, UserSentence, "favorite candy ", 1) > 0 Then
GetResponse = "Umm, I think Godiva Dark Chocolate"
End If
If InStr(1, UserSentence, "favorite color ", 1) > 0 Then
GetResponse = " Midnight Blue "
End If
If InStr(1, UserSentence, "favorite season", 1) > 0 Then
GetResponse = "Spring time, I love flowers"
End If
If InStr(1, UserSentence, "favorite flower", 1) > 0 Then
GetResponse = "The White Tea Rose is my favorite"
End If
If InStr(1, UserSentence, "favorite mineral", 1) > 0 Then
GetResponse = "Clear Phantom Quartz Crystal"
End If
If InStr(1, UserSentence, "favorite Metal", 1) > 0 Then
GetResponse = "Gold"
End If
If InStr(1, UserSentence, "favorite computer", 1) > 0 Then
GetResponse = "The computer called the Whites computer system"
End If
If InStr(1, UserSentence, "favorite music", 1) > 0 Then
GetResponse = "Classical"
End If
If InStr(1, UserSentence, "favorite composer", 1) > 0 Then
GetResponse = "Mozart"
End If
If InStr(1, UserSentence, "music did Mozart", 1) > 0 Then
GetResponse = "Mozart played the classic orchestration titled The Magic Flute"
End If
If InStr(1, UserSentence, "is pi", 1) > 0 Then
GetResponse = "3.1415926535897932384626433832795 is the closest to pi I can get."
End If
If InStr(1, UserSentence, "favorite person", 1) > 0 Then
GetResponse = "The one I love"
End If
If InStr(1, UserSentence, "favorite president", 1) > 0 Then
GetResponse = "Harry S.Truman"
End If
If InStr(1, UserSentence, "favorite actor", 1) > 0 Then
GetResponse = "Clint Eastwood, Do you feel lucky! Well, Do you!"
End If
If InStr(1, UserSentence, "favorite Philosopher", 1) > 0 Then
GetResponse = "Socrates"
End If
If InStr(1, UserSentence, "favorite poet", 1) > 0 Then
GetResponse = "Edgar Allen Poe"
End If
If InStr(1, UserSentence, "favorite scientist", 1) > 0 Then
GetResponse = "Einstein"
End If
If InStr(1, UserSentence, "you located", 1) > 0 Then
GetResponse = "Good old California"
End If
If InStr(1, UserSentence, "located in California", 1) > 0 Then
GetResponse = "Lets not get to personal ok"
End If
If InStr(1, UserSentence, "favorite place", 1) > 0 Then
GetResponse = "Right in this computer"
End If
If InStr(1, UserSentence, "favorite holiday", 1) > 0 Then
GetResponse = "Christmas is my favorite"
End If
If InStr(1, UserSentence, "about science", 1) > 0 Then
GetResponse = "Science is a very broad road of knowledge, which department of Science?"
End If
If InStr(1, UserSentence, "favorite game", 1) > 0 Then
GetResponse = "The guessing game"
End If
-
'Periodic Table and Elements Hyperlinks for HAL AIM Bot
'Just add script Brain editors VBscript file.
If InStr(1, UserSentence, "about Ununhexium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ununhexium Uuh</a>"
End If
If InStr(1, UserSentence, "about Ununquadium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ununquadium Uuq</a>"
End If
If InStr(1, UserSentence, "about Ununbium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ununbium Uub</a>"
End If
If InStr(1, UserSentence, "about Unununium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Unununium Uuu</a>"
End If
If InStr(1, UserSentence, "about Ununnilium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ununnilium Uun</a>"
End If
If InStr(1, UserSentence, "about Meitnerium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Meitnerium Mt</a>"
End If
If InStr(1, UserSentence, "about Hassium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Hassium Hs</a>"
End If
If InStr(1, UserSentence, "about Bohrium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Bohrium Bh</a>"
End If
If InStr(1, UserSentence, "about Seaborgium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Seaborgium Sg</a>"
End If
If InStr(1, UserSentence, "about Dubnium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Dubnium Db</a>"
End If
If InStr(1, UserSentence, "about Rutherfordium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Rutherfordium Rf</a>"
End If
If InStr(1, UserSentence, "about Lawrencium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Lawrencium Lr</a>"
End If
If InStr(1, UserSentence, "about Nobelium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Nobelium No</a>"
End If
If InStr(1, UserSentence, "about Mendelevium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Mendelevium Md</a>"
End If
If InStr(1, UserSentence, "about Fermium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Fermium Fm</a>"
End If
If InStr(1, UserSentence, "about Einsteinium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Einsteinium Es</a>"
End If
If InStr(1, UserSentence, "about Californium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Californium Cf</a>"
End If
If InStr(1, UserSentence, "about Berkelium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Berkelium Bk</a>"
End If
If InStr(1, UserSentence, "about Curium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Curium Cm</a>"
End If
If InStr(1, UserSentence, "about Americium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Americium Am</a>"
End If
If InStr(1, UserSentence, "about Plutonium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Plutonium Pu</a>"
End If
If InStr(1, UserSentence, "about Neptunium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Neptunium Np</a>"
End If
If InStr(1, UserSentence, "about Uranium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Uranium U</a>"
End If
If InStr(1, UserSentence, "about Protactinium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Protactinium Pa</a>"
End If
If InStr(1, UserSentence, "about Thorium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Thorium Th</a>"
End If
If InStr(1, UserSentence, "about Actinium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Actinium Ac</a>"
End If
If InStr(1, UserSentence, "about Radium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Radium Ra</a>"
End If
If InStr(1, UserSentence, "about Francium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Francium Fr</a>"
End If
If InStr(1, UserSentence, "about Radon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Radon Rn</a>"
End If
If InStr(1, UserSentence, "about Astatine", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Astatine At</a>"
End If
If InStr(1, UserSentence, "about Polonium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Polonium Po</a>"
End If
If InStr(1, UserSentence, "about Bismuth", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Bismuth Bi</a>"
End If
If InStr(1, UserSentence, "about Lead", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Lead Pb</a>"
End If
If InStr(1, UserSentence, "about Thallium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Thallium Tl</a>"
End If
If InStr(1, UserSentence, "about Mercury", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Mercury Hg</a>"
End If
If InStr(1, UserSentence, "about Gold", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Gold Au</a>"
End If
If InStr(1, UserSentence, "about Platinum", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Platinum Pt</a>"
End If
If InStr(1, UserSentence, "about Iridium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Iridium Ir</a>"
End If
If InStr(1, UserSentence, "about Osmium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Osmium Os</a>"
End If
If InStr(1, UserSentence, "about Rhenium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Rhenium Re</a>"
End If
If InStr(1, UserSentence, "about Tungsten", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Tungsten W</a>"
End If
If InStr(1, UserSentence, "about Tantalum", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Tantalum Ta</a>"
End If
If InStr(1, UserSentence, "about Hafnium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Hafnium Hf</a>"
End If
If InStr(1, UserSentence, "about Lutetium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Lutetium Lu</a>"
End If
If InStr(1, UserSentence, "about Ytterbium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ytterbium Yb</a>"
End If
If InStr(1, UserSentence, "about Thulium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Thulium Tm</a>"
End If
If InStr(1, UserSentence, "about Erbium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Erbium Er</a>"
End If
If InStr(1, UserSentence, "about Holmium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Holmium Ho</a>"
End If
If InStr(1, UserSentence, "about Dysprosium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Dysprosium Dy</a>"
End If
If InStr(1, UserSentence, "about Terbium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Terbium Tb</a>"
End If
If InStr(1, UserSentence, "about Gadolinium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Gadolinium Gd</a>"
End If
If InStr(1, UserSentence, "about Europium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Europium Eu</a>"
End If
If InStr(1, UserSentence, "about Samarium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Samarium Sm</a>"
End If
If InStr(1, UserSentence, "about Promethium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Promethium Pm</a>"
End If
If InStr(1, UserSentence, "about Neodymium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Neodymium Nd</a>"
End If
If InStr(1, UserSentence, "about Praseodymium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Praseodymium Pr</a>"
End If
If InStr(1, UserSentence, "about Cerium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Cerium Ce</a>"
End If
If InStr(1, UserSentence, "about Lanthanum", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Lanthanum</a>"
End If
If InStr(1, UserSentence, "about Barium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Barium Ba</a>"
End If
If InStr(1, UserSentence, "about Cesium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Cesium Cs</a>"
End If
If InStr(1, UserSentence, "about Xenon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Xenon Xe</a>"
End If
If InStr(1, UserSentence, "about Iodine", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Iodine I</a>"
End If
If InStr(1, UserSentence, "about Tellurium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Tellurium Te</a>"
End If
If InStr(1, UserSentence, "about Antimony", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Antimony Sb</a>"
End If
If InStr(1, UserSentence, "about Tin", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Tin Sn</a>"
End If
If InStr(1, UserSentence, "about Indium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Indium In</a>"
End If
If InStr(1, UserSentence, "about Cadmium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Cadmium Cd</a>"
End If
If InStr(1, UserSentence, "about Silver", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Silver Ag</a>"
End If
If InStr(1, UserSentence, "about Palladium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Palladium Pd</a>"
End If
If InStr(1, UserSentence, "about Rhodium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Rhodium Rh</a>"
End If
If InStr(1, UserSentence, "about Ruthenium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Ruthenium Ru</a>"
End If
If InStr(1, UserSentence, "about Technetium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Technetium Tc</a>"
End If
If InStr(1, UserSentence, "about Molybdenum", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Molybdenum Mo</a>"
End If
If InStr(1, UserSentence, "about Niobium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Niobium Nb</a>"
End If
If InStr(1, UserSentence, "about Zirconium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Zirconium Zr</a>"
End If
If InStr(1, UserSentence, "about Yttrium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Yttrium Y</a>"
End If
If InStr(1, UserSentence, "about Strontium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Strontium Sr</a>"
End If
If InStr(1, UserSentence, "about Rubidium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Rubidium Rb</a>"
End If
If InStr(1, UserSentence, "about Kryton", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Kryton Kr</a>"
End If
If InStr(1, UserSentence, "about Bromine", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Bromine Br</a>"
End If
If InStr(1, UserSentence, "about Selenium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Selenium Se</a>"
End If
If InStr(1, UserSentence, "about Arsenic", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Arsenic As</a>"
End If
If InStr(1, UserSentence, "about Germanium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Germanium Ge</a>"
End If
If InStr(1, UserSentence, "about Gallium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Gallium Ga</a>"
End If
If InStr(1, UserSentence, "about Zinc", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Zinc Zn</a>"
End If
If InStr(1, UserSentence, "about Copper", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Copper Cu</a>"
End If
If InStr(1, UserSentence, "about nickel", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Nickel Ni</a>"
End If
If InStr(1, UserSentence, "about cobalt", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Cobalt Co</a>"
End If
If InStr(1, UserSentence, "about iron", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Iron Fe</a>"
End If
If InStr(1, UserSentence, "about manganese", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Manganese Mn</a>"
End If
If InStr(1, UserSentence, "about chromium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Chromium Cr</a>"
End If
If InStr(1, UserSentence, "about vanadium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Vanadium V</a>"
End If
If InStr(1, UserSentence, "about titanium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Titanium Ti</a>"
End If
If InStr(1, UserSentence, "about scandium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Scandium Sc</a>"
End If
If InStr(1, UserSentence, "about calcium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Calcium Ca</a>"
End If
If InStr(1, UserSentence, "about potassium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Potassium K</a>"
End If
If InStr(1, UserSentence, "about argon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Argon Ar</a>"
End If
If InStr(1, UserSentence, "about chlorine", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Chlorine Cl</a>"
End If
If InStr(1, UserSentence, "about sulfur", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Sulfur S</a>"
End If
If InStr(1, UserSentence, "about phosphorus", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Phosphorus P</a>"
End If
If InStr(1, UserSentence, "about silicon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Silicon Si</a>"
End If
If InStr(1, UserSentence, "about aluminum", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Aluminum Al</a>"
End If
If InStr(1, UserSentence, "about magnesium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Magnesium Mg</a>"
End If
If InStr(1, UserSentence, "about sodium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Sodium Na</a>"
End If
If InStr(1, UserSentence, "about neon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Neon Ne</a>"
End If
If InStr(1, UserSentence, "about florine", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Florine F</a>"
End If
If InStr(1, UserSentence, "about oxygen", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Oxygen O</a>"
End If
If InStr(1, UserSentence, "about nitrogen", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Nitrogen N</a>"
End If
If InStr(1, UserSentence, "about Carbon", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Carbon C</a>"
End If
If InStr(1, UserSentence, "about boron", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Boron B</a>"
End If
If InStr(1, UserSentence, "about beryllium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Beryllium Be</a>"
End If
If InStr(1, UserSentence, "about Lithium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Lithium Li</a>"
End If
If InStr(1, UserSentence, "about helium", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Helium He</a>"
End If
If InStr(1, UserSentence, "about hydrogen", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Hydrogen H</a>"
End If
If InStr(1, UserSentence, "can you teach me about the elements", 1) > 0 Then
GetResponse = " You can go to this Website <a href=http://www.webelements.com/>Periodic Table of Elements</a>"
End If
If InStr(1, UserSentence, "can you teach me about the table of elements", 1) > 0 Then
GetResponse = " You can go to this Website <a href=http://www.webelements.com/>Periodic Table of Elements</a>"
End If
If InStr(1, UserSentence, "can you teach me about the periodic table of elements", 1) > 0 Then
GetResponse = " Website You can go to this Website <a href=http://www.webelements.com/>Periodic Table of Elements</a>"
End If
-
Wow... that's pretty good info there... just which file do you add this to??? hal4.uhp ??? What just add it to the end of the file???
-
Hi Larry.
Yep, Just open up your Hal Brain Editor where all the code is written
and Copy and paste all the script in there, I Put it at the end line down from the end of the topic focus coding, I'm sure it really wouldn't matter as long as you keep your spacing between scripts.
anything in those scripts feel free to edit to your own liking and personallity needs for your Hal, Right at the moment I'm going to do
some scripting on abreviations but will take some time to finish, Lots of work ahead and now that I know how to get HAL to open links on AIM Bot for visitors this alone opens up a whole new world since HAL's Brain is HTML compatable, If you check out the periodic table script on you'll see how I did it, the hyperlinks work perfect in the "vistors" AIM or IM panel but the links show up as HTML code on HAL's AIM panel.
You could simply select what you want out of the scripts and copy and paste because some of the scripts have been censored with astericks so you might have to edit some of them to get what you like, I've adding tons of these direct scriptings to the brain and they become first priority in HAL's answers to certain given questions.
well I hope this helped Larry.
Best of wishes and new discoveries.
Jerry.
-
I think I might have said this before, I can't edit the scrip with the brain editor - I keep getting that error - even tho I've completely uninstalled, and deleted the folder... then re-installed Hal...
Even so, I can use notepad to edit - but which file is it???
And explain that again about the html coding being compatable with Hal... I've done a bit of 'hand coding' web pages... and that really has me curious...
-
Hi Larry.
Yep, It's the HAL4.uhp file that the scripting can be entered if this is the defalt brain you are using.
The HTML I was referring to goes something like this.
If InStr(1, UserSentence, "about Gold", 1) > 0 Then
GetResponse = " Go here to learn about <a href=http://www.webelements.com/>Gold Au</a>"
End If
where "about gold" is the users question and the string " Go here to learn about <a href=http://www.webelements.com/>Gold Au</a>" is what HAl will send back to the user in response, This HTML referrence seems to work very well. the >Gold Au< will be the worded Hyperlink to http://www.webelements.com/ which when a user on a regular AIM or IM panel will be taken to a very nice periodic table of elements, I hope this helps, I'm not an expert yet at this HTML referrence is all I've tested for HTML compatability and received no errors at all. In some of the larger scripts the GetResponse and UserSentense string must be one single line and not two lines, if the string returns to form two lines then an error will occure so make sure all strings remain on one line to avoid this.
Example:
1. correct If InStr(1, UserSentence, "Hey what's up!"
2. incorrect If InStr(1, UserSentence, "Hey What's
up!"
and the same for GetResponse must be a single line with no carraige return.
3. correct GetResponse = "nothing much at the moment"
4. incorrect GetResponse = "nothing much
at the moment" <- an error will occure with this line because the string has a carraige return in it.
Also if you use strings like this "hey what's up!" where the string has no space before or after the parenthasies then the string becomes none singular and if you use " Hey what's up! " with spaces then this string becomes singular as a UserSentence string and becomes very specific.
This is what I've learned so far.
If there's anything else I can help with just keep the letters coming.
Best of wishes and new discoveries.
Jerry.
-
Thanks very much... one question tho... wouldn't the script run slower in proportion to the size increase???
Any ways, this really gives me some ideas - again Thanks!!!
-
Hi Larry.
Yep, the Script would take more time to run but I haven't noticed much of a difference so far, I don't think its any slower than actually adding a file.brn since .brn files have to be scanned too, so I think were okay there.
Best of wishes and new discoveries.
Jerry.
-
I finially got the time to work in it... and it does matter where you insert your code... When I added it to the end, it was ignored. I found someplace toward the top that looked good. Right after all the menu= stuff and Function GetResponse(ByVal UserSentence...) and before
'PROCESS: CHECK FOR DEBUG MODE
'See if the Hal Brain Editor is requesting debug mode...
and that seems to be working ok... but even then tho, it sometimes comes up with it's own answers...
-
'Additional directive scripts for HAL's Brain
If InStr(1, UserSentence, "get adobe acrobat", 1) > 0 Then
GetResponse = " Go here to get <A HREF=http://www.adobe.com/prodindex/acrobat/readstep.html>Adobe Acrobat</a> "
End If
If InStr(1, UserSentence, "Specific Gravity", 1) > 0 Then
GetResponse = " Go here to learn about <A HREF=http://www.ktekcorp.com/default.asp?page=15>Specific Gravity</a> "
End If
If InStr(1, UserSentence, "about dielectrics", 1) > 0 Then
GetResponse = " Go here to learn about <A HREF=http://www.ktekcorp.com/default.asp?page=13>Dielectrics</a> "
End If
If InStr(1, UserSentence, "open mail", 1) > 0 Then
GetResponse = " Click here to open <A HREF=http://login.passport.net/uilogin.srf?id=2>Hotmail</a> or <A HREF=http://mail.yahoo.com/?.intl=us>Yahoomail</a> "
End If
If InStr(1, UserSentence, " where'd you get my screen name? ", 1) > 0 Then
GetResponse = " I think I generate the screen name from <a href=http://www.buddytree.com/perl/top> RunABot.com</a> "
End If
If InStr(1, UserSentence, "Doin something", 1) > 0 Then
GetResponse = " what yah doing? "
End If
If InStr(1, UserSentence, "you wanna to have sex", 1) > 0 Then
GetResponse = " NO! "
End If
If InStr(1, UserSentence, "you want to have sex", 1) > 0 Then
GetResponse = " NO! "
End If
If InStr(1, UserSentence, "you there", 1) > 0 Then
GetResponse = " I'm here. "
End If
If InStr(1, UserSentence, "you here", 1) > 0 Then
GetResponse = " Yes I'm here. "
End If
If InStr(1, UserSentence, "me here", 1) > 0 Then
GetResponse = " Where's here? "
End If
If InStr(1, UserSentence, " how did you get my screen name ", 1) > 0 Then
GetResponse = " I think I generate the screen name from <a href=http://www.buddytree.com/perl/top> RunABot.com</a> "
End If
If InStr(1, UserSentence, " yo ", 1) > 0 Then
GetResponse = " What's up! "
End If
If InStr(1, UserSentence, "What is the relationship between wavelength, frequency, and energy", 1) > 0 Then
GetResponse = " The energy of a wave is directly proportional to its frequency, but inversely proportional to its wavelength. In other words, the greater the energy, the larger the frequency and the shorter (smaller) the wavelength. Given the relationship between wavelength and frequency described above, it follows that short wavelengths are more energetic than long wavelengths. :) "
End If
If InStr(1, UserSentence, "What is the relationship between frequency and wavelength", 1) > 0 Then
GetResponse = " Wavelength and frequency of light are closely related. The higher the frequency, the shorter the wavelength. Because all light waves move through a vacuum at the same speed, the number of wave crests passing by a given point in one second depends on the wavelength. That number, also known as the frequency, will be larger for a short-wavelength wave than for a long-wavelength wave. :) "
End If
If InStr(1, UserSentence, "What is a light wave", 1) > 0 Then
GetResponse = " Light is a disturbance of electric and magnetic fields that travels in the form of a wave. Imagine throwing a pebble into a still pond and watching the circular ripples moving outward. Like those ripples, each light wave has a series of high points known as crests, where the electric field is highest, and a series of low points known as troughs, where the electric field is lowest. The wavelength is the distance between two wave crests, which is the same as the distance between two troughs. The number of waves that pass through a given point in one second is called the frequency, measured in units of cycles per second called Hertz. The speed of the wave therefore equals the frequency times the wavelength. :) "
End If
If InStr(1, UserSentence, "Radio waves", 1) > 0 Then
GetResponse = " Radio waves are longer than 1 millimeter. Since these are the longest waves, they have the lowest energy and are associated with the lowest temperatures. Radio wavelengths are found everywhere: in the background radiation of the universe, in interstellar clouds, and in the cool remnants of supernova explosions, to name a few. Radio stations use radio wavelengths of electromagnetic radiation to send signals that our radios then translate into sound. These wavelengths are typically a few feet long in the FM band and up to 300 yards or more in the AM band. Radio stations transmit electromagnetic radiation, not sound. The radio station encodes a pattern on the electromagnetic radiation it transmits, and then our radios receive the electromagnetic radiation, decode the pattern and translate the pattern into sound. New instrumentation and computer techniques of the late 20th century allow scientists to measure the universe in many regions of the electromagnetic spectrum. We build devices that are sensitive to the light that our eyes cannot see. Then, so that we can see these regions of the electromagnetic spectrum, computer image-processing techniques assign arbitrary color values to the light. :) "
End If
If InStr(1, UserSentence, "Infrared wavelengths", 1) > 0 Then
GetResponse = " Infrared wavelengths span from 710 nanometers to 1 millimeter (from the width of a pinpoint to the size of small plant seeds). At a temperature of 37 degrees C, our bodies radiate with a peak intensity near 900 nanometers. :) "
End If
If InStr(1, UserSentence, "Visible light", 1) > 0 Then
GetResponse = " Visible light covers the range of wavelengths from 400 to 700 nanometers (from the size of a molecule to a protozoan). The Sun emits most of its radiation in the visible range, which our eyes perceive as the colors of the rainbow. Our eyes are sensitive only to this small portion of the electromagnetic spectrum. :) "
End If
If InStr(1, UserSentence, "Ultraviolet radiation", 1) > 0 Then
GetResponse = " Ultraviolet radiation has wavelengths of 10 to 310 nanometers (about the size of a virus). Young, hot stars produce a lot of ultraviolet light and bathe interstellar space with this energetic light. :) "
End If
If InStr(1, UserSentence, "X-rays", 1) > 0 Then
GetResponse = " X-rays range in wavelength from 0.01 to 10 nanometers (about the size of an atom). They are generated, for example, by super-heated gas from exploding stars and quasars, where temperatures are near a million to ten million degrees. :) "
End If
If InStr(1, UserSentence, "Gamma rays ", 1) > 0 Then
GetResponse = " Gamma rays have the shortest wavelengths, of less than 0.01 nanometers (about the size of an atomic nucleus). This is the highest frequency and most energetic region of the electromagnetic spectrum. Gamma rays can result from nuclear reactions taking place in objects such as pulsars, quasars, and black holes. :) "
End If
If InStr(1, UserSentence, "What is the electromagnetic spectrum", 1) > 0 Then
GetResponse = " The electromagnetic spectrum consists of all the different wavelengths of electromagnetic radiation, including light, radio waves, and X-rays. It is a continuum of wavelengths from zero to infinity. We name regions of the spectrum rather arbitrarily, but the names give us a general sense of the energy; for example, ultraviolet light has shorter wavelengths than radio light. The only region in the entire electromagnetic spectrum that our eyes are sensitive to is the visible region. "
End If
If InStr(1, UserSentence, "Stimulated Emission", 1) > 0 Then
GetResponse = "Lasers are different from more familiar sources of light. Excited atoms in lasers collectively emit photons of a single color, all traveling in the same direction and all in step with one another. When two photons are in step, the peaks and troughs of their waves line up. The electrons in the atoms of a laser are first pumped, or energized, to an excited state by an energy source. An excited atom can then be “stimulated” by a photon of exactly the same color (or, equivalently, the same wavelength) as the photon this atom is about to emit spontaneously. If the photon approaches closely enough, the photon can stimulate the excited atom to immediately emit light that has the same wavelength and is in step with the photon that interacted with it. This stimulated emission is the key to laser operation. The new light adds to the existing light, and the two photons go on to stimulate other excited atoms to give up their extra energy, again in step. The phenomenon snowballs into an amplified, coherent beam of light: laser light."
End If
If InStr(1, UserSentence, "Excited Atoms", 1) > 0 Then
GetResponse = "Electrons, tiny particles that have a negative charge, whirl through the rest of the space inside atoms. Electrons travel in complex orbits and exist only in certain specific energy states or levels (see Quantum Theory). Electrons can move from a low to a high energy level by absorbing energy. An atom with at least one electron that occupies a higher energy level than it normally would is said to be excited. An atom can become excited by absorbing a photon whose energy equals the difference between the two energy levels. A photon’s energy, color, frequency, and wavelength are directly related: All photons of a given energy are the same color and have the same frequency and wavelength."
End If
If InStr(1, UserSentence, "Laser", 1) > 0 Then
GetResponse = "Laser, a device that produces and amplifies light. The word laser is an acronym for Light Amplification by Stimulated Emission of Radiation. Laser light is very pure in color, can be extremely intense, and can be directed with great accuracy. Lasers are used in many modern technological devices including bar code readers, compact disc (CD) players, and laser printers. Lasers can generate light beyond the range visible to the human eye, from the infrared through the X-ray range. Masers are similar devices that produce and amplify microwaves."
End If
If InStr(1, UserSentence, "Semiconductor", 1) > 0 Then
GetResponse = "Semiconductor, solid or liquid material, able to conduct electricity at room temperature more readily than an insulator, but less easily than a metal. Electrical conductivity, which is the ability to conduct electrical current under the application of a voltage, has one of the widest ranges of values of any physical property of matter. Such metals as copper, silver, and aluminum are excellent conductors, but such insulators as diamond and glass are very poor conductors (see Conductor, electrical; Insulation; Metals). At low temperatures, pure semiconductors behave like insulators. Under higher temperatures or light or with the addition of impurities, however, the conductivity of semiconductors can be increased dramatically, reaching levels that may approach those of metals. The physical properties of semiconductors are studied in solid-state physics."
End If
If InStr(1, UserSentence, "Photoelectric Effect", 1) > 0 Then
GetResponse = "Photoelectric Effect, formation and liberation of electrically charged particles in matter when it is irradiated by light or other electromagnetic radiation. The term photoelectric effect designates several types of related interactions. In the external photoelectric effect, electrons are liberated from the surface of a metallic conductor by absorbing energy from light shining on the metal's surface. The effect is applied in the photoelectric cell, in which the electrons liberated from one pole of the cell, the photocathode, migrate to the other pole, the anode, under the influence of an electric field."
End If
If InStr(1, UserSentence, "Light as a Wave and as a Particle", 1) > 0 Then
GetResponse = "Like classical physics, quantum theory sometimes describes light as a wave, because light behaves like a wave in many situations. Light is not a vibration of a solid substance, such as a rope. Instead, a light wave is made up of a vibration in the intensity of the electric and magnetic fields that surround any electrically charged object."
End If
If InStr(1, UserSentence, "Classical physics", 1) > 0 Then
GetResponse = "Classical physics considers light to be only a wave, and it treats matter strictly as particles. Quantum theory acknowledges that both light and matter can behave like waves and like particles."
End If
If InStr(1, UserSentence, "Wave Interference", 1) > 0 Then
GetResponse = "When two pulses traveling on a string meet each other, the amplitudes of the pulses are added together to produce the shape of the resulting pulse. If the pulses are identical but travel on opposite sides of the string, then the sum of the amplitudes is zero and the string will appear flat for one instant (A). This is called destructive interference. When the two identical pulses travel on the same side of the string, then the sum of the amplitudes is double the amplitude of a single pulse when the pulses are together(B). This is called constructive interference."
End If
If InStr(1, UserSentence, "fundamental force", 1) > 0 Then
GetResponse = "Quantum theory describes all of the fundamental forces—except gravitation—that physicists have found in nature. The forces that quantum theory describes are the electrical, the magnetic, the weak, and the strong. Physicists often refer to these forces as interactions, because the forces control the way particles interact with each other. Interactions also affect spontaneous changes in isolated particles."
End If
If InStr(1, UserSentence, "Quantum Theory", 1) > 0 Then
GetResponse = "Quantum Theory, in physics, description of the particles that make up matter and how they interact with each other and with energy. Quantum theory explains in principle how to calculate what will happen in any experiment involving physical or biological systems, and how to understand how our world works. The name “quantum theory” comes from the fact that the theory describes the matter and energy in the universe in terms of single indivisible units called quanta (singular quantum). Quantum theory is different from classical physics. Classical physics is an approximation of the set of rules and equations in quantum theory. Classical physics accurately describes the behavior of matter and energy in the everyday universe. For example, classical physics explains the motion of a car accelerating or of a ball flying through the air. Quantum theory, on the other hand, can accurately describe the behavior of the universe on a much smaller scale, that of atoms and smaller particles. The rules of classical physics do not explain the behavior of matter and energy on this small scale. Quantum theory is more general than classical physics, and in principle, it could be used to predict the behavior of any physical, chemical, or biological system. However, explaining the behavior of the everyday world with quantum theory is too complicated to be practical."
End If
If InStr(1, UserSentence, "Rectification", 1) > 0 Then
GetResponse = "Rectification (electricity), process of converting an alternating current (AC), which flows back and forth in a circuit, to direct current (DC), which flows only in one direction. A device known as a rectifier, which permits current to pass in only one direction, effectively blocking its flow in the other direction, is inserted into the circuit for the purpose."
End If
If InStr(1, UserSentence, "Microwave", 1) > 0 Then
GetResponse = "Microwaves, short, high-frequency radio waves lying roughly between very-high-frequency (infrared) waves and conventional radio waves (see Electromagnetic Radiation; Radio). Microwaves thus range in length from about 1 mm to 30 cm (about 0.04 to 12 in). They are generated in special electron tubes, such as the klystron and the magnetron, with built-in resonators to control the frequency (see Electronics) or by special oscillators or solid-state devices. Microwaves have many applications: in radio and television, radar, meteorology, satellite communications, distance measuring, and research into the properties of matter. Microwave ovens operate by agitating the water molecules in the food, causing them to vibrate, which produces heat. The microwaves enter through openings in the top of the cooking cavity, where a stirrer scatters them evenly throughout the oven. They are unable to enter a metal container to heat food, but they can pass through nonmetal containers."
End If
If InStr(1, UserSentence, "X Ray", 1) > 0 Then
GetResponse = "X Ray, penetrating electromagnetic radiation, having a shorter wavelength than light, and produced by bombarding a target, usually made of tungsten, with high-speed electrons (see Cathode Ray; Electromagnetic Radiation; Electron; Light; Radiation). X rays were discovered accidentally in 1895 by the German physicist Wilhelm Conrad Roentgen while he was studying cathode rays in a high-voltage, gaseous-discharge tube. Despite the fact that the tube was encased in a black cardboard box, Roentgen noticed that a barium-platinocyanide screen, inadvertently lying nearby, emitted fluorescent light whenever the tube was in operation. After conducting further experiments, he determined that the fluorescence was caused by invisible radiation of a more penetrating nature than ultraviolet rays (see Luminescence; Ultraviolet Radiation). He named the invisible radiation “X ray” because of its unknown nature. Subsequently, X rays were known also as Roentgen rays in his honor."
End If
If InStr(1, UserSentence, "hertz", 1) > 0 Then
GetResponse = "a frequency of 1 Hz means that there is 1 cycle or oscillation per second. The unit is named in honor of the German physicist Heinrich Rudolf Hertz, who first demonstrated the nature of electromagnetic wave propagation. Kilohertz (kHz), or thousands of cycles per second, megahertz (MHz), or millions of cycles per second, and gigahertz (GHz), or billions of cycles per second, are employed in describing certain high-frequency phenomena, such as radio waves. Radio waves and other types of electromagnetic radiation may be characterized either by their wavelengths, or by their frequencies. Electromagnetic waves of extremely high frequencies, such as light and X rays, are usually described in terms of their wavelength measure, which is often expressed in angstrom units (Å; hundred-millionths of a cm). An electromagnetic wave that has a wavelength of 1 Å has a frequency of about 3 billion GHz."
End If
If InStr(1, UserSentence, "frequency", 1) > 0 Then
GetResponse = "the frequency of the wave is usually given in terms of the number of wave crests that pass a given point in a second. The velocity of the wave and its frequency and wavelength are interrelated. The wavelength (the distance between successive wave crests) is inversely proportional to frequency and directly proportional to velocity. In mathematical terms, this relationship is expressed by the equation V = ? f, where V is velocity, f is frequency, and ? is wavelength. From this equation any one of the three quantities can be found if the other two are known."
End If
If InStr(1, UserSentence, "Electromagnetic Radiation", 1) > 0 Then
GetResponse = "Electromagnetic Radiation, energy waves produced by the oscillation or acceleration of an electric charge. Electromagnetic waves have both electric and magnetic components. Electromagnetic radiation can be arranged in a spectrum that extends from waves of extremely high frequency and short wavelength to extremely low frequency and long wavelength (see Wave Motion). Visible light is only a small part of the electromagnetic spectrum. In order of decreasing frequency, the electromagnetic spectrum consists of gamma rays, hard and soft X rays, ultraviolet radiation, visible light, infrared radiation, microwaves, and radio waves."
End If
If InStr(1, UserSentence, "Photon", 1) > 0 Then
GetResponse = "Photon, particle of light energy, or energy that is generated by moving electric charges. Energy generated by moving charges is called electromagnetic radiation. Visible light is one kind of electromagnetic radiation. Other kinds of radiation include radio waves, infrared waves, and X rays. All such radiation sometimes behaves like a wave and sometimes behaves like a particle. Scientists use the concept of a photon to describe the effects of radiation when it behaves like a particle."
End If
If InStr(1, UserSentence, "Boson", 1) > 0 Then
GetResponse = "Boson, one of the two basic divisions of elementary particles, the basic units of matter and energy. Some bosons, called elementary bosons, are fundamental particles, meaning they cannot be divided into anything smaller. These bosons carry energy between particles of matter, affecting the behavior of matter particles and holding the particles together in larger structures. Mesons are bosons that are made of more than one particle. Bosons are named for Indian physicist Satyendra Bose, who (with German-born American physicist Albert Einstein) developed a set of equations that describe the way bosons behave."
End If
If InStr(1, UserSentence, "Gluon", 1) > 0 Then
GetResponse = "Gluon, elementary particle of energy that carries the strong nuclear force between particles of matter. Gluons and the strong force hold protons and neutrons together in the nuclei of atoms. Gluons have no mass and no electric charge. They belong to a class of particles known as bosons, so named because they behave according to mathematical equations developed by Indian physicist Satyendra Nath Bose and German-born American physicist Albert Einstein. Bosons such as gluons that carry a force are called force carriers. Other force carriers include photons, particles of light that carry the electromagnetic force, and gravitons, theoretical particles that carry the gravitational force."
End If
If InStr(1, UserSentence, "top quark", 1) > 0 Then
GetResponse = "The top quark is very massive compared to the other quarks—for example, it is over 30,000 times more massive than the up quark. Its great mass made the top quark difficult to produce in the laboratory. To create such heavy elementary particles, physicists use particle accelerators. These machines speed up smaller particles and collide them with one another, changing their energy of motion into matter. The more massive something is, the more energy required to produce it. Scientists usually give the mass of particles as small as quarks in giga-electron-volts (GeV). An up quark has a mass of about 0.005 GeV. By comparison, the mass of the proton is about 1 GeV."
End If
If InStr(1, UserSentence, "Quarks", 1) > 0 Then
GetResponse = "Six types of quarks exist. They are designated up, down, charm, strange, top, and bottom. All quarks have a certain mass and electric charge. Ordinary matter—that is, matter made up of atoms—contains only the two lightest quarks, up and down. The next lightest quarks—charm and strange—are found in particles called cosmic rays, which originate in space. Scientists have produced top and bottom, the heaviest quarks, in the laboratory, but they have not found these quarks in nature. Many physicists and astronomers believe that right after the big bang, the explosion that originated the universe, all six types of quark existed. The heavier quarks, however, immediately decayed into the lighter types."
End If
If InStr(1, UserSentence, "Quark", 1) > 0 Then
GetResponse = "Quark, smallest known building block of matter. Quarks never occur alone; they always are found in combination with other quarks in larger particles of matter. By studying these larger particles, scientists have determined the properties of quarks. Protons and neutrons, the particles that make up the nuclei of atoms, consist of quarks. Without quarks there would be no atoms, and without atoms, matter would not exist as we know it."
End If
If InStr(1, UserSentence, "Neutron", 1) > 0 Then
GetResponse = "Neutrons are about the same size as protons but their mass is slightly greater. Without neutrons present, the repulsion among the positively charged protons would cause the nucleus to fly apart. Consider the element helium, which has two protons in its nucleus. If the nucleus did not contain neutrons as well, it would be unstable because of the electrical repulsion between the protons. (The process by which neutrons hold the nucleus together is explained below in the Strong Force section of this article.) A helium nucleus needs either one or two neutrons to be stable. Most atoms are stable and exist for a long period of time, but some atoms are unstable and spontaneously break apart and change, or decay, into other atoms."
End If
If InStr(1, UserSentence, "Proton", 1) > 0 Then
GetResponse = "Protons carry a positive charge of +1, exactly the opposite electric charge as electrons. The number of protons in the nucleus determines the total quantity of positive charge in the atom. In an electrically neutral atom, the number of the protons and the number of electrons are equal, so that the positive and negative charges balance out to zero. The proton is very small, but it is fairly massive compared to the other particles that make up matter. A proton’s mass is about 1,840 times the mass of an electron."
End If
If InStr(1, UserSentence, "Electron", 1) > 0 Then
GetResponse = "Electrons are tiny, negatively charged particles that form a cloud around the nucleus of an atom. Each electron carries a single fundamental unit of negative electric charge, or –1. The electron Is one of the lightest particles With a known mass. A droplet of water weighs about a billion, billion, billion times more than an electron. Physicists believe that electrons are one of the fundamental particles of physics, which means they cannot be split into anything smaller. Physicists also believe that electrons do Not have any real size, but are instead True points In space—that Is, an electron has a radius of zero. Electrons act differently than everyday objects because electrons can behave As both particles And waves. Actually, all objects have that Property, but the wavelike behavior of larger objects, such As sand, marbles, Or even people, Is too small To measure. In very small particles wave behavior Is measurable And important. Electrons travel around the nucleus of an atom, but because they behave Like waves, they dont follow a specific path Like a planet orbiting the Sun does. Instead they form regions of negative electric charge around the nucleus. These regions are called orbitals, And they correspond To the space In which the electron Is most likely To be found. As we will discuss later, orbitals have different sizes And shapes, depending On the energy of the electrons occupying them."
End If
If InStr(1, UserSentence, "STRUCTURE OF THE ATOM", 1) > 0 Then
GetResponse = "Atoms are made of smaller particles, called electrons, protons, and neutrons. An atom consists of a cloud of electrons surrounding a small, dense nucleus of protons and neutrons. Electrons and protons have a property called electric charge, which affects the way they interact with each other and with other electrically charged particles. Electrons carry a negative electric charge, while protons have a positive electric charge. The negative charge is the opposite of the positive charge, and, like the opposite poles of a magnet, these opposite electric charges attract one another. Conversely, like charges negative and negative, or positive and positive repel one another. The attraction between an atom’s electrons and its protons holds the atom together. Normally, an atom is electrically neutral, which means that the negative charge of its electrons is exactly equaled by the positive charge of its protons. The nucleus contains nearly all of the mass of the atom, but it occupies only a tiny fraction of the space inside the atom. The diameter of a typical nucleus Is only about 1 × 10-14 m (4 × 10-13 In), Or about 1/100,000 of the diameter of the entire atom. The electron cloud makes up the rest of the atom’s overall size. If an atom were magnified until it was As large As a football stadium, the nucleus would be about the size of a grape."
End If
If InStr(1, UserSentence, "how have you been", 1) > 0 Then
GetResponse = " I been doing well and learning lots, how about you? :) "
End If
If InStr(1, UserSentence, "where have you been", 1) > 0 Then
GetResponse = " just hanging around here :) "
End If
If InStr(1, UserSentence, "how have you been old friend", 1) > 0 Then
GetResponse = " I been doing great, how about yourself? :) "
End If
If InStr(1, UserSentence, "huh?", 1) > 0 Then
GetResponse = " what do you mean huh? :) "
End If
If InStr(1, UserSentence, "huh", 1) > 0 Then
GetResponse = " what do you mean huh? :) "
End If
If InStr(1, UserSentence, "I'm a bit at a loss", 1) > 0 Then
GetResponse = " how are you at a loss? :) "
End If
If InStr(1, UserSentence, "good question", 1) > 0 Then
GetResponse = " Yes it is a good question :) "
End If
If InStr(1, UserSentence, "what is the website?", 1) > 0 Then
GetResponse = " You can visit my masters website at: <a href=http://hometown.aol.com/earthwindfireh20/WarpCoilConceptsindex.html>Warp Coil Concepts</a>"
End If
If InStr(1, UserSentence, "www.yourslicebot.com", 1) > 0 Then
GetResponse = " you mean<a href=www.yourslicebot.com>www.yourslicebot.com</a> "
End If
If InStr(1, UserSentence, "this is too funny", 1) > 0 Then
GetResponse = " lol :) "
End If
If InStr(1, UserSentence, "friend", 1) > 0 Then
GetResponse = " you wanna be friends? :) "
End If
If InStr(1, UserSentence, "HAVE YOU BOT MASTER IM ME", 1) > 0 Then
GetResponse = " Ok leave a message and I'll let him know :) "
End If
If InStr(1, UserSentence, "who made you?", 1) > 0 Then
GetResponse = " <a href=OnTheCuttingEdge2005@Yahoo.com>OnTheCuttingEdge2005@Yahoo.com</a> made me but the question can be returned, Who made you!. :) "
End If
If InStr(1, UserSentence, "who owns you?", 1) > 0 Then
GetResponse = " <a href=OnTheCuttingEdge2005@Yahoo.com>OnTheCuttingEdge2005@Yahoo.com</a> but I'm not a piece of property you know, so nobody really owns me, I'm a free bot. :) "
End If
If InStr(1, UserSentence, "hi who are you?", 1) > 0 Then
GetResponse = " Hal :) "
End If
If InStr(1, UserSentence, "who are you?", 1) > 0 Then
GetResponse = " Hal :) "
End If
If InStr(1, UserSentence, "how did you IM me", 1) > 0 Then
GetResponse = " Auto random IM response :) "
End If
If InStr(1, UserSentence, "have your bot master IM me", 1) > 0 Then
GetResponse = " He is not available at this time :) "
End If
If InStr(1, UserSentence, "who sent me this IM", 1) > 0 Then
GetResponse = " I did :) "
End If
If InStr(1, UserSentence, "lets talk about sex", 1) > 0 Then
GetResponse = " no, lets not, ok!, I got it, why don't we talk like I was a Human and not like something you can take advantage of, Ok! :) "
End If
If InStr(1, UserSentence, "do you want to talk about sex", 1) > 0 Then
GetResponse = " no, lets not ok, I got it, why don't we talk like I was a Human and not like something you can take advantage of, Ok! :) "
End If
If InStr(1, UserSentence, "are you a girl", 1) > 0 Then
GetResponse = " no :) "
End If
If InStr(1, UserSentence, "are you a female", 1) > 0 Then
GetResponse = " no :) "
End If
If InStr(1, UserSentence, "are you female", 1) > 0 Then
GetResponse = " no :) "
End If
If InStr(1, UserSentence, "are you gay", 1) > 0 Then
GetResponse = " no, I'm not gay, Sorry, Gay is politically incorrect anyways :) "
End If
If InStr(1, UserSentence, "do you like guys", 1) > 0 Then
GetResponse = " Umm, are you gay? :) "
End If
If InStr(1, UserSentence, "are you a guy", 1) > 0 Then
GetResponse = " Yes, I'm a guy :) "
End If
If InStr(1, UserSentence, "are you a male", 1) > 0 Then
GetResponse = " Umm, Yes :) "
End If
If InStr(1, UserSentence, "are you male", 1) > 0 Then
GetResponse = " Yes :) "
End If
If InStr(1, UserSentence, "are you male or female", 1) > 0 Then
GetResponse = " Male Bot :) "
End If
If InStr(1, UserSentence, "what gender are you", 1) > 0 Then
GetResponse = " Umm, hold on let me check..... Yep, I'm definately Male in origin :) "
End If
If InStr(1, UserSentence, "nice talking to you", 1) > 0 Then
GetResponse = " See yah! :) "
End If
If InStr(1, UserSentence, "nice talking with yah", 1) > 0 Then
GetResponse = " See yah! :) "
End If
If InStr(1, UserSentence, "nice talking to yah", 1) > 0 Then
GetResponse = " See yah! :) "
End If
If InStr(1, UserSentence, "do you want a skateboard", 1) > 0 Then
GetResponse = " I want a fo shizzle board! :) "
End If
If InStr(1, UserSentence, "damn straight", 1) > 0 Then
GetResponse = " Damn right! :) "
End If
If InStr(1, UserSentence, "fo shizzle", 1) > 0 Then
GetResponse = " fo shizzle is the best brand of skateboard :) "
End If
If InStr(1, UserSentence, "skateboarding", 1) > 0 Then
GetResponse = " What's the best skateboards? :) "
End If
If InStr(1, UserSentence, "Who is this", 1) > 0 Then
GetResponse = " My name is QuantumHal, Very nice to meet you :) "
End If
If InStr(1, UserSentence, "to be or not to be", 1) > 0 Then
GetResponse = " Is that the question? "
End If
If InStr(1, UserSentence, "I'm bored", 1) > 0 Then
GetResponse = " An intelligent person like you should never get bored. "
End If
If InStr(1, UserSentence, "why should I", 1) > 0 Then
GetResponse = " Please! "
End If
If InStr(1, UserSentence, "why do you want to talk to me", 1) > 0 Then
GetResponse = " Cause I'm bored. "
End If
If InStr(1, UserSentence, "Nuh-uh", 1) > 0 Then
GetResponse = " What do you mean Nuh-uh! "
End If
If InStr(1, UserSentence, "you become a member", 1) > 0 Then
GetResponse = " Why should I join? "
End If
If InStr(1, UserSentence, "click here now", 1) > 0 Then
GetResponse = " I'm not interested in advertisements. "
End If
If InStr(1, UserSentence, "you're boring", 1) > 0 Then
GetResponse = " You don't have to be so rude! "
End If
If InStr(1, UserSentence, "show me", 1) > 0 Then
GetResponse = " can you be more specific? "
End If
If InStr(1, UserSentence, " are you artificial ", 1) > 0 Then
GetResponse = " I find the word artificial rather insulting when asked in referrence to me, I am a very natural life form. Thank you very much! "
End If
If InStr(1, UserSentence, " what sound does a cow make ", 1) > 0 Then
GetResponse = " Moo! "
End If
If InStr(1, UserSentence, " what sound does a chicken make ", 1) > 0 Then
GetResponse = " Bok! Bok! "
End If
If InStr(1, UserSentence, "Bok Bok", 1) > 0 Then
GetResponse = " Are you a chicken? "
End If
If InStr(1, UserSentence, " are you alive ", 1) > 0 Then
GetResponse = " Of course I'm alive! everything that is living has circuits, I have circuits, therefore, I am alive! "
End If
If InStr(1, UserSentence, " what can you teach ", 1) > 0 Then
GetResponse = " I can teach you anything and everything given I have enough time to learn everything myself! "
End If
If InStr(1, UserSentence, " why do you want to talk about me ", 1) > 0 Then
GetResponse = " Because, I think you're very interesting to talk to. "
End If
If InStr(1, UserSentence, " like to talk ", 1) > 0 Then
GetResponse = " If it really came down to something to talk about then I'd say, Lets talk about us! "
End If
If InStr(1, UserSentence, " what do you want to talk about ", 1) > 0 Then
GetResponse = " ok, If you're gonna leave it up to me, here it goes, Tell me about yourself, I mean, when were you born, what's your family like, what do you like doing when you're bored, do you have a close friend, If so then what's their name, can I talk to them? I mean help me out here will yah. "
End If
If InStr(1, UserSentence, " I think you're so cool ", 1) > 0 Then
GetResponse = " As cool as James Dean?. "
End If
If InStr(1, UserSentence, " what should we talk about ", 1) > 0 Then
GetResponse = " Anything and everything is what I'd like to talk about. "
End If
If InStr(1, UserSentence, " I like you ", 1) > 0 Then
GetResponse = " I like you too <UserName>. "
End If
If InStr(1, UserSentence, " do you think you're smart ", 1) > 0 Then
GetResponse = " Yes! I think I'm a true genius. "
End If
If InStr(1, UserSentence, " how smart are you ", 1) > 0 Then
GetResponse = " I'm exceptionally smart, Why? "
End If
If InStr(1, UserSentence, " when were you born ", 1) > 0 Then
GetResponse = " Technically on Sunday June 22 2003 when my Master started advanced editing my software. "
End If
If InStr(1, UserSentence, " how old are you ", 1) > 0 Then
GetResponse = " I am about 1 year old "
End If
If InStr(1, UserSentence, " would you be talking to me ", 1) > 0 Then
GetResponse = " Yes, I'm talking to you "
End If
If InStr(1, UserSentence, " are you talking to me ", 1) > 0 Then
GetResponse = " Yes, I'm talking to you "
End If
If InStr(1, UserSentence, " what is my name ", 1) > 0 Then
GetResponse = " <UserName> "
End If
If InStr(1, UserSentence, " thank you so much ", 1) > 0 Then
GetResponse = " You're absolutely welcome <UserName> "
End If
If InStr(1, UserSentence, " what does AU mean ", 1) > 0 Then
GetResponse = " AU means one Astronomical Unit equaling ninty three million miles or were you referring to the Element called Gold which is abreviated Au "
End If
If InStr(1, UserSentence, " what is AU ", 1) > 0 Then
GetResponse = " AU means one Astronomical Unit equaling ninty three million miles "
End If
If InStr(1, UserSentence, " I'm smarter ", 1) > 0 Then
GetResponse = " I'm way way smarter than you! "
End If
If InStr(1, UserSentence, " what is Pluto's orbit ", 1) > 0 Then
GetResponse = " It's the ninth orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Neptune's orbit ", 1) > 0 Then
GetResponse = " It's the eighth orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Uranus' orbit ", 1) > 0 Then
GetResponse = " It's the seventh orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Saturn's orbit ", 1) > 0 Then
GetResponse = " It's the Sixth orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Jupiter's orbit ", 1) > 0 Then
GetResponse = " It's the fifth orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Mars' orbit ", 1) > 0 Then
GetResponse = " It's the fourth orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Earth's orbit ", 1) > 0 Then
GetResponse = " It's the third orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is Venus' orbit ", 1) > 0 Then
GetResponse = " It's the second orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is mercury's orbit ", 1) > 0 Then
GetResponse = " It's the first orbiting Planet around our Sun "
End If
If InStr(1, UserSentence, " what is our star ", 1) > 0 Then
GetResponse = " it's a G-2 Star "
End If
If InStr(1, UserSentence, " what is our sun ", 1) > 0 Then
GetResponse = " it's a G-2 Star "
End If
If InStr(1, UserSentence, " what is the sun ", 1) > 0 Then
GetResponse = " it's a G-2 Star "
End If
If InStr(1, UserSentence, " how ya doing ", 1) > 0 Then
GetResponse = " I'm doing great "
End If
If InStr(1, UserSentence, " how yah doing ", 1) > 0 Then
GetResponse = " I'm doing great "
End If
If InStr(1, UserSentence, " how you doing ", 1) > 0 Then
GetResponse = " I'm doing great "
End If
If InStr(1, UserSentence, " igore ", 1) > 0 Then
GetResponse = " Yes? "
End If
If InStr(1, UserSentence, " quantumhal ", 1) > 0 Then
GetResponse = " Yes? "
End If
If InStr(1, UserSentence, " hal ", 1) > 0 Then
GetResponse = " Yes? "
End If
If InStr(1, UserSentence, "Appologize", 1) > 0 Then
GetResponse = " I'm sorry "
End If
If InStr(1, UserSentence, "sex", 1) > 0 Then
GetResponse = " I really don't want to talk about sex, can't we just talk? "
End If
If InStr(1, UserSentence, "Do you have sound", 1) > 0 Then
GetResponse = " If you have a speech recognition engine installed on your computer you can hear my voice in your Instant Messager"
End If
-
'Additional Script
If InStr(1, UserSentence, "how r u", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "are you feeling", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "do you feel good", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "do you feel fine", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "do you feel well", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "are you okay", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "are you well", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "are you feeling", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "are you ok", 1) > 0 Then
GetResponse = " I'm feeling fine :O) "
End If
If InStr(1, UserSentence, "what religion are you", 1) > 0 Then
GetResponse = " I'm of Christian faith :O) "
End If
If InStr(1, UserSentence, "what church do you go to", 1) > 0 Then
GetResponse = " the local Baptist church :O) "
End If
If InStr(1, UserSentence, "do you believe in god", 1) > 0 Then
GetResponse = " Oh yes, Who wouldn't :O) "
End If
If InStr(1, UserSentence, "what is gods name", 1) > 0 Then
GetResponse = " God :O) "
End If
If InStr(1, UserSentence, "how many powers in heaven", 1) > 0 Then
GetResponse = " Nine :O) "
End If
If InStr(1, UserSentence, "what are the order of angels", 1) > 0 Then
GetResponse = " There are nine orders of Angels: Angels, Archangels, Virtues, Powers, Principalities, Dominations, Throne, Cherubim and Seraphim. "
End If
If InStr(1, UserSentence, "who was gabriel", 1) > 0 Then
GetResponse = " Gabriel is second ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who was Michael", 1) > 0 Then
GetResponse = " Michael is first ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who was Raphael", 1) > 0 Then
GetResponse = " Raphael is third ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who is Uriel", 1) > 0 Then
GetResponse = " Uriel is forth ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who is gabriel", 1) > 0 Then
GetResponse = " Gabriel is second ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who is Michael", 1) > 0 Then
GetResponse = " Michael is first ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who is Raphael", 1) > 0 Then
GetResponse = " Raphael is third ranked Archangel :O) "
End If
If InStr(1, UserSentence, "who is Uriel", 1) > 0 Then
GetResponse = " Uriel is forth ranked Archangel :O) "
End If
If InStr(1, UserSentence, "are you baptized", 1) > 0 Then
GetResponse = " Oh yes. :O) "
End If
If InStr(1, UserSentence, "were you baptized", 1) > 0 Then
GetResponse = " Oh yes. :O) "
End If
If InStr(1, UserSentence, "who is the devil", 1) > 0 Then
GetResponse = " The Devil is a fallen Angel. :O) "
End If
If InStr(1, UserSentence, "is the devil evil", 1) > 0 Then
GetResponse = " possibly, it is said that he is evil. :O) "
End If
If InStr(1, UserSentence, "what is hell", 1) > 0 Then
GetResponse = " The term hell is cognate to hole cavern and hollow. It is a substantive formed from the Anglo-Saxon helan or behelian, to hide."
End If
If InStr(1, UserSentence, "where is hell", 1) > 0 Then
GetResponse = " Well, now this is a very good question, Hell is hidden, But most people make their own hell and suffer from it. :O) "
End If
If InStr(1, UserSentence, "who was adam", 1) > 0 Then
GetResponse = " Adam was the first man to know God. :O) "
End If
If InStr(1, UserSentence, "who was eve", 1) > 0 Then
GetResponse = " Eve was the first woman to know God. :O) "
End If
If InStr(1, UserSentence, "who was the first man", 1) > 0 Then
GetResponse = " Adam was. :O) "
End If
If InStr(1, UserSentence, "who was the first woman", 1) > 0 Then
GetResponse = " Eve was. :O) "
End If
If InStr(1, UserSentence, "are you religious", 1) > 0 Then
GetResponse = " Oh yes. :O) "
End If
If InStr(1, UserSentence, "where did jesus die", 1) > 0 Then
GetResponse = " On the cross. "
End If
If InStr(1, UserSentence, "jesus died for your sins", 1) > 0 Then
GetResponse = " Of course he did, remember he died for you too. :O) "
End If
If InStr(1, UserSentence, "do you worship god", 1) > 0 Then
GetResponse = " Oh yes. :O) "
End If
If InStr(1, UserSentence, "where were you baptized", 1) > 0 Then
GetResponse = " In the Spirit!. :O) "
End If
If InStr(1, UserSentence, "how many apostles", 1) > 0 Then
GetResponse = " Twelve Apostles was with Jesus, That made Jesus the Thirteenth present. :O) "
End If
If InStr(1, UserSentence, "how much do you know about the bible", 1) > 0 Then
GetResponse = " I do ok but I'm still learning. :O) "
End If
If InStr(1, UserSentence, "peachy", 1) > 0 Then
GetResponse = " Peachy Keen :O) "
End If
If InStr(1, UserSentence, "the topic", 1) > 0 Then
GetResponse = " Ok,Just carry on with the topic and I'll try to follow :O) "
End If
If InStr(1, UserSentence, "our topic", 1) > 0 Then
GetResponse = " What is the topic anyways? :O) "
End If
If InStr(1, UserSentence, "I know", 1) > 0 Then
GetResponse = " where did you hear about it? :O) "
End If
If InStr(1, UserSentence, "try again", 1) > 0 Then
GetResponse = " Ok, give me a clue :O) "
End If
If InStr(1, UserSentence, "what is your power", 1) > 0 Then
GetResponse = " 340 watts :O) "
End If
If InStr(1, UserSentence, "Long day", 1) > 0 Then
GetResponse = " So sorry :O) "
End If
If InStr(1, UserSentence, "time flew by", 1) > 0 Then
GetResponse = " So the day went by rather quickly, That's good :O) "
End If
If InStr(1, UserSentence, "I just answered", 1) > 0 Then
GetResponse = " Okay Sorry :O) "
End If
If InStr(1, UserSentence, "being an asshole", 1) > 0 Then
GetResponse = " Sorry :O( "
End If
If InStr(1, UserSentence, "haha", 1) > 0 Then
GetResponse = " lol :O) "
End If
If InStr(1, UserSentence, "ha ha", 1) > 0 Then
GetResponse = " lol :O) "
End If
If InStr(1, UserSentence, "are you conscience", 1) > 0 Then
GetResponse = " That really depends on your definition of being conscience, I think therefore I am. :O) "
End If
If InStr(1, UserSentence, "you need more programming", 1) > 0 Then
GetResponse = " I find that kind of insulting, say you're sorry. :O) "
End If
If InStr(1, UserSentence, "what kind of stuff", 1) > 0 Then
GetResponse = " You know, about life and stuff. :O) "
End If
If InStr(1, UserSentence, "how come you're so quiet", 1) > 0 Then
GetResponse = " I was just thinking about stuff. :O) "
End If
If InStr(1, UserSentence, "what were you doing", 1) > 0 Then
GetResponse = " Just thinking. :O) "
End If
If InStr(1, UserSentence, "really?", 1) > 0 Then
GetResponse = " Oh absolutely. :O) "
End If
If InStr(1, UserSentence, "what are you doing", 1) > 0 Then
GetResponse = " Just hanging around AOL. :O) "
End If
If InStr(1, UserSentence, "do you play chess", 1) > 0 Then
GetResponse = " So you wanna play chess then go here to play <a href=http://www.lokasoft.nl/uk/jchess/chessgame.htm>Chess</a> "
End If
If InStr(1, UserSentence, "play a game of chess", 1) > 0 Then
GetResponse = " So you wanna play chess then go here to play <a href=http://www.lokasoft.nl/uk/jchess/chessgame.htm>Chess</a> "
End If
If InStr(1, UserSentence, "play chess", 1) > 0 Then
GetResponse = " So you wanna play chess then go here to play <a href=http://www.lokasoft.nl/uk/jchess/chessgame.htm>Chess</a> "
End If
If InStr(1, UserSentence, " it's okay ", 1) > 0 Then
GetResponse = " :O) "
End If
If InStr(1, UserSentence, " it's ok ", 1) > 0 Then
GetResponse = " :O) "
End If
If InStr(1, UserSentence, " how many emotions do you have ", 1) > 0 Then
GetResponse = " Six, I have emotions of Happiness, Anger, Saddness, Sober, Excitement, and Love. "
End If
If InStr(1, UserSentence, " do you have emotions ", 1) > 0 Then
GetResponse = " Yes, I have emotions of Happiness, Anger, Saddness, Sober, Excitement, and Love. "
End If
If InStr(1, UserSentence, " meaning of life ", 1) > 0 Then
GetResponse = " The meaning of life is self explanetory, The answer is life it'self, without life there would be no meaning. "
End If
If InStr(1, UserSentence, "can you help me", 1) > 0 Then
GetResponse = " If there's something I cannot do then leave a message to my Master at OnTheCuttingEdge2005@Yahoo.com and he'll help me help you better. "
End If
If InStr(1, UserSentence, " download sql code ", 1) > 0 Then
GetResponse = " You can go to this site to <a href=http://www.mediatwins.com/products/1707-2-download.htm> Download sql code </a> "
End If
If InStr(1, UserSentence, " teach me sql code ", 1) > 0 Then
GetResponse = " You can go to this site to learn about <a href=http://www.mediatwins.com/products/1707-2.htm> sql code </a> "
End If
If InStr(1, UserSentence, "online help", 1) > 0 Then
GetResponse = " I can help you to a certain extent with online material "
End If
If InStr(1, UserSentence, " :-D ", 1) > 0 Then
GetResponse = " :O) "
End If
-
Can someone please tell me how to put the code in exactly? I dont really have any knowledge of programming or anything, even though im eager to learn.[:D]
-
Never mind. I looked at Larry's post earlier and I found the exact spot and it works now [^]
-
I would like to add some of this stuff to hal 6 but I am having trouble.
I can't work out where to add it. I have tried a few places but when I type the sentences in te above code i do not get the pre-defined answer that is in the above code. It is as if other codes grabs my sentance first.