Need Some Help Here Guys...
 

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

Need Some Help Here Guys...

Started by NightLitch, 14 December, 2003, 01:48:22

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

NightLitch

How do I make this reboot....

function Main()
	local f = openfile(sIniFile, "w")
	if  f == nil then
		doReadIni()
		doSaveInifile()
		frmHub:RegBot(BotName)
	else
		frmHub:RegBot(BotName)
	end
end

I want it if File is emty to doReadIni() and doSaveIni(), if not emty nothing is done... how do I do that...

The ini contain every data such as BotName etc.

plz help me...

/NL
//NL

pHaTTy

well first off, you have it as write open

you first wanna open as read so, i guess sumit like this bro,

function Main()
	local f = readfrom(IniFile)
	if  f == " " then
		doReadIni()
		doSaveInifile()
		frmHub:RegBot(BotName)
	else
		frmHub:RegBot(BotName)
	end
end

try that bro...
Resistance is futile!

NightLitch

it doesn't work Phatty or maybe something is worng.. posted the functions thats trigger...

sIniFile = "settings.ini"
MSR = {} 
MOD = {}
OPR = {}
VIP = {}
REG1 = {}
REG2 = {}
REG3 = {}
USR = {}

function Main()
	local f = readfrom(sIniFile)
	if  f == " " then
		doReadIni()
		doSaveInifile()
		frmHub:RegBot(BotName)
	else
		frmHub:RegBot(BotName)
	end
end

function doReadIni()
BotName = BotName or "-LinK-"
MstrLvl = MstrLvl or 5
MSR.MinShare	=	MSR.MinShare or 10
MSR.MaxShare	=	MSR.Maxhare or 500
MSR.MinSlots		=	MSR.MinSlots or 3
MSR.MaxSlots		=	MSR.MaxSlots	 or 15
ModLvl			=	ModLvl or 6
MOD.MinShare	=	MOD.MinShare or 10
MOD.MaxShare	=	MOD.Maxhare	or 500
MOD.MinSlots		=	MOD.MinSlots or 3
MOD.MaxSlots		=	MOD.MaxSlots or 15
OprLvl = OprLvl or 1
OPR.MinShare		=	OPR.MinShare or 10
OPR.MaxShare	=	OPR.Maxhare or 500
OPR.MinSlots		=	OPR.MinSlots or 3
OPR.MaxSlots		=	OPR.MaxSlots or 15
VipLvl = VipLvl or 2
VIP.MinShare		=	VIP.MinShare or 10
VIP.MaxShare		=	VIP.Maxhare or 500
VIP.MinSlots		=	VIP.MinSlots or 3
VIP.MaxSlots		=	VIP.MaxSlots or 15
Reg1Lvl = Reg1Lvl or 3
REG1.MinShare	=	REG1.MinShare or 10
REG1.MaxShare	=	REG1.Maxhare or 500
REG1.MinSlots	=	REG1.MinSlots or 3
REG1.MaxSlots	=	REG1.MaxSlots or 15
Reg2Lvl = Reg2Lvl or 4
REG2.MinShare	=	REG2.MinShare or 10
REG2.MaxShare	=	REG2.Maxhare or 500
REG2.MinSlots	=	REG2.MinSlots or 3
REG2.MaxSlots	=	REG2.MaxSlots or 15
Reg3Lvl = Reg3Lvl or 5
REG3.MinShare	=	REG3.MinShare or 10
REG3.MaxShare	=	REG3.Maxhare or 500
REG3.MinSlots	=	REG3.MinSlots or 3
REG3.MaxSlots	=	REG3.MaxSlots or 15
UsrLvl = UsrLvl or -1
USR.MinShare		=	USR.MinShare or 10
USR.MaxShare	=	USR.Maxhare or 500
USR.MinSlots		=	USR.MinSlots or 3
USR.MaxSlots		=	USR.MaxSlots or 15
end
-------------------------------------------------------------------------------------------------------------
function doSaveInifile()
	local sIni = ""
	sIni = sIni .. "-- Settings --"
	sIni = sIni .. "\n"
	sIni = sIni .. "\nBotName = \""..BotName .."\""
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Master --"
	sIni = sIni .. "\nMstrLvl = "..MstrLvl
	sIni = sIni .. "\nMSR = {"
	sIni = sIni .. "\nMinShare = "..MSR.MinShare..","
	sIni = sIni .. "\nMaxShare = "..MSR.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..MSR.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..MSR.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Moderator --"
	sIni = sIni .. "\nModLvl = "..ModLvl
	sIni = sIni .. "\nMOD = {"
	sIni = sIni .. "\nMinShare = "..MOD.MinShare..","
	sIni = sIni .. "\nMaxShare = "..MOD.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..MOD.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..MOD.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Operator --"
	sIni = sIni .. "\nOprLvl = "..OprLvl
	sIni = sIni .. "\nOPR = {"
	sIni = sIni .. "\nMinShare = "..OPR.MinShare..","
	sIni = sIni .. "\nMaxShare = "..OPR.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..OPR.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..OPR.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Vip User --"
	sIni = sIni .. "\nVipLvl = "..VipLvl
	sIni = sIni .. "\nVIP = {"
	sIni = sIni .. "\nMinShare = "..VIP.MinShare..","
	sIni = sIni .. "\nMaxShare = "..VIP.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..VIP.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..VIP.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Reg User 1 --"
	sIni = sIni .. "\nReg1Lvl = "..Reg1Lvl
	sIni = sIni .. "\nREG1 = {"
	sIni = sIni .. "\nMinShare = "..REG1.MinShare..","
	sIni = sIni .. "\nMaxShare = "..REG1.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..REG1.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..REG1.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Reg User 1 --"
	sIni = sIni .. "\nReg1Lvl = "..Reg1Lvl
	sIni = sIni .. "\nREG1 = {"
	sIni = sIni .. "\nMinShare = "..REG1.MinShare..","
	sIni = sIni .. "\nMaxShare = "..REG1.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..REG1.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..REG1.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Reg User 3 --"
	sIni = sIni .. "\nReg3Lvl = "..Reg3Lvl
	sIni = sIni .. "\nREG3 = {"
	sIni = sIni .. "\nMinShare = "..REG3.MinShare..","
	sIni = sIni .. "\nMaxShare = "..REG3.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..REG3.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..REG3.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	sIni = sIni .. "\n -- Regular User --"
	sIni = sIni .. "\nUsrLvl = "..UsrLvl
	sIni = sIni .. "\nUSR = {"
	sIni = sIni .. "\nMinShare = "..USR.MinShare..","
	sIni = sIni .. "\nMaxShare = "..USR.MaxShare..","
	sIni = sIni .. "\nMinSlots = "..USR.MinSlots..","
	sIni = sIni .. "\nMaxSlots = "..USR.MaxSlots..","
	sIni = sIni .. "\n}"
	sIni = sIni .. "\n"
	writeto(sIniFile) 
	write(sIni)
	writeto()
end


help me bro  :-)

/NL
//NL

pHaTTy

Hmm the way this is written its pretty difficult for my style but i try help :))

try, hmmmm

function Main()
	dofile(sIniFile)
	if not strfind == "USR.MaxSlots" then
		doReadIni()
		doSaveInifile()
		frmHub:RegBot(BotName)
	else
		frmHub:RegBot(BotName)
	end
end
Resistance is futile!

NightLitch

THX alot Phatty m8...

It is working great now...

/NL
//NL

NightLitch

but I changed it to this becouse yours didn't work but the
way you did it, why didn't I think of that... :-)

function Main()
	dofile(sIniFile)
	if not strfind == MSR.Lvl then
		doReadIni()
		doSaveInifile()
		frmHub:RegBot(BotName)
	else
		LF(sIniFile)
		frmHub:RegBot(BotName)
	end
end

/NL
//NL

NightLitch

#6
by the way, if the DoFile is trigger, do I need LF(ReadFile) then ???
//NL

pHaTTy

i dont quite understadn what you mean.......can you explain...?
Resistance is futile!

NightLitch

Does the - dofile  - have the same function as if I
use a own function ex:




function LoadFile(file)
    assert(readfrom(file),"No File Found")
    dostring(read("*all"))
    readfrom()
end


is this the same ???
//NL

pHaTTy

hmm i guess so, but that wud be slower yep...
Resistance is futile!

NightLitch

the function or dofile ???

I use dofile now saw that it worked so using that istead of
that function...

/NL
//NL

pHaTTy

function will be slower yep
Resistance is futile!

SMF spam blocked by CleanTalk