Created by Tazco.
Using "RC_Core.rcm"
; By Naddaz on TAZCO
Function Main()
;Makes a petition and sends player input to a text file.
;Makes a petition list that will name evey player that has maked a petition.
;Will only add players name once to the list.
;Gm`s the right gm rank will be able to check read and delete petitions. Only ranks can only read.
Player = Actor()
Target = ContextActor()
PName$ = Name(Player)
ChatBox$ = OpenDialog(Player, Target, "Petition")
DialogOutPut(Player, ChatBox, "Would you like to make a petition that a gm could look at later?.", 230, 145, 23)
PetOption% = DialogInPut(Player, ChatBox, "Yes,No")
If (PetOption = 1) ;Start the petition making
CloseDialog(Player, ChatBox)
ChatBox$ = OpenDialog(Player, Target, "Petition")
PetFile$ = OpenFile(+ PName + "s petition.txt")
If (PetFile = 0) ;player has a petiton opened already
;do nothing since this file will be made later.
Else
CloseDialog(Player, ChatBox)
ChatBox$ = OpenDialog(Player, Target, "Petition")
DialogOutPut(Player, ChatBox, "You already have a open petition, please wait for an answer before making a new one.", 230, 145, 23)
DialogInput(Player, ChatBox, "Close")
CloseDialog(Player, ChatBox)
CloseFile(PetFile)
Return
Endif
CloseFile(PetFile)
DialogOutPut(Player, ChatBox, "Type your petition and a gm will get back to you shortly.", 230, 145, 23)
PetEnter$ = Input(Player, "Enter text for petition.", "", 4)
CloseDialog(Player, ChatBox)
ChatBox$ = OpenDialog(Player, Target, "Petition")
DialogOutPut(Player, ChatBox, "You have entered this for your petition " + PetEnter, 230, 134, 23)
PetList$ = OpenFile("Petition List.txt")
If (PetList = 0) ;If there is no petition list make one.
PetitonList$ = WriteFile("Petition List.txt")
CloseFile(PetList) ;close opened petition file
CloseFile(PetitonList)
PetList$ = OpenFile("Petition List.txt")
Endif
;Check if player name is already in the list, if so then don`t add it.
EndRepeat% = 10
;NOTE:have repeat commented since it seems to work with out it, also
;if you manuly updated the text file it could through the count off since it counts empty spaces.
Repeat
EndRepeat = Eof(PetList)
NameinFile$ = ReadLine(PetList)
If (NameinFile = Name(Player)) ;players name is in the list end repeat and close file.
NameMatch% = 5
Eof(PetList)
CloseFile(NameinFile)
Endif
Doevents(1)
Until (EndRepeat = 0)
If (NameMatch = 5) ;player has name in the list don`t added it again
;Close file since player is in list already.
CloseFile(PetList)
Else ;players name is not in the list, add it to the list.
SeekFile(PetList, FileSize("Petition List.txt"))
WriteLine(PetList, Name(Player))
CloseFile(PetList) ;Close Opened file above
Endif
PetFile$ = OpenFile(+ PName + "s petition.txt")
If (PetFile = 0) ;Make a new file if there is not one already.
PetFile$ = OpenFile(+ PName + "s petition.txt")
PPetFile$ = WriteFile(+ PName + "s petition.txt")
DoEvents(500) ;wait 1 sec then close files
CloseFile(PetFile) ;close opened petition file
CloseFile(PPetFile) ;close new petition file
Endif
CloseFile(PetFile) ;close opened petition file
POption$ = DialogInput(Player, ChatBox, "Done")
If (POption = 1) ;Write to file and end.
PetFile$ = OpenFile(+ PName + "s petition.txt")
SeekFile(PetFile, FileSize(+ PName + "s petition.txt"))
WriteLine(PetFile, PetEnter) ;Write player input to a file.
DoEvents(500)
CloseFile(PetFile) ;close opened petition file
CloseDialog(Player, ChatBox)
Return
Endif
DoEvents(1400)
CloseDialog(Player, ChatBox)
ElseIf (PetOption = 2) ;Close petition maker
DoEvents(500)
CloseDialog(Player, ChatBox)
Return
EndIf
End Function