HeaderScroller
 

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

HeaderScroller

Started by bastya_elvtars, 08 March, 2005, 19:32:37

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

bastya_elvtars

08 March, 2005, 19:32:37 Last Edit: 08 March, 2005, 20:31:06 by bastya_elvtars
This was requested by Nemezis.

-- HeaderScroller 0.1 by bastya_elvtars
-- for PtokaX 16.xx
-- 2 methods of scrolling!
-- will add command for on/off/scrolling method
-- uses a lot of b/w, use with caution, and don't blame me on crashing your netcard! :P

-- 0.11: fixed the nil topic error. THX Nemezis

-- set the refresh frequency. the bigger it is, the faster text moves, and the faster it moves, the more bandwidth is used. :)

secs=0.3

method=2 -- 1 is left-to-right, 2 is right-to-left

function Main()
	SetTimer(secs*1000)
	StartTimer()
	char=0
end


function GetBanner()
	hubname=frmHub:GetHubName()
	topic=frmHub:GetHubTopic()
	chartab={}
	if topic then 
		banner=hubname.." -  "..topic
	else
		banner=hubname
	end
--	leng=string.len(banner)
end


function OnTimer()
	GetBanner()
	char=char+1
	if char < string.len(banner) then
		SendToAll("$HubName "..MethodChoice())  -- banner,char,string.len(banner)
	elseif char > string.len(banner) and char < string.len(banner)*2 then
		SendToAll("$HubName "..string.sub(banner,-(string.len(banner)-char)))
	else
		char=0
	end
end

function MethodChoice()
	if method==2 then return string.sub(banner,1,char)
	else return string.sub(banner,char,string.len(banner))
	end
end
Everything could have been anything else and it would have just as much meaning.

bastya_elvtars

#1
08 March, 2005, 21:35:22
This is v0.2. :) Enjoy!

-- HeaderScroller 0.2 by bastya_elvtars
-- for PtokaX 16.xx
-- 2 methods of scrolling!
-- will add command for on/off/scrolling method
-- uses a lot of b/w, use with caution, and don't blame me on crashing your netcard! :P

-- 0.11: fixed the nil topic error. thx Nemezis

-- 0.2: added full command control from client

-- set the refresh frequency. the bigger it is, the faster text moves, and the faster it moves, the more bandwidth is used. :)

---------------------------------------
--  setttings ---------------------
---------------------------------------

userlevels={	-- if you use default profiles, leave this intact, if not, edit
			-- [profile_index]=levelindex,
			-- higher levelindex means higher rights

[-1]=1, -- Guest

[0]=5, -- SU

[1]=4, -- OP

[2]=3, -- VIP

[3]=2 -- Reguser

}

allowed=4

secs=0.3

method=2 -- 1 is left-to-right, 2 is right-to-left

defaultstate="on" --"on or "off"

bot="Header-Bot"

-- only change help if you know what u r doing

help_text="\r\n\t\t\tUsage: !header  \r\n"..
"\t\t\t----------------------------------------------------------\r\n"..
"\t\t\t!header speed \t\tsets the refresh rate\r\n"..
"\t\t\t!header scroll \t\t\tenables/disables scrolling\r\n"..
"\t\t\t!header method <1/2>\t\t\tsets method, 1 for srolling from left to right, 2 for scrolling from right to left\r\n"..
"\t\t\t!header help\t\t\t\twhat you are staring at. :P\r\n"

---------------------------------------
-- end of settings ------------
---------------------------------------


function Main()
	frmHub:RegBot(bot)
	state=defaultstate
	SetTimer(secs*1000)
	StartTimer()
	char=0
end


function GetBanner()
	hubname=frmHub:GetHubName()
	topic=frmHub:GetHubTopic()
	chartab={}
	if topic then 
		banner=hubname.." -  "..topic
	else
		banner=hubname
	end
--	leng=string.len(banner)
end


function OnTimer()
	GetBanner()
	char=char+1
	if char < string.len(banner) then
		SendToAll("$HubName "..MethodChoice())  -- banner,char,string.len(banner)
	elseif char > string.len(banner) and char < string.len(banner)*2 then
		SendToAll("$HubName "..string.sub(banner,-(string.len(banner)-char)))
	else
		char=0
	end
end

function MethodChoice()
	if method==2 then return string.sub(banner,1,char)
	else return string.sub(banner,char,string.len(banner))
	end
end

function ChatArrival (user,data)
	data=string.sub(data,1,string.len(data)-1)
	local _,_,cmd,parm1,parm2=string.find(data,"%b<>%s+[%!%+%-%?%#](%S+)%s+(%S+)%s*(%S*)")
	if cmd=="header" then
		if userlevels[user.iProfile] and userlevels[user.iProfile] >= allowed then
			if parm1=="speed" then
				if tonumber(parm2) then
					StopTimer()
					secs=tonumber(parm2)
					SetTimer(tonumber(parm2)*1000)
					StartTimer()
				else
					user:SendData(bot,"Incorrect usage, see +header help")
				end
			elseif parm1=="scroll" then
				if parm2=="on" then
					if state=="on" then
						user:SendData(bot,"I am already working.")
					else
						SetTimer(secs*1000)
						StartTimer()
					end
				elseif parm2=="off" then
					if state=="off" then
						user:SendData(bot,"I am already sleeping.")
					else
						StopTimer()
						SetTimer(secs*1000)
						SendToAll("$HubName "..banner)
						state="off"
					end
				else
					user:SendData(bot,"Incorrect usage, see +header help")
				end
			elseif parm1=="method" then
				if parm2=="1" then
					if method==1 then
						user:SendData(bot,"Already using this.")
					else
						method=1
						StopTimer()
						SetTimer(secs*1000)
						StartTimer()
					end
				elseif parm2=="2" then
					if method==2 then
						user:SendData(bot,"Already using this.")
					else
						method=2
						StopTimer()
						SetTimer(secs*1000)
						StartTimer()
					end
				end
			elseif parm1=="help" and parm2=="" then
				frmHub:RegBot(bot)
				user:SendPM(bot,help_text)
				frmHub:UnregBot(bot)
			else
				user:SendData(bot,"Incorrect usage, see +header help")
			end
		else
			user:SendData(bot,"You aren't allowed to use this command.")
		end
		return 1
	end
end
Everything could have been anything else and it would have just as much meaning.

Skynet

#2
09 March, 2005, 18:17:08
bastya_elvtars looks great and works ok

dont think this can be done tho is there any way of stopping the tab from scrolling  just leaving the main header scrolling

Copyright SkynetSystems 2000-2005 @Phoenix Network

bastya_elvtars

#3
09 March, 2005, 18:30:47
QuoteOriginally posted by Skynet
bastya_elvtars looks great and works ok

dont think this can be done tho is there any way of stopping the tab from scrolling  just leaving the main header scrolling

No, that is clientside. As it refreshes hubname, it cannot be switched off.
Everything could have been anything else and it would have just as much meaning.

Skippy84

#4
08 April, 2005, 13:37:42 Last Edit: 08 April, 2005, 14:05:43 by Skippy84 
-- HeaderScroller 0.1 by bastya_elvtars
-- for PtokaX 16.xx
-- 2 methods of scrolling!
-- will add command for on/off/scrolling method
-- uses a lot of b/w, use with caution, and don't blame me on crashing your netcard! :P

-- 0.11: fixed the nil topic error. THX Nemezis

-- setze die geschwindigkeit je h?her die zahl desto fl?ssiger l?uft die schrift
-- desto mehr bandbreite wird aber auch ben?tigt

-- 0.19: make the commands for on/off/scrolling method by Skippy


secs=0.7

method=1 -- 1 ist von links nach rechts, 2 ist von rechts nach links

function Main()
	char=0
end



function ChatArrival(curUser, message) 
	s,e,cmd= string.find(message,"%b<>%s+(%S+)")

if curUser.bOperator ~= nil then
 s,e,cmd,status= string.find(message,"%b<>%s(.+)%s(.+)")
	if (cmd == "!topic") then
		if string.find(status, "on") then
			SendToAll(" Topic Scrolling on.")
	    SetTimer(secs*1000)
	    StartTimer()
	    char=0
		elseif string.find(status, "change") then
			SendToAll(" Topic Scrolling direction change!")
      	if (method == 2) then
			  SendToAll(" Topic Scrolling links!")
    		method=1
      	elseif (method == 1) then
        method=2
     		SendToAll(" Topic Scrolling rechts!")
      end
		elseif string.find(status, "off") then
			SendToAll(" Topic Scrolling off!")
      StopTimer()
	     if topic then 
        SendToAll("$HubName "..hubname.." - "..topic)
	     else
        SendToAll("$HubName "..hubname)	
	     end
		  end
		  return 1
	  end
  end
end

function GetBanner()
	hubname=frmHub:GetHubName()
	topic=frmHub:GetHubTopic()
	chartab={}
	if topic then 
		banner=hubname.." - "..topic
	else
		banner=hubname
	end
--	leng=string.len(banner)
end

function OnTimer()
	GetBanner()
	char=char+1
	if char < string.len(banner) then
		SendToAll("$HubName "..MethodChoice())  -- banner,char,string.len(banner)
	elseif char > string.len(banner) and char < string.len(banner)*2 then
		SendToAll("$HubName "..banner)
	else
		char=0
	end
end


function MethodChoice()
	if method==2 then return string.sub(banner,1,char)
	else return string.sub(banner,char,string.len(banner))
	end
end

bastya_elvtars

#5
08 April, 2005, 13:51:00
I thought I added that option before... but who knows? :P
Everything could have been anything else and it would have just as much meaning.

Skippy84

#6
08 April, 2005, 14:23:18
i think my script is easier, smaller and i have a better way to change direktion  only one command thats yours have 2 commands for that

RF

#7
08 April, 2005, 14:26:42 Last Edit: 08 April, 2005, 14:27:32 by RF
Nothing...;-)

bastya_elvtars

#8
08 April, 2005, 15:28:18
QuoteOriginally posted by Skippy84
i think my script is easier, smaller and i have a better way to change direktion  only one command thats yours have 2 commands for that

OK, feel free, just please upload to script database (preferably in english :P).
Everything could have been anything else and it would have just as much meaning.

NemeziS

#9
10 May, 2005, 20:34:16 Last Edit: 10 May, 2005, 20:41:24 by NemeziS
QuoteOriginally posted by bastya_elvtars
OK, feel free, just please upload to script database (preferably in english :P).

1) What database? I hear the first time about it. If you spoke about http://ptokaxscripts.sytes.net/ then this page is not loaded for me :(

2) It seems to me that I've found a bug.  
If someone uses  xdc  or DCGUI  or valknut or javadc  then our scrolling topic displays to him like unlimited amount of flooding strings in Main.
One of Linux users told me about it. :(

Can it be fixed somehow? Or I just have to make a "not scrolling" rule for this clients?

Thanx a lot.

NemeziS
--LUA forever! =)

Skippy84

#10
10 May, 2005, 21:08:29
it seems to be a unix problem


i have a question shows it the text that displayed normaly in
the topic? or is a other text displayed

NemeziS

#11
11 May, 2005, 01:37:48 Last Edit: 11 May, 2005, 11:01:45 by NemeziS
It displays a text that was in hub topic. It displays like unlimited amount of flooding strings in Main.

There are some coding problems. Especially if the topic text is typed in russian language. English text displays perfectly, but it looks like unlimited amount of flooding strings in Main, too. :(

And another problem with this DC clients: the right click menu is not displayed for them.  X(


*[edit]  What shall I do?  ?(
--LUA forever! =)
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk