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:
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
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 ?(
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.