PtokaX forum

-- IPLogBot by Cane
-- Small edit by Loop

botName="iplog"
onoff = 1

txt = ("iplog.txt")

function Main()
--frmHub:RegBot(botName)
end

function NewUserConnected(curUser)
if onoff then
appendto(txt)
if curUser.iProfile == -1 then
profile = "User"
else
profile = GetProfileName(curUser.iProfile)
end
write("At "..date("%d").."/"..date("%m").."-"..date("%Y").." "..date("%T").." "..profile.." "..curUser.sName.." enters the Hub with IP: "..curUser.sIP..".\r\n")
writeto()
end
end

function OpConnected(curUser)
if onoff then
appendto(txt)
write("At "..date("%d").."/"..date("%m").."-"..date("%Y").." "..date("%T").." "..GetProfileName(curUser.iProfile).." "..curUser.sName.." enters the Hub with IP: "..curUser.sIP..".\r\n")
writeto()
end
end

function DataArrival(user,data)

if strsub(data, 1, 1) ~= "$" and strfind(data, "%> %#") then
cmd = strsub(data, strfind(data, "%> %#")+2, -2)

if user.bOperator then

if (cmd=="#showiplog") then
doiplog(user,data)
return 1

elseif (cmd=="#deliplog") then
dodeliplog(user)
return 1

elseif (cmd=="#logon") then
onoff = 1
user:SendData(botName,"Iplog is set to on")
return 1

elseif (cmd=="#logoff") then
onoff = nil
user:SendData(botName,"Iplog is set to off")
return 1



--helpfile in pm
elseif (cmd=="#iphelp") then
SendPmToNick(user.sName,botName," Ip log help!")
SendPmToNick(user.sName,botName,"")
SendPmToNick(user.sName,botName,"#showiplog - shows the ip log in pm")
SendPmToNick(user.sName,botName,"#deliplog - deletes the ip log")
SendPmToNick(user.sName,botName,"#logon - command  to set the log on")
SendPmToNick(user.sName,botName,"#logoff - command to set the log off")
SendPmToNick(user.sName,botName,"#iphelp - this help-file in pm")
SendPmToNick(user.sName,botName,"")
SendPmToNick(user.sName,botName," end!")
return 1

end
end
end
end


function doiplog(user,data)
readfrom(txt)
local message = ""
while 1 do
local line = read()
if line == nil then break
else
message = message..line.."\r\n"
end
end
user:SendPM(botName,message)
end




function dodeliplog(user)
writeto(txt)
write("")
writeto()
user:SendData(botName,"Log is del!.")
end

and what might the problem be????

plop

please convert to LUA 5

Prieksh kam tev tas, ROBOCOP 10.01a tak viss ir ?

thank