[APP] SA-MP Server Helper

Evo moja prva aplikacija, biti ce korisna pocetnicima. Aplikacija pomaze oko dizanja servera, ip adrese, ubacivanja moda, editovanja server.cfg-a i td...
Evo par slicica:

http://img815.imageshack.us/gal.php?g=sl1.jpg

A evo downloada:

http://www.sendspace.com/file/5c14b5

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

nije lose jel ovo napraveno u Delphi?

Visual Basic

bas mi se cini lijepo
bravo odlicno 😄D

Oprosti, ali ne vjerujem da si to ti radio, tj. jesi, ali vec od nekog koda.. 😄.. i da:

Sve objavljene skripte moraju sadržavati izvornu kodu (.PWN fajl), to važi i za sve druge skripte/programe koji nisu napisani u PAWN jeziku.

LuKsA wrote on July 8, 2010, 4:39 pm:

Oprosti, ali ne vjerujem da si to ti radio, tj. jesi, ali vec od nekog koda.. 😄.. i da:

Zasto nije on napravio, pa to se napravi u 5min u C++ -.- nebi da je nes zahtjevno radio pa da je morao neki source kod uzimati

Ako itko pronade nesto slicno od app posaljite mi PM ja cu usporediti i ako ce prijava biti valjana on ce dobiti brisanje ACC

Neznam cisto sumnjam 🙂 (bez uvrede Haris), ali gle, skriptanje je dosta slicno programiranju, a vidim on puno puta tu trazi po forumu pomoc, pa mi nije sad bas za nekog ko puno trazi pomoc oko skriptanja da zna u visual basicu radit ..

LuKsA wrote on July 8, 2010, 6:51 pm:

Neznam cisto sumnjam 🙂 (bez uvrede Haris), ali gle, skriptanje je dosta slicno programiranju, a vidim on puno puta tu trazi po forumu pomoc, pa mi nije sad bas za nekog ko puno trazi pomoc oko skriptanja da zna u visual basicu radit ..

Haris zna dosta toga u skriptanju, inaće lijep program, 🙂

super...

@ Administrator:
Slažem se sa tobom ako nađeš neku slićnu skriptu slobodno me banuj za uvijek sa foruma...
a ako želiš mogu tebi na pm poslat dokaz (skriptu) pa ti i shvatit ćeš ko je radio...
😉

@ Luksa:
Ako sam tražio pomoć to nije bila neka skroz banalna stvar nego neÅ¡to komplikovanije (u zadnje vrijeme) prije možda da, jer se niko nije naučen rodio.  :-*

😕
Odlicno je ovo, svaka cast!

Ja ucim programirati moze skripta, da vidim otprilike kako sta?

Haris moraš dati source code ili ti mičem APP. Pročitaj pravila!

Quote

Sve objavljene skripte moraju sadržavati izvornu kodu (.PWN fajl), to važi i za sve druge skripte/programe koji nisu napisani u PAWN jeziku.