PtokaX forum

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!

somebody? :(

Hi,

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

Best regards, nErBoS

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.

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

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 =).

Hi,

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

Best regards, 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

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! :)

Hi,

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

Best regards, nErBoS

bump

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

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