Print Page - VIP welcome bot

Title: VIP welcome bot
Post by: Hades on 17 November, 2003, 21:20:34

Needed for PtokaX 0.3.2.7 - PAUERED BAI -
Please help

Title:
Post by: kepp on 17 November, 2003, 21:51:46

PtokaX 0.3.2.7 - PAUERED BAI -

^^

And that is?

Title: hmmm
Post by: Hades on 17 November, 2003, 22:04:17

homemade hack of td4???
Anyway i really need this script welcome message for vip fot td4!!!

Title:
Post by: kepp on 17 November, 2003, 22:10:08

Like sending a welcome mesage to a VIP?

Title: hack of ?
Post by: Masterload on 17 November, 2003, 22:14:45

dont like the site of "hack"in the same line of ptokax
if ur need a script ask for it
there more then you can handele here released !
no hacks needed m8

respect to the developers.
(solly if i talk to much) ;(

text like this makes me cry..........hack duh !

Title:
Post by: kepp on 17 November, 2003, 22:28:33

Code Select

Bot = "Bot_Name_Here"
WelcomeVIP = 1


function NewUserConnected(user)
if WelcomeVIP == 1 then
if user.iProfile == 2 then
SendToAll(Bot, "Welcome "..user.sName..")
end
end
end

function UserDisconnected(user)
if WelcomeVIP == 1 then
if user.iProfile == 2 then
SendToAll(Bot, "Bye bye "..user.sName..")
end
end
end

if your computer or your hacked client freezes or chrash then don't blame me...
Afterall, you're the one with a stupid client :S

Title:
Post by: Troubadour on 17 November, 2003, 23:12:29

botName ="Vip_announcer"
Version = "Vip_announcer 0.1 by Troubadour.?"

botName = frmHub:GetHubBotName()
BotNameInfo = "$MyINFO $ALL "..botName.." <++V:3.5 HHSOFT,C:Troubadour> $ $Star Speed"..strchar( 1 ).."$troubadour@nederfun.no-ip.com$"
ScriptRestart = {}

function Main()
frmHub:RegBot(botName)
end

---------------- Vip Connected -----------------
function NewUserConnected(curUser)
   if curUser.iProfile == 2 then
   SendToAll(botName, RandomVIPMsgConnect(curUser))
elseif curUser.iProfile == nil then
SendToNick(botName, "Welcome to the best hub there is!" )
end

--------- Vip Disconnected ---------

function UserDisconnected(curUser)

   if curUser.iProfile == 2 then
   SendToAll(botName, RandomVIPMsgExit(curUser))
   end
end

--------- Random VIPS Msg On Entry ---------

function RandomVIPMsgConnect(curUser)
   local randomSeed = random(4)
   if randomSeed == 1 then
      return curUser.sName.." crawls through the door."
   elseif randomSeed == 2 then
      return "Walking down the stairs "..curUser.sName.." enters the hub!"
   elseif randomSeed == 3 then
      return curUser.sName.." is about to get the party started ..."
   elseif randomSeed == 4 then
      return curUser.sName.." is happy to be a member of this cool hub!"
   end
end

--------------------------------------------------------------------------------------
ScriptRestart = " (---> "..Version.." Started"..date(" the %d/%m-%Y at %X ").." <---)"
SendToAll(ScriptRestart)
SendToAll(BotNameInfo)

--------- Random VIPS Msg On Exit ---------

function RandomVIPMsgExit(curUser)
   local randomSeed = random(3)
   if randomSeed == 1 then
      return curUser.sName..", has left the hub and took all his available sluts........eh slots with him!"
   elseif randomSeed == 2 then
      return "Walking down the red carpet, "..curUser.sName.." struts out the building."
   elseif randomSeed == 3 then
      return curUser.sName.." has left the hub, and he's gonna be stinking drunk when he comes back."
   end
end
end
--------------------------------------------------------------------------

Greetz Troubadour

Title: thanx
Post by: Hades on 18 November, 2003, 07:09:25

works 4 me:))

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: Hades on 17 November, 2003, 21:20:34