lua 4 to lua 5
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

lua 4 to lua 5

Started by slick, 19 September, 2005, 00:57:19

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

slick

could somebody convert this script to lua 5 for me please & t/y


--Readme 1.0
--by Mutor
--
Command ="+commands"
TextFile ="commands.txt"
Send2All ="no" --Show all users? "yes"/"no"
--
function DataArrival(user, data)
   local s,e,cmd = strfind(data,"^%b<>%s(%S+)|")
      if cmd == Command then
         ReadText(user)
         return 1
      end
end

function ReadText(user)
readfrom(TextFile)
   while 1 do
      local line = read()
         if line == nil then break end
            if Send2All =="yes" then
               SendToAll(line)
            else
               user:SendData(line)
            end
         end
   readfrom()
end






bastya_elvtars

--Readme 1.0
--by Mutor
-- 
Command ="+commands"
TextFile ="commands.txt"
Send2All ="no" --Show all users? "yes"/"no"
-- 
function ChatArrival(user, data)
  local s,e,cmd = string.find(data,"^%b<>%s(%S+)|")
  if cmd == Command then
    ReadText(user)
    return 1
  end
end

function ReadText(user)
  local f=io.open(TextFile)
  if f then
    local contents = string.gsub(f:read("*a"),string.char(10), "\r\n")
    if Send2All =="yes" then
      SendToAll(contents)
    else
      user:SendData(contents)
    end
    f:close()
  end
end

You'd better use the builtin PtokaX textfile support.
Everything could have been anything else and it would have just as much meaning.

slick


slick

would you be interested in converting a few more if i need them ?

bastya_elvtars

QuoteOriginally posted by slick
would you be interested in converting a few more if i need them ?

Post them with CODE tag, there are many volunteers here, I go to sleep now.
Everything could have been anything else and it would have just as much meaning.

SMF spam blocked by CleanTalk