Banner script
 

News:

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

Banner script

Started by Markitos, 17 October, 2005, 13:34:42

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Markitos

-- Banner script
-- By M-Dreamer
-- Lua 5 version by Markitos

sBot = "G?m?r??T?" 


function Main() 
   frmHub:RegBot(sBot) 
end 

function ChatArrival(user, data) 
   if (string.sub(data,1,1) == "<" or string.sub(data,1,5+string.len(sBot)) == "$To: "..sBot) then 
      data = string.sub(data,1,string.len(data)-1) 
      s,e,cmd = string.find(data, "%b<>%s+(%S+)") 
      if (cmd == "!banner" and user.bOperator) then 
         local s,e,msg = string.find(data, "%b<>%s+%S+%s+(.+)") 
         if (msg == nil) then 
            user:SendData(sBot, "Syntax Erro, !mc , tens de escrever uma mensagem.") 
         else 
            local sMsg = "By: "..user.sName.."\r\n" 
            sMsg = sMsg.."=========================================================================================================\r\n\r\n" 
            sMsg = sMsg..msg.."\r\n\r\n" 
            sMsg = sMsg.."==================================================================================================================" 
            SendToAll(sBot, sMsg) 
         end 
         return 1      
      end 
   end 
end

Blackrider

Hello,

Wonderfull and nice script, but i get an error at "line 22 unexpected symbol near &".

Can anyone help me out with this?

Tnx
Blackrider

Dessamator

That was caused by the lua board, when he pasted it here find "& quot;" and replace with ".

Btw markitos, u forgot to remove the "if (string.sub(data,1,1) == "<" or string.sub(data,1,5+string.len(sBot)) == "$To: "..sBot) then ".
Ignorance is Bliss.

GeceBekcisi

This should be better, but didn't test it.
-- Banner script
-- By M-Dreamer
-- Lua 5 version by Markitos
-- Touched by GeceBekcisi ( couldn't resist :P )

sBot = "G?m?r??T?" 

function Main() 
	frmHub:RegBot(sBot) 
end 

function ChatArrival(curUser, data) 
	data = string.sub(data,1, -2)
	local s,e,cmd = string.find(data, "%b<>%s[%!%+%?%#%+](%S+)")
	if (cmd == "banner" and curUser.bOperator) then 
		local s,e,msg = string.find(data, "%b<>%s+%S+%s+(.+)") 
		if msg == nil then 
			curUser:SendData(sBot, "Syntax Error! Usage: !banner ") 
		else 
			local sMsg = "By: "..curUser.sName.."\r\n"..
			""..string.rep("=",100).."\r\n\r\n"..
			""..msg.."\r\n\r\n"..
			""..string.rep("=",100).."\r\n\r\n"
			SendToAll(sBot, sMsg) 
		end 
		return 1 
	end 
end
Best regards
Do you need an advanced user handling script? Download UserBekcisi today (Latest Edit)
Features: User + ISP + GeoIP database, user info + share checking and many more...

Dessamator

data = string.sub(data,1, -2)
local s,e,cmd = string.find(data, "%b<>%s[%!%+%?%#%+](%S+)")


Could be changed to this :
local s,e,cmd = string.find(data, "%b<>%s[%!%+%?%#%+](%S+)|")


Less code, since thats a simple script.
Ignorance is Bliss.

SMF spam blocked by CleanTalk