I need Help, pls!
 

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

I need Help, pls!

Started by Magic, 10 May, 2004, 16:54:07

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Magic

I am using script Channel Bot v4.3c-2
and I placed the following code at the end of the script:

(it's for right mouse key)


function NewUserConnected(curUser)
UserCommands(curUser)
end

function OpConnected(curUser)
      if GetProfileName(curUser.iProfile) == "Master" then
         MasterCommands(curUser)
      else
         OpsCommands(curUser)
      end
end




function MasterCommands(user)
   
        user:SendData("$UserCommand 1 3 Ban user(s)$<%[mynick]> !ban %[nick]| %[line:reason for ban]|")
        user:SendData("$UserCommand 1 3 User info$<%[mynick]> ?whois %[nick]||")
   user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Pm to all$<%[mynick]> !mm| %[line:Write PM to all users]|")
        user:SendData("$UserCommand 0 3 |") -- Separator
   user:SendData("$UserCommand 1 3 Gag user$<%[mynick]> !gag %[nick]||")
   user:SendData("$UserCommand 1 3 Ungag user$<%[mynick]> !ungag %[nick]||")
        user:SendData("$UserCommand 0 3 |") -- Separator
   user:SendData("$UserCommand 1 3 Show hub time$<%[mynick]> !time||")
        user:SendData("$UserCommand 1 3 Restartaj Scripte$<%[mynick]> !restartscripts||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Hide$<%[mynick]> !hideme||")
        user:SendData("$UserCommand 1 3 Unhide$<%[mynick]> !unhideme||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Joke od the day$<%[mynick]> !boom||")
        user:SendData("$UserCommand 1 3 Coffee$<%[mynick]> !coffee||")
        user:SendData("$UserCommand 1 3 Cannabis$<%[mynick]> !cannabis||")            
       
           
end
function OpsCommands(user)
   user:SendData("$UserCommand 1 3 Ban user(s)$<%[mynick]> !ban %[nick]| %[line:Reason for ban]|")
        user:SendData("$UserCommand 1 3 User info$<%[mynick]> !info %[nick]||")
   user:SendData("$UserCommand 0 3 |") -- Separator
   user:SendData("$UserCommand 1 3 Gag user$<%[mynick]> !gag %[nick]||")
   user:SendData("$UserCommand 1 3 ungag user$<%[mynick]> !ungag %[nick]||")
   user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Show hub time$<%[mynick]> !time||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Joke of the day$<%[mynick]> !boom||")
        user:SendData("$UserCommand 1 3 Coffee$<%[mynick]> !coffee||")
        user:SendData("$UserCommand 1 3 Cannabis$<%[mynick]> !cannabis||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 User (registred?)$<%[mynick]> ?user %[nick]||")
       
end


function UserCommands(user)

   user:SendData("$UserCommand 1 3 Show hub time$<%[mynick]> !time||")
   user:SendData("$UserCommand 1 3 My IP & ver.DC$<%[mynick]> ?me||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Rules$<%[mynick]> ?rules||")
        user:SendData("$UserCommand 1 3 Help$<%[mynick]> !help||")
        user:SendData("$UserCommand 1 3 Operators$<%[mynick]> ?ops||")
        user:SendData("$UserCommand 0 3 |") -- Separator
        user:SendData("$UserCommand 1 3 Registration$<%[mynick]> ?reg||")
        user:SendData("$UserCommand 1 3 Favorite$<%[mynick]> /fav||")
        end



Ok, and it workks ok except few things.
When I choose right click option for Ban user it
opens me inputbox and I write reason but it does not
come on screen and even user does not see it.

The same thing when I use Pm to all (!mm command)


Second question:

When I put the following code (again at the bottom of code):

--Your Bot's Name
Bot = "IntroBot"

-- This Registers the Bot in the userlist.
function Main()
frmHub:RegBot(Bot)
end

-- This triggers when a user enters the hub
function NewUserConnected(user)
user:SendData(Bot,"Welcome "..user.sName.." Your IP is: "..user.sIP.." and has been logged for security purposes only.")
end

--if you want ops and masters to also see the message then
function OpConnected(user)
user:SendData(Bot,"Welcome "..user.sName.." Your IP is: "..user.sIP.." and has been logged for security purposes only.")
end


Then it works but right click option is not working then.


and my last question is how can I make or can somebody paste the code for:

I wanna make something like a guestbook but little bit different (guest book exist is the script)
I wanna that users can Place their text (in my case it is a joke) and that all other users can open it (all together - I mean all texts) and vote for the best one (for them). I want that they can put score from 1 to 5 for every of them (if they want - they can vote only for one) and that some other command can open the text (joke) with the best score (for exampe !jokeoftheday)

And every day starts from the begeining and the old jokes are still in some file that users can see (what was the joke of the day for example 3 or 5 days ago - Like list but day by day).

I hope you undesrtood me, Maybe I am asking to much but I think it is not very hard to do, is it any program for that or somebody can help me somehow.

Thank you very much!!!


Best regards,

Magic
:rolleyes:




TiMeTrAVelleR

#1
line  ban  needs to  be  

user:SendData("$UserCommand 1 3 Ban user(s)$<%[mynick]> !ban %[nick] %[line:Reason for ban]||")

line  mm

user:SendData("$UserCommand 1 3 Pm to all$<%[mynick]> !mm %[line:Write PM to all users]||")  

Greetzz

Magic

QuoteOriginally posted by T?M??r?V?ll?R
line  ban  needs to  be  

user:SendData("$UserCommand 1 3 Ban user(s)$<%[mynick]> !ban %[nick] %[line:Reason for ban]||")

line  mm

user:SendData("$UserCommand 1 3 Pm to all$<%[mynick]> !mm %[line:Write PM to all users]||")  

Greetzz



Thanks alot,
Anyone can help me with a second problem. I want to have welcome message for the OP's and users. Is it
possible also make a welcome message to vip's and reg users?


regards
Magic  ?(

[NL]trucker

try looking for a OPwelcome bot there are quit a few here.

and if you have found one i suggest you try to adjust it to your needs as i see you have a bit of expierence with lua so there should bee no problem doing so.

if you have probs with adjusting just ask inhere and i,m sure there is someone who will help you with it.
Owner of FunnyHub
 
Funyhub.no-ip.info
       Forum Master of


SMF spam blocked by CleanTalk