Release-Bot

[dima_b]

Tried to cound the lines, but no success.


thanks anyway mate!

[nErBoS]

Hi,

Open the script file with notepad, and then press CTRL+G and it will open a text box, put the line you want and you will get there.

Best regards, nErBoS

[aL1en]

Syntax ...\PTOKAX\scripts\RELEASER.lua:211: or `...' expected near `in'


LINE 211:    function Compare(search, in)

podes consertar?

[Pingelmonster]

Can anyone help me with the permissions of the different profiles? In my version (NL converted) only the user haven't got the rights to add files.

And VIP & higher levels have rights to delete releases

This are my level-settings.

The normal "user" can:
- Show release-list

The REG & Higher can:
- Show release-list
- Add releases

The Operator & higher can:
- Show release-list
- Add releases
- Delete releases

My moderator-account must have exact the same rights as an REG-account

Can anyone help me??

[jiten]

Originally posted by Pingelmonster
Can anyone help me with the permissions of the different profiles? In my version (NL converted) only the user haven't got the rights to add files.

And VIP & higher levels have rights to delete releases

This are my level-settings.

The normal "user" can:
- Show release-list

The REG & Higher can:
- Show release-list
- Add releases

The Operator & higher can:
- Show release-list
- Add releases
- Delete releases

My moderator-account must have exact the same rights as an REG-account

Can anyone help me??

Can you post your script so that we can have a look?

Best regards,

jiten

[Pingelmonster]

-------------------------------------------
-- Made by Pingelmonster         ----
-- Date:16-05-05                       ----
-------------------------------------------

Bot = "?SimpleRelease?" --Botnaam

reltxt = "releases.txt" -- Wordt aangemaakt in de scripts-map

function Main()

	frmHub:RegBot(Bot)

end



function DataArrival(user, data)

	if (strsub(data,1,1)=="<") or (strsub(data,1,5+strlen(Bot))=="$To: "..Bot) then

	data=strsub(data,1,strlen(data)-1)

	s,e,cmd = strfind(data,"%b<>%s+(%S+)")

		if (cmd=="!add") then         -- Release toevoegen

			if (strlen(user.sName) > 20) then

				user:SendData(Bot, "Je nickname is te lang, je kunt geen release toevoegen")

			else

				AddRelease(user, data)

			end

			return 1

		elseif (cmd=="!show") then    -- Laat alle releases zien

			ShowRelease(user, data, "all")

			return 1

		elseif (cmd=="!show30") then  -- Laat de laatste 30 releases zien

			ShowRelease(user, data, "last")

			return 1

		elseif (cmd=="!del") then     -- Release weghalen (deleten)

			if (user.bOperator) then

				DelRelease(user, data)

			else

				user.SendData(Bot, "Je bent niet gemachtigd om dit commando te gebruiken")

			end

			return 1

		end

	end

end



function AddRelease(user, data)

local s,e,rel,desc = strfind(data,"%b<>%s+%S+%s+(%S+)%s+(.*)")

local tmp = ""

	if (rel == nil or rel == "" or desc == nil or desc == "") then

		user:SendData(Bot, "FOUT!, !add  , moet een release-naam en beschrijving hebben!")

	elseif (strlen(rel) > 20) then

		user:SendData(Bot, "De release-naam mag maximaal uit 20 karakters bestaan")

	else

		if (readfrom(reltxt) == nil) then

			writeto(reltxt)

			write("\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|")

			writeto()

		else

			readfrom(reltxt)

			while 1 do

			local line = read()

				if (line == "") then

					tmp = tmp.."\r\n"..rel.."$"..desc.."$"..user.sName.."$"..GetTime().."|"

				elseif(line == nil) then

					break

				else

					tmp = tmp.."\r\n"..line

				end

			end

			readfrom()

			writeto(reltxt)

			write(tmp)

			writeto()

		end

		SendToAll(Bot, "Nieuwe release toegevoegd door "..user.sName.."... Type !show om de release-lijst te bekijken!") 

		user:SendData(Bot, "Je release is succesvol toegevoegd!")

	end

end



function ShowRelease(user, data, type)

local tmp = ""

local tline = 0

	if (type == "last") then

		tmp = tmp.."\r\n\r\nDe laatste 30 releases \r\n\r\n"

		tmp = tmp.." Datum\tToegevoegd door\t\t\tRelease naam\t\tBeschrijving\r\n\r\n"

	else

		tmp = tmp.."\r\n\r\nDe laatste releases \r\n\r\n"

		tmp = tmp.." Datum\t\tToegevoegd door\t\t\Release naam\t\tBeschrijving\r\n\r\n"

	end

		readfrom(reltxt)

		while 1 do

		local line = read()

			if (type == "last") then

				if (tline == 30) then

					break

				end

			end

			if (line == nil) then

				break

			else

			local s,e,rel,desc,who,time = strfind(line, "(.*)$(.*)$(.*)$(.*)|")

				if (rel ~= nil) then

					tmp = tmp.." "..time.."\t"..who..Coluns(who)..rel..Coluns(rel)..desc.."\r\n"

					tline = tline + 1

				end

			end

		end

		readfrom()

	user:SendPM(Bot, tmp)

end



function DelRelease(user, data)

local s,e,release = strfind(data,"%b<>%s+%S+%s+(%S+)")

local time = 0

local tmp = ""

	if (release == nil or release == "") then

		user:SendData(Bot, "FOUT!, !del , Je moet een naam opgeven!")

	else

		readfrom(reltxt)

		while 1 do

		local line = read()

			if (line == nil) then

				break

			else

			local s,e,rel = strfind(line, "(.*)$.*$.*$.*|")

				user:SendData(Bot, rel)

				if (rel == nil or rel == "") then

					tmp = tmp..line.."\r\n"	
				elseif (strlower(rel) == strlower(release)) then

					time = 1

				else

					tmp = tmp..line.."\r\n"					
				end

			end

		end

		readfrom()	

		writeto(reltxt)

		write(tmp)

		writeto()

	end

	if (time == 1) then

		user:SendData(Bot, "De release is gewist.")

	else

		user:SendData(Bot, "De release is niet gevonden.")

	end

end



function GetTime()

	d = date("%d")

	mm = date("%m")

	y = date("%y")

	Date = d.."/"..mm.."/"..y

	return Date

end



function Coluns(string)

local tmp = ""

	if (strlen(string) < 8) then

		tmp = "\t\t\t"

	elseif (strlen(string) < 16) then

		tmp = "\t\t"

	else

		tmp = "\t"

	end

return tmp

end