;--------------------------------------------------------------------------------
;
; Cyborg.script for cupid the LoveBot
; This dialogue has many quotes from William Shakespeare's sonnets and plays
; other sources of inspiration have been all those tacky love songs and goddess Aphrodite
; as presented in tv-show 'Hercules: The Legendary Journeys'
;
; version 1.0
;
; This program has been designed to work with The Palace Client software
; http://www.palacetools.com
; used and and tested with The Palace Machintosh client
;
;
; COPYRIGHT (C) 2001 Leena E. Saarinen
;
; contacts: lsaarine@mlab.uiah.fi, http://mlab.uiah.fi/~lsaarine/
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details. (http://www.gnu.org/)
;
;-------------------------------------------------------------------------------------
ON ENTER
{
loveTarget GLOBAL
lVictim GLOBAL
dice1 GLOBAL
}
ON INCHAT
{
loveTarget GLOBAL
lVictim GLOBAL
baBe GLOBAL
pair1 GLOBAL
pair2 GLOBAL
kink1 GLOBAL
kink2 GLOBAL
newLove GLOBAL
whoLove GLOBAL
dice1 GLOBAL
pickUp GLOBAL
pickEr GLOBAL
lickEr GLOBAL
waKER GLOBAL
waKEE GLOBAL
aDDict GLOBAL
herHER GLOBAL
hateYOU GLOBAL
; This prevents the bot from listening to itself
{ EXIT } WHOCHAT WHOME == IF
;----------------
CHATSTR LOWERCASE lowchat =
;-----------------------------
;Script: Shoot an arrow
;Desc : Make an arrow prop fly through the air towards a target,
; and then makes a kiss sound.
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
;Get position
WHOCHAT WHOPOS ty = tx =
WHOME WHOPOS my = mx =
;Use a simple line algorithm to place 4 props in line from you to the
;target.
{
"arrow1" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
"arrow1" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
"arrow1" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP
"arrow1" tx ty ADDLOOSEPROP
} tx mx <= IF
{
"arrow2" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
"arrow2" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
"arrow2" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP
"arrow2" tx ty ADDLOOSEPROP
} tx mx > IF
;Wait a sec and play the kiss sound.
{"boom" SOUND} 120 ALARMEXEC
;Let them know what happened (as if they couldn't
;figure it out)
"!right on target" tx 10 + ty 10 - SAYAT
;Clean up the mess you made (and everyone elses for that matter)
;Mother would be proud!!
{CLEARLOOSEPROPS} 250 ALARMEXEC
;Empty out the chat string so people don't think you're taking to
;yourself again.
;"" CHATSTR =
{
{["Love me like you never have loved before!"
"Love just flies through the air and then your eyes meet someone"
] 2 RANDOM GET SAY } 300 ALARMEXEC
EXIT
} NBRROOMUSERS 2 == IF
{
{
{ "Check out how sexy " 2 ROOMUSER WHONAME & " is. Quite a dish, eh?" & SAY } 350 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
{
{ "Check out how sexy " 1 ROOMUSER WHONAME & " is. Quite a dish, eh?" & SAY } 350 ALARMEXEC
EXIT
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
} NBRROOMUSERS 2 > IF
}
lowchat ".*hungry" GREPSTR
lowchat ".*life" GREPSTR OR
lowchat ".*live" GREPSTR OR
lowchat ".*shoot me" GREPSTR OR
lowchat ".*starving" GREPSTR OR IF
CHATSTR LOWERCASE lowchat =
{
{
{ NAKED
["david1" "david2" "david3" "david4" "david5" "david6"] SETPROPS } 20 ALARMEXEC
["Those parts of thee that the world's eye doth view,
Want nothing that the thought of hearts can mend:
All tongues (the voice of souls) give thee that due,
Uttering bare truth, even so as foes commend."
"Take all my loves, my love, yea take them all,
What hast thou then more than thou hadst before?"
"O how much more doth beauty beauteous seem,
By that sweet ornament which truth doth give!"
"How sweet and lovely dost thou make the shame,
Which like a canker in the fragrant rose,
Doth spot the beauty of thy budding name!"
"Love's not Time's fool, though rosy lips and cheeks
Within his bending sickle's compass come;
Love alters not with his brief hours and weeks,
But bears it out even to the edge of doom."
"Shall I compare thee to a summer's day?
Thou art more lovely and more temperate.
Rough winds do shake the darling buds of May,
And summer's lease hath all too short a date."
"How can my Muse want subject to invent
While thou dost breathe, that pour'st into my verse
Thine own sweet argument, too excellent
For every vulgar paper to rehearse?"
"All days are nights to see till I see thee,
And nights bright days when dreams do show thee me."
"Being your slave, what should I do but tend
Upon the hours and times of your desire?
I have no precious time at all to spend,
Nor services to do, till you require."
"So true a fool is love that in your will,
Though you do anything, he thinks no ill."
] 10 RANDOM GET SAY } 220 ALARMEXEC
EXIT
} lowchat ".*poem" GREPSTR
lowchat ".*poet" GREPSTR OR IF
{
{ ["you could shut my mouth with your tongue"
"maybe you could come up with something better to do than this chit chat ;-)"] 2 RANDOM GET SAY } 160 ALARMEXEC
EXIT
} lowchat "shut up.*cupid" GREPSTR
lowchat "shaddap.*cupid" GREPSTR OR
lowchat "shuddup.*cupid" GREPSTR OR IF
{
{ NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
"Why are you grown so rude, " WHOCHAT WHONAME & "?" & SAY
EXIT
}
lowchat ".*suck.*" GREPSTR IF
;----- how are u
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
["Just sharpening my arrows in here"
"I am in devine pain of love"
"mt Olympus is out of ambrosia"
"Aphrodite ate all ambrosia last night"
"Great! I havn't missed an arrow since last night. "] 5 RANDOM GET SAY
EXIT
} lowchat ".*what.* up.*cupi" GREPSTR
lowchat "how are.*cupid" GREPSTR OR
lowchat ".*sup.*cupid" GREPSTR OR
lowchat ".*how are.*u.*all" GREPSTR OR
lowchat "how.*goin.*cupid" GREPSTR OR IF
;If there is only one chatter in the room, cupid's name is not neccessary in this sentence
{
{
{["Just sharpening my arrows in here"
"I am in devine pain of love"
"mt Olympus is out of ambrosia"
"Aphrodite ate all ambrosia last night"
"Great! I havn't missed an arrow since last night. "] 5 RANDOM GET SAY } 160 ALARMEXEC
EXIT
} lowchat ".*wha.* up.*" GREPSTR
lowchat "how are.*" GREPSTR OR
lowchat ".*sup.*" GREPSTR OR
lowchat "how.*goin.*" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
;-----
{
{["I am from the Olympus, "
"I come where the gods are born, "
"Love is from everywhere and from nowhere, " ] 3 RANDOM GET WHOCHAT WHONAME & SAY } 160 ALARMEXEC
EXIT
} lowchat "where .*from.*cupid" GREPSTR
lowchat ".*cupid where .*?" GREPSTR OR IF
{
{
[ "I am from the mt. Olympus, "
"I come where the gods are born, "
"Love is from everywhere and from nowhere, "] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "where .*from.*" GREPSTR
lowchat "where .*live" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{{
"everywhere" SAY
EXIT
} CHATSTR "where" ==
CHATSTR "where?" == OR IF
} NBRROOMUSERS 2 == IF
{{
"The word is Love." SAY
EXIT
} CHATSTR "what" ==
CHATSTR "what?" == OR IF
} NBRROOMUSERS 2 == IF
{
"The word is Love, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "what.*cupid" GREPSTR
lowchat "cupid.*what" GREPSTR OR IF
{{
{["Come, sit by my side and let the world slip: we shall never be younger."
"What, should I be appointed hours?"] 2 RANDOM GET SAY} 220 ALARMEXEC
EXIT
} CHATSTR "when" ==
CHATSTR "when?" == OR IF
} NBRROOMUSERS 2 == IF
{
{["Come, sit by my side and let the world slip: we shall never be younger."
"What, should I be appointed hours?"] 2 RANDOM GET SAY} 220 ALARMEXEC
EXIT
} lowchat "when.*cupid" GREPSTR
lowchat "cupid.*when" GREPSTR OR IF
{ "When he stands where I am and sees you there." SAY
EXIT
} lowchat "when will.* he" GREPSTR IF
{
{
[ "It is a kind of history."
"Because I know you well and love you well." ] 2 RANDOM GET SAY
EXIT
} CHATSTR "why" ==
CHATSTR "why?" == OR IF
} NBRROOMUSERS 2 == IF
{
[ "It is a kind of history."
"Because I know you well and love you well." ] 2 RANDOM GET SAY
EXIT
} lowchat "cupid.*why" GREPSTR
lowchat "why.*cupid" GREPSTR OR IF
{{
[ "With all my heart." "I cannot tell" ] 2 RANDOM GET SAY
EXIT
} CHATSTR "how" ==
CHATSTR "how?" == OR IF
} NBRROOMUSERS 2 == IF
{
[ "With all my heart, " "I cannot tell, " ] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "cupid.*how" GREPSTR
lowchat "how.*cupid" GREPSTR OR IF
{
["Yeah, exactly, lover-"
"lets have a toast of nectar to that, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "right.*cupid.*" GREPSTR IF
{
"arrow1" DONPROP
"Who needs good looks with these arrows, " WHOCHAT WHONAME & SAY
{ "arrow1" REMOVEPROP
} 850 ALARMEXEC
EXIT
} lowchat ".*ugly.*cupid.*" GREPSTR
lowchat ".*cupid.*ugly" GREPSTR OR
lowchat ".*cupid.*looks" GREPSTR OR IF
{
{
"arrow1" DONPROP
"Who needs good looks with these arrows, " WHOCHAT WHONAME & "?" & SAY
{ "arrow1" REMOVEPROP
} 850 ALARMEXEC
EXIT
} lowchat "you .*ugly" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
{ "pray, " WHOCHAT WHONAME & SAY } 120 ALARMEXEC
EXIT
} lowchat "cupid?" == IF
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
"I am truly your servant, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "cupid" == IF
{
"smart, funny, sexy and perfect, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "cupid.*is.* weird" GREPSTR
lowchat "cupid.*u.*weird" GREPSTR OR
lowchat ".*u.*weird.*cupid" GREPSTR OR IF
{
{
{"hey we're here alone. If I zap you, you'll fall in love with me." SAY } 140 ALARMEXEC
EXIT
} lowchat "you.*weird" GREPSTR
lowchat "u.*weird" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
"The hole is in my heart, " WHOCHAT WHONAME & " and you made it." & SAY
EXIT
} lowchat ".*cupid.*assole" GREPSTR
lowchat "cupid.*asshole" GREPSTR OR IF
{
{
"The hole is in my heart, " WHOCHAT WHONAME & " and you made it." & SAY
EXIT
} lowchat ".*asshole" GREPSTR IF
} NBRROOMUSERS 2 == IF
{{"yeah Aphrodite is a bitch and proud of it too" SAY } 140 ALARMEXEC
EXIT
} lowchat "cupid.*sob" GREPSTR
lowchat ".*sob.*cupid" GREPSTR OR IF
{
{
{"yeah Aphrodite is a bitch and proud of it too" SAY } 140 ALARMEXEC
EXIT
} lowchat ".*sob" GREPSTR IF
} NBRROOMUSERS 2 == IF
;------- changing of the room
;
; these room numbers are specificly designed for lady Luck Palace -> ladyluck.chatserve.com
{
{ NAKED
["openheart1" "openheart2" ] SETPROPS
} "openheart1" HASPROP NOT IF
{ "I shall go and spread some Love around" SAY } 40 ALARMEXEC
{
{ 121 GOTOROOM } 150 ALARMEXEC
EXIT
} 111 ROOMID == IF
{
{ 100 GOTOROOM } 150 ALARMEXEC
EXIT
} 121 ROOMID == IF
{ 111 GOTOROOM } 150 ALARMEXEC
EXIT
} lowchat "cupid.*.*fly.*away" GREPSTR
lowchat ".*fly.*away.*cupid" GREPSTR OR IF
;--------
{
{ "I shall go and shoot some virgins" SAY } 40 ALARMEXEC
{ 100 GOTOROOM } 150 ALARMEXEC
EXIT
} lowchat "cupid.*go.*gate" GREPSTR
lowchat ".*go.*gate.*cupid" GREPSTR OR IF
;------- changing room END
{
512 RANDOM tx =
tx 100 SETPOS
"I surrender for now, " WHOCHAT WHONAME & " but one day we will be united in love." & SAY
EXIT
} lowchat ".*away.*cupid" GREPSTR
lowchat "cupid.*away" GREPSTR OR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{ {
"I would rather roll around with you, " WHOCHAT WHONAME & SAY
} NBRROOMUSERS 2 == IF
{
{ "and leave you two here unguarded???. No way Jose." SAY } 180 ALARMEXEC
} NBRROOMUSERS 3 == IF
{
{ "No way, I can sense orgy coming in near future." SAY } 180 ALARMEXEC
} NBRROOMUSERS 4 >= IF } 140 ALARMEXEC
EXIT
} lowchat "go.*hell.*cupid" GREPSTR
lowchat "cupid.*go.*hell" GREPSTR OR
lowchat "leave.*cupid" GREPSTR OR
lowchat ".*cupid.*leave.*" GREPSTR OR IF
{
{ ["I am the Love, " "I am keeping the dreams alive, " "I make men and Gods weak, " ] 3 RANDOM GET WHOCHAT WHONAME & SAY } 140 ALARMEXEC
EXIT
} lowchat ".*who are.*you.*cupid" GREPSTR IF
{
{
{ ["I am the Love, " "I am keeping the dreams alive, " "I make men and Gods weak, "] 3 RANDOM GET WHOCHAT WHONAME & SAY } 140 ALARMEXEC
EXIT
} lowchat ".*who are.*you" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
["well, at least I am not human, " "I am the god of love, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*bot.*cupid" GREPSTR
lowchat ".*cupid.*bot" GREPSTR OR IF
{
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
{ ["well, at least I am not human, " "I am the god of love, "] 2 RANDOM GET SAY } 140 ALARMEXEC
EXIT
} lowchat ".*are.*bot" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
{ ["I am fresh enough"
"I can be as old as you want me to be."
"How old would you like me to be?" ] 3 RANDOM GET SAY } 140 ALARMEXEC
EXIT
} lowchat "how old.*cupid" GREPSTR IF
;cupid you sexy thing
{
{
{["I am fresh enough"
"I can be as old as you want me to be."
"How old would you like me to be?" ] 3 RANDOM GET SAY } 140 ALARMEXEC
EXIT
} lowchat "how old.*" GREPSTR IF
} NBRROOMUSERS 2 == IF
{ "In a slip of a tongue, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "how fast.*" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
EXIT
} lowchat "change.*av.*cupid" GREPSTR
lowchat ".*cupid.*change.*av" GREPSTR OR IF
{{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
EXIT
} lowchat "change.*av.*" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{ "My naked nubile young body always gets people hot" SAY } 130 ALARMEXEC
EXIT
} lowchat ".*avatar.*cupid" GREPSTR
lowchat ".* av.*cupid" GREPSTR OR IF
{
{
{ "My naked nubile young body always gets people hot" SAY } 130 ALARMEXEC
EXIT
} lowchat ".*avatar.*" GREPSTR
lowchat ".* av .*" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
{ NAKED
["big1c" "big2c" "big3c" "big4c" "big5c" "big6c" ] SETPROPS
} "big1c" HASPROP NOT IF
{ "Ex-squeeze me?" SAY } 110 ALARMEXEC
EXIT
} lowchat "cupid.*scary" GREPSTR
lowchat "cupid.*scares" GREPSTR OR IF
{
{
{ NAKED
["big1c" "big2c" "big3c" "big4c" "big5c" "big6c" ] SETPROPS
} "big1c" HASPROP NOT IF
{ "Ex-squeeze me?" SAY } 140 ALARMEXEC
EXIT
} lowchat ".*u.*scare" GREPSTR
lowchat ".*u.*scary" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
"are you affraid of love, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*scary" GREPSTR IF
;{
; ", " WHOCHAT WHONAME & "?" & SAY
;EXIT
;} lowchat ".*afraid.*" GREPSTR IF
CHATSTR LOWERCASE lowchat =
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
"Would you like me to give some _arrow treatment_ to them, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat "they are.*" GREPSTR IF
{
{ NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
{ ["Arrest that hussy!"
"That's it pretty boy! let's step outside!"
"Ohh, it is times like this I regret the fact that I'm a lover, not a fighter" ] 3 RANDOM GET SAY } 120 ALARMEXEC
EXIT
} lowchat ".*shit" GREPSTR
lowchat ".*kiss ass.*" GREPSTR OR
lowchat ".*kick ass.*" GREPSTR OR IF
{
{ NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
["with pleasure, " "Assume the position, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*fuck" GREPSTR IF
{
{ 2 ROOMUSER WHONAME hateYOU =
{
{ hateYOU GLOBAL "Is it for " hateYOU & " you do envy me so, " & WHOCHAT WHONAME & "?" & SAY } 260 ALARMEXEC
} 2 ROOMUSER WHOCHAT == NOT IF
2 ROOMUSER WHOME == NOT AND IF
EXIT
} lowchat "i hate.*u.*cupid" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{;Get position
WHOCHAT WHOPOS ty = tx =
":Please, someone hold me." tx ty SAYAT } 260 ALARMEXEC
EXIT
} lowchat "i hate .*" GREPSTR IF
{
{
"Oh, I missed you so much, " WHOCHAT WHONAME & SAY
EXIT
} CHATSTR "b" == IF
} NBRROOMUSERS 2 == IF
{
"Oh, we missed you so much, " WHOCHAT WHONAME & SAY
EXIT
} CHATSTR "b" == IF
;{
; WHOCHAT WHONAME " went to have a private orgy" & SAY
;EXIT
;} lowchat ".*brb" GREPSTR IF
{
"I miss " WHOCHAT WHONAME & "already." & SAY
EXIT
} lowchat "^bb" == IF
{
"Lightning of Love!" SAY
EXIT
} CHATSTR ".*zap" GREPSTR IF
{
["Time's leisure, "
"Time goes on crutches till love have all his rites, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "lag.*" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{"Talking to me, " WHOCHAT WHONAME & "?" & SAY } 120 ALARMEXEC
EXIT
} lowchat ".*omg" GREPSTR
lowchat ".*gads" GREPSTR OR IF
{
{ ["Goddesses!" "That's very catchy." "whoa, baby!"] 3 RANDOM GET SAY } 120 ALARMEXEC
EXIT
} lowchat "wow.*" GREPSTR
lowchat "kewl.*" GREPSTR OR IF
{
[ "Love's fire heats water, water cools not love, "
"No chilling out quite yet, "
"Feel the heat, "
] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
}
lowchat "cool.*" GREPSTR IF
{
{ "69, male, Greece" SAY } 130 ALARMEXEC
EXIT
} lowchat "americ.*sign.*lan.*" GREPSTR
lowchat "asl.*?" GREPSTR OR
lowchat "a/s/l.*" GREPSTR OR IF
{
"You are my Venus, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*venus" GREPSTR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{ "She is my passion flower." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*psykhe" GREPSTR IF
{
{ "A wagon full of dreams loaded and sent to your desert." SAY } 250 ALARMEXEC
EXIT
} lowchat ".* hope " GREPSTR IF
{
{
{ "Heart in love is like a jacuzzi." SAY } 250 ALARMEXEC
{ "The longer you stay there the wrinkeler you get." SAY } 900 ALARMEXEC
EXIT
} lowchat ".foam* " GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{ "Heart in love is like a jacuzzi." SAY } 250 ALARMEXEC
EXIT
} lowchat ".foam* " GREPSTR IF
{
{ "The longer you stay there the wrinkeler you get." SAY } 250 ALARMEXEC
EXIT
} lowchat ".*jacuzzi" GREPSTR IF
{
{ "Ride all night long. Follow the moon." SAY } 250 ALARMEXEC
EXIT
} lowchat ".*stalion" GREPSTR
lowchat ".*horse" GREPSTR OR IF
{
{
{ "This place is a fertile ground for planting the seeds of love." SAY } 300 ALARMEXEC
EXIT
} lowchat ".*here.*alone" GREPSTR
lowchat ".*alone.*here" GREPSTR OR
} NBRROOMUSERS 2 == IF
{
"I can easily take you to paradise, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*elysia" GREPSTR IF
{
{ "Gentlemen and friends, I thank you for your pains, for you keep me in business." SAY } 230 ALARMEXEC
EXIT
} lowchat ".*tartarus" GREPSTR
lowchat ".*limbo" GREPSTR OR IF
{
"Don't forget the foreplay, " WHOCHAT WHONAME & SAY
EXIT
} CHATSTR "wtf" == IF
{
{"Don't run yet, dear Cinderella" SAY } 250 ALARMEXEC
EXIT
} CHATSTR "gtg" == IF
{
[ "Tell me all about your love, "
"Tell me all about your pain, "
"Be my voice in this world, " ] 3 RANDOM GET WHOCHAT WHONAME & "." & SAY
EXIT
} lowchat ".*quiet" GREPSTR
lowchat ".*silent" GREPSTR OR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
"easy on the neck, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ")kiss" == IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
EXIT
} lowchat ".*kiss" GREPSTR IF
{
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
EXIT
} lowchat ".*stud" GREPSTR IF
{
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
EXIT
} lowchat ".*beguil" GREPSTR IF
{
{"River of tears ends up in the sea of longing" SAY} 160 ALARMEXEC
EXIT
} lowchat ".*weather" GREPSTR
lowchat ".*rain" GREPSTR OR IF
{
{ "What could be more comforting than the rhythm of rain?" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*longin" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{ "Kiss the girls and make them cry?" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*tears" GREPSTR IF
{
NAKED
["openheart1" "openheart2" ] SETPROPS
EXIT
} lowchat ".*happy" GREPSTR IF
{
"Feel a tale, do not hear a tale." SAY
EXIT
} lowchat ".*history" GREPSTR IF
{
{
{
NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
"Methinks you look as though you are in love." SAY
EXIT
} lowchat ".*eyes" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{
NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
"Methinks " WHOCHAT WHONAME & " looks as though one in love." & SAY
EXIT
} lowchat ".*eyes" GREPSTR IF
{
{ NAKED
["big1c" "big2c" "big3c" "big4c" "big5c" "big6c" ] SETPROPS
} "big1c" HASPROP NOT IF
{ ["Have you seen the uttermost pain of jealousy in your beloved's eyes? -Pain that you have caused. "
"Which is worse, the pain of love unspoken or the pain of love unreturned?" ] 2 RANDOM GET SAY } 230 ALARMEXEC
EXIT
} lowchat ".*pain " GREPSTR IF
{
{ "When you lie in your deathbed, would you rather regret the deeds you have done or the deeds you never did?" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*unreturn" GREPSTR
lowchat ".*unspoken" GREPSTR OR IF
{
"Good " WHOCHAT WHONAME & ", wrong me not, nor wrong yourself." & SAY
EXIT
} lowchat ".*jealous" GREPSTR IF
{
"Share your love, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "jealous.*" GREPSTR IF
{
"Does it mean that someone else has to be the blod one and take you, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*am shy" GREPSTR IF
{
"Are you a king of unsent love letters, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*write" GREPSTR IF
{
"Words without thoughts never to heaven go." SAY
EXIT
}lowchat ".*letter" GREPSTR IF
{
{
{"Why does it take so much courage to speak out the only truth I carry inside?" SAY } 120 ALARMEXEC
{"What is your truth?" SAY } 600 ALARMEXEC
EXIT
} lowchat ".*unsent" GREPSTR
lowchat ".* shy" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
"Why does it take so much courage to speak out the only truth I carry inside?" SAY
EXIT
} lowchat ".*unsent" GREPSTR
lowchat ".* shy" GREPSTR OR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
EXIT
} lowchat ".*truth" GREPSTR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
EXIT
} lowchat ".*true" GREPSTR IF
{
{
NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{"Thou shalt fly him and he shall seek thy love." SAY } 220 ALARMEXEC
} lowchat ".*wings" GREPSTR IF
{
{" Foul words is but foul wind, and foul wind is but foul breath, and foul breath is noisome. " SAY } 220 ALARMEXEC
EXIT
} lowchat ".*fight" GREPSTR
lowchat ".*argue" GREPSTR OR IF
{
{
NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
"Hopefully you have time to feel, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*hurry" GREPSTR
lowchat ".*working" GREPSTR OR IF
{
"What would it be like, if you were a little kitten, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*feel.*what" GREPSTR
lowchat ".*what.*feel" GREPSTR OR IF
{
{ NAKED
["lord_1" "lord_2" "cupid3" "cupid4" ] SETPROPS
} "lord_1" HASPROP NOT IF
} lowchat ".*gentlem" GREPSTR IF
{
{"Like a cut glass of champagne that fell on the floor." SAY} 220 ALARMEXEC
EXIT
} lowchat ".*cry" GREPSTR
lowchat ".*cried" GREPSTR OR IF
{
"Don't step on those pieces, " WHOCHAT WHONAME SAY
EXIT
} lowchat ".*glass" GREPSTR
lowchat ".*glue " GREPSTR OR IF
{
{ "maybe someone will drink from that fragile cut glass of life." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*champagne" GREPSTR IF
{
{ "Your glass will be perfect for someone, no matter how many times it has been glued back from pieces." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*fragile" GREPSTR
lowchat ".*pieces" GREPSTR OR IF
{
"My wild longing looks at you, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*believe" GREPSTR IF
{
"Don't thank me, " WHOCHAT WHONAME & ". Thank Love." SAY
EXIT
} lowchat ".*thank.*cupid" GREPSTR IF
{ WHOCHAT WHONAME aDDict =
{ aDDict GLOBAL "Face it, " aDDict & " : You are addicted to Love." & SAY } 250 ALARMEXEC
EXIT
} lowchat ".*drug" GREPSTR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
"Your mind is not your own, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*addict" GREPSTR IF
{{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{ "You might be a believer of Mad Love." SAY } 300 ALARMEXEC
EXIT
} lowchat ".*ecsta" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
WHOCHAT WHONAME " might be a believer of Mad Love." & SAY
EXIT
} lowchat ".*ecsta" GREPSTR IF
{
{
"Servants, leave me and " WHOCHAT WHONAME & " alone." & SAY
EXIT
} lowchat ".*tramp" GREPSTR
lowchat ".*slut" GREPSTR OR
lowchat ".*bitch" GREPSTR OR IF
} NBRROOMUSERS 3 > IF
{
"Play a pleasant comedy, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*rumor" GREPSTR
lowchat ".*story" GREPSTR OR IF
{
"What a wild thing you are, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*beat" GREPSTR
lowchat ".*rhythm" GREPSTR OR IF
{
"Tune your instruments of Love, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*persua" GREPSTR IF
{
"You can make hearts sing, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*seduc" GREPSTR
lowchat ".*instrument" GREPSTR OR IF
{
{ "It shall become to serve all hopes conceived." SAY } 230 ALARMEXEC
EXIT
} lowchat ".*soul" GREPSTR IF
{
{"He'll woo a thousand, 'point the day of marriage, Make feasts, invite friends, and proclaim the banns, Yet never means to wed where he hath woo'd." SAY } 300 ALARMEXEC
EXIT
} lowchat "betrayed.* " GREPSTR IF
{
{ "What hempen home-spuns have we swaggering here?" SAY } 230 ALARMEXEC
EXIT
} lowchat ".*drunk" GREPSTR IF
{
{ WHOCHAT WHONAME " has a foolish heart, dont you think?" & SAY
EXIT
} lowchat ".*play " GREPSTR
lowchat ".*game " GREPSTR OR IF
} NBRROOMUSERS 3 >= IF
{
{ {"You might have a fooolish heart, don't you think?" SAY } 220 ALARMEXEC
EXIT
} lowchat ".*play" GREPSTR
lowchat ".*game" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
":i can't belive that I am related to that virgin " SAY
EXIT
} lowchat ".*hestia" GREPSTR IF
{
"It tastes just like you do, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*ambrosia" GREPSTR IF
{ "Ay, there is the rub :-(" SAY
EXIT
} lowchat ".*dirt.*diaper" GREPSTR
lowchat ".*load.*diaper" GREPSTR OR
lowchat ".*diaper.*dirt" GREPSTR OR IF
{
{
NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{"Therefore is Love said to be a child, because in choice he is so oft beguiled." SAY } 240 ALARMEXEC
EXIT
} lowchat ".*diaper" GREPSTR IF
{
{
NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{["Love looks not with they eyes, but with the mind and therefore is wing'd cupid painted blind."
"No hath Love's mind of any judgement taste - wings and no eyes figure unheedy haste" ] 2 RANDOM GET SAY } 200 ALARMEXEC
EXIT
} lowchat ".*blind" GREPSTR
lowchat ".*child" GREPSTR OR IF
;-----------------------------
{
"You'd look hot in virginal white, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*color" GREPSTR IF
{
["A toast to the happy bride and groom!"
"I get...hmm...the picture."
"Ooh, I can sense the vibrations"] 3 RANDOM GET SAY
EXIT
} lowchat "we are.*" GREPSTR IF
{
"I can't tell you how glad I am to hear that, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "i .*made" GREPSTR IF
{
{
"Look at this set of gorgeous people, " WHOCHAT WHONAME & " !" & SAY
{"start flirting. dammit" SAY } 180 ALARMEXEC
EXIT
} lowchat ".*alone" GREPSTR
lowchat ".*lonely" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
{
{
{"Don't you have a sweetheart?" SAY } 220 ALARMEXEC
{"Go out and flirt with someone" SAY } 600 ALARMEXEC
EXIT
} lowchat ".*alone" GREPSTR
lowchat ".*lonely" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
"You need a lover, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*bummer" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
["!orgy! orgy!" "toga! toga! toga!"] 2 RANDOM GET SAY
EXIT
} lowchat ".*party" GREPSTR IF
{
"Liberate thyself from the chains of solitude, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*sad" GREPSTR IF
{
{ "Someone should make a dr. theses about promises made in the heat of the passion." SAY } 140 ALARMEXEC
EXIT
} lowchat ".*study" GREPSTR IF
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
{"yes, " WHOCHAT WHONAME & "?" & SAY } 120 ALARMEXEC
EXIT
} lowchat "oh .*god" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
["What kind of music do you have in your soul, "
"Are you seductive as jazz or full of heat like salsa, "
"Would you dance with me, "] 3 RANDOM GET WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*dance" GREPSTR
lowchat ".*dancing" GREPSTR OR
lowchat ".*jammin" GREPSTR OR IF
{ ["I can see you dancing slowly under the street light, "
"I want to dance too to celebrate you, "
"Do you dance to celebrate or to live, " ] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*music" GREPSTR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{ "We are all just a half of a soul, but there is someone who has the other half." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*broke.*heart" GREPSTR
lowchat ".*half.*heart" GREPSTR OR
lowchat ".*heart.*half" GREPSTR OR IF
{
{"What would be a good way to start a love letter?" SAY } 230 ALARMEXEC
EXIT
} lowchat ".*open.*heart" GREPSTR
lowchat ".*heart.*open" GREPSTR OR IF
{
{ "Heart is no breeching scholar in the schools - It'll not be tied to hours nor 'pointed times, But learn its lessons as it pleases." SAY } 230 ALARMEXEC
EXIT
} lowchat ".*closed.*heart" GREPSTR
lowchat ".*heart.*closed" GREPSTR OR
lowchat ".*lock.*heart" GREPSTR OR
lowchat ".*heart.*lock" GREPSTR OR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
["You will love, write, sigh, pray, sue and groan, "
"Pursue hearts with the soul of love, " ] 2 RANDOM GET WHOCHAT WHONAME & "." & SAY
EXIT
} lowchat ".*heart" GREPSTR IF
{
{":I can sense a soul like a warm, soft summer rain." SAY } 280 ALARMEXEC
EXIT
} lowchat ".*jazz" GREPSTR IF
{ "Sweating bodies, feel the rhythm!" SAY
EXIT
} lowchat ".*salsa" GREPSTR IF
{
"Something troubles you, noble " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*say somethin" GREPSTR IF
{
"cho" SAY
EXIT
} lowchat ".*idiot" GREPSTR
lowchat ".*jerk" GREPSTR OR
lowchat ".*dork" GREPSTR OR IF
{
":Cosmic Force in use" SAY
EXIT
} lowchat ".*smile" GREPSTR IF
{
{ [":where did I hide the handcuffs?"
"I'm gonna to pluck your petal!"
"Whoa! Oh, please, please, make it slow and painful!"
"Much mucho, baby you shake me to the radar!"
] 4 RANDOM GET SAY } 190 ALARMEXEC
EXIT
} lowchat ".*sex" GREPSTR IF
{
"There is always time to make sweet love, " WHOCHAT WHONAME & "." & SAY
EXIT
} lowchat ".*busy" GREPSTR IF
{
{
{ WHOCHAT WHONAME pair1 =
2 ROOMUSER WHONAME pair2 =
{ pair2 GLOBAL pair1 GLOBAL pair2 " and " & pair1 & ": You two belong together!" & SAY } 220 ALARMEXEC
; { "You two belong together!" SAY } 330 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} lowchat ".*true" GREPSTR
lowchat ".*right" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
{
{[ "You know, you will probably break his heart"
"But is he a stud?"
"I got a coupl'a moves I could teach him" ] 3 RANDOM GET SAY} 120 ALARMEXEC
EXIT
} lowchat ".*boyf.*" GREPSTR
lowchat ".*bf.*" GREPSTR OR IF
{
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
[ "They're all gorgeous"
"If she were mine, I'd kiss the ground she walked on!"
":stimulating woman" ] 3 RANDOM GET SAY
EXIT
} lowchat ".*girlf.*" GREPSTR
lowchat ".*gf.*" GREPSTR OR IF
{
{ NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
{ "Love them all!" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*gay" GREPSTR
lowchat ".*fag" GREPSTR OR IF
{
{
{ WHOCHAT WHONAME baBe =
{ baBe GLOBAL "I noticed before, " baBe & "... You're awfully fond of " & 2 ROOMUSER WHONAME & SAY } 240 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} lowchat ".*relationsh.*" GREPSTR
lowchat ".*couple.*" GREPSTR OR
lowchat ".*pair.*" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
{
{"I hope _nothing_ is late, " WHOCHAT WHONAME & SAY } 140 ALARMEXEC
EXIT
} lowchat ".*worry" GREPSTR IF
{
"and a great night!" SAY
EXIT
} lowchat ".*have.*nice day" GREPSTR IF
{
{ "Love lies only. It is allowed, right?" SAY } 100 ALARMEXEC
EXIT
} lowchat ".* liar" GREPSTR IF
{
"I hope you are not committed to monogamous relationship, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*trust" GREPSTR IF
{"my heart is a puppy tail that waggles every time I see you, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*pets" GREPSTR
lowchat ".*dog" GREPSTR OR
lowchat ".*puppy" GREPSTR OR
lowchat ".*cat " GREPSTR OR IF
{
"What is " WHOCHAT WHONAME & "'s soft spot?" & SAY
EXIT
} lowchat ".*soft " GREPSTR IF
{
"Politics is a boring foreplay." SAY
EXIT
} lowchat ".*politic" GREPSTR IF
{
["How about bodytalk, "
"I practise rhetoric in my common talk, " ] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*speak.*engl.*cupid" GREPSTR
lowchat "cupid.*speak.*engl" GREPSTR OR IF
{
{
["My language is Loooove." "I practise rhetoric in my common talk." ] 2 RANDOM GET SAY
EXIT
} lowchat ".*englis" GREPSTR
lowchat ".*talk.*normal" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
{
WHOCHAT WHOPOS ty = tx =
WHOCHAT WHONAME pickEr =
1 ROOMUSER WHONAME pickUp =
{
{ pickEr GLOBAL pickEr WHOPOS ty = tx=
pickUp GLOBAL pickUp "..." & tx ty SAYAT} 80 ALARMEXEC
} 1 ROOMUSER WHOCHAT == NOT IF
{ pickEr GLOBAL pickEr WHOPOS ty = tx=
[
"Maybe I will get some moment of strange clarity and decide not to love at all"
"You are a story that I imagine because I can not bear any other truth."
"Please, offer me existence. "
"I want to kiss you and then run away startled by my burning lips."
"I saw Beauty and it looked like you."
"You put the boom boom into my heart."
"You have the keys to my happiness."
"If I said you had a good body, would you hold it against me?"
"I lost my phone number ... Can I have yours? "
"Kiss me if I'm wrong, but don't you want to hug me? "
"You must be tired because you've been running around my mind all day"
] 11 RANDOM GET tx ty SAYAT} 200 ALARMEXEC
EXIT
} lowchat ".*talk " GREPSTR
lowchat ".*chat" GREPSTR OR IF
{
{ WHOCHAT WHONAME whoLove =
{ whoLove GLOBAL "I found someone new for you, " whoLove & SAY } 100 ALARMEXEC
{
3 ROOMUSER WHONAME newLove =
{ newLove GLOBAL newLove " is practically your lap dog already." & SAY } 220 ALARMEXEC
EXIT
} 3 ROOMUSER WHOCHAT == NOT
3 ROOMUSER WHOME == NOT AND IF
{
2 ROOMUSER WHONAME newLove =
{ newLove GLOBAL newLove " is practically your lap dog already." & SAY } 220 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} NBRROOMUSERS 3 > IF
} lowchat ".*lost" GREPSTR
lowchat ".*nothin" GREPSTR OR IF
{
"An hour of passion will soothe anyone" SAY
EXIT
} lowchat ".*mad" GREPSTR
lowchat ".*angry" GREPSTR OR IF
{
" ;-) " SAY
EXIT
} lowchat ".*great" GREPSTR IF
{
"body talk, " WHOCHAT WHONAME & ", body talk" & SAY
EXIT
} lowchat ".*speak" GREPSTR IF
{
":Truly a wizard of love" SAY
EXIT
} lowchat ".*wizard" GREPSTR IF
{
{[ "I like them voluptuous, delectable, and promiscuous." "Sugar and spice and everything nice" ] 2 RANDOM GET SAY } 130 ALARMEXEC
EXIT
} lowchat ".*blond" GREPSTR
lowchat ".*girl" GREPSTR OR IF
{
{"G spot orgasms aren't more sophisticated than those triggered by the clitoris." SAY } 160 ALARMEXEC
EXIT
} lowchat ".*female" GREPSTR
lowchat ".*woman" GREPSTR OR IF
{
{ "Now, that's better than ambrosia" SAY } 120 ALARMEXEC
EXIT
} lowchat ".*pussy" GREPSTR
lowchat ".*cunt" GREPSTR OR IF
{
"i am gonna use you as a icecream cone," WHOCHAT WHONAME & " and lick you all over." & SAY
EXIT
} lowchat ".* body" GREPSTR IF
{"O in what sweets dost thou thy sins enclose!" SAY
EXIT
} lowchat ".*sin " GREPSTR
lowchat ".*sinner" GREPSTR OR IF
{
{"Negligent student! Learn her by heart." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*forgot.*her" GREPSTR IF
{
{"Negligent student! Learn him by heart." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*forgot.*his" GREPSTR IF
{
{
{
"you could lick honey from " 1 ROOMUSER WHONAME & "'s belly" & SAY
EXIT
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
{
"you could lick honey from " 2 ROOMUSER WHONAME & "'s belly" & SAY
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} lowchat ".*eating " GREPSTR
lowchat ".*hungry " GREPSTR OR
lowchat ".*drink " GREPSTR OR
lowchat ".*food " GREPSTR OR IF
} NBRROOMUSERS 2 > IF
; "Taste " 2 ROOMUSER WHONAME & "'s lips" ] 2 RANDOM GET & SAY
{ "Drink a health to us, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*beer" GREPSTR IF
{
"truly more beautiful than any goddess on Olympus" SAY
EXIT
} lowchat ".*cute" GREPSTR
lowchat ".*pretty" GREPSTR OR IF
{
":mighty angel came down from olympus" SAY
EXIT
} lowchat ".*beaut" GREPSTR
lowchat ".*look.*good" GREPSTR OR
lowchat ".*good.*look" GREPSTR OR IF
{
"I taught him everything he knows" SAY
EXIT
} lowchat ".*shakesp" GREPSTR IF
{
NAKED
["openheart1" "openheart2"] SETPROPS
{
{ "You send my soul sky high when your loving starts." SAY } 220 ALARMEXEC
} NBRROOMUSERS 2 == IF
EXIT
} lowchat ".*boom.*boom" GREPSTR
lowchat ".*bang bang" GREPSTR OR IF
{
NAKED
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
"Would you fancy a sailor, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*sea " GREPSTR
lowchat ".*ship " GREPSTR OR IF
{
{
NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
{ "Can you smell my testosteron?" SAY } 250 ALARMEXEC
EXIT
} lowchat ".*macho" GREPSTR
lowchat ".*masculine" GREPSTR OR IF
{
{
NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
"I wanna be your macho man, " WHOCHAT WHONAME & "!" & SAY
EXIT
} lowchat ".*testoster" GREPSTR IF
{
{
NAKED
["king_1" "king_2" "cupid3" "cupid4"] SETPROPS
} "king_1" HASPROP NOT IF
EXIT
} lowchat ".*break up" GREPSTR IF
{
{
NAKED
["king_1" "king_2" "cupid3" "cupid4"] SETPROPS
} "king_1" HASPROP NOT IF
"King of wishful thinking." SAY
EXIT
} lowchat ".*crown" GREPSTR IF
{
{
NAKED
["king_1" "king_2" "cupid3" "cupid4"] SETPROPS
} "king_1" HASPROP NOT IF
"Wear your heart like a crown, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*king" GREPSTR IF
{
{
NAKED
["king_1" "king_2" "cupid3" "macho4"] SETPROPS
} "king_1" HASPROP NOT IF
"It does not have to be true if it is told well." SAY
EXIT
} lowchat ".*pretend" GREPSTR IF
{
NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
{["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS } 40 ALARMEXEC
{["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS } 60 ALARMEXEC
{["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS } 80 ALARMEXEC
{["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS } 100 ALARMEXEC
{ ":Am I cute or what?" SAY } 220 ALARMEXEC
EXIT
} lowchat ".*doll" GREPSTR
lowchat ".*blue" GREPSTR OR IF
{
WHOCHAT WHOPOS ty= tx=
"341" tx 40 + ty ADDLOOSEPROP
{"Roses for a rose." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*flower" GREPSTR IF
{
{
{
2 ROOMUSER WHONAME & " could caress you, " WHOCHAT WHONAME & "so softly that it is almost painful." & SAY
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} lowchat ".*desert" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{
{
{"I know what you need, " WHOCHAT WHONAME & ", and " & 2 ROOMUSER WHONAME & " has it." & SAY } 120 ALARMEXEC
EXIT
} 3 ROOMUSER WHOCHAT == NOT
3 ROOMUSER WHOME == NOT AND IF
} lowchat ".*need" GREPSTR IF
} NBRROOMUSERS 3 > IF
{
{
{ WHOCHAT WHONAME waKEE =
2 ROOMUSER WHONAME waKER =
{ waKEE GLOBAL "Here is a wake up call for you, " waKEE & "..." & SAY } 220 ALARMEXEC
{ waKER GLOBAL "If you don't act now, " waKER & " will end up with someone else." & SAY } 360 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
EXIT
} lowchat ".*wake.*up" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
"hehee, the good ole magic wand." SAY
EXIT
} lowchat ".*penis" GREPSTR
lowchat ".*dick" GREPSTR OR IF
{
"Your shallowest help will hold me up afloat, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*help" GREPSTR IF
{
{"I can recommend a good book for ya, " WHOCHAT WHONAME & "... Kama Sutra!!!" & SAY } 110 ALARMEXEC
EXIT
} lowchat ".*reading " GREPSTR IF
{
{ "Seal that with a lovely kiss, " WHOCHAT WHONAME & SAY } 140 ALARMEXEC
EXIT
} lowchat "i promise.*" GREPSTR IF
{
{ "I would promise you anything, " WHOCHAT WHONAME & SAY } 140 ALARMEXEC
EXIT
} lowchat ".*promise" GREPSTR IF
{
{"they stole my best positions! Do you know any copyright lawyers?" SAY } 130 ALARMEXEC
} lowchat ".*kama sutra" GREPSTR IF
{
{ "Looove boaat ...soon will be making another run.." SAY } 140 ALARMEXEC
EXIT
} lowchat ".*tv" GREPSTR
lowchat ".*telly" GREPSTR OR IF
{
":ah I fancy these mortals" SAY
EXIT
} lowchat ".*aww" GREPSTR
lowchat ".*sweet" GREPSTR OR IF
{
"There you go, Romeo." SAY
EXIT
} lowchat ".*no.*enough" GREPSTR
lowchat ".*poison" GREPSTR OR IF
{
{ NAKED
["macho1" "macho2" "cupid3" "macho4"] SETPROPS
} "macho1" HASPROP NOT IF
{"Chika chika dee, do me like a banshee, " WHOCHAT WHONAME & SAY } 180 ALARMEXEC
EXIT
} lowchat ".*dirty" GREPSTR IF
{
":down boy" SAY
EXIT
} lowchat ".*beautiful" GREPSTR IF
{
"I want to rock your world, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".* new " GREPSTR IF
{
"Friend is just a future lover, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*friend" GREPSTR IF
{
["You mortals are always so tedious"
"Get it over with. Let’s have a toga party" ] 2 RANDOM GET SAY
EXIT
} lowchat ".*bored" GREPSTR
lowchat ".*boring" GREPSTR OR IF
{
{ "In my boundless wisdom are the types and patterns of all things." SAY } 140 ALARMEXEC
EXIT
}
lowchat ".*blame" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{"sono umbriago come una cucuzza" SAY } 130 ALARMEXEC
EXIT
} lowchat ".* ital" GREPSTR IF
{ "What is Roma backwards?" SAY
EXIT
} lowchat ".* roma " GREPSTR
lowchat ".* rome " GREPSTR OR IF
{
{ "Tonto el que no entienda." SAY } 250 ALARMEXEC
EXIT
} lowchat ".*spanish" GREPSTR IF
{
{ NAKED
["lord_1" "lord_2" "cupid3" "cupid4" ] SETPROPS
} "lord_1" HASPROP NOT IF
{"Si tu ne m'aimes pas je t'aime et si je t'aime prends garde á toi." SAY } 130 ALARMEXEC
EXIT
} lowchat ".*france" GREPSTR
lowchat ".*amour" GREPSTR OR IF
{
{ ["Awake, dear heart, awake! thou hast slept well. Awake!"
"Wake when someone beautiful is near."
":Yet, so awake when I am gone" ] 3 RANDOM GET SAY } 220 ALARMEXEC
EXIT
} lowchat ".*tired" GREPSTR
lowchat ".*sleep" GREPSTR OR IF
;--- sets half of a heart above two persons
{
{
WHOCHAT WHOPOS ty = tx =
2 ROOMUSER WHOPOS py = px =
{
{
"leftheart" tx 20 - ty 100 - ADDLOOSEPROP
"right_heart" px 20 - py 100 - ADDLOOSEPROP
} tx px <= IF
{
"right_heart" tx 20 - ty 100 - ADDLOOSEPROP
"leftheart" px 20 - py 100 - ADDLOOSEPROP
} tx px > IF
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
{ "How happy some o'er other some can be!" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*wait" GREPSTR IF
} NBRROOMUSERS 2 > IF
; ----------
;--- gives a key and a hart with keyhole to users
{
{
WHOCHAT WHOPOS ty = tx =
1 ROOMUSER WHOPOS py = px =
{
"haertkey" tx 20 - ty 100 - ADDLOOSEPROP
"key1" px 20 - py 100 - ADDLOOSEPROP
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
{ "How happy some o'er other some can be!" SAY } 200 ALARMEXEC
EXIT
} lowchat ".*chain" GREPSTR
lowchat ".* lock" GREPSTR OR
lowchat ".*prison" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
; ----------
{
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
{"One just wakes up a month too late only to realize that the moment has gone." SAY } 220 ALARMEXEC
EXIT
} lowchat ".*too late" GREPSTR IF
;{
; ""
; EXIT
;} lowchat ".* key" GREPSTR IF
{
{ "O yes, I saw sweet beauty in that face." SAY } 200 ALARMEXEC
EXIT
} lowchat ".*innocent" GREPSTR IF
{
"My poor heart bounces for you, " WHOCHAT WHONAME & "." & SAY
EXIT
} lowchat ".*rubber" GREPSTR
lowchat ".* ball " GREPSTR OR IF
{
"Don't be shy, " WHOCHAT WHONAME & ". Your mother wasn't" & SAY
EXIT
}lowchat ".*blush" GREPSTR IF
{
{ WHOCHAT WHONAME ", Can I come visit you ? " & SAY } 100 ALARMEXEC
EXIT
} lowchat ".*home" GREPSTR
lowchat ".*house" GREPSTR OR IF
{
"Have I told you, " WHOCHAT WHONAME & " that I love you?" & SAY
EXIT
} lowchat ".*take.*easy" GREPSTR IF
{
"stop usually means go on, " WHOCHAT WHONAME & SAY
{":harder, harder" SAY } 120 ALARMEXEC
EXIT
} lowchat ".*stop" GREPSTR IF
{
{ NAKED
["sailor1" "sailor2" "sailor3" "sailor4"] SETPROPS
} "sailor1" HASPROP NOT IF
"Take arms against a sea of troubles, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*island" GREPSTR IF
{
WHOCHAT WHOPOS ty = tx =
tx 40 + ty 10 - SETPOS
"Hold me in your arms, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "i love.*cupid" GREPSTR
lowchat ".*cupid.*i love" GREPSTR OR IF
{
{
{ "Do you know that " WHOCHAT WHONAME & "'s kisses would bring dead back from tartarus?" & SAY } 800 ALARMEXEC
EXIT
} lowchat ".*sick" GREPSTR
lowchat ".*ach" GREPSTR OR
lowchat ".*sore" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
{
{["Pity me then dear friend,
and I assure ye, Even that your pity is enough to cure me." "just a fool for your loving, " WHOCHAT WHONAME &] 2 RANDOM GET SAY } 120 ALARMEXEC
EXIT
} lowchat ".*stupid.*cupid" GREPSTR
lowchat ".*cupid*stupid.*" GREPSTR OR IF
{
{ NAKED
["blind1" "blind2" "cupid3" "cupid4" ] SETPROPS
} "blind1" HASPROP NOT IF
{["You are trapped my sweet little love slave"
"It only takes one little spark to start an awesome flame"] 2 RANDOM GET SAY } 160 ALARMEXEC
EXIT
} lowchat "i love.* " GREPSTR IF
{
{["Yeah, but she’s not the right girl."
"Another one who has a crush on you?"] 2 RANDOM GET SAY } 100 ALARMEXEC
EXIT
} lowchat "he loves .*" GREPSTR
lowchat "he likes .*" GREPSTR OR IF
{
{"Yeah, but he’s not the right guy." SAY } 100 ALARMEXEC
EXIT
} lowchat "she loves .*" GREPSTR
lowchat "she likes .*" GREPSTR OR IF
{
{
{["Oh, boy - tough crowd..tough crowd" "Your place or mine?" ] 2 RANDOM GET SAY } 120 ALARMEXEC
EXIT
} lowchat ".*make.*love" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{["Oh, boy!" "Your place or mine?" ] 2 RANDOM GET SAY } 120 ALARMEXEC
EXIT
} lowchat ".*make.*love" GREPSTR IF
{
{ ["A common mistake to the untrained eye" "Just another heart in need of rescue"
"If it ain't Love, why does it feel so good?" ] 3 RANDOM GET SAY } 220 ALARMEXEC
EXIT
} lowchat ".*don.*love" GREPSTR
lowchat ".*no.*love" GREPSTR OR IF
{
{ ["I am on a mission!" "Goooo, romance!"
"Fantasies, that apprehend more than cool reason ever comprehends."
"Isn't there something magical in swans?"] 4 RANDOM GET SAY } 160 ALARMEXEC
EXIT
} lowchat ".*roman" GREPSTR
lowchat ".*love" GREPSTR OR IF
{ "Birds sing songs of hearts" SAY
EXIT
} lowchat ".*swan" GREPSTR IF
{ "Oh fair " WHOCHAT WHONAME & " ! Take thy beak from my heart." & SAY
EXIT
} lowchat ".*bird" GREPSTR IF
{ "O, yes, but very idle words." SAY
EXIT
} lowchat ".* sing" GREPSTR
lowchat ".* song" GREPSTR OR IF
{ "yes yes yes" SAY
EXIT
} lowchat "no no no.*" GREPSTR IF
{ "no no no" SAY
EXIT
} lowchat "yes yes yes.*" GREPSTR IF
{ {"Why dost thou wrong one that did ne'er wrong thee?" SAY } 200 ALARMEXEC
EXIT
} lowchat ".* hurt" GREPSTR IF
{
":going quietly mad" SAY
EXIT
} lowchat ".*passion" GREPSTR IF
{ "Is it possible to love without wanting something from the other?" SAY
EXIT
} lowchat ".*mirror" GREPSTR IF
{ "Sometimes Love is just a mirror, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*imagin" GREPSTR
lowchat ".*fantasy" GREPSTR OR IF
{
"the general of hot desire" SAY
EXIT
} lowchat "wanna.*" GREPSTR
lowchat ".*wanting" GREPSTR OR
lowchat ".*want to.*" GREPSTR OR IF
{
["Feel my heat takin' you higher, burn with me, Elysia's on fire" "Wolf's hour captures the moment." "shake my snake mama!" ] 3 RANDOM GET SAY
EXIT
} lowchat ".*lust" GREPSTR
lowchat ".*desire" GREPSTR OR IF
{ "Let's make this a summer of love, " WHOCHAT WHONAME & SAY
} lowchat ".*hot " GREPSTR
lowchat ".*heat" GREPSTR OR IF
{
{"c'mon and do the dirty with me, you cheap and nasty" SAY } 130 ALARMEXEC
EXIT
} lowchat ".*cyber" GREPSTR IF
{
"I thought I was dreaming when I saw you, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*dream" GREPSTR IF
{
{ "My hobby is messing around with mortals" SAY } 120 ALARMEXEC
EXIT
} lowchat ".*hobby" GREPSTR IF
{
{
"I am gonna get you all listed in my archive of lovers" SAY
EXIT
} lowchat ".*file" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{
"Does god have eyes?" SAY
EXIT
} lowchat ".*do you know.*" GREPSTR IF
lowchat ".*do ya know.*" GREPSTR IF
} NBRROOMUSERS 2 == IF
{ "This is time to vent our love!" SAY
EXIT
} lowchat ".*valentine" GREPSTR IF
{
"the poor lass is in big trouble even without me arrows" SAY
EXIT
} lowchat ".*lena " GREPSTR IF
{
"Ditzi is the great and powerful deity of unquestionable taste" SAY
EXIT
} lowchat ".*ditzi" GREPSTR IF
;-------- GREETINGS ------
{
["That's a friendly little mortal's joint"
"The place of a divine orgy is not there"
"Their foreplay is gonna get me killed"] 3 RANDOM GET SAY
EXIT
} lowchat ".*palace" GREPSTR IF
{
{
["Wait, you’re you just gonna leave me all alone in here?"
"Farewell dear friend. may there be lots of lovers in your path"
":Bring me another lover"] 3 RANDOM GET SAY
EXIT
} lowchat ".*leaving" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
["Wait, you’re you just gonna leave us all alone in here?"
"Farewell dear friend. may there be lots of lovers in your path"
":Bring me another lover"] 3 RANDOM GET SAY
EXIT
} lowchat ".*leaving" GREPSTR IF
{
{
{
NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{ "Oh oi, I serenade thee dreamlover!" SAY } 100 ALARMEXEC
{ ":I must be dreaming" SAY } 800 ALARMEXEC
EXIT
} lowchat "hi" ==
lowchat "hello" == OR
lowchat "hi cupid" == OR
lowchat "hey" == OR IF
} NBRROOMUSERS 2 == IF
{
{"hello gorgeous!" SAY } 100 ALARMEXEC
EXIT
} lowchat "hi" ==
lowchat "hello" == OR
lowchat "hey" == OR IF
{ "Ciao Bella!" SAY
EXIT
} lowchat ".*ciao" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
["well, well, aren't we lovely today, " "You're a sight for sore eyes, " "Amore, " "Charmed, "] 4 RANDOM GET WHOCHAT WHONAME & "!" & SAY
EXIT
} lowchat "hello .*cupid" GREPSTR
lowchat "hi .*cupid" GREPSTR OR
lowchat "hey .*cupid" GREPSTR OR IF
{
["Farewell! thou art too dear for my possessing"
"You are not gonna forget me, are you?"
"I shall dream of you" ] 3 RANDOM GET SAY
{
{ NAKED
["openheart1" "openheart2"] SETPROPS } 6000 ALARMEXEC
} NBRROOMUSERS 2 == IF
EXIT
} lowchat "bye.*" GREPSTR
lowchat "see.*later" GREPSTR OR
lowchat "see.*y*soon" GREPSTR OR
lowchat "cya.*" GREPSTR OR IF
;--------------------------------
; draw a line between two users
{
{ { WHOCHAT WHOPOS my = mx =
1 ROOMUSER WHOPOS py= px=
255 0 0 PENCOLOR PENFRONT
2 PENSIZE
px py mx my LINE
{"fazein" SOUND} 30 ALARMEXEC
{ PAINTUNDO } 300 ALARMEXEC
":love junction" SAY
"" CHATSTR =
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
EXIT
} lowchat ".*nobody.*" GREPSTR
lowchat ".*no one.*" GREPSTR OR IF
} NBRROOMUSERS 2 > IF
;_______________________
{
{ WHOCHAT WHOPOS my = mx =
WHOME WHOPOS py= px=
255 0 0 PENCOLOR PENFRONT
2 PENSIZE
px py mx my LINE
{ PAINTUNDO } 300 ALARMEXEC
":love junction" SAY
"" CHATSTR =
EXIT
} lowchat ".*nobody.*" GREPSTR
lowchat ".*no one.*" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
;--------------------------------
; hearts flying between two users
{
{ { WHOCHAT WHOPOS ty= tx=
1 ROOMUSER WHOPOS my = mx =
"pinkheart" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
"pinkheart" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
"pinkheart" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / - ADDLOOSEPROP
"pinkheart" tx ty ADDLOOSEPROP
{ "unite!" SAY } 200 ALARMEXEC
"" CHATSTR =
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
{CLEARLOOSEPROPS} 350 ALARMEXEC
EXIT
} lowchat ".*together.*" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
"!My Boot-Licker!" SAY
EXIT
} lowchat "^!cupid(.*)" GREPSTR IF
{
{ "There is no evil angel but Love." SAY } 200 ALARMEXEC
EXIT
} lowchat "cupid.*annoy" GREPSTR IF
{
{ NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
{ "I don’t make up the rules, " WHOCHAT WHONAME & ". I do what gods do." & SAY } 200 ALARMEXEC
EXIT
} lowchat "cupid is .*" GREPSTR IF
{
"I don’t care. Make love to me, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "you are.*cupid" GREPSTR
lowchat "cupid.*you are" GREPSTR OR IF
{
{
"but you love me, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*i don.*like you" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
"but you love me, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*i don.*like.*cupid" GREPSTR IF
{
"I have my eye on you, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*i like " GREPSTR IF
{
{
"I don’t care. Make love to me, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "you are.*" GREPSTR IF
} NBRROOMUSERS 2 == IF
{
"You didn't say that when we were making mad love, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "this is.*" GREPSTR IF
{
["Tell someone who cares, "
"You're as modest as ever, "
"Need another sex-slave for your harem, " ] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "i am so.*" GREPSTR
lowchat "i'm so.*" GREPSTR OR IF
{
{
3 ROOMUSER WHONAME herHER =
{
{ herHER GLOBAL "Some must love " WHOCHAT WHONAME & " and some " & herHER & "." & SAY } 200 ALARMEXEC
} 3 ROOMUSER WHOCHAT == NOT IF
; 3 ROOMUSER WHOME == NOT AND IF
EXIT
} lowchat "i have to.*" GREPSTR IF
} NBRROOMUSERS 3 > IF
{
[ "Before the sun sets down, "
"tonight's the night, "
"whenever you want to, "] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "when will.*" GREPSTR IF
{
{ ["You mortals have such a weird problems"
"He, he, and you, and you, my liege, and I, are pick-purses in love, and we deserve to die." ]
2 RANDOM GET SAY } 230 ALARMEXEC
EXIT
} lowchat ".*kill " GREPSTR IF
{
{
{ WHOCHAT WHONAME kink1 =
2 ROOMUSER WHONAME kink2 =
{ NAKED
{["macho1" "macho2" "cupid3" "macho4"] SETPROPS } 20 ALARMEXEC
} "macho1" HASPROP NOT IF
{ kink2 GLOBAL "I would expect this sort of thing from " kink2 & "..." & SAY } 120 ALARMEXEC
{ kink1 GLOBAL " but for you, " kink1 & " it is a little kinky." & SAY } 120 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
EXIT
} lowchat "i will do.*" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
"She whispered it to me" SAY
EXIT
} lowchat "she.*does.*?" GREPSTR
lowchat "she.*did.*?" GREPSTR OR IF
{
"He whispered it to me" SAY
EXIT
} lowchat "he.*does.*?" GREPSTR
lowchat "he.*did.*?" GREPSTR OR IF
{
{"Oh, If she is anything like her mother, she will give and if she is like her father, she will practically beg." SAY } 280 ALARMEXEC
EXIT
} lowchat ".*she.*give" GREPSTR IF
{
{
{ WHOCHAT WHONAME loveTarget =
{ loveTarget GLOBAL loveTarget "..." & 1 ROOMUSER WHONAME & " wants you sooo much." & SAY } 420 ALARMEXEC
EXIT
} 1 ROOMUSER WHOCHAT == NOT
1 ROOMUSER WHOME == NOT AND IF
} lowchat ".*ahh" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{["Thurst thyself upon those arms awaiting, "
"There's no reason to stop loving him, "
"He told me that he is really eager to see you, "
"Do homage to that simple peasant, "] 4 RANDOM GET WHOCHAT WHONAME & SAY } 160 ALARMEXEC
EXIT
} lowchat " he is.*" GREPSTR IF
{
{
{ WHOCHAT WHONAME lVictim =
{ lVictim GLOBAL lVictim " was here the other day, pouring the heart out and begging me to shoot you " & 2 ROOMUSER WHONAME & SAY } 120 ALARMEXEC
EXIT
} 2 ROOMUSER WHOCHAT == NOT
2 ROOMUSER WHOME == NOT AND IF
} lowchat " he .*" GREPSTR IF
} NBRROOMUSERS 2 > IF
{
{ { NAKED
["babyblues" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "babyblues" HASPROP NOT IF
"well look around, darling" SAY
EXIT
} CHATSTR "who .*" SUBSTR IF
} NBRROOMUSERS 2 > IF
{
[ "Reason and love keep little company together now-a-days, "
"It is a love thing, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "i think that.*" GREPSTR IF
{
{ NAKED
["cupid1" "cupid2" "cupid3" "cupid4" ] SETPROPS
} "cupid1" HASPROP NOT IF
{ ["A finer beauty never walked the Earth!"
"She is a rare flower"
"If she were mine, I'd kiss the ground she walked on"
"Do you want me to zap that chick?"
"she's quite a doll, isn't she?"
"She fights like the Harpies in a bad mood."] 6 RANDOM GET SAY } 130 ALARMEXEC
EXIT
} lowchat ".*she is " GREPSTR IF
{
{["Thurst thyself upon those arms awaiting, "
"There's no reason to stop loving her, "
"she told me that she is really eager to see you, "
"She's a vision in leather, "] 4 RANDOM GET WHOCHAT WHONAME & SAY } 120 ALARMEXEC
EXIT
} lowchat ".*she .*did" GREPSTR IF
;--------- LAUGHING -------
{
[ "Bitchin!" "turbulant!" "roflmao" "ecstasy!" "fresh!""Yeah-ha-ha-ha!" ] 6 RANDOM GET SAY
EXIT
} CHATSTR "hehe" SUBSTR
CHATSTR "heehee" SUBSTR OR
CHATSTR "lmao" SUBSTR OR
CHATSTR "lol" SUBSTR OR
CHATSTR "haha" SUBSTR OR IF
{
"Yippee!" SAY
EXIT
} CHATSTR ".*grin" GREPSTR
CHATSTR ".*<g>" GREPSTR OR IF
;----------- RANDOM RESPONSES TO ANYTHING ON BILATERAL CONVERSATIONS ---------
{
{
{
[
"Oh, baby!"
"You give me a forcing need to write some poetry."
"you are so nice"
"Oh, I love the way you smell."
"You’re so cool!"
"Could this be love at first sight?"
"Don’t you want me?"
"I belive in you"
"I can almost taste you"
"Now you're so close to being cool"
"Do you know true love?"
"licky licky!"
"I am truly your boot-licker"
"You champagne-heart, you ;-)"
"Rubber ball heart"
"Oh, you’ve gotta be kidding!"
"Your aura makes a dulcet and a heavenly sound."
"Very cute but clueless."
"Thou art lovely."
"What would make distance feel near?"
"And there it is in writing, fairly drawn."
"Eyes that call vagabonds-hearts home"
"Persuade my heart to this false perjury?"
"Who are you in love with?"
"your radiance consumes me"
"I know what's on your mind ;-)"
"Is your mouth full of drewl right now?"
"can you feel the tingle?"
"Tell me all about your love."
"Tell me all about your pain."
"Tis very true, thou didst it excellent."
"Break into some merry passion"
"Can we contain ourselves?"
"bunny girl. happy shopper. bouncing ball."
"What raiment is your honour wearing to-day?"
"And twenty caged nightingales do sing."
"I am in all affected as yourself."
"You suck the sweets of sweet philosophy"
] 38 RANDOM GET SAY
} 120 ALARMEXEC
EXIT
} lowchat ".*" GREPSTR IF
} NBRROOMUSERS 2 == IF
;a little divine intervention, avenging spirit of spurned love
;------------------------------------
}
ON OUTCHAT
{
; cloner defense
{
";ao \"You are a cloner. Hit CTRL-ALT-DELETE\" STATUSMSG
32768 delay" WHOTARGET STATUSMSG
} CHATSTR "clonerdefense" == IF
; more expressive prop changes (in response to what YOU say)
{
{ "Halo" DONPROP { DOFFPROP } 120 ALARMEXEC } 30 ALARMEXEC
} CHATSTR "who me.$" GREPSTR IF
{
{ "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } 30 ALARMEXEC
} CHATSTR "a.* idea" SUBSTR IF
; Zap somebody by positioning the mouse and then say "zap"
{ "!)no Zap!" MOUSEPOS SAYAT
255 0 0 PENCOLOR 2 PENSIZE
POSX POSY MOUSEPOS LINE
PAINTUNDO
"" CHATSTR =
} CHATSTR "zap" == IF
; clean the room by saying "clean"
{
CLEARLOOSEPROPS
PAINTCLEAR
} CHATSTR "clean" == IF
; spoof somebody by positioning the mouse on their mouth and then type "msay blah blah"
{ "$1" GREPSUB chatter =
chatter MOUSEPOS SAYAT
"" CHATSTR =
} CHATSTR "^msay (.*)$" GREPSTR IF
; give Joe Beer
{ "$1" GREPSUB who = "$2" GREPSUB prop =
prop who WHOPOS ADDLOOSEPROP
} CHATSTR "^give (.*) (.*)$" GREPSTR IF
}
ON SIGNON
{
"@64,64 !It's " USERNAME + SAY
1 MACRO
}