Help please, conversion scripts
Scripts message
-- by dunno who
-- remade by bastya_elvtars
-- lua5 version by bastya_elvtars
botname = "?Mensaje?"
minutes = 50
file = "MsgAll.txt"
function Main()
SetTimer(minutes*60000)
StartTimer()
end
function OnTimer()
MessageToAll()
end
function MessageToAll()
local msg=" texto "
local f=io.open(file)
if f then
for line in f:lines() do
msg=msg.."\r\n"..line
end
f:close()
end
SendToAll(botname,msg)
end
Script ads
-- Converted in LUA 5 by 6Marilyn6Manson6 at 10/09/2005
bot="?Mensaje?"
timer = 115 -- In Mins
messarray={
[[
------------------------------------------------
Texto
------------------------------------------------
]]
}
function Main()
SetTimer (timer*60*1000)
StartTimer()
end
function OnTimer()
SendToAll(bot,messarray[math.random(1,table.getn(messarray))])
end
Script Pm filter
--PM Filter 1.0 LUA 5
--
--by Mutor 7/6/05
--
--
-- Filter PM's by profiles
--
--User Settings-------------------------------------------------------------------------------------
Bot = frmHub:GetHubBotName()
-- Adjust to your profiles
--profile_idx, PM send is filtered [0=PM Filter is bypassed / 1=PM's are filtered]
CanSendPm = {
[-1] = 1, --Unregistered User
[0] = 0, --Master
[1] = 0, --Operator
[2] = 0, --Vip
[3] = 1, --Registered User
[4] = 0, --Moderator
[5] = 0, --NetFounder
}
-- Adjust to your profiles
--profile_idx, PM Permission level
--Sender may only PM profiles equal to or greater than their own profile setting.
CanGetPm = {
[-1] = 0, --Unregistered User
[0] = 6, --Master
[1] = 3, --Operator
[2] = 2, --Vip
[3] = 0, --Registered User
[4] = 4, --Moderator
[5] = 5, --NetFounder
}
--End User Settings----------------------------------------------------------------------------------
ToArrival = function(user,data)
if CanSendPm[user.iProfile] == 1 then
local s,e,who = string.find(data,"$To:%s+(%S+)%s+From:")
local nick = GetItemByName(who)
if nick then
if CanGetPm[user.iProfile] >= CanGetPm[nick.iProfile] then
local FilterMsg = "\r\n\r\n\t*** Texto "..nick.sName.." Texto.***\r\n\t"..
(GetProfileName(user.iProfile) or "Unreg").."'s Texto"
return SendPmToNick(user.sName, nick.sName, Bot.." Hola "..user.sName..FilterMsg), 1
end
else
local OfflineMsg = " Texto "..who.." Texto."
return SendPmToNick(user.sName, Bot, OfflineMsg), 1
end
end
end
Thank you :)
Help please, I need this sripts
Than you