Invite Users Script
 

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

Invite Users Script

Started by death_invader777, 01 February, 2008, 16:44:09

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

death_invader777

Can There Be A script that invite users from other hubs.......(Hub addys Will be edited by me)



and The autoreg script doesnt work wen oder scripts r in use ( Like Lucifer 6.6, rincewind's games nd Poll)









thanx in advance


Yours Sincierly
Death_Invader777

Gnuff?

Quote from: death_invader777 on 01 February, 2008, 16:44:09
Can There Be A script that invite users from other hubs.......(Hub addys Will be edited by me)
That would mean that you are planning to advertise in other hubs, that?s sure gonna make you popular  :o Or famous


Quote from: death_invader777 on 01 February, 2008, 16:44:09and The autoreg script doesnt work wen oder scripts r in use ( Like Lucifer 6.6, rincewind's games nd Poll)
Are yu sure that the script fits the version of px you are running?
Gnuff

death_invader777

Invite Users from selected hubs only...........(With The approval of hub owners)




And I use v3.60 and i use the regbot script available on finished script forum......

bastya_elvtars

How about posting the erroneous code? :)
Everything could have been anything else and it would have just as much meaning.

death_invader777

srry for my bad english


My Ptokax version is 3.60 and i use the regbot script made by nErBoS

bastya_elvtars

Well, you should post the script, either attached or the code itself.
Everything could have been anything else and it would have just as much meaning.

death_invader777


--## Secure Pass and Nick (thanks to RabidWombat)
--## Made by nErBoS
--## Updated to Lua 5 by Pothead
--## Commands;
--##   !regme - Register the user who uses the command
--
--   +Mod request by Mutor 6/26/05 request by Loading
--      +Added User, Op and Main chat message
--      +Added check if nick is already registered
--
sBot = "Reg-Bot"

function Main()
frmHub:RegBot(sBot)
end

function ChatArrival(user, data)
   if (string.sub(data,1,1) == "<" or string.sub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
      data = string.sub(data,1,string.len(data)-1)
      s,e,cmd = string.find(data, "%b<>%s+(%S+)")
      if (cmd == "!regme") then
         if not frmHub:isNickRegged(user.sName)   then
            local s,e,pass = string.find(data, "%b<>%s+%S+%s+(%S+)")
            if (pass == nil) then
               user:SendData(sBot, "Syntax Error, !regme , you must write a password.")
            elseif (string.find(pass, "[%c|\n\r]")) then
               user:SendData(sBot, "Invalid Password. Try Again.")
            elseif (string.find(user.sName, "[%c|\n\r]")) then
               user:SendData(sBot, "Your nick is invalid. Please choose a new one.")
            else
               AddRegUser(user.sName, pass, 3)
               local OpMsg="The User ( "..user.sName.." )\r\n"..
               "With the IP: ( "..user.sIP.." )\r\n"..
               "With this Share: ( "..user.iShareSize.." )\r\n"..
               "With this Connection: ( "..user.sConnection.." )\r\n"..
               "With this Mode: ( "..user.sMode.." )\r\n"..
               "With this E-Mail: ( "..user.sEmail.." )\r\n"..
               "With this Client: ( "..user.sClient.." )\r\n\r\n"..
               "Registered Theirself \r\n"..
               "With the Pass: ( "..pass.." )\r\n"
               
               SendPmToOps(sBot,OpMsg)
               
               local UserPm="You are Now Registered\r\n"..
               "With the Nick: ( "..user.sName.." )\r\n"..
               "With the pass: ( "..pass.." )\r\n"..
               "Your IP: ( "..user.sIP.." )\r\n"..
               "Your Share: ( "..user.iShareSize.." )\r\n"..
               "Your Connection: ( "..user.sConnection.." )\r\n"..
               "Your Mode: ( "..user.sMode.." )\r\n"..
               "Your E-Mail: ( "..user.sEmail.." )\r\n"..
               "Your Client: ( "..user.sClient.." )\r\n\r\n"..
               "***Please reconnect and type your password.***\r\n"
               user:SendPM(sBot,UserPm)
               
               local MainMsg="\r\n"..
               "(\ ,_____,-/) \r\n"..
               "_.-'-.( d\_/b ).-'-._ \r\n"..
               "/'.-' ' .---. ' '-. \ The User ( "..user.sName.." ) Registered Theirself \r\n"..
               "/' .' (= (_) =) '. \ \r\n"..
               "/' .', -.__.-.__.-' ,'. \ WELCOME TO "..string.upper(frmHub:GetHubName()).." !\r\n"..
               "( .'. V V ; '. ) \r\n"..
               "( :: -,__.-.__,-' :: ) \r\n"..
               "} / :. .:' \ { \r\n"..
               "} / :. :' \ { \r\n"..
               "} ( ( :. .: ) ) { \r\n"..
               "( ( ( :. :' ) ) ) \r\n"..
               "( ( \ :. .: / ) ) \r\n"..
               "( ( \ :. .:'/ ) ) \r\n"..
               ") ( \ :. .:'/' ) ( \r\n"..
               "( )_ ) :._.:' ( _( ) \r\n"..
               "\ ' _) .' . (_ / \r\n"..
               "\ '_) / .'' ''. \ (_ / \r\n"..
               "'' \ ( ) / '' \r\n"..
               "___ '.'. .'.' ___ \r\n"..
               ". ''''''-- _) (_'--'''''' \r\n"..
               "(_(_(___...--''' '''--...___)_)_) \r\n"
               
               SendToAll(MainMsg)
               end
               return 1
         else
                user:SendData("\t\t*** Sorry, the username "..user.sName.." is already registered")
            return 1
         end
      end
   end
end

SMF spam blocked by CleanTalk