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

botname="slapper" 

function DataArrival(user, data) 
   data=strsub(data,1,strlen(data)-1) 
   s,e,cmd,arg = strfind(data,"%b<>%s+(%S+)%s+(%S+)") 
   if (cmd=="!slap") then 
      if not (arg==nil) then 
         local tmp = GetItemByName(arg) 
         if (tmp==nil) then 
            SendToAll(botname,""..user.sName.." tries to slap "..arg..", he/she smakes them in the head!") 
         end 
         if not (tmp==nil) then 
            SendToAll(botname, ""..user.sName.." slaps  "..arg.." and he/she starts crying!!!") 
         end 
         return 1 
      end 
   end 
end