ViewClasses, ViewClassUser

[frankyk]

Hi,

I was wondering if someone could write a script that would allow a user to type the following commands:

+viewclasses : Views users that registered for

+viewschedule : Views selected users class schedule

+addclass : Adds a class to users schedule which will also add that class to the overall class list.

So basically, a person would type like +addclass Psych 60 11:00am and it would add the class to a textfile that everyone can read.  When someone types +viewclasses Psych60 it will show Psych 60 users at all times possible.

Thank you for your time!

[frankyk]

somebody? :(

[nErBoS]

Hi,

Not understanding your request, the script you want it?s to add class of users ??? What is the objective ??

Best regards, nErBoS

[frankyk]

people that use the hub go to school and i just want people to be able to see who has the same classes with each other.

Like you know, who is taking history class, how many people are taking it, at what time, etc.

Basically, it's a database to keep track of who is which class so if people want to meet up, they can do that.

[nErBoS]

Hi,

Sorry for the delay on the script but i am having a lot of work. Question, when you want to see the class there are user on it, is that you that write them ??? If yes you will want a file to each classes, right ???

Best regards, nErBoS

[frankyk]

Hi,

No worries, thanks for doing this :D.

As for your question, I want a user to be able to enter a command and this command will write to a public file available for everyone to view.  So, if that means writing to the file that is also being viewed, yes.

Basically something like this:

+addclass Psychology1 9:00AM

writetofile myclass.dat
writetofile Psychology.dat (add username to Psychology.dat)
writetofile Allclass.dat (add total users per class)

+viewclass Psychology1 9:00AM

openfile Psychology.dat

Which looks like this:
--------------------------------
Psychology1 @ 9:00 AM

nickname1
nickname2
nickname3

+viewallclasses

openfile Allclass.dat

While looks like this:
---------------------------
Psychology1 @ 9:00 AM (5 students)
Economics1 @ 10:00 AM (1 student)
Accounting1 @ 9:00 AM (20 students)

+viewschedule nickname

openfile myclass.dat

Which looks like this:
----------------------------
Nickname1 is enrolled in the following classes:

Psychology1 @ 9:00 AM
Economics1 @ 10:00 AM
Calculus1 @ 5:00 PM

It's a little complicated and a little confusing, but that's basically the style I want I guess.  Thank you =).

[nErBoS]

Hi,

Thanks for the fine explanion, will start to work on it at soon as i can.

Best regards, nErBoS

[nErBoS]

Hi,

Try out this one...

--Requested by frankyk
--Made by nErBoS

sBot = "Principal"

allclass = "Allclass.dat"	--This file will be created, contains all names and schedule of classes

function OnExit()
end

function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		data = strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if (cmd == "+helpclass") then
			local sTmp = ""
			sTmp = sTmp.."#### Class Commands ####\r\n\r\n"
			sTmp = sTmp.."+addclass  \tCreate's a Class and add's your nick, if the class exist will add only the nick\r\n"
			sTmp = sTmp.."+viewclasses\t\t\t\tShows All Classes and there schedule\r\n"
			sTmp = sTmp.."+viewclass \t\t\tShow the class and the users that were on it\r\n"
			sTmp = sTmp.."+viewschedule \t\t\tShow the class that the nick is in\r\n"
			user:SendPM(sBot, sTmp)
			return 1
		elseif (cmd == "+addclass") then
			local s,e,class,schd = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
			if (class == nil or schd == nil) then
				user:SendPM(sBot, "Syntax Error, +addclass  , you must write a class name and schedule.")
			else
				AddClass(user, class, schd)
				user:SendPM(sBot, "Done.")
			end
			return 1
		elseif (cmd == "+viewclasses") then
			OpenAllClass(user)
			return 1
		elseif (cmd == "+viewclass") then
			local s,e,class = strfind(data, "%b<>%s+%S+%s+(%S+)")
			if (class == nil) then
				user:SendPM(sBot, "Syntax Error, +viewclass , you must write a class name.")
			else
				ViewClass(user, class)
			end
			return 1
		elseif (cmd == "+viewschedule") then
			local s,e,usr = strfind(data, "%b<>%s+%S+%s+(%S+)")
			if (usr == nil) then
				user:SendPM(sBot, "Syntax Error, +viewschedule , you must write a nick.")
			else
				ViewUser(user, usr)
			end
			return 1
		end
	end
end

function AddClass(user, class, schedule)
	local sLine = ""
	local time = 0
	local myclass = strlower(user.sName)..".dat"
	local cl = strlower(class)
	cl = cl..".dat"

	-------------Add To User.dat-------------
	if (readfrom(myclass) == nil) then
		writeto(myclass)
		write(class.." @ "..schedule)
		writeto()
	else
		readfrom(myclass)
		while 1 do
			local line = read()
			if (line == nil) then
				sLine = sLine..class.." @ "..schedule
				break
			else
				sLine = sLine..line.."\r\n"
			end
		end
		readfrom()
		writeto(myclass)
		write(sLine)
		writeto()
		sLine = ""
	end

	-------------Add To Class.dat-------------
	if (readfrom(cl) == nil) then
		sLine = sLine.."sche= "..schedule.."\r\n"
		sLine = sLine..user.sName
		writeto(cl)
		write(sLine)
		writeto()
		sLine = ""
	else
		readfrom(myclass)
		while 1 do
			local line = read()
			if (line == nil) then
				if (time == 0) then
					sLine = sLine..user.sName
				end
				break
			else
				local s,e,nickname = strfind(line, "(%S+)")
				if (strlower(user.sName) == strlower(nickname)) then
					time = 1
				end
				sLine = sLine..line.."\r\n"
			end
		end
		readfrom()
		writeto(myclass)
		write(sLine)
		writeto()
		sLine = ""
		time = 0
	end

	-------------Add To AllClass.dat-------------
	if (readfrom(allclass) == nil) then
		writeto(allclass)
		write(class.." "..schedule.." 1")
		writeto()
	else
		readfrom(allclass)
		while 1 do
			local line = read()
			if (line == nil) then
				if (time == 0) then
					sLine = sLine..class.." "..schedule.." 1"
				end
				break
			else
				local s,e,clss,schd,number = strfind(line, "(%S+)%s+(%S+)%s+(%S+)")
				if (strlower(clss) == strlower(class)) then
					number = tonumber(number) + 1
					sLine = sLine..clss.." "..schd.." "..number.."\r\n"
					time = 1
				else
					sLine = sLine..line.."\r\n"
				end
			end
		end
		readfrom()
		writeto(allclass)
		write(sLine)
		writeto()
		sLine = ""
		time = 0
	end
end

function OpenAllClass(user)
	local sLine = ""
	if (readfrom(allclass) == nil) then
		sLine = "There is no Class in the file AllClass.dat."
	else
		sLine = sLine.."### All Class ###\r\n\r\n"
		readfrom(allclass)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				local s,e,clss,schd,number = strfind(line, "(%S+)%s+(%S+)%s+(%S+)")
				if (clss ~= nil and schd ~= nil and number ~= nil) then
					sLine = sLine..clss.." @ "..schd.." ("..number.." Students)\r\n"
				end
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

function ViewClass(user, class)
	local sLine = ""
	local cl = strlower(class)
	cl = cl..".dat"
	if (readfrom(cl) == nil) then
		sLine = "That Class does not exist."
	else
		readfrom(cl)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				local s,e,usr = strfind(line, "(%S+)")
				if (usr ~= nil) then
					if (usr == "sche=") then
						local s,e,schd = strfind(line, "%S+%s+(%S+)")
						sLine = sLine.."### "..class.." @ "..schd.." ###\r\n\r\n"
					else
						sLine = sLine..usr.."\r\n"
					end
				end
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

function ViewUser(user, usr)
	local sLine = ""
	local myclass = strlower(usr)..".dat"
	if (readfrom(myclass) == nil) then
		sLine = "That User does not exist."
	else
		sLine = sLine.."### User Schedule ###\r\n\r\n"
		readfrom(myclass)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				sLine = sLine..line.."\r\n"
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

Best regards, nErBoS

[frankyk]

Thanks Nerbos!  Can you also make a +delclass , I messed up a few times, so I'm not sure how to remove it.

Also, can you add a third parameter, like m/w/f or tu/thurs.

For example:

+addclass Calc1 8:00AM m/w/f

when +viewclass Calc1

It will say Calc1 classes:

8:00 AM m/w/f (1 student)
10:00 AM tu/thurs (1 student)

So if there is the same class name but different dates, someone can distinguish the difference.

Also, can you make it so if someone doesn't follow the right format for the time like (8:00ZM instead of 8:00AM) can you make it so the script will not read in the line.

Thank you so much Nerbos, so far the script is awesome!

EDIT: Oh, for the script, when I type +addclass , if I am the first one who adds the class (it didn't exist before), then it will create the data file and it will display correctly.

HOWEVER, if I am a second user, adding to an existing class, it will NOT add my name to the class.  It WILL add my name to the OVERALL class totals, but not the individual class.  Also, the SECOND user seems to get something like this to show up in their profile when I double click the .dat

+viewclass frankyk shows this (no quotes)

"
Calc1 @ 9am
frankyk
"

If the user was the first one to add the class and thus creating the .dat, when I double click on theirs, it shows this (no quotes):

"
Psych60 @ 9am
"

So basically, the creation commands work perfectly.  But when the following happens:

+addclass Calc1 9am

CREATES FILE Calc1.dat, and looks like this:

"
sche= 9am
NICKNAME1
"

ADDS TO FILE Allclass.dat, and looks like this:

"
Calc1 9am 1
"

CREATES FILE NICKNAME1.dat, and looks like this:

"
Calc1 @ 9am
"

+addclass Calc1 9am

ADDS TO FILE Calc1.dat:

NOTHING, it doesn't add another name to file, file still looks like this:

"
sche= 9am
NICKNAME1
"

ADDS TO FILE Allclass.dat and looks like this:
"
Calc1 9am 2
"

CREATES FILE NICKNAME2.dat, looks like this:
"
Calc1 @ 9am
NICKNAME2
"

So basically, it has a few bugs, but it works for the most part, just the second file+ created for the second username and above isn't right, the classname and userlist doesn't work right after the first user.

allclass.dat command works great!  Can you create a command like +delclass so it deletes from everything addes.

i.e.
+addclass Bio1 9am m/w/f

adds to allclass.dat, bio1.dat created or added to, username.dat created or add to

+delclass Bio1 9am m/w/f

deletes from total number of students in allclass.dat, deletes bio1.dat if that student was only one in that class or deletes student from list of students in bio1.dat and deletes class from username.dat

It's a lot I know, take your time, thank you! :)

[nErBoS]

Hi,

Ok, when i get a free time i will see that.

Best regards, nErBoS

[frankyk]

bump

[nErBoS]

Hi,

Sorry frankyk for the delay this week is the academic week in Portugal, there for i will be out of home and when i am at home i will be drunk :p

In the weekend i will do that request.

Best regards, nErBoS

[nErBoS]

Hi,

Sorry for the delay, here is the script fixed and added the +delclass...

--Requested by frankyk
--Made by nErBoS

sBot = "Principal"

allclass = "Allclass.dat"	--This file will be created, contains all names and schedule of classes

function OnExit()
end

function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		data = strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if (cmd == "+helpclass") then
			local sTmp = ""
			sTmp = sTmp.."#### Class Commands ####\r\n\r\n"
			sTmp = sTmp.."+addclass   \tCreate's a Class and add's your nick, if the class exist will add only the nick\r\n"
			sTmp = sTmp.."+viewclasses\t\t\t\tShows All Classes and there schedule\r\n"
			sTmp = sTmp.."+viewclass  \t\tShow the class and the users that were on it\r\n"
			sTmp = sTmp.."+viewschedule \t\t\tShow the class that the nick is in\r\n"
			sTmp = sTmp.."\r\n\tOnly for Ops\r\n"
			sTmp = sTmp.."+delclass  \t\tDeletes the class\r\n"
			user:SendPM(sBot, sTmp)
			return 1
		elseif (cmd == "+addclass") then
			local s,e,class,schd,wday = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)%s+(%S+)")
			if (class == nil or schd == nil or wday == nil) then
				user:SendPM(sBot, "Syntax Error, +addclass   , you must write a class name, schedule and week days (m, tu, w, thu, f or sat).")
			else
				AddClass(user, class, schd, wday)
				user:SendPM(sBot, "Done.")
			end
			return 1
		elseif (cmd == "+viewclasses") then
			OpenAllClass(user)
			return 1
		elseif (cmd == "+viewclass") then
			local s,e,class,wday = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
			if (class == nil or wday == nil) then
				user:SendPM(sBot, "Syntax Error, +viewclass  , you must write a class name and week days (m, tu, w, thu, f or sat).")
			else
				ViewClass(user, class, wday)
			end
			return 1
		elseif (cmd == "+delclass" and user.bOperator) then
			local s,e,class,wday = strfind(data, "%b<>%s+%S+%s+(%S+)%s+(%S+)")
			if (class == nil or wday == nil) then
				user:SendPM(sBot, "Syntax Error, +delclass  , you must write a class name and week days (m, tu, w, thu, f or sat).")
			else
				DeleteClass(user, class, wday)
			end
			return 1
		elseif (cmd == "+viewschedule") then
			local s,e,usr = strfind(data, "%b<>%s+%S+%s+(%S+)")
			if (usr == nil) then
				user:SendPM(sBot, "Syntax Error, +viewschedule , you must write a nick.")
			else
				ViewUser(user, usr)
			end
			return 1
		end
	end
end

function AddClass(user, class, schedule, wday)
	local sLine = ""
	local time = 0
	local myclass = strlower(user.sName)..".dat"
	local cl = strlower(class)..strlower(wday)
	cl = cl..".dat"

	-------------Add To Class.dat-------------
	if (readfrom(cl) == nil) then
		sLine = sLine.."sche= "..schedule.." "..wday.."\r\n"
		writeto(cl)
		write(sLine)
		writeto()
		sLine = ""
	else
		readfrom(cl)
		while 1 do
			local line = read()
			if (line == nil) then
				if (time == 0) then
					sLine = sLine..user.sName
					readfrom()
					writeto(cl)
					write(sLine)
					writeto()
					sLine = ""
					time = 0

					-------------Add To User.dat-------------
					if (readfrom(myclass) == nil) then
						writeto(myclass)
						write(class.." "..wday.." @ "..schedule)
						writeto()
					else
						readfrom(myclass)
						while 1 do
							local line = read()
							if (line == nil) then
								sLine = sLine..class.." "..wday.." @ "..schedule
								break
							else
								sLine = sLine..line.."\r\n"
							end
						end
						readfrom()
						writeto(myclass)
						write(sLine)
						writeto()
						sLine = ""
					end
				end
				break
			else
				local s,e,nickname = strfind(line, "(%S+)")
				if (strlower(user.sName) == strlower(nickname) and nickname ~= "sche=") then
					time = 1
				end
				sLine = sLine..line.."\r\n"
			end
		end
	end

	-------------Add To AllClass.dat-------------
	if (readfrom(allclass) == nil) then
		writeto(allclass)
		write(class.." "..wday.." "..schedule.." 0")
		writeto()
	else
		readfrom(allclass)
		while 1 do
			local line = read()
			if (line == nil) then
				if (time == 0) then
					sLine = sLine..class.." "..wday.." "..schedule.." 0"
				end
				break
			else
				local s,e,clss,weekd,schd,number = strfind(line, "(%S+)%s+(%S+)%s+(%S+)%s+(%S+)")
				if (strlower(clss) == strlower(class) and strlower(weekd) == strlower(wday)) then
					number = tonumber(number) + 1
					sLine = sLine..clss.." "..weekd.." "..schd.." "..number.."\r\n"
					time = 1
				else
					sLine = sLine..line.."\r\n"
				end
			end
		end
		readfrom()
		writeto(allclass)
		write(sLine)
		writeto()
		sLine = ""
		time = 0
	end
end

function OpenAllClass(user)
	local sLine = ""
	if (readfrom(allclass) == nil) then
		sLine = "There is no Class in the file AllClass.dat."
	else
		sLine = sLine.."### All Class ###\r\n\r\n"
		readfrom(allclass)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				local s,e,clss,weekd,schd,number = strfind(line, "(%S+)%s+(%S+)%s+(%S+)%s+(%S+)")
				if (clss ~= nil and schd ~= nil and number ~= nil) then
					sLine = sLine..clss.." @ "..schd.." "..weekd.." ("..number.." Students)\r\n"
				end
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

function ViewClass(user, class, wday)
	local sLine = ""
	local cl = strlower(class)..strlower(wday)
	cl = cl..".dat"
	if (readfrom(cl) == nil) then
		sLine = "That Class does not exist."
	else
		readfrom(cl)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				local s,e,usr = strfind(line, "(%S+)")
				if (usr ~= nil) then
					if (usr == "sche=") then
						local s,e,schd,weekd = strfind(line, "%S+%s+(%S+)%s+(%S+)")
						sLine = sLine.."### "..class.." @ "..schd.." "..weekd.." ###\r\n\r\n"
					else
						sLine = sLine..usr.."\r\n"
					end
				end
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

function ViewUser(user, usr)
	local sLine = ""
	local myclass = strlower(usr)..".dat"
	if (readfrom(myclass) == nil) then
		sLine = "That User does not exist."
	else
		sLine = sLine.."### User Schedule ###\r\n\r\n"
		readfrom(myclass)
		while 1 do
			local line = read()
			if (line == nil) then
				break
			else
				sLine = sLine..line.."\r\n"
			end
		end
		readfrom()
	end
	user:SendPM(sBot, sLine)
end

function DeleteClass(user, class, wday)
	local sLine = ""
	local cl = strlower(class)..strlower(wday)
	cl = cl..".dat"
	if (readfrom(cl) == nil) then
		sLine = "That Class does not exist."
	else
		readfrom()
		remove(cl)
		if (readfrom(allclass) == nil) then
			sLine = "There is no Class in the file AllClass.dat."
		else
			readfrom(allclass)
			while 1 do
				local line = read()
				if (line == nil) then
					break
				else	
					local s,e,clss,weekd = strfind(line, "(%S+)%s+(%S+)")
					if (strlower(clss) ~= strlower(class) and strlower(weekd) ~= strlower(wday)) then
						sLine = sLine..line.."\r\n"
					end
				end
			end
		end
		readfrom()
		writeto(allclass)
		write(sLine)
		writeto()
		sLine = "That Class has been removed."
	end
	user:SendPM(sBot, sLine)
end

Best regards, nErBoS