[APP] SA-MP Server Helper

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Integer = MessageBox.Show("Želite li pregledati tutorial?", "Kako pokrenuti SA-MP Server?", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)
        If result = 6 Then
            Dim Ime As String
            Ime = InputBox("Unesite vaÅ¡e ime:", "Ime")
            MsgBox("DobrodoÅ¡li u tutorial kako otvoriti SA-MP Server " + Ime, , "Tutorial")
            MsgBox("Prvo otvorite 'samp03asvr_R8_win32.zip' file i kopirajte sadržaj u neki folder.", , "Tutorial")
            MsgBox("Kada ste kopirali sadržaj u neki folder otvorite 'gamemodes' folder koji je sadržan.", , "Tutorial")
            MsgBox("Po želji otvorite neki od ponuÄ‘enih modova...", , "Tutorial")
            MsgBox("U folderu koji ste kopirali takoÄ‘er se nalazi file 'server.cfg', otvorite ga.", , "Tutorial")
            MsgBox("Vidjet će te sljedeći sadržaj:", , "Tutorial")
            MsgBox("server.cfg" & vbCrLf & "echo Executing Server Config..." & vbCrLf & "lanmode 0 (0 lan iskljucen, 1 lan ukljucen)" & vbCrLf & "rcon_password changeme ('changeme' obavezno morate promijeniti inace necete moci dici server!)" & vbCrLf & "maxplayers 50 (broj označava maksimalan broj igrača)" & vbCrLf & "port 7777 (sljedeći broj se dodaje na vaÅ¡u IP adresu i čini 'adresu' vaÅ¡eg servera)" & vbCrLf & "hostname SA-MP 0.3 Server ('SA-MP 0.3 Server' sačinjava ime vaÅ¡eg servera možete ga izmjeniti po želji)" & vbCrLf & "gamemode0 grandlarc 1 (označava ime moda koji trenutno koristite)" & vbCrLf & "filterscripts base gl_actions gl_property (filterskripte koje koristite njihova imena morate napisati ovdje)" & vbCrLf & "" & vbCrLf & "To je neophodno da znate oko podizanja servera.")
        Else
            'ne kliknuto
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("VaÅ¡a IP Adresa servera: 127.0.0.1:localhost    (Koji ste stavili u 'server.cfg'-u)", , "IP Adresa")

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("/rcon exit    (Gasi server)" & vbCrLf & "/rcon kick     (izbacuje odreÄ‘eni id sa servera)" & vbCrLf & "/rcon ban   (banuje odreÄ‘eni id)" & vbCrLf & "/rcon changemode   (mijenja mod)" & vbCrLf & "/rcon gmx    (Restartuje server)" & vbCrLf & "/rcon gravity    (odreÄ‘uje gravitaciju na serveru)" & vbCrLf & "/rcon weather     (Postavlja odreÄ‘eno vrijeme)")

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("Forum: http://balkan-samp.com/", , "Forum")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MsgBox("Odabiranjem željenog naslova biti će vam prikazana odgovarajuća pomoć na to pitanje...", , "Pomoć")

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub
End Class