[TUT] Report System

[abhi2011]

This tutorial will show you how to make a report system. How it works is that you can type "/report" and a form will come where you can choose between player and bug report. Currently only bug report is
supported. When the server receives the reporters name and report it will save them as a text file in the data files of the server. Also if there is already a report from someone and the player reports again the report will not be saved. (something that should also be implemented) If someone finds a way to do so please post is as a comment!

Download and add frmReport to your project!  [http://www.freemmorpgmaker.com/files/imagehost/pics/16549863c6fa5c5faf7c441a362b2384.rar](ftp://www.freemmorpgmaker.com/files/imagehost/pics/16549863c6fa5c5faf7c441a362b2384.rar)

Client Side!

Add
```
CBugReport
```in modEnumerations above
```
' Make sure CMSG_COUNT is below everything else
```
Add
```
Sub sendBugReport(ByVal Name As String, ByVal report As String)
Dim Buffer As New clsBuffer

    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteLong CBugReport
    Buffer.WriteString Name
    Buffer.WriteString report
    SendData Buffer.ToArray
    Set Buffer = Nothing

    'error handler
    Exit Sub
errorhandler:
  HandleError "sendBugReport", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```At the bottom of modClientTCP.

In modInput find:
```
Case "/stats"
                    Set Buffer = New clsBuffer
                    Buffer.WriteLong CGetStats
                    SendData Buffer.ToArray()
                    Set Buffer = Nothing
```below it add:
```
Case "/report"
                    frmReport.Show
```
END OF CLIENT SIDE! (YEP I KNOW IT IS SMALL!)
–------------------------------------------------------------------------------------------------------------------------------
SERVER SIDE

Add this in modHandleData below the long lines of address!
```
HandleDataSub(CBugReport) = GetAddress(AddressOf HandleBugReport)
```
Add this at the end of the mod :
```
Sub HandleBugReport(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Name As String
Dim report As String
Dim intFileHandle As Integer

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data
    Name = Buffer.ReadString
    report = Buffer.ReadString

  intFileHandle = FreeFile
    Open (App.Path & "\data\bug reports.txt") For Append As #intFileHandle
    Print #intFileHandle, vbCrLf & Name & " has reported a bug - " & report
    Close #intFileHandle

End Sub

```

In modEnumerations above
```
' Make sure CMSG_COUNT is below everything else
```add:
```
CBugReport
```
For those who have added the following piece of code
```
ChkDir App.Path & "\data files\", "Bug Reports"
```remove it as it's not neccesary

Credits go to Me!
Credits also go to zomb88 for helping me figure out how to record multiple reports in the same file!

[abhi2011]

The player report system is out.
So before I say anything please download the new frmReport. I have updated the Bug Report system post frmReport also. This is a new frmReport. The old one was glitched.

[http://www.freemmorpgmaker.com/files/imagehost/pics/16549863c6fa5c5faf7c441a362b2384.rar](ftp://www.freemmorpgmaker.com/files/imagehost/pics/16549863c6fa5c5faf7c441a362b2384.rar)

CLIENT SIDE

In modClientTCP add this at the bottom :
```
Sub sendPlayerReport(ByVal Pname As String, ByVal report As String, ByVal RPname As String)
Dim Buffer As New clsBuffer

    If Options.Debug = 1 Then On Error GoTo errorhandler

    Set Buffer = New clsBuffer
    Buffer.WriteLong CPlayerReport
    Buffer.WriteString Pname
    Buffer.WriteString report
    Buffer.WriteString RPname
    SendData Buffer.ToArray
    Set Buffer = Nothing

    'error handler
    Exit Sub
errorhandler:
  HandleError "sendPlayerReport", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```
In mod enumerations before :
```
' Make sure CMSG_COUNT is below everything else
```add this
```
CPlayerReport
```
CLIENT SIDE DONE

* * *

In mod Enumerations above
```
' Make sure CMSG_COUNT is below everything else
```add this :
```
CPlayerReport
```
In modHandleData at the end of the initMessages() add this
```
HandleDataSub(CPlayerReport) = GetAddress(AddressOf HandleplayerReport)
```and add this at the bottom of the mod
```
Sub HandleplayerReport(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Pname As String
Dim report As String
Dim RPname As String
Dim intFileHandle As Integer

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data
    Pname = Buffer.ReadString
    report = Buffer.ReadString
    RPname = Buffer.ReadString

    intFileHandle = FreeFile
    Open (App.Path & "\data\PlayerReports.txt") For Append As #intFileHandle
    Print #intFileHandle, vbCrLf & Pname & " Reported " & RPname & " - " & report
    Close #intFileHandle
End Sub

```
THE END.
If you find any bugs just post them below the community will help you. :D

[zomb88]

pretty useless tutorial

[abhi2011]

@zomb88:

> pretty useless tutorial

Y may do you say so? And if you think it is useless y did u go through it?

[zomb88]

I didnt even need to go through it i merely took 5secs to look at it.

1\. Why use a whole new form for the report then use a frame or something that just gets shown.
2\. Look at your File Exists check.
3\. Google vb6 text files.

Very basic tutorial but could be done alot better imo

[abhi2011]

@zomb88:

> I didnt even need to go through it i merely took 5secs to look at it.
>
> 1\. Why use a whole new form for the report then use a frame or something that just gets shown.
> 2\. Look at your File Exists check.
> 3\. Google vb6 text files.
>
> Very basic tutorial but could be done alot better imo

1\. I made a frame so that 2 reporting systems can be added Bug and Player. If you want make 2 forms. Bug Report and Player Report. But it will just increase the work. And also the good thing of a frame is that if you make a frame invisible all the controls in the frame will also be invisible. If you were thinking of making both the Bug and Player report in both the same form without the frame, it will take some time to write the code for making each and every wanted control to be visible and also might confuse you.

2\. What is wrong with them?
3\. I will am checking them right now!

[zomb88]

·        mode is one of the following three keywords: Input, Output, or Append.

When a file is opened for Output, if it does not exist, it will be created; if it does exist, its previous contents will be overwritten.

and if you keep reading you might find your answer to your next step in this.. tutorial
```
When a file is opened for Append, if it does not exist, it will be created, if it does exist, records will be added to the file after the last record in the file (the previous contents of the file will not be overwritten).
```
Btw i ment making a frame on the game form… not on the form you made.

[farrel24]

How to Use?
How to Show frmReport?are use Command Button?

[santa-clause]

Just make a button and double click it
and add
```
frmReport.visible=true

```

[abhi2011]

Btw i forgot something in modInput. Updating tutorial. ("/report")
@zomb88
I knew the apend thing before you told me. Just didn't know how to implement it. That is write it on the .txt file

[farrel24]

@santa-clause:

> Just make a button and double click it
> and add
> ```
> frmReport.visible=true
>
> ```

why, when pressing the Report button, automatically, the client goes exit by itself?

[zomb88]

When a file is opened for Append, if it does not exist, it will be created, if it does exist, records will be added to the file after the last record in the file (the previous contents of the file will not be overwritten).

If that doesnt make sense there is something wrong.

hint..

>! THERES ONE WORD TO CHANGE

And you still dont get whats wrong with your file exist?

[farrel24]

hmm, No Code in lblReportP ?

[abhi2011]

@farrel24:

> hmm, No Code in lblReportP ?

lblreportP is a work in progress. (lblReportPlayer) Will come soon! :D

[farrel24]

@abhi2011:

> lblreportP is a work in progress. (lblReportPlayer) Will come soon! :D

okay, I'll wait it  :cheesy:

[abhi2011]

Solved! : Figure out a way to make multiple reports recorded in the same file

SERVER SIDE
Replace HandleBugReport in modHandleData with
```
Sub HandleBugReport(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer
Dim Name As String
Dim report As String
Dim intFileHandle As Integer

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data
    Name = Buffer.ReadString
    report = Buffer.ReadString

  intFileHandle = FreeFile
    Open (App.Path & "\data\bug reports\" & Name & ".txt") For Append As #intFileHandle
    Print #intFileHandle, report
    Close #intFileHandle
end sub
```
UPDATED MAIN POST!

[zomb88]

and u got rid of the file exists
congratz

[abhi2011]

Thx. Culdn't do it without u though! I never fully understood Apend except reocrds will go to the end of the text . never actually thought it will make a text file. I will work on the player report now!

[erkro1]

@farrel24:

> why, when pressing the Report button, automatically, the client goes exit by itself?

Try:
```
frmReport.Show
```
@abhi2011:

> -snip-

You're missing an End Sub at the end.

[abhi2011]

@Erwin I tried frmReport.visible using cmdbutton in frmMain. But mine didn't auto close. thx. UPDATED!

[erkro1]

@abhi2011:

> @Erwin I tried frmReport.visible using cmdbutton in frmMain. But mine didn't auto close. thx. UPDATED!

Well, I was answering to farrel24.

[zomb88]

@abhi2011:

> Thx. Culdn't do it without u though! I never fully understood Apend except reocrds will go to the end of the text . never actually thought it will make a text file. I will work on the player report now!

You seem like you have the willingness to learn unlike 90% or more of ppl on this community. Glad you could figure it out with some abrupt direction xD

[abhi2011]

I know that. I also wanted to answer him but when i tried what i said i tried i had no problem. Just saying ;)

[zomb88]

I think you should look at having the bug reports all save to one text file and then player reports saved to separate files, just me but thats how id probably do that.

[farrel24]

thanks for your answer, I apologize because I was always a lot to ask  :embarrassed: