Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Script("Name") = "Clan Members"
- Script("Abbreviation") = "clan members"
- Script("Author") = "Fpa-rF-"
- Script("Category") = "Utility"
- Script("Major") = 1
- Script("Minor") = 0
- Script("Revision") = 1
- Script("Description") = "Clan Member Management"
- ' SCRIPT COMMANDS
- ' ===============
- ' rhelp - LISTS CLAN MEMBER COMMANDS (THIS SCRIPT) !rhelp
- ' members - LISTS MEMBERS BY RANK (scripts\..\members.txt) (SEE ABOVE) !members
- ' rnum - LISTS NUMBER OF MEMBERS AND OPEN POSITIONS -> (OPEN) !rnum
- ' rfind - LISTS A MEMBER AND RANK, ACCESS AND FLAGS !rfind Username
- ' rlist - LISTS NUMBER OF RANKS AND RANKS (SEE ABOVE) !rlist
- ' radd - ADDS MEMBER TO CLAN LIST !radd Username clanrank OR !radd (OPEN) clanrank
- ' rdel - DELS MEMBER FROM CLAN LIST !rdel Username
- ' redit - EDITS A MEMBER RANK IN CLAN LIST !redit Username clanrank
- ' rpromote - PROMOTE A MEMBER 1 RANK !rpromote Username
- ' rdemote - DEMOTE A MEMBER 1 RANK !rdemote Username
- ' ropen - ADDS A RANK POSITION (OPEN) !ropen clanrank
- ' rclose - DELS A RANK POSITION (OPEN) !rclose clanrank
- ' SCRIPT SETTINGS
- ' ===============
- 'ENTER YOUR REQUIRED ACCESS LEVEL FOR COMMANDS
- Public reqaccess : reqaccess = 1
- 'RANKS/ROSTER FILE (KEEP OUT OF SCRIPTS FOLDER)
- Public members_list : members_list = BotPath() & "scripts\..\members.txt"
- 'ENTER YOUR CLAN TAG BELOW
- Public clantag : clantag = "-rF-"
- 'ENTER YOUR RANKS BELOW
- Public clanranks : clanranks = Array( _
- "Founder", _
- "Leader", _
- "Commander", _
- "Captain", _
- "Lieutenant", _
- "1stSergeant", _
- "MasterSergeant", _
- "Sergeant1stClass", _
- "StaffSergeant", _
- "Sergeant", _
- "Corporal", _
- "Specialist", _
- "Private", _
- "Spy")
- Public intOpen : intOpen = 0
- Public strOpen : strOpen = ""
- Public Sub Event_Load()
- Dim objWriteFile
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- If objFSO.FileExists(members_list) Then
- Else
- Set objWriteFile= objFSO.OpenTextFile(members_list, 8, True, 0)
- objWriteFile.Close
- End If
- If OpenCommand("members") Is Nothing Then
- With CreateCommand("members")
- .Description = "List Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rhelp") Is Nothing Then
- With CreateCommand("rhelp")
- .Description = "List Clan Member Commands"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rnum") Is Nothing Then
- With CreateCommand("rnum")
- .Description = "List Number Of Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rfind") Is Nothing Then
- With CreateCommand("rfind")
- .Description = "Find Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rlist") Is Nothing Then
- With CreateCommand("rlist")
- .Description = "List Clan Ranks"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("radd") Is Nothing Then
- With CreateCommand("radd")
- .Description = "Add Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rdel") Is Nothing Then
- With CreateCommand("rdel")
- .Description = "Delete Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("redit") Is Nothing Then
- With CreateCommand("redit")
- .Description = "Edit Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rpromote") Is Nothing Then
- With CreateCommand("rpromote")
- .Description = "Promote Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rdemote") Is Nothing Then
- With CreateCommand("rdemote")
- .Description = "Demote Clan Members"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("ropen") Is Nothing Then
- With CreateCommand("ropen")
- .Description = "Add Clan Rank Recruting Position"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- If OpenCommand("rclose") Is Nothing Then
- With CreateCommand("rclose")
- .Description = "Remove Clan Rank Recruting Position"
- .RequiredRank = reqaccess
- .Save
- End With
- End If
- End Sub
- Public Sub Event_Command(Command)
- Dim objWriteFile
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- If objFSO.FileExists(members_list) Then
- Else
- Set objWriteFile= objFSO.OpenTextFile(members_list, 8, True, 0)
- objWriteFile.Close
- End If
- If LCase(Command.Name) = "rhelp" Then
- AddQ "Clan Member Management Commands: members, rnum, rfind, rlist, radd, rdel, redit, rpromote, rdemote, ropen, rclose, rhelp."
- End If
- If LCase(Command.Name) = "members" Then
- intNumMembers = NumMembers()
- strMembers = Split(ListMembers(), vbcrlf)
- For x = 0 To intNumMembers - 1
- AddQ strMembers(x)
- Next
- End If
- If LCase(Command.Name) = "rnum" Then
- intNumMembers = NumMembers()
- If intOpen > 0 Then
- strOpen = Left(strOpen,Len(strOpen)-2) & "."
- AddQ "Clan " & clantag & " currently has " & intNumMembers & " members, and " & intOpen & " recruiting positions: " & strOpen
- Else
- AddQ "Clan " & clantag & " currently has " & intNumMembers & " members. Recruting currently closed."
- End If
- End If
- If LCase(Command.Name) = "rfind" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strUser = Command.Args
- strRank = GetRank(strUser)
- If strRank <> "" And LCase(strUser) <> LCase("(OPEN)") Then
- GetDBEntry strUser, UAccess, UFlags
- AddQ strRank & ": " & strUser
- ElseIf strRank = "" And strUser <> "" Then
- AddQ strUser & " not found in Clan " & clantag & " members list."
- Else
- AddQ "You must specify a username."
- End If
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strUser = strSplit(0)
- strRank = GetRank(strUser)
- If strRank <> "" And LCase(strUser) <> LCase("(OPEN)") Then
- GetDBEntry strUser, UAccess, UFlags
- AddQ strRank & ": " & strUser
- End If
- End If
- End If
- If LCase(Command.Name) = "rlist" Then
- For x = LBound(clanranks) To UBound(clanranks)
- strMessage = strMessage & clanranks(x) & ", "
- Next
- strMessage = Left(strMessage,Len(strMessage)-2) & "."
- AddQ "[" & UBound(clanranks) + 1 &"] " & strMessage
- End If
- If LCase(Command.Name) = "radd" Then
- If NumLines() = 0 Then
- strUser = Command.Username
- Call AddCMember(strUser, clanranks(0))
- AddQ "[NEW] " & members_list & " is empty, adding " & strUser & " as highest rank " & clanranks(0) & "."
- End If
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- AddQ "You must specify a username and clanrank."
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strUser = strSplit(0)
- strSetRank = strSplit(1)
- strRank = GetRank(strUser)
- If strRank <> "" And LCase(strUser) <> LCase("(OPEN)") Then
- AddQ strUser & " is already a ranked member."
- ElseIf strUser <> "" And strSetRank <> "" Then
- If InStr(1, LCase(strUser), LCase(clantag)) > 0 Then
- If FindRank(strSetRank) <> "" Then
- For x = LBound(clanranks) To UBound(clanranks)
- If LCase(strSetRank) = LCase(clanranks(x)) Then
- strRankIndex = x + 1
- Exit For
- End If
- Next
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex Or LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- If DelCMember(strUser) = True Then
- Call AddCMember(strUser, strSetRank)
- AddQ "[ADDED] " & strUser & " as rank " & strSetRank & " to Clan " & clantag & " members list."
- End If
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot add a member to the same rank or higher."
- End If
- Else
- AddQ "The clanrank you specified is not valid."
- End If
- Else
- AddQ "Cannot add member to Clan " & clantag & " members list. " & strUser & " is not wearing clan tag."
- End If
- End If
- End If
- End If
- If LCase(Command.Name) = "rdel" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strUser = Command.Args
- strRank = GetRank(strUser)
- If strRank <> "" And LCase(strUser) <> LCase("(OPEN)") Then
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex Or LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- If DelCMember(strUser) = True Then
- AddQ "[REMOVED] " & strRank & ": " & strUser & " from Clan " & clantag & " members list."
- End If
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot delete a member of same rank or higher."
- End If
- ElseIf strRank = "" Then
- AddQ "The member you are trying to delete is not in Clan " & clantag & " members list."
- Else
- AddQ "You must specify a username."
- End If
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strUser = strSplit(0)
- strRank = GetRank(strUser)
- If strRank <> "" And LCase(strUser) <> LCase("(OPEN)") Then
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex Or LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- If DelCMember(strUser) = True Then
- AddQ "[REMOVED] " & strUser & " from Clan " & clantag & " members list."
- End If
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot delete a member of same rank or higher."
- End If
- End If
- End If
- End If
- If LCase(Command.Name) = "redit" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- AddQ "You must specify a username and a clanrank."
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strUser = strSplit(0)
- strSetRank = strSplit(1)
- If FindRank(strSetRank) <> "" Then
- strRank = GetRank(strUser)
- If strRank <> "" And strSetRank <> "" Then
- strSupRank = GetRankIndex(Command.Username) '4
- strRankIndex = GetRankIndex(strUser) '5
- For x = LBound(clanranks) To UBound(clanranks)
- If LCase(strSetRank) = Lcase(clanranks(x)) Then
- strChangeRank = x + 1
- Exit For
- End If
- Next
- If strRankIndex <> "" And LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- If DelCMember(strUser) = True Then
- Call AddCMember(strUser, strSetRank)
- AddQ "[EDITED] " & strUser & " as rank " & strSetRank & " to Clan " & clantag & " members list."
- End If
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex And strChangeRank > strSupRank Then
- If DelCMember(strUser) = True Then
- Call AddCMember(strUser, strSetRank)
- AddQ "[EDITED] " & strUser & " as rank " & strSetRank & " to Clan " & clantag & " members list."
- End If
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot edit a member of same rank or higher."
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank = strChangeRank Then
- AddQ "You cannot edit a member to the same rank or higher."
- Else
- AddQ "The member you are trying to edit is not in Clan " & clantag & " members list."
- End If
- Else
- AddQ "The member you are trying to edit is not in Clan " & clantag & " members list."
- End If
- Else
- AddQ "You specified an invalid clanrank."
- End If
- End If
- End If
- If LCase(Command.Name) = "rpromote" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strUser = Command.Args
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- PromoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been promoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank < (strRankIndex - 1) Then
- PromoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been promoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot promote a member of same rank or higher."
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= (strRankIndex - 1) Then
- AddQ "You cannot promote a member to the same rank or higher."
- ElseIf Command.Args = "" Then
- AddQ "You must specify a member to promote."
- Else
- AddQ "The member you are trying to promote is not in Clan " & clantag & " members list."
- End If
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strUser = strSplit(0)
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- PromoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been promoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank < (strRankIndex - 1) Then
- PromoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been promoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Then
- AddQ "You cannot promote a member of same rank or higher."
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= (strRankIndex - 1) Then
- AddQ "You cannot promote a member to the same rank or higher."
- ElseIf Command.Args = "" Then
- AddQ "You must specify a member to promote."
- Else
- AddQ "The member you are trying to promote is not in Clan " & clantag & " members list."
- End If
- End If
- End If
- If LCase(Command.Name) = "rdemote" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strUser = Command.Args
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Command.Username)
- If strRankIndex <> "" And LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- DemoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been demoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex Then
- DemoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been demoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Or LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- AddQ "You cannot demote a member of same rank or higher."
- ElseIf Command.Args = "" Then
- AddQ "You must specify a member to demote."
- Else
- AddQ "The member you are trying to demote is not in Clan " & clantag & " members list."
- End If
- Else
- strSplit = Split(strArgs, " ") '2 or more args
- strUser = strSplit(0)
- strRankIndex = GetRankIndex(strUser)
- strSupRank = GetRankIndex(Username)
- If strRankIndex <> "" And LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- DemoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been demoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank < strRankIndex Then
- DemoteCMember(strUser)
- strRank = GetRank(strUser)
- AddQ strUser & " has been demoted to rank " & strRank
- ElseIf strRankIndex <> "" And strSupRank <> "" And strSupRank >= strRankIndex Or LCase(GetRank(Command.Username)) = LCase(clanranks(0)) Then
- AddQ "You cannot demote a member of same rank or higher."
- ElseIf Command.Args = "" Then
- AddQ "You must specify a member to demote."
- Else
- AddQ "The member you are trying to demote is not in Clan " & clantag & " members list."
- End If
- End If
- End If
- If LCase(Command.Name) = "ropen" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strRank = Command.Args
- If LCase(strRank) = LCase(FindRank(strRank)) And strRank <> "" Then
- Call AddCMember("(OPEN)", strRank)
- AddQ "[ADDED] " & strRank & " open-position to Clan " & clantag & " members list."
- Else
- AddQ "You must specify a clanrank to open a position. Try " & BotVars.Trigger & "ropen clanrank"
- End If
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strRank = strSplit(0)
- If LCase(strRank) = LCase(FindRank(strRank)) And strRank <> "" Then
- Call AddCMember("(OPEN)", strRank)
- AddQ "[ADDED] " & strRank & " open-position to Clan " & clantag & " members list."
- Else
- AddQ "You must specify a clanrank to open a position. Try " & BotVars.Trigger & "ropen clanrank"
- End If
- End If
- End If
- If LCase(Command.Name) = "rclose" Then
- If InStr(1, Command.Args, " ", vbTextCompare) = 0 Then '0 or 1 arg
- strRank = Command.Args
- If LCase(strRank) = LCase(FindRank(strRank)) And strRank <> "" Then
- If RemRankPos(strRank) = True Then
- AddQ "[REMOVED] " & strRank & " open-position removed from Clan " & clantag & " members list."
- End If
- Else
- AddQ "You must specify a clanrank to remove an open position. Try " & BotVars.Trigger & "rclose clanrank"
- End If
- Else
- strSplit = Split(Command.Args, " ") '2 or more args
- strRank = strSplit(0)
- If LCase(strRank) = LCase(FindRank(strRank)) And strRank <> "" Then
- If RemRankPos(strRank) = True Then
- AddQ "[REMOVED] " & strRank & " open-position removed from Clan " & clantag & " members list."
- End If
- Else
- AddQ "You must specify a clanrank to remove an open position. Try " & BotVars.Trigger & "rclose clanrank"
- End If
- End If
- End If
- End Sub
- Function PromoteCMember(strMember)
- strRankIndex = GetRankIndex(strMember)
- For x = LBound(clanranks) To UBound(clanranks)
- If x = strRankIndex - 1 Then
- If x <> LBound(clanranks) Then
- DelCMember(strMember)
- Call AddCMember(strMember, clanranks(x-1))
- Exit For
- End If
- End If
- Next
- End Function
- Function DemoteCMember(strMember)
- strRankIndex = GetRankIndex(strMember)
- For x = LBound(clanranks) To UBound(clanranks)
- If x = strRankIndex - 1 Then
- If x <> UBound(clanranks) Then
- DelCMember(strMember)
- Call AddCMember(strMember, clanranks(x+1))
- Exit For
- End If
- End If
- Next
- End Function
- Function AddCMember(strMember, strSetRank)
- Dim objReadFile, objWriteFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objReadFile= objFSO.OpenTextFile(members_list, 1)
- For x = LBound(clanranks) To UBound(clanranks)
- If LCase(strSetRank) = LCase(clanranks(x)) Then
- intPrevRankPos = x + 1
- blnRankExists = True
- strSetRank = clanranks(x)
- Exit For
- End If
- blnRankExists = False
- Next
- If blnRankExists = True Then
- intFilePos = 0
- blnNextRank = False
- Do While Not objReadFile.AtEndOfStream
- intFilePos = intFilePos + 1
- intNumLines = NumLines
- strLine = objReadFile.readline 'Read line
- If strLine <> "" Then
- strFile = strFile & strLine
- If intNumLines <> intFilePos Then strFile = strFile & vbcrlf
- End If
- If InStr(1, strLine, " ", vbTextCompare) > 0 Then '1 or more arg
- strSplit = Split(strLine, " ")
- strRank = Left(strSplit(0),Len(strSplit(0))-1)
- 'If intFilePos = intPrevRankPos Then
- ' intSetFilePos = intFilePos
- 'End If
- If strRank = strSetRank Then
- blnNextRank = True
- ElseIf strRank <> strSetRank And blnNextRank = True Then
- intSetFilePos = intFilePos - 1
- blnNextRank = False
- End If
- End If
- Loop
- If intSetFilePos = "" Then
- intSetFilePos = NumLines()
- End If
- objReadFile.Close 'Close file
- Set objWriteFile= objFSO.OpenTextFile(members_list, 2)
- strSplit = Split(strFile, vbcrlf)
- For x = LBound(strSplit) To UBound(strSplit)
- intCount = x + 1
- If intCount = intSetFilePos Then
- objWriteFile.WriteLine(strSplit(x))
- objWriteFile.WriteLine(strSetRank & ": " & strMember)
- Else
- objWriteFile.WriteLine(strSplit(x))
- End If
- Next
- objWriteFile.Close 'Close file
- End If
- End Function
- Function DelCMember(strMember)
- Dim objReadFile, objWriteFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objReadFile= objFSO.OpenTextFile(members_list, 1)
- blnWriteFile = False
- Do While Not objReadFile.AtEndOfStream
- strLine = objReadFile.readline 'Read line
- If InStr(1, strLine, " ", vbTextCompare) > 0 Then '1 or more arg
- strSplit = Split(strLine, " ")
- If LCase(strSplit(1)) <> LCase(strMember) Then
- strFile = strFile & strLine & vbcrlf
- End If
- blnWriteFile = True
- End If
- Loop
- If blnWriteFile = True Then
- objReadFile.Close 'Close file
- Set objWriteFile= objFSO.OpenTextFile(members_list, 2)
- strSplit = Split(strFile, vbcrlf)
- For x = LBound(strSplit) To UBound(strSplit)
- If strSplit(x) <> "" Then
- objWriteFile.WriteLine(strSplit(x))
- End If
- Next
- DelCMember = True
- End If
- End Function
- Function RemRankPos(strRank)
- Dim objReadFile, objWriteFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objReadFile= objFSO.OpenTextFile(members_list, 1)
- blnWriteFile = False
- Do While Not objReadFile.AtEndOfStream
- strLine = objReadFile.readline 'Read line
- If InStr(1, strLine, " ", vbTextCompare) > 0 Then '1 or more arg
- strSplit = Split(strLine, " ")
- strRankFind = Left(strSplit(0),Len(strSplit(0))-1)
- strUser = strSplit(1)
- If LCase(strRankFind) = LCase(strRank) And LCase(strUser) = LCase("(OPEN)") And blnWriteFile = False Then
- 'Do Nothing
- blnWriteFile = True
- Else
- strFile = strFile & strLine & vbcrlf
- End If
- End If
- Loop
- If blnWriteFile = True Then
- objReadFile.Close 'Close file
- Set objWriteFile= objFSO.OpenTextFile(members_list, 2)
- strSplit = Split(strFile, vbcrlf)
- For x = LBound(strSplit) To UBound(strSplit)
- If strSplit(x) <> "" Then
- objWriteFile.WriteLine(strSplit(x))
- End If
- Next
- RemRankPos = True
- End If
- End Function
- Function FindRank(strRank)
- For x = LBound(clanranks) To UBound(clanranks)
- If LCase(strRank) = LCase(clanranks(x)) Then
- FindRank = clanranks(x)
- Exit For
- End If
- Next
- End Function
- Function GetRankIndex(strMember)
- Dim objFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile= objFSO.OpenTextFile(members_list, 1)
- Do While Not objFile.AtEndOfStream
- strLine = objFile.readline 'Read line
- If InStr(1, strLine, " ", vbTextCompare) > 0 Then '1 or more arg
- strSplit = Split(strLine," ")
- If Lcase(strSplit(1)) = Lcase(strMember) Then
- strRankName = Left(strSplit(0),Len(strSplit(0))-1)
- Exit Do
- End If
- End If
- Loop
- objFile.Close 'Close file
- For x = LBound(clanranks) To UBound(clanranks)
- If LCase(strRankName) = LCase(clanranks(x)) Then
- If strRankName = clanranks(x) Then
- GetRankIndex = x + 1
- Exit For
- End If
- End If
- Next
- End Function
- Function GetRank(strMember)
- Dim objFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile= objFSO.OpenTextFile(members_list, 1)
- Do While Not objFile.AtEndOfStream
- strLine = objFile.readline 'Read line
- If InStr(1, strLine, " ", vbTextCompare) > 0 Then '1 or more arg
- strSplit = Split(strLine," ")
- If Lcase(strSplit(1)) = Lcase(strMember) Then
- GetRank = Left(strSplit(0),Len(strSplit(0))-1)
- Exit Do
- End If
- End If
- Loop
- objFile.Close 'Close file
- End Function
- Function GetRankNum()
- For x = LBound(clanranks) To UBound(clanranks)
- strMessage = strMessage & clanranks(x) & ", "
- Next
- End Function
- Function NumMembers() 'Count words in a specific dictionary
- Dim objFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile= objFSO.OpenTextFile(members_list, 1)
- strOpen = ""
- intOpen = 0
- intNumLines = 0
- Do While Not objFile.AtEndOfStream
- strLine = objFile.readline 'Read line
- If strLine <> "" Then
- If LCase(Right(strLine, 6)) <> LCase("(OPEN)") Then
- intNumLines = intNumLines + 1 'Count lines
- Else
- intOpen = intOpen + 1
- strSplit = Split(strLine," ")
- strOpen = strOpen & Left(strSplit(0),Len(strSplit(0))-1) & ", "
- End If
- End If
- Loop
- objFile.Close 'Close file
- NumMembers = intNumLines 'Exit function with number of lines in file
- End Function
- Function NumLines() 'Count words in a specific dictionary
- Dim objFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile= objFSO.OpenTextFile(members_list, 1)
- Do While Not objFile.AtEndOfStream
- strLine = objFile.readline 'Read line
- If strLine <> "" Then
- intNumLines = intNumLines + 1 'Count lines
- End If
- Loop
- objFile.Close 'Close file
- NumLines = intNumLines 'Exit function with number of lines in file
- End Function
- Function ListMembers() 'Fetch a word from a specific dictionary
- Dim objFile, strLine
- Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objFile= objFSO.OpenTextFile(members_list, 1)
- intNumLines = 0
- Do While Not objFile.AtEndOfStream
- intNumLines = intNumLines + 1
- strLine = objFile.readline 'Read line
- If strLine <> "" Then
- strMembers = strMembers & "[" & intNumLines & "] " & strLine & vbcrlf
- End If
- Loop
- objFile.Close 'Close file
- ListMembers = strMembers 'Exit function with Members
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement