PtokaX forum

i have this peace of script now i borrowd it from another script and adjusted it a bit..... so this is what i have at this moment.

TimeSpanInMinutes = 1


sHubName = frmHub:GetHubName()
sNetwork = "MARGMAR Dutch Division"
sHubAdress = "johan-hub.no-ip.info"
sSiteAdress = "johan-site.no-ip.info"
sFtpAdress = "ftp://82.172.20.253"





function OnTimer()
   SendAdMessage()
end

function SendAdMessage()

   sHubAdMessage = "Welkom in deze coole hub" .."\r\n"..
         "Groetjes Johan en de OPs" .."\r\n"..
         "?Network?    : "..sNetwork.." ".."\r\n"..
         "?Hub Name   : "..sHubName.."\r\n"..
         "?HubAddress    : "..sHubAdress.." ".."\r\n"..
         "?WebAddress    : "..sSiteAdress.." ".."\r\n"..
         "?FtpAddress    : "..sFtpAdress.." ".."\r\n"..
                "?Thank you for visiting. Hope you enjoy your stay.".."\r\n"

   SendToAll(BOTname, sHubAdMessage)
end


function Main()
   SetTimer(TimeSpanInMinutes*60000)
   StartTimer()
end

the problem is.....
there comes no ad...
im waiting for half an hour now and still nothig what's wrong???
and im still looking for "!show ad" part for the main chat commando or if you speak PM it will be shown in PM only

hope someone nows what to do??

maybe a link to a script wich has eveything i asked nut i don't need a complete script like Robocop or Guardian or whatever "Big" scripts there are.

Greetings,
Johan

It looks like the problem with the timed ad is the line...

SendToAll(BOTname, sHubAdMessage)

Because there is no bot name set anywhere in the script. Adding something like

BOTname = "BOT_NAME_HERE"

to the top of the script will solve this one.  As for the command bit, ill make something up soon.

I havent used this one, but it looks awesome! Just edit some parts as you need:

--AdTimer 1.1
--
--by Mutor
--
--Yet another Hub Advert script
--Sends hub Advert on timer or by command
--
--
--User Settings-------------------------------------------------------------------------------------
bot = "HubAd" -- Name for bot
mins = 120 -- Interval [in minutes] between Ads
Hubaddy = "mutor.no-ip.com" -- Duh?
HubOwner = "Mutor" -- Duh?
Prefix = "!" -- Set Command Prefix
AdComm = "ad" -- Command to send Ad immediately
TZone = " -5 GMT [EST]" -- Time Zone hub resides in
HubMsg1 = "Here, you can put announcements" -- Additional notices/info to be sent with ad
HubMsg2 = "or other information or..." -- Additional notices/info to be sent with ad
HubMsg3 = "Nothing at all !" -- Additional notices/info to be sent with ad
--End User Settings----------------------------------------------------------------------------------

function Main()
SetTimer(mins*60000)
StartTimer()
end

function DataArrival(user, data)
s,e,cmd = strfind(data, "%b<>%s+(%S+)(%S+)")
if (cmd==Prefix..AdComm) and user.bOperator then
OnTimer()  
end
end

function OnTimer()
local tmp
tmp = "\r\n\r\n\t---<>-------------------------------------------------------------------------------------<>---\r\n"  
tmp = tmp.."\t\t[ "..frmHub:GetHubName().." ]\r\n"
tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n"
tmp = tmp.."\tHub Name: \t"..frmHub:GetHubName().."\r\n" -- add/remove tabs ' \t '  ...to center hub name
tmp = tmp.."\tHub Owner: \t"..HubOwner.."\r\n"
tmp = tmp.."\tHub Addy: \t"..Hubaddy.."\r\n"
tmp = tmp.."\tHub Time: \t( "..date("%H:%M").." ) -- "..TZone .."\r\n"
tmp = tmp.."\tHub Desc: \t"..frmHub:GetHubDescr().."\r\n"
tmp = tmp.."\tRedirect To: \t"..frmHub:GetRedirectAddress().."\r\n"
tmp = tmp.."\tReg Server: \t"..frmHub:GetRegServer().."\r\n"  
tmp = tmp.."\tRedirect All: \t"..RedirAll().."\r\n"
tmp = tmp.."\tRedirect Full: \t"..RedirFull().."\r\n"
tmp = tmp.."\tMax Users: \t"..frmHub:GetMaxUsers().."\r\n"
tmp = tmp.."\tMin Share: \t"..frmHub:GetMinShare().."\r\n"
tmp = tmp.."\tHub Share: \t"..frmHub:GetCurrentShareAmount().."\r\n"
tmp = tmp.."\tMasters Online: \t"..cProfile("Master").."\r\n"
tmp = tmp.."\tOps Online: \t"..cProfile("Operator").."\r\n"
tmp = tmp.."\tVips Online: \t"..cProfile("VIP").."\r\n"
tmp = tmp.."\tRegs Online: \t"..cProfile("REG").."\r\n"
tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n"
tmp = tmp.."\tTotal Online: \t"..frmHub:GetUsersCount().."\r\n"
tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n"
tmp = tmp.."\tNotice(s):\r\n"
tmp = tmp.."\t-- "..HubMsg1.."\r\n"
tmp = tmp.."\t-- "..HubMsg2.."\r\n"
tmp = tmp.."\t-- "..HubMsg3.."\r\n"
tmp = tmp.."\t---<>-------------------------------------------------------------------------------------<>---\r\n"
SendToAll(bot,tmp)
end

function RedirAll()
local rdstatusall = frmHub:GetRedirectAll()
local rastatus = ""
if rdstatusall == 1 then
rastatus = "on"
else
rastatus = "off"
end
return rastatus
end

function RedirFull()
local rdstatusfull = frmHub:GetRedirectFull()
local rfstatus = 0
if rdstatusfull == 1 then
rfstatus = "on"
else
rfstatus = "off"
end
return rfstatus
end

--// Profile Counter
function cProfile(what)
local disp = ""
local table,online,offline = GetUsersByProfile(what),0,0
for i, User in table do
if GetItemByName(User) then
online = online + 1
else
offline = offline + 1
end
end
disp = disp.."Online: "..online.."\tOffline: "..offline
return disp
end

thx both,
ill try it now.
lol i copyt this part of my script.. and deleted the part with botname lol..

enema within a few min ill tell you if its as awesome as it looks  :))