VIP welcome bot

[Hades]

Needed for PtokaX 0.3.2.7 - PAUERED BAI -
Please help

[kepp]

PtokaX 0.3.2.7 - PAUERED BAI -

^^

And that is?

[Hades]

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

[kepp]

Like sending a welcome mesage to a VIP?

[Masterload]

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 !

[kepp]

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

[Troubadour]

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

[Hades]

works 4 me:))