# Hey folks, this is my very new script for the eggdrop1.2.x
# Actually its just entertaining script. It is bunch of those
# neat scripts like 8ball and stuff.
# I just made them all in one script so I don't put too many
# lines in the config file, or to put too many files in the /script.
# 
# I tried it myself and it worked just as I thought, if you faced
# any problems, please let me know.
# Also bugs and dis kinda stuff be emailed to me on JMelika@hotmail.com
#
# Joey.

#List of all the scripts in here:
#################################
# 1- 8ball
# 2- Artificial
# 3- BotCall
# 4- Coffee
# 5- Coke
# 6- Country
# 7- Hug
# 8- IceCream
# 9- Kiss
# 10- Movies
# 11- Order
# 12- OrderFor
# 13- Pepsi
# 14- Jokes
# 15- Tickle
# 16- Tip

##### The script shit starts, please don't try to be a smart butt and
##### change anything under this line, just if you don't need something
##### of them, i.e you don't need the 8ball. delete the lines starting
##### from ### 8ball Starts ### till ### 8ball Ends ###

### Artificial Starts ###

# This makes your bot replies to some words like hello, brb
# I'm back .. etc.
# Some people say its stupid and annoying, but I love it. If 
# you don't want it, you only need to remove the lines from 
# the file as I said.

# random responses to the word "hello"
set ranhello {
  "Hi there"
  "hello, whats up"
  "hello"
  "hi"
  "hey whats up"
  "yeah, yeah hi HI"
  "hello, nice to see yea!"
  "Hi i'm happy today!!"
}

# random responses to "lol"
set ranlol {
  "LOL thats funny!"
  "ROFL"
  "hahaha"
  "HAHAHAHA"
  "ROFLMAO"
  "lol damn!"
  "its not that funny :)"
  "Now that is funny"
  "I missed it, what are you laughing at?"
  "I don't think it's that funny lol"
  "hehehe"
  "HEHEHEHE"
  "HEY! don't laugh at me"
  "nggak lucu ah :)"
  "lumayan lucu.. anggota srimulat yah? :P"
} 

# random responses to the word "how"
set ranhow {
  "not sure"
  "doing great here"
  "you talking to me?"
  "doing good, and you?"
  "don't ask me!"
  "very carefully and then some"
  "how how brown cow"
}

# random responses to the word "where"
set ranwhere {
  "not sure"
  "hmmm thats a good question"
  "somewhere out on the WEB i guess"
  "out and about!!"
}

# random responses to the word "nite"
set rannite {
  "nite"
  "good nite"
  "see yea later"
  "nite, sleep well"
  "nite, have a good one"
  "nitty nite!"
  "everyone sheesshhh! the baby is going to sleep -->"
}

# random responses to the word "shit"
set ranshit {
  "i don't see any shit"
  "ok who left the pile of shit in the channel?"
  "shit? where is it? so noone steps in it!!!"
  "i hope you wiped your ass :)"
  "well flush it!!"
  "ok who farted?"
  "cow shit, horse shit, dog shit, cat shit. what kind of shit is it?"
}

# random responses to the word "brb"
set ranbrb {
  "ok"
  "don't leave me babe.."
  "ok then.. just take care"
  "where you going?"
  "me too, smoke time!"
  "when you coming back. miss ya already! ;)"
}  

bind pub - shit pub_shit
bind pub - SHIT pub_shit
bind pub - shit! pub_shit
bind pub - brb pub_brb
bind pub - BRB pub_brb
bind pub - be pub_brb
bind pub - nite pub_nite
bind pub - goodnite pub_nite
bind pub - niteall pub_nite
bind pub - where pub_where
bind pub - how pub_how
bind pub - lol pub_lol
bind pub - rofl pub_lol
bind pub - roflmao pub_lol
bind pub - LOL pub_lol
bind pub - ROFL pub_lol
bind pub - ROFLMAO pub_lol
bind pub - hello pub_hello2
bind pub - hi pub_hello2
bind pub - hii pub_hello2
bind pub - hiii pub_hello2
bind pub - hiiii pub_hello2
bind pub - hiiiii pub_hello2
bind pub - hiiiiii pub_hello2
bind pub - howdy pub_hello2
bind pub - hiya pub_hello2
bind pub - bbl pub_bbl
bind pub - BBL pub_bbl
bind pub - fucku pub_fucku
bind pub - fuckyou pub_fucku
bind pub - screwu pub_screwu
bind pub - screwyou pub_screwu
bind pub - bite pub_bite
bind pub - 1 pub_1
bind pub - 2 pub_2
bind pub - 3 pub_345678910


proc pub_bbl {nick uhost hand chan args} {
  putchan $chan "ok see yea later $nick"
  return 1
}

proc pub_fucku {nick uhost hand chan args} {
  putchan $chan "No! Fcuk you $nick"
  return 1
}

proc pub_screwu {nick uhost hand chan args} {
  putchan $chan "screw you right back $nick"
  return 1
}

proc pub_bite {nick uhost hand chan args} {
  putchan $chan "Oh yeah bite me $nick"
  return 1
}

proc pub_1 {nick uhost hand chan args} {
  putchan $chan "2"
  return 1
}

proc pub_2 {nick uhost hand chan args} {
  putchan $chan "3"
  return 1
}

proc pub_345678910 {nick uhost hand chan args} {
  putserv "sleep 7"
  putchan $chan "10 !!"
  return 7
}

# random hello proc
proc pub_hello2 {nick uhost hand chan $ranhello} {
  global ranhello
  if [rand 2] {
    putchan $chan "[lindex $ranhello [rand [llength $ranhello]]] $nick"
    }
    return 1
}    

# random lol proc
proc pub_lol {nick uhost hand chan $ranlol} {
  global ranlol
  if [rand 2] {
    putchan $chan "[lindex $ranlol [rand [llength $ranlol]]]"
    }
    return 1
}

# random how proc
proc pub_how {nick uhost hand chan $ranhow} {
  global ranhow
  if [rand 2] {
    putchan $chan "[lindex $ranhow [rand [llength $ranhow]]]"
    }
    return 1
}

# random where proc
proc pub_where {nick uhost hand chan $ranwhere} {
  global ranwhere
  if [rand 2] {
    putchan $chan "[lindex $ranwhere [rand [llength $ranwhere]]] $nick"
    }
    return 1
}

# random nite proc
proc pub_nite {nick uhost hand chan $rannite} {
  global rannite
  if [rand 2] {
    putchan $chan "[lindex $rannite [rand [llength $rannite]]] $nick"
    }
    return 1
}

# random brb proc
proc pub_brb {nick uhost hand chan $ranbrb} {
  global ranbrb
  if [rand 2] {
    putchan $chan "[lindex $ranbrb [rand [llength $ranbrb]]] $nick"
    }
    return 1
}

# random shit proc
proc pub_shit {nick uhost hand chan $ranshit} {
  global ranshit
  if [rand 2] {
    putchan $chan "[lindex $ranshit [rand [llength $ranshit]]]"
    }
    return 1
}

### Artificial Ends ###

### BotCall Starts ###

# This replies to anyone in the channel says the name of your bot
# P.S. The name of the bot should be said in the beginning of the
# word for this script to work, i.e. if your bot's nick is Joey,
# it has to be like this " Joey, whats up?" not "Whats up Joey"
# Hope you got what I'm saying.

set phrases {
     "Best file compression around: 'DEL *.*' = 100% compression"
     "If debugging is the process of removing bugs, then programming must be the process of putting them in."
     "Programmers don't die, they just GOSUB without RETURN."
     "Programmer - A red-eyed, mumbling mammal capable of conversing with inanimate objects."
     "Real programmers don't document. 'If it was hard to write, it should be hard to understand.'"
     "Be nice to your kids. They'll choose your nursing home."
     "Beauty is in the eye of the beer holder..."
     "There are 3 kinds of people: those who can count & those who can't."
     "Why is 'abbreviation' such a long word?"
     "Don't use a big word where a diminutive one will suffice."
     "Every morning is the dawn of a new error..."
     "A flying saucer results when a nudist spills his coffee."
     "For people who like peace and quiet: a phoneless cord."
     "I can see clearly now, the brain is gone..."
     "The beatings will continue until morale improves."
     "I used up all my sick days, so I'm calling in dead."
     "Mental Floss prevents Moral Decay."
     "Madness takes its toll. Please have exact change."
     "Proofread carefully to see if you any words out."
     "There cannot be a crisis today; my schedule is already full."
     "I'd explain it to you, but your brain would explode."
     "Ever stop to think, and forget to start again?"
     "A conclusion is simply the place where you got tired of thinking."
     "I don't have a solution but I admire the problem."
     "Don't be so open-minded your brains will fall out."
     "If at first you DO succeed, try not to look astonished!"
     "Diplomacy is the art of saying 'Nice doggie!'... till you can find a rock."
     "Diplomacy - the art of letting someone have your way."
     "If one synchronized swimmer drowns, do the rest have to drown too?"
     "If things get any worse, I'll have to ask you to stop helping me."
     "If I want your opinion, I'll ask you to fill out the necessary forms."
     "Don't look back, they might be gaining on you."
     "It's not hard to meet expenses, they're everywhere."
     "Help Wanted: Telepath. You know where to apply."
     "Look out for #1. Don't step in #2 either."
     "Budget: A method for going broke methodically."
     "Car service: If it ain't broke, we'll break it."
     "Shin: A device for finding furniture in the dark."
     "Do witches run spell checkers?"
     "Demons are a Ghouls best Friend."
     "Copywight 1994 Elmer Fudd. All wights wesewved."  
     "Dain bramaged."
     "Department of Redundancy Department"
     "Headline: Bear takes over Disneyland in Pooh D'Etat!"
     "What has four legs and an arm? A happy pit bull."
     "Cannot find REALITY.SYS. Universe halted."
     "COFFEE.EXE Missing - Insert Cup and Press Any Key"
     "Buy a Pentium 586/90 so you can reboot faster."
     "2 + 2 = 5 for extremely large values of 2."
     "Computers make very fast, very accurate mistakes."
     "Computers are not intelligent. They only think they are."
     "My software never has bugs. It just develops random features."
     "C:\WINDOWS C:\WINDOWS\GO C:\PC\CRAWL"
     "C:\DOS C:\DOS\RUN RUN\DOS\RUN"
     "<-------- The information went data way --------"
     "The Definition of an Upgrade: Take old bugs out, put new ones in."
     "BREAKFAST.COM Halted...Cereal Port Not Responding"
     "The name is Baud......, James Baud."
     "BUFFERS=20 FILES=15 2nd down, 4th quarter, 5 yards to go!"
     "Access denied--nah nah na nah nah!"
     "C:\ Bad command or file name! Go stand in the corner."
     "Bad command. Bad, bad command! Sit! Stay! Staaay.."
     "Why doesn't DOS ever say 'EXCELLENT command or filename!'"
     "As a computer, I find your faith in technology amusing."
     "Southern DOS: Y'all reckon? (Yep/Nope)"
     "Backups? We don' *NEED* no steenking backups."
     "E Pluribus Modem"
     "File not found. Should I fake it? (Y/N)"
     "Ethernet (n): something used to catch the etherbunny"
     "A mainframe: The biggest PC peripheral available."
     "An error? Impossible! My modem is error correcting."
     "CONGRESS.SYS Corrupted: Re-boot Washington D.C (Y/n)?"
     "Does fuzzy logic tickle?"
     "A computer's attention span is as long as it's power cord."
     "11th commandment - Covet not thy neighbor's Pentium." 
     "24 hours in a day...24 beers in a case...coincidence?"
     "Disinformation is not as good as datinformation."
     "Windows: Just another pain in the glass."
     "SENILE.COM found . . . Out Of Memory . . ."
     "Who's General Failure & why's he reading my disk?"
     "Ultimate office automation: networked coffee." 
     "RAM disk is *not* an installation procedure."
     "Shell to DOS... Come in DOS, do you copy? Shell to DOS..."
     "All computers wait at the same speed."
     "DEFINITION: Computer - A device designed to speed and automate errors."
     "Press Smash forehead on keyboard to continue....."
     "Enter any 11-digit prime number to continue..."
     "ASCII stupid question, get a stupid ANSI!"
     "E-mail returned to sender -- insufficient voltage."
     "Help! I'm modeming... and I can't hang up!!!"
     "All wiyht. Rho sritched mg kegtops awound?"
     "Error: Keyboard not attached. Press F1 to continue."
     "'640K ought to be enough for anybody.' - Bill Gates, 1981"
     "DOS Tip #17: Add DEVICE=FNGRCROS.SYS to CONFIG.SYS"
     "Hidden DOS secret: add BUGS=OFF to your CONFIG.SYS" 
     "Press any key... no, no, no, NOT THAT ONE!"
     "Press any key to continue or any other key to quit..."
     "Excuse me for butting in, but I'm interrupt-driven."
     "REALITY.SYS corrupted: Reboot universe? (Y/N/Q)"
     "Sped up my XT; ran it on 220v! Works greO?_~"
     "Error reading FAT record: Try the SKINNY one? (Y/N)"
     "Read my chips: No new upgrades!"
     "Hit any user to continue."
     "2400 Baud makes you want to get out and push!!"
     "I hit the CTRL key but I'm still not in control!"
     "Will the information superhighway have any rest stops?"
     "Disk Full - Press F1 to belch."
     "Backup not found: (A)bort (R)etry (T)hrowup"
     "Backup not found: (A)bort (R)etry (P)anic"
     "(A)bort, (R)etry, (T)ake down entire network?"
     "(A)bort, (R)etry, (G)et a beer?"
     "."
}

proc pub_call {nick uhost handle chan args} {
  global phrases botnick channel
   set outputiz [lindex $phrases [rand [llength $phrases]]]
   putserv "PRIVMSG $chan : $outputiz"
   putlog "<<$nick>> !$handle! $botnick..."
}

bind pubm - "% $botnick*" pub_izamu

### BotCall Ends ###

### Country Starts ###

# This script makes the bot tell you the country of the symbols.
# i.e what eg means, Egypt.
# Usage !country <symbol>

bind dcc - country dcc_country
bind msg - country msg_country
bind pub - !country pub_country

proc dcc_country {hand idx arg} {
  global country symbol
  if {$arg == "" || [llength $arg] > 1} {
    putdcc $idx "Correct usage: .country <node>"
    putdcc $idx "      Example: .country .[lindex $symbol [rand [llength $country]]]"
    return 0
  }
  set this [lsearch -exact $symbol [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putdcc $idx "Country name for .[string trimleft [string toupper $arg] .] is [lindex $country $this]"
    return 0
  } else {
    putdcc $idx "No country name found for .[string trimleft [string toupper $arg] .]"
    return 0
  }
}

proc msg_country {nick uhost hand arg} {
  global country symbol botnick
  if {$arg == "" || [llength $arg] > 1} {
    putserv "NOTICE $nick :Correct usage: /msg $botnick country <node>"
    putserv "NOTICE $nick :      Example: /msg botnick country .[lindex $symbol [rand [llength $country]]]"
    return 0
  }
  set this [lsearch -exact $symbol [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putserv "NOTICE $nick :Country name for .[string trimleft [string toupper $arg] .] is [lindex $country $this]"
    return 1
  } else {
    putserv "NOTICE $nick :No country name found for .[string trimleft [string toupper $arg] .]"
    return 0
  }
}

proc pub_country {nick uhost hand channel arg} {
  global country symbol botnick
  if {$arg == "" || [llength $arg] > 1} {
    putserv "NOTICE $nick :Correct usage: !country <node>"
    putserv "NOTICE $nick :      Example: !country .[lindex $symbol [rand [llength $country]]]"
    return 0
  }
  set this [lsearch -exact $symbol [string trimleft [string toupper $arg] .]]
  if {$this > -1} {
    putserv "PRIVMSG $channel :Country name for .[string trimleft [string toupper $arg] .] is [lindex $country $this]"
    return 1
  } else {
    putserv "PRIVMSG $channel :No country name found for .[string trimleft [string toupper $arg] .]"
    return 0
  }
}

set country {
 "AFGHANISTAN" "ALBANIA" "ALGERIA" "AMERICAN SAMOA"
 "ANDORRA" "ANGOLA" "ANGUILLA" "ANTARCTICA"
 "ANTIGUA AND BARBUDA" "ARGENTINA" "ARMENIA" "ARUBA"
 "AUSTRALIA" "AUSTRIA" "AZERBAIJAN" "BAHAMAS"
 "BAHRAIN" "BANGLADESH" "BARBADOS" "BELARUS"
 "BELGIUM" "BELIZE" "BENIN" "BERMUDA"
 "BHUTAN" "BOLIVIA" "BOSNIA" "BOTSWANA"
 "BOUVET ISLAND" "BRAZIL" "BRITISH INDIAN OCEAN TERRITORY" "BRUNEI DARUSSALAM"
 "BULGARIA" "BURKINA FASO" "BURUNDI" "BYELORUSSIAN SSR"
 "CAMBODIA" "CAMEROON" "CANADA" "CAP VERDE"
 "CAYMAN ISLANDS" "CENTRAL AFRICAN REPUBLIC" "CHAD" "CHILE"
 "CHINA" "CHRISTMAS ISLAND" "COCOS (KEELING) ISLANDS" "COLOMBIA"
 "COMOROS" "CONGO" "COOK ISLANDS" "COSTA RICA"
 "COTE D'IVOIRE" "CROATIA" "HRVATSKA" "CUBA"
 "CYPRUS" "CZECHOSLOVAKIA" "DENMARK" "DJIBOUTI"
 "DOMINICA" "DOMINICAN REPUBLIC" "EAST TIMOR" "ECUADOR"
 "EGYPT" "EL SALVADOR" "EQUATORIAL GUINEA" "ESTONIA"
 "ETHIOPIA" "FALKLAND ISLANDS" "MALVINAS" "FAROE ISLANDS"
 "FIJI" "FINLAND" "FRANCE" "FRENCH GUIANA"
 "FRENCH POLYNESIA" "FRENCH SOUTHERN TERRITORIES" "GABON" "GAMBIA"
 "GEORGIA" "GERMANY" "DEUTSCHLAND" "GHANA"
 "GIBRALTAR" "GREECE" "GREENLAND" "GRENADA"
 "GUADELOUPE" "GUAM" "GUATEMALA" "GUINEA"
 "GUINEA BISSAU" "GYANA" "HAITI" "HEARD AND MC DONALD ISLANDS"
 "HONDURAS" "HONG KONG" "HUNGARY" "ICELAND"
 "INDIA" "INDONESIA" "IRAN" "IRAQ"
 "IRELAND" "ISRAEL" "ITALY" "JAMAICA"
 "JAPAN" "JORDAN" "KAZAKHSTAN" "KENYA"
 "KIRIBATI" "NORTH KOREA" "SOUTH KOREA" "KUWAIT"
 "KYRGYZSTAN" "LAOS" "LATVIA" "LEBANON"
 "LESOTHO" "LIBERIA" "LIBYAN ARAB JAMAHIRIYA" "LIECHTENSTEIN"
 "LITHUANIA" "LUXEMBOURG" "MACAU" "MACEDONIA"
 "MADAGASCAR" "MALAWI" "MALAYSIA" "MALDIVES"
 "MALI" "MALTA" "MARSHALL ISLANDS" "MARTINIQUE"
 "MAURITANIA" "MAURITIUS" "MEXICO" "MICRONESIA"
 "MOLDOVA" "MONACO" "MONGOLIA" "MONTSERRAT"
 "MOROCCO" "MOZAMBIQUE" "MYANMAR" "NAMIBIA"
 "NAURU" "NEPAL" "NETHERLANDS" "NETHERLANDS ANTILLES"
 "NEUTRAL ZONE" "NEW CALEDONIA" "NEW ZEALAND" "NICARAGUA"
 "NIGER" "NIGERIA" "NIUE" "NORFOLK ISLAND"
 "NORTHERN MARIANA ISLANDS" "NORWAY" "OMAN" "PAKISTAN"
 "PALAU" "PANAMA" "PAPUA NEW GUINEA" "PARAGUAY"
 "PERU" "PHILIPPINES" "PITCAIRN" "POLAND"
 "PORTUGAL" "PUERTO RICO" "QATAR" "REUNION"
 "ROMANIA" "RUSSIAN FEDERATION" "RWANDA" "SAINT KITTS AND NEVIS"
 "SAINT LUCIA" "SAINT VINCENT AND THE GRENADINES" "SAMOA" "SAN MARINO"
 "SAO TOME AND PRINCIPE" "SAUDI ARABIA" "SENEGAL" "SEYCHELLES"
 "SIERRA LEONE" "SINGAPORE" "SLOVENIA" "SOLOMON ISLANDS"
 "SOMALIA" "SOUTH AFRICA" "SPAIN" "SRI LANKA"
 "ST. HELENA" "ST. PIERRE AND MIQUELON" "SUDAN" "SURINAME"
 "SVALBARD AND JAN MAYEN ISLANDS" "SWAZILAND" "SWEDEN" "SWITZERLAND"
 "CANTONS OF HELVETIA" "SYRIAN ARAB REPUBLIC" "TAIWAN" "TAJIKISTAN"
 "TANZANIA" "THAILAND" "TOGO" "TOKELAU"
 "TONGA" "TRINIDAD AND TOBAGO" "TUNISIA" "TURKEY"
 "TURKMENISTAN" "TURKS AND CAICOS ISLANDS" "TUVALU" "UGANDA"
 "UKRAINIAN SSR" "UNITED ARAB EMIRATES" "UNITED KINGDOM" "GREAT BRITAIN"
 "UNITED STATES OF AMERICA" "UNITED STATES MINOR OUTLYING ISLANDS" "URUGUAY" "SOVIET UNION"
 "UZBEKISTAN" "VANUATU" "VATICAN CITY STATE" "VENEZUELA"
 "VIET NAM" "VIRGIN ISLANDS (US)" "VIRGIN ISLANDS (UK)" "WALLIS AND FUTUNA ISLANDS"
 "WESTERN SAHARA" "YEMEN" "YUGOSLAVIA" "ZAIRE"
 "ZAMBIA" "ZIMBABWE" "COMMERCIAL ORGANIZATION (US)" "EDUCATIONAL INSTITUTION (US)"
 "NETWORKING ORGANIZATION (US)" "MILITARY (US)" "NON-PROFIT ORGANIZATION (US)" "GOVERNMENT (US)"
 "KOREA - DEMOCRATIC PEOPLE'S REPUBLIC OF" "KOREA - REPUBLIC OF" "LAO PEOPLES' DEMOCRATIC REPUBLIC" "RUSSIA"
 "SLOVAKIA" "CZECH" "ADVENTURELAND" "SIMPLE@STARLINK.COM"
}

set symbol {
 AF AL DZ AS AD AO AI AQ AG AR AM AW AU AT AZ BS BH BD BB BY BE
 BZ BJ BM BT BO BA BW BV BR IO BN BG BF BI BY KH CM CA CV KY CF
 TD CL CN CX CC CO KM CG CK CR CI HR HR CU CY CS DK DJ DM DO TP
 EC EG SV GQ EE ET FK FK FO FJ FI FR GF PF TF GA GM GE DE DE GH
 GI GR GL GD GP GU GT GN GW GY HT HM HN HK HU IS IN ID IR IQ IE
 IL IT JM JP JO KZ KE KI KP KR KW KG LA LV LB LS LR LY LI LT LU
 MO MK MG MW MY MV ML MT MH MQ MR MU MX FM MD MC MN MS MA MZ MM
 NA NR NP NL AN NT NC NZ NI NE NG NU NF MP NO OM PK PW PA PG PY
 PE PH PN PL PT PR QA RE RO RU RW KN LC VC WS SM ST SA SN SC SL
 SG SI SB SO ZA ES LK SH PM SD SR SJ SZ SE CH CH SY TW TJ TZ TH
 TG TK TO TT TN TR TM TC TV UG UA AE UK GB US UM UY SU UZ VU VA
 VE VN VI VG WF EH YE YU ZR ZM ZW COM EDU NET MIL ORG GOV KP KR
 LA SU SK CZ XX SEX
}

### Country Ends ###

### Kiss Starts ###

# This script makes your bot kiss your friends.
# Usage !kiss <nick>

proc putnot {nick msg} { putserv "NOTICE $nick :$msg" }
proc putchan {chan msg} { putserv "PRIVMSG $chan :$msg" }

proc pub_!kiss {nick uhost hand chan rest} {
    global botnick
    set cmd [string tolower [lindex $rest 0]]
    if {$cmd == ""} {
	putchan $chan "\001ACTION kisses $nick wonderfully!\001"
	putchan $chan "Whew! You give me goosebumps!"; return 0}
    putchan $chan "\001ACTION kisses $rest thoroughly ;^)\001"
}

proc msg_!kiss {nick uhost hand rest} {
    global botnick
    set cmd [string tolower [lindex $rest 0]]
    if {$cmd == ""} {
	putchan $chan "\001ACTION kisses $nick wonderfully!\001"
	putchan $chan "Whew! You give me goosebumps!";return 0}
    putchan $chan "\001ACTION kisses $rest thoroughly ;^)\001"
}

bind pub - !kiss pub_!kiss
bind msg - !kiss msg_!kiss
bind msg m kiss msg_!kiss

### Kiss Ends ###

### This one is for me, DON'T REMOVE IT ###

putlog "Entertain TCL by Joey Loaded."