Bot = "Slapper"

prefix = "+"
command = "slap"

function DataArrival(slapped, dstring)
	if strsub(dstring,1,1) == "<" then
		dstring=strsub(dstring,1,strlen(dstring)-1)
		s,e,cmd,arg = strfind(dstring,"%b<>%s+(%S+)%s+(%S+)") --// no need to find more words after it
   
		if cmd == prefix..command then
			if arg == nil then
				user:SendData(Bot,"Please enter nick of who you want to slap")
				
			else
				if GetItemByName(arg) then
					local spin = random(4) --//how many will be random in spin
					if spin == 1 then
						SendToAll(Bot, slapped.sName.." slaps "..arg.." with a fresh herring") return 1
					elseif spin == 2 then
						SendToAll(Bot, slapped.sName.." slaps "..arg.." with a razar blade") return 1
					elseif spin == 3 then
						SendToAll(Bot, slapped.sName.." slaps "..arg.." with a strawberry jam jar :p") return 1
					else
						SendToAll(Bot, slapped.sName.." wips "..arg.." ass") return 1
					end
				else
					user:SendData(Bot,"This user does not exist")
				end
			end
		end
	end
end