2 scripts needed
 

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

2 scripts needed

Started by Trust_in_Trance, 29 January, 2004, 17:48:11

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Trust_in_Trance

Hi perhaps you can help me.  ?(

1.) The first script i need should show the actually time and Date in Main chat. The time should be shown each Hour and when a user tipes !thetime  in main chat.

2.) The second script i need would`t be so short.
It should work like Frehstuff but i need outher sections: SVCD Vcd Xvid and DVD. And when a user connects it should show the 10 newest items on each sektion.

Perhaps you can help me.




 :D Excause me for my bad english :D

kepp

1.

Bot = "Time"
Pre = "+"

function Main()
	SetTimer(600000)
	StartTimer()
end


function DataArrival(curUser,data)
	if strsub(data,1,1)=="<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
			if (cmd==Pre.."time") then
			curUser:SendData(Bot, The local time is now : "..date()) return 1
		end
	end
end


function OnTimer()
	SendToAll(Bot, "The local time is now : "..date())
end
Guarding    

Trust_in_Trance

it doesn`t work.

Syntax Error: `)' expected;
  last token read: `local' at line 16 in string

plop

Bot = "Time"
Pre = "+"

function Main()
	SetTimer(600000)
	StartTimer()
end


function DataArrival(curUser,data)
	if strsub(data,1,1)=="<" then
		data=strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
			if (cmd==Pre.."time") then
			curUser:SendData(Bot, "The local time is now : "..date()) return 1
		end
	end
end


function OnTimer()
	SendToAll(Bot, "The local time is now : "..date())
end
he forgot a ", now it works.

plop
http://www.plop.nl lua scripts/howto\'s.
http://www.thegoldenangel.net
http://www.vikingshub.com
http://www.lua.org

>>----> he who fights hatred with hatred, drives the spreading of hatred <----<<

SMF spam blocked by CleanTalk