OP, Master ... -> enter on hub
 

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

OP, Master ... -> enter on hub

Started by Jerry, 01 January, 2005, 23:44:01

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Jerry

Hi,

I need a script to announce master, op, vip, and reg  enter and leave hub in lua.

Can please someone help?


                  Thanks

bastya_elvtars

Everything could have been anything else and it would have just as much meaning.

Jerry

#2
No, for PtokaX

Typhoon

well, lets hear the exciting story of where you got that version from... ?
 but here it is anyway , should work !!

-- Custom Login by Typhoon
-- Lua 5  ....
-- [URL]http://netfree-network.com/host/Sentinel[/URL]
-- Commands are 
-- +newlogin 	 - This changes the default login :)
--	+newlogout 	 - This changes the default logout message :)
-- your nick is auto inserted in the midle of the text


BotName = "-Neo-"
sLogins = "Loginout.txt"
Announce = { LogInTable = {} , LogoutTable = {}, }
dofile(sLogins)

function Main()
   frmHub:RegBot(BotName)
end

function NewUserConnected(user,data)
      if Announce.LogInTable[user.sName] then
         local msg = Announce.LogInTable[user.sName]
         SendToAll(BotName,msg)
      end
   end

function OpConnected(user,data)
      if Announce.LogInTable[user.sName] then
         local msg = Announce.LogInTable[user.sName]
         SendToAll(BotName,msg)
      end
   end  

function ChatArrival(user, data)
	local s,e,cmd = string.find( data, "%b<>%s+(%S*)" )
	if cmd == "+newlogin" then
      ChangeLogin(user,data)
   elseif cmd == "+newlogout" then
      ChangeLogout(user,data)
   end
   return 1
end

ChangeLogin = function(user,data)  
            local doGetProfile =  GetProfileName(user.iProfile)
            local s,e,cmd,message,message2 = string.find( data, "%b<>%s+(%S+)%s+(.*)%s:%s(.*)" ) 
         if message == nil or message2 == nil then 
            Announce.LogInTable[user.sName] = "Welcomes "..doGetProfile.." "..user.sName.." Has entered the hub"
				Save_File(sLogins,Announce, "Announce")
            user:SendData(BotName,"Standard Login Enabled: "..doGetProfile.." "..user.sName.." Has entered the hub ")
            user:SendData(BotName,"If you want to change it then use this : +newlogin message1 : message2")
         else  
            Announce.LogInTable[user.sName] = "Welcomes "..message.." "..user.sName.." "..message2
            Save_File(sLogins,Announce, "Announce")
            user:SendData(BotName,"Login Changed to: "..message.." "..user.sName.." "..message2)  
         end  
         return 1  
      end 
      
      ChangeLogout = function(user,data)  
            local doGetProfile =  GetProfileName(user.iProfile)
            local s,e,cmd,message,message2 = string.find( data, "%b<>%s+(%S+)%s+(.*)%s:%s(.*)" ) 
         if message == nil and message2 == nil then 
            Announce.LogoutTable[user.sName] = "Goodbyes to the "..doGetProfile.." "..user.sName.." Has left the hub"
				Save_File(sLogins,Announce, "Announce")
            user:SendData(BotName,"Standard Logout Enabled: "..doGetProfile.." "..user.sName.." Has left the hub ")
            user:SendData(BotName,"If you want to change it then use this : +newlogout message1 : message2")
         else  
            Announce.LogoutTable[user.sName] = "Goodbyes to "..message.." "..user.sName.." "..message2
            Save_File(sLogins,Announce, "Announce")
            user:SendData(BotName,"Logout Changed to: "..message.." "..user.sName.." "..message2)  
         end  
         return 1  
      end 
    
		
      -- Serialize --
Save_Serialize = function(tTable, sTableName, hFile, sTab)
sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n" );
	for key, value in tTable do
		local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
		if(type(value) == "table") then
			Save_Serialize(value, sKey, hFile, sTab.."\t");
		else
			local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
			hFile:write( sTab.."\t"..sKey.." = "..sValue);
		end
		hFile:write( ",\n");
	end
	hFile:write( sTab.."}");
end


Save_File = function(file,table , tablename )
	local hFile = io.open (file , "w")
	Save_Serialize(table, tablename, hFile);
	hFile:close()
end


Typhoon?



SMF spam blocked by CleanTalk