Unreal Software - Thema: New dofile system

New dofile system

Offline

31.01.12 16:18:03

this is a new dofile system which ignore the file when it's not exists or errors

System:
this new system will check file directory from dofile(bot lua too). it will check:

hooks(and how much hooks)

lines

file(when file is existsold system)

filesize(in byte)

few correct files(if there is a files not found, scan only on sys/lua folders)

Known Bugs:
No bugs known

Logs

How to install:
Put the code(below) on server.lua
Put the code before any "dofile"

Code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98

Rian2ID_dofile=dofile
local tmpFiLe=os.tmpname():sub(2,-1)
local fileList={}
os.execute("dir sys\\lua\\ > "..tmpFiLe..".R2ID")
for v in io.lines(tmpFiLe..".R2ID") do
	if v:find("%d+/%d+/%d+") and v:find("<DIR>")==nil then
		table.insert(fileList,v:sub(37))
	end
end
os.execute("del \""..tmpFiLe..".R2ID\"")

function dofile(path)
	function string.table(str)
		local tbl={}
		for w in string.gmatch(str,".") do
			table.insert(tbl,w)
		end
		return tbl
	end
	function string.match(string1,string2)
		if #string1>#string2 then
			string2=string2..string.rep(" ",#string1-#string2)
		elseif #string2>#string1 then
			string1=string1..string.rep(" ",#string2-#string1)
		end
		local str1=string.table(string1)
		local str2=string.table(string2)
		local correct=0
		for n,v in pairs(str1) do
			if v==str2[n] then
				correct=correct+1
			end
		end
		return correct*100/#str1
	end
	function io.exists(filename)
		local FiLe=io.open(filename,"r")
		if FiLe~=nil then
			FiLe:close()
			return true
		end
		return false
	end
	function io.size(filename)
		local File=io.open(filename,"r")
		if File~=nil then
			local size=File:seek("end")
			File:close()
			return size
		end
		return nil
	end
	print("©000255000File: "..path)
	function openDoFile(path)
		local cLine=0
		local hooks=0
		local size=0
		if io.exists(path)==true then
			print("©000255000Size: "..io.size(path).." Byte")
			print("©000255000Hooks:")
			for line in io.lines(path) do
				cLine=cLine+1
				if line:sub(1,7)=="addhook" then
					local tablehook={}
					local line2=string.gsub(line,"%(\"","")
					line2=string.gsub(line2,"\"%)","")
					line2=string.gsub(line2,"\",\""," ")
        				line2=string.gsub(line2,"addhook","")
					for w in string.gmatch(line2,"[^%s]+") do
						table.insert(tablehook,w)
					end
					print("©000255000Hook "..tablehook[1].." on function "..tablehook[2])
					hooks=hooks+1
				end
			end
			print("©000255000Line: "..cLine.." line(s)")
			print("©000255000"..hooks.." hook(s)")
			pcall(Rian2ID_dofile,path)
			return true
		else
			print("©255000000File "..path.." is not found. Checking for corrections...")
			return false
		end
	end
	if openDoFile(path)==false then
		local isFound=false
		for n,v in pairs(fileList) do
			if string.match(path:sub(9),v)>=75 and isFound==false then
				print("©000255000File "..path.." is actually sys/lua/"..v)
				openDoFile("sys/lua/"..v)
				isFound=true
			end
		end
		if isFound==false then
			print("©255000000File "..path.." is not found")
		end
	end
end

N.B.: It was tested!

How it works?

hooks(and how much hooks):
use a string.gmatch to loop and table.insert to put the string on table

lines
use io.lines and use fileline+1

file(when file is exists(old system))
i use my custom function(io.exists)

filesize(in byte)
i use my custom function(io.size)

few correct files
i use my custom function(string.match and string.table)

Note:

When the dofile code is updated, i will make this thread is unread thread!

Not work on Linux(it has os.execute with windows commands)

5× editiert, zuletzt 28.01.13 13:49:44

Re: New dofile system

VADemon
User Off

Offline

31.01.12 16:22:43

Good thought. But in fact when one or more files wouldn't load such scripts like SuperHero won't work at all.

This is useful only for small, one-file scripts and lazy (and stupid) admins

1× editiert, zuletzt 28.01.13 15:57:38

Re: New dofile system

TimeQuesT
User Off

Offline

31.01.12 16:24:06

You should return a boolean.
False if the file is unable to load and true if it is.

So there are more possibilitys.
like:

1
2
3
4
5

if (dofile("Test")) then
--code here
else
exit(-1);
end

Re: New dofile system

MikuAuahDark
User Off

Offline

31.01.12 16:26:35

TimeQuesT: no, it's bad. it's better with nil system(if nil then error message)

Re: New dofile system

Apache uwu
User Off

Offline

31.01.12 18:24:47

You should use pcall, so if it fails in either syntax or in general it will return an error.

Kinda like try & catch in most languages.

Usually you would require a file that you know exists. Unless you have a variable name.

Re: New dofile system

MikuAuahDark
User Off

Offline

01.02.12 01:46:31

i don't know to do that, so i just use io.open and close

Re: New dofile system

MostAfa
User Off

Offline

01.02.12 03:26:00

Just a question. Is your Code does the same thing as this code?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

--DOFILES LIST--
local dofiles={
	"/home/TLex/Locmod/luafilename.lua",
	"sys/lua/Luas/luafilename.lua",
	"/home/TLex/luafilename.lua",
	}

--LOAD DOFILES--
function load_dofiles()
	for i=1,#dofiles do
		local f=loadfile(dofiles[i])
		if not f then
			print("***************************************")
			print("Dofiles.lua Error: Could not load script: "..dofiles[i])
			print("***************************************")
		else
			f()
		end
	end
end

--BEGIN LOADING--
load_dofiles()

Just checking, anyone is welcomed to use that Lua I pasted. It works. Just edit the dofiles directories.

Re: New dofile system

MikuAuahDark
User Off

Offline

01.02.12 10:16:13

MostAfa: no, my script is simple, and to use it just use dofile normally, not like your script!

2× editiert, zuletzt 26.02.12 10:43:30

Re: New dofile system

MostAfa
User Off

Offline

11.02.12 04:06:59

MikuAuahDark hat geschrieben

MostAfa: no, my script is simple, and to use it just use dofile normally, not like your script!
EDIT: how to make LUA read "dofile(bla)"? i need it for improving dofile system(when error detected in some script, it will continue loading another script)

That's exactly what my Lua does. Just dofile it here..

1
2
3
4
5

local dofiles={
     "/home/TLex/Locmod/luafilename.lua",
     "sys/lua/Luas/luafilename.lua",
     "/home/TLex/luafilename.lua",
     }

Re: New dofile system

MikuAuahDark
User Off

Offline

11.02.12 04:24:50

oh that's not good! because you need do a dofile in a diffrent way!

Re: New dofile system

Apache uwu
User Off

Offline

11.02.12 04:29:27

It is true that dofile is faster, however loadfile is like a try catch for lua.

Though I agree, if one script fails you should stop any others from processing, it would be catastrophic if people could bypass usgn detection but still have the ability to use commands.