########################################################################
#lolgiggle.v1.tcl by AirBorne^911  DHumphryes@bellsouth.net		`    #
#original script by WhoBear internet-irc.com  			           #
#re-written from original wholaffitup.mrc to be used on eggdrop bot    #
########################################################################
#what this file does is reply with funny sayings when somone says lol  #
#in channel, its a quite simple script. my first atempt at tcl.	     #
########################################################################
#if you edit this file please leave credit to us in this file, you can #
# find me and whobear in #mirc on chat.internet-irc.com almost always  #
########################################################################


 set lol_flood_control 0
 set giggle_msg {
 "\0034hahahaha yuck yuck ppppppttttt\003"
 "\0034Giggle\003"
 "\0034hehe snicker\003"
 "\0034ha ha ha snort ha ha snort oh my\003"
 "\0034wooooo rofl\003"
 "\0034hehehehe snicker\003"
 "\0034snickers away\003"
 "\0034\002Rollin On Floor Laughing\003\002"
 "\0034\002Rollin On Floor Laughing Loudly\003\002"
 "\002kewl hahahahaha\002"
 "\002hehehe hahaha hehehe snort snort hahahaha\002"

}
bind pub -|- lol lol:reply
proc lol:reply {nick uhost handle channel text} {
   global lol_flood_control giggle_msg
   if {$lol_flood_control == "1"} {return 0}
   set lol_flood_control 1
   utimer 7 [list set lol_flood_control 0]
   set temp_lol $giggle_msg
   set temp_lol [lindex $temp_lol [rand [llength $temp_lol]]]
   putquick "PRIVMSG $channel :$temp_lol"
   return 0
 }
  putlog "Loaded \002 \0034ÅîR\00314ßðRñE\00315^911\003 lolgigle.tcl script v1 loaded"