--love.lua by welard 2004-7-27 
--plez leave the scrips alone thank u!! dont for get my hub: welard.no-ip.com
botname="kiss" 

function DataArrival(user, data) 
   data=strsub(data,1,strlen(data)-1) 
   s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)%s+(%S+)") 
   if (cmd=="!love") then 
      if not (arg==nil) then 
         local tmp = GetItemByName(arg) 
         if (tmp==nil) then 
            SendToAll(botname,""..user.sName.." tries to make love but   "..arg..",  smakes them in the head!") 
         end 
         if not (tmp==nil) then 
            SendToAll(botname, ""..user.sName.." is making love to  "..arg.." and they are screeming!! :)") 
         end 
         return 1 
      end 
   end 
end