Author Topic: Help please, conversion scripts  (Read 1500 times)

0 Members and 1 Guest are viewing this topic.

Offline Braun

  • Newbie
  • *
  • Posts: 3
  • Karma: +0/-0
Help please, conversion scripts
« on: 21 March, 2008, 09:57:01 »
Help please, conversion scripts

Scripts message

Code: [Select]
-- 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

Code: [Select]
-- 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

Code: [Select]
--PM Filter 1.0 LUA 5
--
--by American Idiot 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 :)
« Last Edit: 22 March, 2008, 11:48:40 by Braun »

PtokaX forum

Help please, conversion scripts
« on: 21 March, 2008, 09:57:01 »

Offline Braun

  • Newbie
  • *
  • Posts: 3
  • Karma: +0/-0
Re: Help please, conversion scripts
« Reply #1 on: 26 March, 2008, 16:59:31 »
Help please, I need this sripts

Than you

PtokaX forum

Re: Help please, conversion scripts
« Reply #1 on: 26 March, 2008, 16:59:31 »