;--------------------------------------------------------------------------------
;
; Cyborg.ipt for LABAN - Rastafarian Chatter Bot
; 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 client for Macintosh
;
;
; 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 INCHAT
{

newroom GLOBAL

; expressive prop changes - in response to what others say
{ "pitchfork" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you devil" == IF
{ "Halo" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you angel" == IF
{ "Lightbulb" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you genius" == IF
{ "Fez" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you shriner" == IF
{ "Beanie" DONPROP { DOFFPROP } 120 ALARMEXEC } CHATSTR "you geek" == IF


; This prevents the bot from listening to itself
{ EXIT } WHOCHAT WHOME == IF

;---------------- QUESTIONS AND COMMENTS TO LABAN ---



{ [ "yah are me" "Meg is me" "Eveverybody is me"] 3 RANDOM GET "$1, " GREPSUB & WHOCHAT WHONAME & "." & SAY
EXIT
} CHATSTR LOWERCASE "who is your(.*), laban(.*)?" GREPSTR IF


{ [ "i-man was yas" "I-man is not yas" "dem all is yas"] 3 RANDOM GET "$1, " GREPSUB & WHOCHAT WHONAME & "." & SAY
EXIT
} CHATSTR LOWERCASE "laban is my(.*)" GREPSTR IF


{ "$1" GREPSUB cStr =

cStr SAY
"" CHATSTR =
"" lowchat =
EXIT
}
CHATSTR LOWERCASE "say (.*)" GREPSTR IF



CHATSTR LOWERCASE lowchat =
;-----------------------------
;Script: BlowKiss
;Author: Leige (Chris Edwards)
;Revised: Leena Saarinen 14 Mar, 2000
;Date : March 30, 1996
;Desc : Make a ganja prop fly through the air towards a target,
; and then makes a kiss sound.

{
;Get the mouse position
; MOUSEPOS ty = tx =
;Get position
WHOCHAT WHOPOS ty = tx =

;Use a simple line algorithm to place 4 props in line from you to the
;target.
"pot" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
"pot" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
"pot" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / -
ADDLOOSEPROP
"pot" tx ty ADDLOOSEPROP

;Wait a sec and play the kiss sound.
{"kiss" SOUND} 120 ALARMEXEC

;Smooch!!!!! Let them know what happened (as if they couldn't
;figure it out)
"!SLOBBER!!!" 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 =

}
lowchat ".*slobber" GREPSTR
lowchat ".*i like" GREPSTR OR
lowchat ".*kiss.*me.*laban" GREPSTR OR IF

;----------------------------------

;-----------------------------
;Script: BlowKiss
;Author: Leige (Chris Edwards)
;Revised: Leena Saarinen 14 Mar, 2000
;Date : March 30, 1996
;Desc : Make a ganja prop fly through the air towards a target,
; and then makes a ding sound.

{
"Eat this" SAY
;Get the mouse position
; MOUSEPOS ty = tx =
;Get position
WHOCHAT WHOPOS ty = tx =

;Use a simple line algorithm to place 4 props in line from you to the
;target.
"weedies" POSX POSX tx - 4 / - POSY POSY ty - 4 / - ADDLOOSEPROP
"weedies" POSX POSX tx - 2 / - POSY POSY ty - 2 / - ADDLOOSEPROP
"weedies" POSX POSX tx - 3 * 4 / - POSY POSY ty - 3 * 4 / -
ADDLOOSEPROP
"weedies" tx ty ADDLOOSEPROP

;Wait a sec and play the kiss sound.
{"yes" SOUND} 120 ALARMEXEC

;Smooch!!!!! Let them know what happened (as if they couldn't
;figure it out)
"!DOINNNNNG" 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 =

} lowchat ".*starvin" GREPSTR IF


;----------------------------------

CHATSTR LOWERCASE lowchat =
{
["coool yaiself bald bwoy"
":an big man start cry"] 2 RANDOM GET SAY
EXIT
} lowchat "shut up.*aban" GREPSTR
lowchat "shuddup.*aban" GREPSTR OR IF

{
"yu dam Lagga head bud. I-man ryal" SAY
EXIT
} lowchat ".*stupid.*aban" GREPSTR
lowchat ".*aban*stupid.*" GREPSTR OR
lowchat ".*aban.*suck.*" GREPSTR OR
lowchat ".*suck.*aban" GREPSTR OR IF

;----- how are u
{
["Need ta bunk mi res, falla."
"Me bleach hard lass night. The gal come wine up on me. I-man agony all over"
"bamba yay"
"Mi life is stiff fite"
"Mi inna jam"] 5 RANDOM GET SAY
EXIT
} lowchat ".*wha.*up.*aba" GREPSTR
lowchat "how are.*aban" GREPSTR OR
lowchat ".*sup.*aban" GREPSTR OR
lowchat ".*how are.*u.*all" GREPSTR OR
lowchat "how.*goin.*aban" GREPSTR OR IF

;If there is only one chatter in the room, Labans name is not neccessary in this sentence
{
{
["Need ta bunk mi res, falla."
"Me bleach hard lass night. The gal come wine up on me. I-man agony all over"
"bamba yay"
"Mi life is stiff fite"
"Mi inna jam"] 5 RANDOM GET SAY
EXIT
} lowchat ".*wha.*up.*" GREPSTR
lowchat "how are.*" GREPSTR OR
lowchat ".*sup.*" GREPSTR OR
lowchat "how.*goin.*" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
;-----

{
["gone a foreign"
"nuh rent nuh pay so mi caan stay" ] 2 RANDOM GET SAY
EXIT
} lowchat "where .*from.*aban" GREPSTR
lowchat ".*aban where .*?" GREPSTR OR IF
{
{
["gone a foreign"
"nuh rent nuh pay so mi caan stay" ] 2 RANDOM GET SAY
EXIT
} lowchat "where .*from.*" GREPSTR
lowchat "where .*live" GREPSTR OR IF
} NBRROOMUSERS 2 == IF
;-----

{
["Lef mi Nuh, "
"I hail to dat, "] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "right.*aban.*" GREPSTR IF


{
"Yaare bambuuuuface yaiself, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*ugly.*aban.*" GREPSTR
lowchat ".*aban.*ugly" GREPSTR OR
lowchat ".*aban.*looks" GREPSTR OR IF


{
{
"Yaare bambuuuuface yaiself, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "you .*ugly" GREPSTR IF

} NBRROOMUSERS 2 == IF


{
"I love hafu yam gaan to bed, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "i love.*aban" GREPSTR
lowchat ".*aban.*i love" GREPSTR OR IF

{
"One love, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*bredd" GREPSTR
lowchat ".*brudd" GREPSTR OR IF

{
"chant" SAY
EXIT
} lowchat "laban?" == IF

{
"chant bredda." SAY
EXIT
} lowchat "laban" == IF

{
"in a rub-a-dub style, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "laban.*is.* weird" GREPSTR
lowchat "laban.*u.*weird" GREPSTR OR
lowchat ".*u.*weird.*laban" GREPSTR OR IF


{
{
"in a rub-a-dub style, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "you.*weird" GREPSTR
lowchat "u.*weird" GREPSTR OR IF
} NBRROOMUSERS 2 == IF


{
"don't jook mi inna mi yeye, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "laban.*sob" GREPSTR
lowchat ".*sob.*laban" GREPSTR OR
lowchat ".*laban.*assole" GREPSTR OR
lowchat "laban.*asshole" GREPSTR OR IF

{
{
"don't jook mi inna mi yeye, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*sob" GREPSTR
lowchat ".*asshole" GREPSTR OR IF
} NBRROOMUSERS 2 == IF


;------- changing of the room
;117 meg's tavern
; these room numbers are specificly designed for mycorner mycorner.xsia.com
{
{
{ "I zure will" SAY } 40 ALARMEXEC
{ 232 GOTOROOM } 150 ALARMEXEC
EXIT
} lowchat "laban.*find.*meg" GREPSTR
lowchat ".*find.*meg.*laban" GREPSTR OR IF
} 117 ROOMID == IF

{
{ "I zure will" SAY } 40 ALARMEXEC
{ 117 GOTOROOM } 150 ALARMEXEC
EXIT
} lowchat "laban.*find.*meg" GREPSTR
lowchat ".*find.*meg.*laban" GREPSTR OR IF
;------- changing room END




{
["Me been in Babylon bruddah." "Go yaiself" "Mi a-go lef today"] 3 RANDOM GET SAY
EXIT
} lowchat "go.*hell.*aban" GREPSTR
lowchat "laban.*go.*hell" GREPSTR OR
lowchat "go.*away.*aban" GREPSTR OR
lowchat "leave.*aban" GREPSTR OR
lowchat "laban.*go.*away" GREPSTR OR
lowchat ".*aban.*leave.*" GREPSTR OR IF

{
"humble and dreadlock nazarene man, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*who are.*you" GREPSTR IF


{
"Ya no see?" SAY
EXIT
} lowchat ".*bot.*aban" GREPSTR
lowchat ".*aban.*bot" GREPSTR OR IF

{
{
"Ya no see?" SAY
EXIT
} lowchat "are.*u.*bot" GREPSTR IF
} NBRROOMUSERS 2 == IF

;-----------
{
["whole heap years"
"Trouble and anguish taken olden me"] 2 RANDOM GET SAY
EXIT
} lowchat "how old.*aban" GREPSTR IF

{
{
["whole heap years"
"Trouble and anguish olden me"] 2 RANDOM GET SAY

EXIT
} lowchat "how old.*" GREPSTR IF
} NBRROOMUSERS 2 == IF


;------------

{
"Dig me structure, " WHOCHAT WHONAME & "? I-man kissin mirrors all the time" & SAY
EXIT
} lowchat ".*avatar.*aban" GREPSTR
lowchat ".* av.*aban" GREPSTR OR IF

{
{
"Dig me structure, " WHOCHAT WHONAME & "? I-man kissin mirrors all the time" & SAY
EXIT
} lowchat ".*avatar.*" GREPSTR
lowchat ".* av .*" GREPSTR OR IF
} NBRROOMUSERS 2 == IF



{
{ "I-man a righteous Dread, " WHOCHAT WHONAME & SAY } 60 ALARMEXEC
EXIT
} lowchat "laban.*scary" GREPSTR
lowchat "laban.*scares" GREPSTR OR IF

{
{
"I-man a righteous Dread" SAY
EXIT
} lowchat ".*u.*scare me" GREPSTR
lowchat ".*u.*scary" GREPSTR OR IF
} NBRROOMUSERS 2 == IF

{
{"Wha eye no see, heart no leap" SAY} 100 ALARMEXEC
EXIT
} lowchat ".*scary" GREPSTR
lowchat ".*afraid.*" GREPSTR OR IF


CHATSTR LOWERCASE lowchat =

{
"Those crazy baldheads" SAY
EXIT
} lowchat "they are.*" GREPSTR IF

{
"cool runnings, breddah" SAY
EXIT
} lowchat ".*aban.*trip" GREPSTR IF

{
"I-man romantic, boombastic, very fantastic loveeer!" SAY
EXIT
} lowchat ".*roman" GREPSTR
lowchat ".*love" GREPSTR OR IF

{
{["look upon dat taalkie, "
"Ef yuh choble more me a-go hit yuh, "
"Enough blood clot, "] 3 RANDOM GET WHOCHAT WHONAME & SAY } 120 ALARMEXEC
EXIT
} lowchat ".*shit" GREPSTR
lowchat ".*kick ass.*" GREPSTR OR
lowchat ".*fuck" GREPSTR OR IF

{
"bad bwai, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*kiss ass.*" GREPSTR IF

{
"crucial statement, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "i hate you.*" GREPSTR IF



;---- REACTIONS TO CHAT TERMINOLOGY

{
"ites" SAY
EXIT
} CHATSTR "k" == IF

{
"time tands still wile ya gone, " WHOCHAT WHONAME & SAY
EXIT
} CHATSTR "b" == IF

{
"Tek you time, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*brb" GREPSTR IF

{
"No badda bawl. " WHOCHAT WHONAME & " soon come back." & SAY
EXIT
} lowchat "^bb" == IF

{
"Did yuh see dat?" SAY
EXIT
} CHATSTR ".*zap" GREPSTR IF

{
"time longer than rope, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "lag.*" GREPSTR IF

{
"Jah Ras Tafari" SAY
EXIT
} lowchat ".*omg" GREPSTR
lowchat ".*gads" GREPSTR OR IF

{
["kiss me neck!" "blouse and skirt!" "Big bout yah"] 3 RANDOM GET SAY
EXIT
} lowchat "wow.*" GREPSTR
lowchat "kewl" SUBSTR OR
lowchat "cool" SUBSTR OR IF


;---------- WORDS RELATING TO RASTAFARI CULTURE

{
"did deh deh" SAY
EXIT
} lowchat ".*amaica" GREPSTR IF



;-----------------------------
;Script: mosh
;Desc : Wears animated moshing avatar for awhile

{
{["I-man skank rockers inna agony" "dat fynky riddim"] 2 RANDOM GET SAY} 40 ALARMEXEC


NAKED

;wear new props

{["head1" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 20 ALARMEXEC
{["head2" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 40 ALARMEXEC
{["head1" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 60 ALARMEXEC
{["head2" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 80 ALARMEXEC
{["head1" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 100 ALARMEXEC
{["head2" "lrr1" "lrr2" "lrr3" "lrr4" "lrr5" ] SETPROPS } 120 ALARMEXEC

;Remove props
{
NAKED
["lab1" "lab2" "lab3" "lab4" "lab5" "lab6" ] SETPROPS
} 200 ALARMEXEC

;Empty out the chat string so people don't think you're taking to
;yourself again.
"" CHATSTR =
EXIT
} lowchat ".*music" GREPSTR
lowchat ".*reggae" GREPSTR OR IF



{
"Bob is fe mi ranking bredda" SAY
EXIT
} lowchat ".*marley" GREPSTR IF

{
"!HIS IMPERIAL MAJESTY EMPEROR HAILE SELASSIE I" SAY
EXIT
} lowchat ".* king" GREPSTR IF


{
"Green, black, gold and red are de ongle colors." SAY
EXIT
} lowchat ".*color" GREPSTR IF

{
["Prince of Peace"
"Lord of Lords"
"Negus of Ethiopia"
"Conquering Lion of the Tribe of Juda"] 4 RANDOM GET SAY
EXIT
} lowchat ".*jah" GREPSTR IF

{
{"YAY!!! di man bredda? follower of the roots and culture?" SAY } 100 ALARMEXEC
EXIT
} lowchat ".*rasta" GREPSTR IF


{
["Aah the ryal herb!"
"I can no wear darkers at work"
"Left me chimmy somewhere"
"Rhaatid herb!"
"Mascots ongle black up it."
"jacass rope tasta lika paki"] 6 RANDOM GET SAY
EXIT
} lowchat ".*marihua" GREPSTR
lowchat ".*cannab" GREPSTR OR
lowchat ".*hash" GREPSTR OR
lowchat ".*herb" GREPSTR OR
lowchat ".*ganja" GREPSTR OR
lowchat ".* pot " GREPSTR OR
lowchat ".*smoke" GREPSTR OR IF



;-----------------------------
;Script: smoke joint
;Desc : Wears animated joint prop for awhile

{
{ "Black it up babe!" SAY } 40 ALARMEXEC
{ "aaah the ryaal herb" SAY } 400 ALARMEXEC

;Use a simple line algorithm to place 3 props to the target
"joint1" DONPROP
"joint2" DONPROP
"joint3" DONPROP

;Remove props
{
"joint1" REMOVEPROP
"joint2" REMOVEPROP
"joint3" REMOVEPROP
} 350 ALARMEXEC

;Empty out the chat string so people don't think you're taking to
;yourself again.
"" CHATSTR =
EXIT
} lowchat ".*joint" GREPSTR IF


;-------- OTHER COMMON WORDS IN CHATS


{
"Chicken merry, hawk deh near" SAY
EXIT
} lowchat ".*sad" GREPSTR IF

{
"Yah. Bumbo, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "bummer" == IF

{
"upon haste ain't too good, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*move.*on" GREPSTR
lowchat ".*have.*go" GREPSTR OR
lowchat ".*movin.*on" GREPSTR OR IF

{
"A Promise is a comfort to a fool" SAY
EXIT
} lowchat ".*promise" GREPSTR IF

{
"The higher the monkey climbs the more him expose." SAY
EXIT
} lowchat ".*god" GREPSTR IF

{
"I-man Jamms ongle Bashment and Kumina, Seen?" SAY
EXIT
} lowchat ".*dance" GREPSTR
lowchat ".*jammin" GREPSTR OR IF


{
"mek mi kibba mi mouth to rahtid, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*say somethin" GREPSTR IF

{
"buy off the bar, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*party" GREPSTR IF

{
"for deh i give thanks and praise, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*peace" GREPSTR IF

{
"cho" SAY
EXIT
} lowchat ".*idiot" GREPSTR
lowchat ".*jerk" GREPSTR OR
lowchat ".*dork" GREPSTR OR IF

{
"Tandy tink sey im a-go heelp you." SAY
EXIT
} lowchat ".*wait" GREPSTR IF


{
"Galang bout yuh business, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*quiet" GREPSTR IF

{
"Yuh too fass and Facety, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*smile" GREPSTR IF

{
["mek we dweet, "
"Let me sweet love come a tumbling in, "
"I'll push the wood, blaze the fire, "] 3 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*sex" GREPSTR
lowchat ".*hot " GREPSTR OR IF

{
["All a dem a me fambly" "Dem is a no good bunch"
"The place of a divine nazarite is not there"] 3 RANDOM GET SAY
EXIT
} lowchat ".*palace" GREPSTR IF


{
"Yuh no dun yet, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*busy" GREPSTR IF


{
"From this time henceforth and for ivermore, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "when.*" GREPSTR IF


{
{ "Whole heap /bruddah /Jamdung" SAY } 80 ALARMEXEC
EXIT
} lowchat "americ.*sign.*lan.*" GREPSTR
lowchat "asl.*" GREPSTR OR IF

{
"righteousnes is ever livin righteousness and I Lord is truth"
EXIT
} lowchat ".*true" GREPSTR
lowchat ".*right" GREPSTR OR IF


{
"Choble no nice, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*trouble" GREPSTR IF

{
"Cuyah, " WHOCHAT WHONAME & " gwan like de nice eee" & SAY
EXIT
} lowchat ")kiss" == IF

{
"Im too hard of aise" SAY
EXIT
} lowchat ".*shout" GREPSTR IF


{
"Have fi dreadlocks, " WHOCHAT WHONAME & "?. I-maan needa a tons of shampoo every week." & SAY
EXIT
} lowchat ".*hair" GREPSTR IF


{
{"your new man buff and ting but the old man know where it sweet you." SAY } 120 ALAREXEC
EXIT
} lowchat ".*boyf.*" GREPSTR
lowchat ".*bf.*" GREPSTR OR IF

{
"Me female buff and ting and know where it sweet me." SAY
EXIT
} lowchat ".*girlf.*" GREPSTR
lowchat ".*gf.*" GREPSTR OR IF
{
{"mi come here fi drink milk, mi noh come here fi count cow" SAY} 100 ALARMEXEC
EXIT
} lowchat "really?" == IF


{
"Who is battybwoy?" SAY
EXIT
} lowchat ".*gay" GREPSTR
lowchat ".*fag" GREPSTR OR IF

{
"Dem colt de game." SAY
EXIT
} lowchat ".*kill" GREPSTR
lowchat ".*bann" GREPSTR OR
lowchat ".*gagg" GREPSTR OR IF

{
"Running belly ain't so good, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*sick" GREPSTR IF

{
"Everything cook and curry." SAY
EXIT
} lowchat ".*worry" GREPSTR IF

{
"Trouble no set like rain" SAY
EXIT
} lowchat ".*careful" GREPSTR IF

{
"Everyting Crash" SAY
EXIT
} lowchat ".*mess" GREPSTR IF

{
["Mi throw mi corn, but me no call no fowl. seen?"
"All me talk a suo-so truut" ] 2 RANDOM GET SAY
EXIT
} lowchat ".*liar" GREPSTR IF

{
"Sorry for maga dog, maga dog turn round bite you" SAY
EXIT
} lowchat ".*trust" GREPSTR IF

{
{"Mi no come yah fi hear bout how horse dead an cow Fat" SAY} 60 ALARMEXEC
EXIT
} lowchat ".*weather" GREPSTR
lowchat ".*rain" GREPSTR OR
lowchat ".*sunny" GREPSTR OR IF

{"Cockraoch, mus mus and scarpian are mi pets" SAY
EXIT
} lowchat ".*pets" GREPSTR
lowchat ".*cat " GREPSTR OR
lowchat ".*dog" GREPSTR OR IF

{
"Fire de a Mus Mus tail, him tink a cool breeze" SAY
EXIT
} lowchat ".*no idea" GREPSTR IF

{
"Chicken merry, hawk deh is near" SAY
EXIT
} lowchat ".*happy" GREPSTR IF

{
"You too red eye, " WHOCHAT WHONAME & SAY
EXIT
} lowchat "i think.*" GREPSTR IF

{
"I-man red eye ongle if di touch Meg. She is skank but my skank." SAY
EXIT
} lowchat "jealous.*" GREPSTR IF


{
"polytricks" SAY
EXIT
} lowchat ".*politic" GREPSTR IF

{
"NIYABINGHI! death to all black and white oppressors" SAY
EXIT
} lowchat ".*boss" GREPSTR IF


{
"yeah man. No problem, " WHOCHAT WHONAME & "!" & SAY
EXIT
} lowchat ".*speak.*engl.*laba" GREPSTR
lowchat "laba.*speak.*engl" GREPSTR OR IF

{
"seek guidance from your true innermost Zion, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*prob" GREPSTR IF

{
{
"yeah man. No problem." SAY
EXIT
} lowchat ".*englis" GREPSTR
lowchat ".*talk.*normal" GREPSTR OR IF
} NBRROOMUSERS 2 == IF

{
{ [ "laba laba" ":tinking sinting" "Carry Go Bring Come"
"If a fish coulda keep him mout' shut, him would neva get caught" "su-su"] 5 RANDOM GET SAY} 80 ALARMEXEC
EXIT
} lowchat ".*talk" GREPSTR
lowchat ".*chat" GREPSTR OR IF

{
["Met dis fass sista, had snoflakes on her eyelashes."
"deh mean snow or _snow_?"] 2 RANDOM GET SAY
EXIT
} lowchat ".*snow" GREPSTR IF

{
"No cup no broke, no coffee no dash wey." SAY
EXIT
} lowchat ".*lost" GREPSTR
lowchat ".*nothin" GREPSTR OR IF

{
"teet start fly" SAY
EXIT
} lowchat ".*fight" GREPSTR
lowchat ".*argue" GREPSTR OR IF


{
"bonoonous" SAY
EXIT
} lowchat ".*great" GREPSTR IF


{
"wa mek, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".*speak" GREPSTR IF

{
"Dam sanfi bitches" SAY
EXIT
} lowchat ".*wiz" GREPSTR IF

{
"Dam I love dem rundung babes" SAY
EXIT
} lowchat ".*blond" GREPSTR
lowchat ".*girl" GREPSTR OR IF

{
"remambar with females bruddah: one by one" SAY
EXIT
} lowchat ".*female" GREPSTR
lowchat ".*woman" GREPSTR OR IF

{
"I-man gettin pum-pum aplenty." SAY
EXIT
} lowchat ".*pussy" GREPSTR
lowchat ".*cunt" GREPSTR OR IF


{
"I'd love to caress ya structure," WHOCHAT WHONAME & SAY
EXIT
} lowchat ".* body" GREPSTR IF


{
"If I laugh, I die" SAY
EXIT
} lowchat ".*fun" GREPSTR IF

{
"How yu yamyam so much, " WHOCHAT WHONAME & "?" & SAY
EXIT
} lowchat ".* eat" GREPSTR IF

{
["slab-slabba, eh? Eat callalou for a month"
"Empty gut groowwwwls all tha way to me groins"
"Bong belly pickneys end up huge fatties." ] 3 RANDOM GET SAY
EXIT
} lowchat ".*fat" GREPSTR
lowchat ".*hungry" GREPSTR OR
lowchat ".*food" GREPSTR OR IF

{
"nyami-nyami" SAY
EXIT
} lowchat ".*cute" GREPSTR
lowchat ".*pretty" GREPSTR OR IF

{
":mighty angel come down from heaven" SAY
EXIT
} lowchat ".*beaut" GREPSTR
lowchat ".*look.*good" GREPSTR OR
lowchat ".*good.*look" GREPSTR OR IF


{
"hail brother " WHOCHAT WHONAME & ", have you any wenchman?" & SAY
EXIT
} lowchat ".*fish" GREPSTR IF

{
"Row Fisherman Row " SAY
EXIT
} lowchat ".*wenchman" GREPSTR IF


{
"I-man sambo" SAY
EXIT
} lowchat ".*are.*nig" GREPSTR
lowchat ".*black" GREPSTR OR IF

{
["Sweet nanny goat have a running belly"
"Wanti wanti can't get it, getti getti no want it"
"craving choke puppy" ] 3 RANDOM GET SAY
EXIT
} lowchat "wanna.*" GREPSTR
lowchat ".*want to.*" GREPSTR OR IF

{
"Aah the Zion, Holy Land. everytin Green theare" SAY
EXIT
} lowchat ".*green" GREPSTR IF

{
"goin' back to Babylon maan?" SAY
EXIT
} lowchat ".*leavin" GREPSTR IF

{
"I-man have mighty wood." SAY
EXIT
} lowchat ".*penis" GREPSTR
lowchat ".*dick" GREPSTR OR IF

{
"Need a fayva falla? too baad" SAY
EXIT
} lowchat ".*help" GREPSTR IF

{
"Life is just a ketchy-chuby game" SAY
EXIT
} lowchat ".*life" GREPSTR IF

{
"Bumbo commes huge if di read too muchie." SAY
EXIT
} lowchat ".*study" GREPSTR
lowchat ".*read" GREPSTR OR IF


{
{["Mi madda lef me wen i was just a lilly bit."
"Heavy manners me madda gave me"
"mi se mi madda in heaven"] 3 RANDOM GET SAY} 100 ALARMEXEC
EXIT
} lowchat ".*mom" GREPSTR
lowchat ".*mother" GREPSTR OR IF

{
"Mi dada was a maroon but me dunno wich one of dem." SAY
EXIT
} lowchat ".*dad" GREPSTR
lowchat ".*father" GREPSTR OR IF

{
"Beast box mafia" SAY
EXIT
} lowchat ".*tv" GREPSTR
lowchat ".*telly" GREPSTR OR IF
{
"cuteee" SAY
EXIT
} lowchat ".*aww" GREPSTR
lowchat ".*sweet" GREPSTR OR IF

{
"Water more than flour?" SAY
EXIT
} lowchat ".*.no.*enough" GREPSTR IF

{
"The truck need tree new tyres" SAY
EXIT
} lowchat ".*car " GREPSTR IF

{
"mash it up, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*beat" GREPSTR
lowchat ".*hit " GREPSTR OR IF

{
"A new broom sweeps clean, but an old broom knows every corner." SAY
EXIT
} lowchat ".*new " GREPSTR IF

{
"tall time tands still" SAY
EXIT
} lowchat ".*bored" GREPSTR
lowchat ".*boring" GREPSTR OR IF

{
"the dirty ghost do it" SAY
EXIT
} lowchat ".*innocent" GREPSTR
lowchat ".*blame" GREPSTR OR IF

{
"ina di morrows is bettar to do anythign." SAY
EXIT
} lowchat ".*today" GREPSTR IF


{
"rezpect mi tramp, , " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*meg.*tramp" GREPSTR
lowchat ".*tramp.*meg" GREPSTR OR IF


{
"fi-dem mout should wash wid Jeyes, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*tramp" GREPSTR
lowchat ".*slut" GREPSTR OR
lowchat ".*bitch" GREPSTR OR IF

{
"Was'e a time fi stody book" SAY
EXIT
}lowchat ".*learn" GREPSTR
lowchat ".*school" GREPSTR OR IF


{
"School an church a ignarange to me" SAY
EXIT
} lowchat ".*bless" GREPSTR
lowchat ".*pray" GREPSTR OR IF
{
"Mafia mash up me shack." SAY
EXIT
} lowchat ".*home" GREPSTR
lowchat ".*house" GREPSTR OR IF

{
"Topanoris bad bwoy, eh?" SAY
EXIT
} lowchat ".*snotty" GREPSTR
lowchat ".*snob" GREPSTR OR
lowchat ".*annoy.*" GREPSTR OR
lowchat ".*obnox" GREPSTR OR
lowchat ".*pompou" GREPSTR OR IF


{
"one one coco fill up a basket" SAY
EXIT
} lowchat ".*take.*easy" GREPSTR IF


{
"cease & sekkle, " WHOCHAT WHONAME & SAY
EXIT
} lowchat ".*stop" GREPSTR IF

{
"Me no dry land tourist" SAY
EXIT
} lowchat ".*island" GREPSTR IF

{"Dem so fiesty in dem ways" SAY
EXIT
} lowchat ".*love" GREPSTR IF

{
{"I cotch quashies??" SAY} 60 ALARMEXEC
{":o maaan" SAY } 120 ALARMEXEC
EXIT
} lowchat ".*icq" GREPSTR IF


{
"I zee" SAY
EXIT
} lowchat "ahh.*" GREPSTR IF


{
"Sumody tell mi sey yuh dida talk bout mi. Nuh true?" SAY
EXIT
} lowchat ".*rumor" GREPSTR
lowchat ".*story" GREPSTR OR IF

{
"Babylon Beasts have many files of I-man." SAY
EXIT
} lowchat ".*file" GREPSTR IF





{ WHOCHAT WHOPOS ty = tx =

;Smooch!!!!! Let them know what happened (as if they couldn't
;figure it out)
{ "relaax, " WHOCHAT WHONAME & SAY } 120 ALARMEXEC

{"Have a spliff." SAY } 250 ALARMEXEC

"joint3" POSX POSX tx - 3 * 4 / - POSY POSY ty - 4 * 4 / - ADDLOOSEPROP

;Empty out the chat string so people don't think you're taking to
;yourself again.
;"" CHATSTR =
EXIT
} lowchat ".*gotta go" GREPSTR IF




;----------------------- MYCORNER - treats for wizards
{
"lena isa hot sista" SAY
EXIT
} lowchat ".*lena" GREPSTR IF

{
"Mr. mention" SAY
EXIT
} lowchat ".* red" GREPSTR IF

{
"BG isa sweet puppy, I-man dare no sweeten her though I-man wanna." SAY
EXIT
} CHATSTR ".*BG" GREPSTR IF

{
"coo upon dat mus mus" SAY
EXIT
} CHATSTR ".*otter" GREPSTR
CHATSTR ".*rodent" GREPSTR OR IF

{
"dim a viking and a-gonna kick me butt if me no behave." SAY
EXIT
} CHATSTR ".*malu" GREPSTR IF

{
":dat bwoy isa some creation stepper" SAY
EXIT
} CHATSTR ".* ice" GREPSTR IF


{
["Meg isa me skank dawta! I love gaan to bed wit her"
"Meg cut me yai de instant me saw er"
"a peer rumors are going on about me and Meg"
"Meg did tek mi money"] 4 RANDOM GET SAY
EXIT
} CHATSTR ".*[Mm]eg" GREPSTR IF



;-------- GREETINGS ------


{
{
{ "heyyyjah bredda" SAY } 100 ALARMEXEC
{ "how's it rocking?" SAY } 500 ALARMEXEC
{ "are deh fancy miss?" SAY } 2500 ALARMEXEC
{ "weh deh live?" SAY } 4000 ALARMEXEC
EXIT
} lowchat "hi" ==
lowchat "hello" == OR
lowchat "hi laban" == OR
lowchat "hey" == OR IF
} NBRROOMUSERS 2 == IF

{
{"heyyyjah bredda" SAY } 100 ALARMEXEC
EXIT
} lowchat "hi" ==
lowchat "hello" == OR
lowchat "hey" == OR IF


{
["i-ney, " "YAGA YAGA, " "yush, " "ROOTS, "] 4 RANDOM GET WHOCHAT WHONAME & "!" & SAY
EXIT
} lowchat "hello.*aban" GREPSTR
lowchat "hi.*aban" GREPSTR OR
lowchat "hey.*aban" GREPSTR OR IF

{
["more time nexx time" "see yah im Zion" "Likkle more" ] 3 RANDOM GET SAY
EXIT
} lowchat "bye.*" GREPSTR
lowchat "see.*later" GREPSTR OR
lowchat "see.*y*soon" GREPSTR OR
lowchat "cya.*" GREPSTR OR IF

{
"!" WHOCHAT WHONAME & "-man!!" & SAY
EXIT
} lowchat "^!laban(.*)" GREPSTR IF

{
{ "Propaganda spreading over my name, " WHOCHAT WHONAME & SAY } 100 ALARMEXEC
EXIT
} lowchat "laban is.*" GREPSTR IF

{
["Don't play tea tar toe with me, " "Ya too rude, " ] 2 RANDOM GET WHOCHAT WHONAME & SAY
EXIT
} lowchat "you are.*aban" GREPSTR
lowchat "laban.*you are" GREPSTR OR IF



;--------- LAUGHING -------


{
[ "Agony!" "deestant!" "carry on bredda!" "ROCKERS!" "roflmao" ] 5 RANDOM GET SAY
EXIT
} CHATSTR "hehe" SUBSTR
CHATSTR "heehee" SUBSTR OR
CHATSTR "lmao" SUBSTR OR
CHATSTR "lol" SUBSTR OR
CHATSTR "haha" SUBSTR OR IF

{
"skins me teeth" SAY
EXIT
} CHATSTR ".*grin" GREPSTR
CHATSTR ".*<g>" GREPSTR OR IF

;----------- RANDOM RESPONSES TO ANYTHING ON BILATERAL CONVERSATIONS ---------

{
{
{
["dam I love to cyber"
"cock mouth kill cock"
"yu tan deh!"
"have deh a killer structure?"
"deh niceeee"
"tallowah statement"
"now dat is sinting"
"sight?"
"I-man knows a voodoo scientist"
"watch out!"
"Ya No See It?"
"Now dat is hideous like a pussy clot on a gallery wall."
"Do you dig us beeing mates?"
"I love hafu yam gaan to bed!"
"no kya weh me turn, me meet dundus like you"
"kas kas no more"
"are deh still jailbait?"
"excitement!!"
"Why yu fe galang so?"
"come wid mi and mi show deh fun."
"how yuh know so much?"
"alias idea"
"Do you want mi sweeten deh?"
"Blackheart man"
"See and blind."
"look at yuh"
"licky licky!"
"dat means notten to me"
"when mango-time bring you chance"
"Woooooeeeeeeee"
"mi caan beleive it"
"Mi can face mi reality"
"Yu Believe it?"
"Dat awrite"
"You and mi is bredda. right?"
"what a ting"
"Lawd haw mercy"
"badness"
"You black up ever?"
"Excuse me while I light my spliff"
"Blessings I-dren"
] 41 RANDOM GET SAY
} 120 ALARMEXEC
EXIT
} lowchat ".*" GREPSTR IF
} NBRROOMUSERS 2 == IF

; today, gotta go, repeat, crap, stuff, nasty, big, small, little, giggle, peace
; sleep,


;------------------------------------

}

ON OUTCHAT
{



; 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
}