Hi ya great scripters
i am looking for a scrip tha shows a random welcome message on entering the hub.
i already ripped a part out of an very old script,but i could not find the part what triggers it.
ill show you the full part i got, and its placed in a folder called messonconnect.
My goal is a stand alone script to replace the part in robocop 7.0a
Plz help me out and let me know if there is one who can make it for me and mayby all other script fanaticks
thanks in advance fro Johny
--------- Random Op Msg On Entry ---------
function RandomEntryMsg(user)
local randomSeed = random(7)
if randomSeed == 1 then
return "Tremble with fear ... Operator "..user.sName.." has entered the hub!"
elseif randomSeed == 2 then
return "Sorry Jack ... Operator "..user.sName.." is back!"
elseif randomSeed == 3 then
return "Operator "..user.sName.." appears from a cloud of mist ..."
elseif randomSeed == 4 then
return "Operator "..user.sName.." rocks up on a flying tortoise ..."
elseif randomSeed == 5 then
return "Twirling his pea shooters ... Operator "..user.sName.." rocks up and a says 'Howdy pardners.'"
elseif randomSeed == 6 then
return "All your base are belong to Operator "..user.sName.."!"
elseif randomSeed == 7 then
return "And you will know my Operator name is "..user.sName.." when I lay my vengeance upon thee."
end
end
--------- Random VIPS Msg On Entry ---------
function RandomVIPMsgConnect(user)
local randomSeed = random(7)
if randomSeed == 1 then
return "VIP "..user.sName.." crawls through the door."
elseif randomSeed == 2 then
return "VIP "..user.sName.." enters without camouflage."
elseif randomSeed == 3 then
return "Isn't it lovely how VIP "..user.sName.." decides to grace us with his presence?"
elseif randomSeed == 4 then
return "VIP "..user.sName.." is in the hissouse ..."
elseif randomSeed == 5 then
return "VIP "..user.sName.." looks around, and concludes he IS online ..."
elseif randomSeed == 6 then
return "VIP "..user.sName.." just came in, heading towards the bar and orders a beer ..."
elseif randomSeed == 7 then
return "with the powers that are given to him VIP "..user.sName.." peeks around the conner and says hey..."
end
end
--------- Random Op Msg On Exit ---------
function RandomExitMsg(user)
local randomSeed = random(7)
if randomSeed == 1 then
return "Operator "..user.sName.." snaps his fingers and disappears in a puff of smoke ..."
elseif randomSeed == 2 then
return "Operator "..user.sName.." simply disappears like a fart in the wind ..."
elseif randomSeed == 3 then
return "Operator "..user.sName.." hops on his Harley and rides off into the sunset ..."
elseif randomSeed == 4 then
return "Raising his middle finger, Operator "..user.sName.." says 'Bite me ... I'm going!'"
elseif randomSeed == 5 then
return "'Yeah baby yeah!', says Operator "..user.sName.." and then proceeds to drive off into the sunset in his Jaguar sports car ..."
elseif randomSeed == 6 then
return "Operator "..user.sName.." stumbles off shouting, 'Arse! Feck! Drink! .. Girls!'"
elseif randomSeed == 7 then
return "Operator "..user.sName.." says, burp 'Liston verry carefully ... I shall say zis only wonsse!'"
end
end
--------- Random VIPS Msg On Exit ---------
function RandomVIPMsgExit(user)
local randomSeed = random(5)
if randomSeed == 1 then
return "Hey VIP "..user.sName..", how dare you leave without the Masters permission!"
elseif randomSeed == 2 then
return "Walking down the red carpet, VIP "..user.sName.." struts out the building."
elseif randomSeed == 3 then
return "VIP "..user.sName.." has just spontaneously compbusted!"
elseif randomSeed == 4 then
return "VIP "..user.sName.." pulled his Jacked on and left the house!"
elseif randomSeed == 5 then
return "looking like a dipshit VIP "..user.sName.." looks around and finds out he is gone!"
end
end
Hi,
Try this tha i made in a portuguese forum..
--Made by nErBoS
sBot = "Welcome-Bot"
--## Want to use Welcome Msg to whic levels ?? ##--
Reg = 1
Vip = 1
Operator = 1
Master = 1
--1 actives, 0 deactives
--## Messages ##--
--## Messages for REG ##--
--## In Message
regwlcin = {
"[USER] enters runnigggg..... and falls.",
"[USER] enters in search for slots."
}
--## Out Message
regwlcout = {
"[USER] leaves the Hub with out trail.",
"[USER] leaves with a bag full of downloads."
}
--## Messages for VIP ##--
--## In Message
vipwlcin = {
"The Vip [USER] is wainting for cham...pomi.",
"[USER] arrives in his Farrari Enzo."
}
--## Out Message
vipwlcout = {
"The Vip [USER] goes away fully drunk.",
"[USER] levaes in his Ferrair Enzo."
}
--## Messages for OP ##--
--## In Message
opwlcin = {
"The OP [USER] has enter to help.",
"[USER] enters and ask for a coffee."
}
--## Out Message
opwlcout = {
"The OP [USER] leaves after so much help gaved.",
"[USER] leaves with a a lot coffee in his blood."
}
--## Messages for MASTER ##--
--## In Message
masterwlcin = {
"The Master [USER] has enter to rule.",
"[USER] enters in a red carpet."
}
--## Out Message
masterwlcout = {
"The Master [USER] leveas after some much kicks.",
"[USER] leaves rolled in the red carpet."
}
function Main()
frmHub:RegBot(sBot)
end
function NewUserConnected(user, data)
if (user.iProfile == 3 and Reg == 1) then
local regmsg = regwlcin[random(1, getn(regwlcin))]
regmsg, x = gsub(regmsg, "%b[]", user.sName)
SendToAll(sBot, regmsg)
elseif (user.iProfile == 2 and Vip == 1) then
local vipmsg = vipwlcin[random(1, getn(vipwlcin))]
vipmsg, x = gsub(vipmsg, "%b[]", user.sName)
SendToAll(sBot, vipmsg)
elseif (user.iProfile == 0 and Master == 1) then
local mastermsg = masterwlcin[random(1, getn(masterwlcin))]
mastermsg, x = gsub(mastermsg, "%b[]", user.sName)
SendToAll(sBot, mastermsg)
elseif (user.bOperator and Operator == 1) then
local opmsg = opwlcin[random(1, getn(opwlcin))]
opmsg, x = gsub(opmsg, "%b[]", user.sName)
SendToAll(sBot, opmsg)
end
end
OpConnected = NewUserConnected
function UserDisconnected(user, data)
if (user.iProfile == 3 and Reg == 1) then
local regmsg = regwlcout[random(1, getn(regwlcout))]
regmsg, x = gsub(regmsg, "%b[]", user.sName)
SendToAll(sBot, regmsg)
elseif (user.iProfile == 2 and Vip == 1) then
local vipmsg = vipwlcout[random(1, getn(vipwlcout))]
vipmsg, x = gsub(vipmsg, "%b[]", user.sName)
SendToAll(sBot, vipmsg)
elseif (user.iProfile == 0 and Master == 1) then
local mastermsg = masterwlcout[random(1, getn(masterwlcout))]
mastermsg, x = gsub(mastermsg, "%b[]", user.sName)
SendToAll(sBot, mastermsg)
elseif (user.bOperator and Operator == 1) then
local opmsg = opwlcout[random(1, getn(opwlcout))]
opmsg, x = gsub(opmsg, "%b[]", user.sName)
SendToAll(sBot, opmsg)
end
end
OpDisconnected = UserDisconnected
Best regards, nErBoS
try this one:-
Random intro/outro by chaggydawg (http://217.120.180.188/Forum4/redirect.php?dlid=86&PHPSESSID=fb846b41b434e8747b6ee54b456ca402)
Hi ya guy's,
Thanks a lot for your help with this lil prob'
I got the script from hawk running on my hub now, and added some of my welcom.byebye texts.
All my Ops and Vips do like these messages now,
so its a great script.
Lots and Lots of thanks from me ([fow]CCCL-NL)
QuoteOriginally posted by ??????Hawk??????
try this one:-
Random intro/outro by chaggydawg (http://217.120.180.188/Forum4/redirect.php?dlid=86&PHPSESSID=fb846b41b434e8747b6ee54b456ca402)
I placed this random intro script and it's great,
but I am having problem because I have the following code:
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 Pokazi vrijeme$<%[mynick]> !time||")
user:SendData("$UserCommand 1 3 Restartaj Scripte$<%[mynick]> !restartscripts||")
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 Sakrij me$<%[mynick]> !hideme||")
user:SendData("$UserCommand 1 3 Pokazi me$<%[mynick]> !unhideme||")
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 Vic dana$<%[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 Pm to all$<%[mynick]> !mm %[line:Write PM to all users]||")
user:SendData("$UserCommand 1 3 Informacije o useru$<%[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 Pokazi vrijeme$<%[mynick]> !time||")
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 Vic dana$<%[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 (regisriran?)$<%[mynick]> ?user %[nick]||")
end
function UserCommands(user)
user:SendData("$UserCommand 1 3 Pokazi vrijeme na hubu$<%[mynick]> !time||")
user:SendData("$UserCommand 1 3 Moj IP i ver.DC-a$<%[mynick]> ?me||")
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 Pravila$<%[mynick]> ?rules||")
user:SendData("$UserCommand 1 3 Pomoc$<%[mynick]> !help||")
user:SendData("$UserCommand 1 3 Operateri$<%[mynick]> ?ops||")
user:SendData("$UserCommand 0 3 |") -- Separator
user:SendData("$UserCommand 1 3 Registracija$<%[mynick]> !regme %[line:Unesi password]||")
user:SendData("$UserCommand 1 3 Stavi hub u favorite$<%[mynick]> /fav||")
end
and it is for right click options which helps me alot,
when I put the welcome random (or any other welcome stuff) right click does not work. Can somebody help me to resolve this problem. I really can not live without my
right click options, but I need a welcome too.
This random one is faboulas, I love it.
Thanks for help guys...
Magic