CAPS to mormal letters
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

CAPS to mormal letters

Started by NRJ, 07 October, 2005, 20:00:25

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

NRJ

Hello!
I need a script that will convert all text written in main chat from CAPS to normal letters expect first letter.

P.s.-Searching not to help (((



bastya_elvtars

QuoteOriginally posted by NRJ
Hello!
I need a script that will convert all text written in main chat from CAPS to normal letters expect first letter.

P.s.-Searching not to help (((


There is some anti-shout bot.
Everything could have been anything else and it would have just as much meaning.

NRJ

QuoteOriginally posted by bastya_elvtars

There is some anti-shout bot.

Script does not work (((

Markitos

QuoteOriginally posted by NRJ
QuoteOriginally posted by bastya_elvtars

There is some anti-shout bot.

Script does not work (((
Wich script ur using???

NRJ

QuoteOriginally posted by Markitos
Wich script ur using???

anti-shout bot.

bastya_elvtars

Post the code please.
Everything could have been anything else and it would have just as much meaning.

NightLitch

maybe this is the only thing needed:

function ChatArrival(user,data)
	local _,_,msg = string.find(data, "%b<>%s(.*)%|")
    msg = string.gsub(msg, "(%S+)", function(word)
        local s = string.sub(word,1,1)
        return string.upper(s)..string.lower(string.sub(word,2))
	end)
    SendToAll(user.sName, msg)
    return 1
end

I don't know, just made it, was bored...
//NL

NRJ

I have casually found my topic and I decided to publish the decision of a old problem)

-- REPLACE SCPIRT by NRJ
-- based on NO YELL SCPIRT by NoNick

Messize=5; -- Min length of message in letters for replace text
Persent=0.8; -- Per cent of upper letters in message

Bot=frmHub:GetHubBotName()  

Letters={["A"]="a",["B"]="b",["C"]="c",["D"]="e",["E"]="e",["F"]="f",["G"]="g",["H"]="h",["I"]="i",["J"]="j",["K"]="k",["L"]="l",["M"]="m",["N"]="n",["O"]="o",["P"]="p",["Q"]="q",["R"]="r",["S"]="s",["T"]="t",["U"]="u",["V"]="v",["W"]="w",["X"]="x",["Y"]="y",["Z"]="z"}

function ChatArrival(sUser, sData)
	local sData = string.sub(sData,(string.len(sUser.sName)+4),string.len(sData)-1)
	if string.len(sData) > Messize then
		local NoSpaces = string.gsub(sData , "[%s%p%с]", "")
		local NoSpacesLen = string.len(NoSpaces)
		local NoCAPSLen = string.len(string.gsub(NoSpaces , "[%abcdefghijklmnopqrstuvwxyz]", ""))
		
		local val = (NoSpacesLen - NoCAPSLen)/NoSpacesLen
		if  val > Persent then
			sData =string.lower(sData)
			for b,s in Letters do
				sData=string.gsub(sData , b, Letters[b])
			end
			SendToNick(sUser.sName,"<"..Bot..">"..sUser.sName..", dont use CAPS LOCK!")	
			SendToAll("<"..sUser.sName.. "> " .. sData );
			return 1
		end
	end
end

bastya_elvtars

Quote from: NRJ on 05 September, 2006, 15:55:50
I have casually found my topic and I decided to publish the decision of a old problem)

-- REPLACE SCPIRT by NRJ
-- based on NO YELL SCPIRT by NoNick

Messize=5; -- Min length of message in letters for replace text
Persent=0.8; -- Per cent of upper letters in message

Bot=frmHub:GetHubBotName()  

Letters={["A"]="a",["B"]="b",["C"]="c",["D"]="e",["E"]="e",["F"]="f",["G"]="g",["H"]="h",["I"]="i",["J"]="j",["K"]="k",["L"]="l",["M"]="m",["N"]="n",["O"]="o",["P"]="p",["Q"]="q",["R"]="r",["S"]="s",["T"]="t",["U"]="u",["V"]="v",["W"]="w",["X"]="x",["Y"]="y",["Z"]="z"}

function ChatArrival(sUser, sData)
	local sData = string.sub(sData,(string.len(sUser.sName)+4),string.len(sData)-1)
	if string.len(sData) > Messize then
		local NoSpaces = string.gsub(sData , "[%s%p%с]", "")
		local NoSpacesLen = string.len(NoSpaces)
		local NoCAPSLen = string.len(string.gsub(NoSpaces , "[%abcdefghijklmnopqrstuvwxyz]", ""))
		
		local val = (NoSpacesLen - NoCAPSLen)/NoSpacesLen
		if  val > Persent then
			sData =string.lower(sData)
			for b,s in Letters do
				sData=string.gsub(sData , b, Letters[b])
			end
			SendToNick(sUser.sName,"<"..Bot..">"..sUser.sName..", dont use CAPS LOCK!")	
			SendToAll("<"..sUser.sName.. "> " .. sData );
			return 1
		end
	end
end


for w in string.gmatch(text,"(%u+)") do
  text=string.gsub(text,w,string.lower(w))
end
Everything could have been anything else and it would have just as much meaning.


bastya_elvtars

This is a bit scientific approach, bit of challenge for me. :)

text="AADAFNAUOFhtrhfhgfhgfREtKaAAAAAAA"
txt=text
local num=0
for w in string.gmatch(text,"(%u)") do
  txt=string.gsub(text,w,string.lower(w))
  num=num+1
end

print((num/string.len(text)*100).."% of the chars had to be \"lowered\"")
print(txt)


Replace print to SendToAll for PtokaX.
Everything could have been anything else and it would have just as much meaning.

jiten

Something similar:

text = "AADAFNAUOFhtrhfhgfhgfREtKaAAAAAAA"
msg, x = string.gsub(text, "(%u)", function(s) return string.lower(s) end)
SendToAll(frmHub:GetHubBotName(), "\r\n\r\n\t*** "..x.." chars [ "..
	string.format("%0.3f", x/string.len(text)*100).."% ] were lowered!\r\n\t"..
	"*** Output: "..msg)

bastya_elvtars

Quote from: jiten on 05 September, 2006, 22:18:25
Something similar:

text = "AADAFNAUOFhtrhfhgfhgfREtKaAAAAAAA"
msg, x = string.gsub(text, "(%u)", function(s) return string.lower(s) end)
SendToAll(frmHub:GetHubBotName(), "\r\n\r\n\t*** "..x.." chars [ "..
	string.format("%0.3f", x/string.len(text)*100).."% ] were lowered!\r\n\t"..
	"*** Output: "..msg)


Yeah, better than mine, haven't played with strings since April or so.
Everything could have been anything else and it would have just as much meaning.

JueLz

And mutor could you make it so if the user is operate
he can use caps?
I am owner of the MzDistortion? Empire
the addy to my hub is mzdistortion.no-ip.org
____________________________________________
--=                        [HT 500]                          =--

JueLz

I am owner of the MzDistortion? Empire
the addy to my hub is mzdistortion.no-ip.org
____________________________________________
--=                        [HT 500]                          =--

SMF spam blocked by CleanTalk