Looking for a tagwall
 

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

Looking for a tagwall

Started by Cboy301, 20 March, 2004, 07:56:43

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Cboy301

Is there a script that is basically like the tagwall in Mean Machine? All I need is just the tagwall of sorts.
Thanks,
       Mikey

Visit My Hub At kickincountry.no-ip.com

MrZ

Hia :))

try this :))

--msgboard.lua, created by amutex 12.01.2003 edited by Mephiska 
--thx to nathanos for the fine pm-pasing and Dirtyfinger for tokenizing 
botname = "MessageBoard" 
TimeSpanInHours = 168
function tokenize (inString,token) 
_WORDS = {} 
local matcher = "([^?"..token.."]+)" 
gsub(inString, matcher, function (w) tinsert(_WORDS,w) end) 
return _WORDS 
end 
function GetArgs(data) 
s,e,whoTo,from,cmd,arg,arg2 = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)%s+(.*)") 
return arg,arg2 
end 
function Main() 
SetTimer(TimeSpanInHours*3600000)
StartTimer()
frmHub:RegBot(botname) 
end 
function OnTimer()
	a=remove("msgboard.dat")
	SendToAll(botname, "MessageBoard Cleared...")
end
function DataArrival(user, data) 
if(strsub(data, 1, 4) == "$To:") then 
data=strsub(data,1,strlen(data)-1) 
s,e,whoTo = strfind(data,"$To:%s+(%S+)") 
if (whoTo == botname) then 
s,e,whoTo,from,cmd = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)") 
if (cmd=="+msg") then 
arg= GetArgs(data) 
local handle=openfile("msgboard.dat","a") 
write(handle,date("<"..user.sName.."> wrote @ %m/%d/%Y %T "..arg.."?*******************************************?"))
user:SendPM(botname,"MessageBoard entry saved ....") 
SendToAll(botname, "New entry in the messageboard!") 
closefile(handle) 
end 
if (cmd=="+mbhelp") then 
	local mbhelp=""
			readfrom("mbhelp.txt")
			while 1 do
				local line = read()
				if (line == nil) then 
					break
				else
					mbhelp = mbhelp..line.."\r\n"
				end
			end
			SendPmToNick(user.sName, botname, mbhelp)
			readfrom() 
end 

if (cmd=="+read") then 
	handle2=openfile("msgboard.dat","r") 
		if (handle2==nil) then 
			else 
			line = read(handle2,"*a") 
			line=strsub(line,1,strlen(line)-1) 
			linearray=tokenize(line,"?") 
			for i=1,linearray.n do 
			user:SendPM(botname,linearray[i]) 
		end 
	closefile(handle2) 


end 
end 
end 
end 
end


G-luck buddy

Z ya
Always remember that you are unique... just like everyone else :-D

Cboy301

Hi Mr.Z! I have that script but it will only allow so many characters is there a way to make it except a longer post?
Thanks,
       Mikey

Visit My Hub At kickincountry.no-ip.com

MrZ

Hia

Sorry buddy, i didnt know that and i cant help u out.
I am not able to figure lua out ;(

hope someone else that is sees this and help u

Z ya
Always remember that you are unique... just like everyone else :-D

SMF spam blocked by CleanTalk