Welcome message on login
 

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

Welcome message on login

Started by Henry, 11 March, 2005, 12:46:09

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Henry

11 March, 2005, 12:46:09 Last Edit: 11 March, 2005, 12:55:45 by AmsterdamBulldogs
this is a welcome messes that show at login

-- welcomemesses script by AmsterdamBulldogs

login = {
	["BotName"] = "CarinaLUA5",
	["Hubowner"] = "[MCO][Hubowner]AmsterdamBulldogs",
	["Roboversion"] = "v10.01a",
	["webadres"] = "http://www.jimenmickeclub.dyndns.info",
	["Forumadres"] = "http://www.jimenmickeclubforum.dyndns.info",
	["minsharehub"] = "7 GB",
	["helpcommand"] = "!help",
}
local kb = "1024"
local mb = kb*kb
local gb = mb*kb
local tb = gb*kb

function Main()
	frmHub:RegBot(login.BotName)
end

function NewUserConnected(user)
	Message(user)
end

function OpConnected(user)
	Message(user)
end

--// Profile Counter
function ProfileCounter(profile)
	local table, count = GetUsersByProfile(profile), 0
	for i, User in table do 
		if GetItemByName(User) then
			count = count + 1
		end
	end
	return count
end

function Message(user)
local timeanddate = os.date("%d-%m-%Y  %H:%M:%S")
local tmp = os.clock() 
local weeks, days, hours, minutes, seconds = math.floor(tmp/604800), math.floor(math.mod(tmp/86400, 7)), math.floor(math.mod(tmp/3600, 24)), math.floor(math.mod(tmp/60, 60)), math.floor(math.mod(tmp/1, 60))
	if frmHub:GetHubTopic() == nil then
		topic = "No topic set"
	else
		topic = frmHub:GetHubTopic()
	end
   if user.sMyInfoString then
      local disp = ""
      doGetProfile =  GetProfileName(user.iProfile) or "Not registerd (reg your self white !regme )"
      hubshare = string.format("%0.3f", frmHub:GetCurrentShareAmount()/(tb)).." TB"
      local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )

      if share then
         minshare = string.format("%0.3f", tonumber(share)/gb).." GB"
      else
         minshare = "Corrupt"
      end
      border1 = "  <=========================Welcome messeage for: "..user.sName.."================================>"
      border2 = "  <================and have mutch chat and downlouad fun "..user.sName.."=========================>"
      disp = "\r\n\r\n"..border1.."\r\n"
      disp = disp.."	?hubname:			"..frmHub:GetHubName().."\r\n" 
      disp = disp.."	?Description:			"..frmHub:GetHubDescr().."\r\n"
      disp = disp.."	?Local date and time:		"..timeanddate.."\r\n"
      disp = disp.."	?Hub Topic:			"..topic.."\r\n"
      disp = disp.."\r\n"
      disp = disp.."	?your ip:				"..user.sIP.."\r\n"
      disp = disp.."	?your sharesize:			"..minshare.."\r\n"
      disp = disp.."	?Minshare for users:			"..login.minsharehub.."\r\n"
      disp = disp.."	?your profile:			"..doGetProfile.."\r\n"
      disp = disp.."	?total share in this hub:		"..hubshare.."\r\n"
      disp = disp.."	?Hubowner:	        		"..login.Hubowner.."\r\n"
      disp = disp.."	?Hubadress:	        		"..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().."\r\n"
      disp = disp.."	?Webadress:	        		"..login.webadres.."\r\n"
      disp = disp.."	?Forumadress:	       		"..login.Forumadres.."\r\n"
      disp = disp.."	?there are:			"..ProfileCounter("NetFounder").." netfoudner(s),	"..ProfileCounter("Operator").." Operator(s),\r\n"
      disp = disp.."					"..ProfileCounter("master").." Master(s),			"..ProfileCounter("moderator").." Moderator(s),\r\n"
      disp = disp.."					"..ProfileCounter("Vip").." Vip(s),					"..ProfileCounter("reg")..", Registered user(s).\r\n\r\n"
      disp = disp.."	?there are now "..frmHub:GetUsersCount().." of the "..frmHub:GetMaxUsers().." users online after "..weeks.." week(s) "..days.." day(s) "..hours.." hour(s) "..minutes.." minutes and "..seconds.." seconds\r\n\r\n"
      disp = disp.."	?Show the main commands	                "..login.helpcommand.."\r\n"
      disp = disp.."	?This hub is Powered by:		RoboCop? "..login.Roboversion.." - Made by Optimus?\r\n"..border2.."\r\n"

	  user:SendData(login.BotName, disp)

	  disp = nil
   end
end
AmsterdamBulldogs

 

[uk]Andy-66??

#1
21 July, 2005, 19:05:56
great script i have modified and enhanced info give it a try :)
code:
------------------------------------------------------------------------------- -- welcomemesses script by AmsterdamBulldogs-modifications by [uk]Andy-66?? andysplace2.no-ip.com
please edit setting to your hub ie robo vers address web adress and hub name etc.......

login = {
   ["BotName"] = "?Mr-Heckles?",
   ["Hubowner"] = "[uk]Andy-66??",
   ["Roboversion"] = "v10.01e",
   ["webadres"] = "http://www.hublist.org/?p=hub&id=97893",
   ["Forumadres"] = "http://www.jimenmickeclubforum.dyndns.info",
   ["minsharehub"] = "1 GB",
   ["helpcommand"] = "!help",
}
local kb = "1024"
local mb = kb*kb
local gb = mb*kb
local tb = gb*kb

function Main()
   frmHub:RegBot(login.BotName)
end

function NewUserConnected(user)
   Message(user)
end

function OpConnected(user)
   Message(user)
end

--// Profile Counter
function ProfileCounter(profile)
   local table, count = GetUsersByProfile(profile), 0
   for i, User in table do
      if GetItemByName(User) then
         count = count + 1
      end
   end
   return count
end

function Message(user)
local timeanddate = os.date("%d-%m-%Y  %H:%M:%S")
local tmp = os.clock()
local weeks, days, hours, minutes, seconds = math.floor(tmp/604800), math.floor(math.mod(tmp/86400, 7)), math.floor(math.mod(tmp/3600, 24)), math.floor(math.mod(tmp/60, 60)), math.floor(math.mod(tmp/1, 60))
   if frmHub:GetHubTopic() == nil then
      topic = "No topic set"
   else
      topic = frmHub:GetHubTopic()
   end
   if user.sMyInfoString then
      local disp = ""
      doGetProfile =  GetProfileName(user.iProfile) or "Not registerd (reg your self type !regme and a password of your choice in main)"
      hubshare = string.format("%0.3f", frmHub:GetCurrentShareAmount()/(tb)).." TB"
      local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )

      if share then
         minshare = string.format("%0.3f", tonumber(share)/gb).." GB"
      else
         minshare = "Corrupt"
      end
      border1 = "  ?????????????????????Welcome To The F? R? I? E ?N? D? S Hub: "..user.sName.." ?????????????????????????"
      border2 = "   ?????????????????????????Enjoy Your Stay At Central-Perk  "..user.sName.." ?????????????????????????"
      disp = "\r\n\r\n"..border1.."\r\n"
      disp = disp.."  Hubname: "..frmHub:GetHubName().."\r\n"
      disp = disp.."  Hub date and time: "..timeanddate.."\r\n"
      disp = disp.."  Your ip: "..user.sIP.."\r\n"
      disp = disp.."  Your sharesize: "..minshare.."\r\n"
      disp = disp.."  Your profile: "..doGetProfile.."\r\n"
      disp = disp.."  Your description is: "..user.sDescription.."\r\n"
      disp = disp.."  Your connection is: "..user.sConnection.."\r\n"
      disp = disp.."  Your email is: "..user.sEmail.."\r\n"
      disp = disp.."  Your client is: "..user.sClient.."\r\n"
      disp = disp.."  Your client version is: "..user.sClientVersion.."\r\n"
      disp = disp.."  Your total hubs are: "..user.iHubs.."\r\n"
      disp = disp.."  Your open slots are: "..user.iSlots.."\r\n"
      disp = disp.."  Minshare for users: "..login.minsharehub.."\r\n"
      disp = disp.."  Total share in this hub: "..hubshare.."\r\n"
      disp = disp.."  Hubowner: "..login.Hubowner.."\r\n"
      disp = disp.."  Hubadress: "..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().."\r\n"
      disp = disp.."  Webadress: "..login.webadres.."\r\n"
      disp = disp.."  There are: "..ProfileCounter("NetFounder").." netfoudner(s),"..ProfileCounter("master").." Master(s),"..ProfileCounter("Operator").." Operator(s),"..ProfileCounter("Vip").." Vip(s),"..ProfileCounter("reg")..", Registered user(s).\r\n\r\n"                                   
      disp = disp.."  There are now: "..frmHub:GetUsersCount().." of the "..frmHub:GetMaxUsers().." users online after "..weeks.." week(s) "..days.." day(s) "..hours.." hour(s) "..minutes.." minutes and "..seconds.." seconds\r\n\r\n"
      disp = disp.."  Show the main commands: "..login.helpcommand.."\r\n"
      disp = disp.."  This hub is Powered by: RoboCop? "..login.Roboversion.." - Made by Optimus?\r\n"..border2.."\r\n"

     user:SendData(login.BotName, disp)

     disp = nil
   end
end--------------------------------------------------------------------------------

(-=TrIp-iN-SuN=-)

?
#2
07 August, 2005, 00:58:54
how i doing this script in pm not in main chat?

bastya_elvtars

#3
07 August, 2005, 01:07:18
Find this:

user:SendData(login.BotName, disp)

Replace to:

user:SendPM(login.BotName, disp)
Everything could have been anything else and it would have just as much meaning.
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk