Seen Bot
 

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

Seen Bot

Started by BlazeXxX, 31 October, 2003, 03:18:41

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

BlazeXxX

No Idea who wrote this one, so credit goes to the real owner of this script :)

-- Start Copying from this line
BotName = "LeonBot"

SeenTrigger = "!seen"



minLen = 4

maxLen = 20

seenArray={}



function Main()

frmHub:RegBot(BotName)

end



function NewUserConnected(curUser)

local boolDisc = 0

if strlen(curUser.sName) < minLen then

curUser:SendPM(BotName, "Your nick is to short, a minimum of "..minLen.." chars is required!")

curUser:SendPM(BotName, "Disconnecting...")

curUser:Disconnect()

boolDisc = 1

elseif strlen(curUser.sName) > maxLen then

curUser:SendPM(BotName, "Your nick is to long, a maximum of "..maxLen.." chars is required!")

curUser:SendPM(BotName, "Disconnecting...")

curUser:Disconnect()

boolDisc = 1

elseif ( strfind (curUser.sName, " ", 1, 1) ) then

curUser:SendPM(BotName, "Spaces not allowed in nicknames!")

curUser:SendPM(BotName, "Disconnecting...")

curUser:Disconnect()

boolDisc = 1

end

if (boolDisc == 0) then

seenArray[curUser.sName]=date(curUser.sName.." connected at %d/%m/%Y %T and is still here.")

end

end



function OpConnected(curUser)

seenArray[curUser.sName]=date(curUser.sName.." connected at %d/%m/%Y %T and is still here.")

end



function OpDisconnected(curUser)

seenArray[curUser.sName]=date(curUser.sName.." disconnected at %d/%m/%Y %T and has not been seen since.")

end



function UserDisconnected(curUser)

seenArray[curUser.sName]=date(curUser.sName.." disconnected at %d/%m/%Y %T and has not been seen since.")

end



function DataArrival(curUser, data)

seenArray[curUser.sName]=date(curUser.sName.." was last seen at %d/%m/%Y %T writing things.")

if( strsub(data, 1, 1) == "<" ) then

data=strsub(data,1,strlen(data)-1)

_,_,cmd,arg = strfind( data, "%b<>%s+(%S+)%s+(%S+)" )

if (cmd == SeenTrigger) then

if (arg == curUser.sName) then

SendToAll(BotName, "You should not do #seen's for yourself ;)" )

elseif (seenArray[arg] ~= nil) then

SendToAll(BotName, "User: "..seenArray[arg] )

else

SendToAll(BotName, "I have not seen "..arg.."!" )

end

end

end

end

-- Finish Copying

spurlos

I like this idea.. But can ? make it with DB in txt file.. Becouse server restarting some time..

SMF spam blocked by CleanTalk