Beiträge von ViPeR124

Zitat von Jack_Bauer

Danke. Habe inzwischen auch den Fehler gefunden. Habe vergessen, die Parameter mittels der Funktion SetParam() zu senden.
Ich danke auf jeden Fall für Eure Mühen.

Hast du es auch geschafft das es funktioniert? EDIT:Wenn ja könntest du mir mal zeigen wie?

Danke im Vorraus

Zitat von Jack_Bauer

Das ist jeweils nur eine Zeile. Da gibt's nichts einzurücken.

Habe ich auch schonmal dran gedacht, nur habe ich hier erstmal bessere Erfolgschancen gesehen, weil hier die Chance auf Nutzer der Library höher steht.

VB-Paradise ist sowieso so ein Board für sich. Man kriegt dort oft freche antworten und sie tuen so als wäre es selbstverständlich das was man nachfragt wissen zu müssen.
Naja egal ich denke mal das es nicht funktioniert weil VB.NET D3D9 Menü's nicht richtig unterstützt. Da ich aber keine Ahnung von der API habe ist das jetzt was ich aus erfahrung kenne. Ich schaue mir das plugin jetzt aber mal an und berichte dir dann davon.

EDIT: Habe jetzt was gefunden. Es gibt extra einen .Net Wrapper: Klick mich!

Habe den c# Sample Code mal in VB.Net nachgemacht aber mein GTA stürtzt immer ab. Wichtig ist das du die dll und die alte dll in dem debug/release ordner hast und du darfst die auch nicht umbennen!

Imports DX9OverlayAPIWrapper
Module Module1


    Dim overlayText As Integer = -1


    Sub Main(args As String())
        DX9Overlay.SetParam("use_window", "1")
        DX9Overlay.SetParam("window", "GTA:SA:MP")


        overlayText = DX9Overlay.TextCreate("Arial", 12, False, False, 200, 200, _
            &HFF00FFFFUI, "Hello world", True, True)


        If overlayText = -1 Then
            Console.WriteLine("A error is occurred at the intializing.")
            Console.WriteLine("Press any key to close the application!")
            Console.ReadKey()
            Return
        End If
        Console.WriteLine("Enter 'exit' to close the application!")
        Dim input As String = Console.ReadLine()


        While input <> "exit"
            DX9Overlay.TextSetString(overlayText, input)
            input = Console.ReadLine()
        End While


        DX9Overlay.TextDestroy(overlayText)
    End Sub


End Module

Probier einfach mal ein wenig rum. Vielleicht funktioniert es ja bei dir

MfG

Hallo alle zusammen.
Ich suche einen guten SA:MP ENB Series Mod.
Er sollte möglichst so aussehen wie der Aldi_ENB auf den Bildern:

Habe den Mod ausporbiert sieht aber leider gar nicht so aus wie auf den bildern

Danke im Vorraus!

Also die Bewerbung ist echt sehr Mager...
Futures bedeutet übrigens Zukunft das was du meinst sind Features ("Funktionen") Vielleicht solltet ihr sowas vorher mal ergooglen.
Und ich würde an euere stelle das WA Icon da raus nehmen da ihr darauf keine rechte habt^^

Das wäre kein Problem. Das kann ich (wenn du willst) auch ändern. Also das es normal Hell ist.

Wie schaut es damit aus?

Download: Klick mich!

MfG

So nach einer weile suchen hab ich folgendes gefunden:

http://www.mediafire.com/downl…5/compass+mod+%2B+fix.rar
Hab ihn mal installiert und so sieht er letzendlich aus:

Ob es das ist was ihr sucht weiß ich nicht, trotzdem hoffe ich das ich euch helfen konnte.

MfG

Ich könnte dir (wenn du willst) einen Anti Cheat Clienten schreiben. Ist ja nicht so das dingen. Du müsstest mir nur sagen was genau du brauchst. Also Blacklist ist klar. Aber soll er vllt noch Server News anzeigen etc?
Wenn du Interesse hast schreib mir mal eine PN.

MfG!

Hallo liebe Community,
heute hab ich mal ein kleines Tutorial vorbereitet, indem ich euch erkläre wie man .img (z.B gta3.img) Dateien ausliest mit VB.NET.

Als erstes erstellen wir ein Projekt (Windows Form Application). Mein Projekt nenne ich IMG_Tutorial.
Für das Tutorial benötigen wir einen Button, einen ListView und einen OpenFileDialog.
Habt ihr das hinzugefügt fangen wir als ersten mit dem Form1_load Event an.
Dort schreiben wir folgendes rein:

ListView1.AllowColumnReorder = True
		ListView1.View = View.Details
		ListView1.FullRowSelect = True
		ListView1.Columns.Add("Name", 150, HorizontalAlignment.Left)
		ListView1.Columns.Add("Offset", 150, HorizontalAlignment.Left)
		ListView1.Columns.Add("Block Size", -2, HorizontalAlignment.left)
		OpenFileDialog1.Filter = "IMG-Datei | *.img"

Über dem Form1_load Event definieren wir noch eine Globale Variabel. Ich nenne sie in dem Tutorial einfach mal "path".

Dim path as string

Wenn wir das getan haben erstellen wir einen Private Sub indem wir die Datei schonmal auslesen lassen.
Fügt unter eurem letztem "End Sub" folgendes hinzu:

Private Sub readIMG(ByVal PfadDerDatei As String)
		Me.Text = ""
		Dim bytes(PfadDerDatei.Length - 1) As Byte 'Deklariert die Variable Bytes als Byte und wird direkt beschrieben mit der größe der ausgewählten Datei - 1.
		Using fs As New FileStream(PfadDerDatei, FileMode.Open, FileAccess.Read) 'Die Datei wird im FileStream geöffnet und ist nur lesbar!
			fs.Read(bytes, 0, bytes.Length) 'Hier werden die kompletten Bytes der Datei gelesen
			For i = 0 To 3 'In dieser For schleife werden die ersten 4 Bytes ausgelesen. In den ersten 4 Bytes steht die Version der IMG Datei.
				Me.Text += Chr(bytes(i)) 'Bei jeder GTA:SA .img Datei wird hier der Wert "VER2" zurückgegeben. Dieser wird bei uns in den Form Titel geschrieben.
			Next
			Me.text += " - "
			For i = 4 to 7 'In den nächsten 4 Bytes steht die Anzahl der Dateien in der .img Datei. Wählt ihr die Standard gta3.img aus sollte dort stehen: 1696300.
				Me.Text += CStr(bytes(i)) 'Das ist natürlich nicht richtig! Hier reicht es wenn ihr statt den 4 - 7 Byte ausliest nur den 4 - 5 Byte! Oder ihr last die letzten nullen einfach entfernen.
			Next
			Me.text += " Einträge!"
		End Using
	End Sub

So als nächstes kommt das Button1_Click Event an die Reihe.
Dort lassen wir nun das OpenFileDialog erscheinen sodass wir unsere .img Datei auswählen können.

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
			path = OpenFileDialog1.FileName
		End If
		readIMG(path)

Nun Testen wir unser Programm.
Das Resultat sollte ungefähr so aussehen:

Spoiler anzeigen

For i = 8 To 11
				t(1) += CInt(bytes(i))
			Next
			For i = 12 To 15
				t(2) += CInt(bytes(i))
			Next
			For i = 16 To 39
				t(0) += Chr(bytes(i))
			Next
			ListView1.Items.Add(New ListViewItem(t))

Und unter fs.Read(bytes, 0, bytes.Length) definiert ihr das array t(2)

dim t(2) as string

Am ende sollte das Programm euch folgendes ausgeben wenn ihr die gta3.img öffnet:

Spoiler anzeigen

Um die Ganze Datei auszulesen braucht ihr eigentlich nur eine For schleife um die letzten 3 For schleifen zu legen. Und statt for i = 8 to 11 könntet ihr variablen einsetzen so ca:
for i = Offset to Offest + 4
t(1) += CInt(bytes(i))
next
und ganz am ende bevor die große for schleife zu ende ist addiert ihr einfach 32 zu euere Offset Variable.

So sollte euer Code aussehen wenn ihr alles gemacht habt wie beschrieben und nur den Ersten Eintrag in der IMG Datei lesen wollt:

Imports System.IO


Public Class Form1
    Dim path As String
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListView1.AllowColumnReorder = True
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        ListView1.Columns.Add("Name", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("Offset", 150, HorizontalAlignment.Left)
        ListView1.Columns.Add("Block Size", -2, HorizontalAlignment.Left)
        OpenFileDialog1.Filter = "IMG-File | *.img"
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            path = OpenFileDialog1.FileName
        End If
        readIMG(path)


    End Sub
    Private Sub readIMG(ByVal PfadDerDatei As String)
        Me.Text = ""
        Dim bytes(PfadDerDatei.Length - 1) As Byte
        Using fs As New FileStream(PfadDerDatei, FileMode.Open, FileAccess.Read)
            fs.Read(bytes, 0, bytes.Length)
            Dim t(2) As String
            For i = 0 To 3
                Me.Text += Chr(bytes(i))
            Next
            Me.Text += " - "
            For i = 4 To 7
                Me.Text += CStr(bytes(i))
            Next
            Me.Text += " Einträge!"
            For i = 8 To 11
                t(1) += CInt(bytes(i))
            Next
            For i = 12 To 15
                t(2) += CInt(bytes(i))
            Next
            For i = 16 To 39
                t(0) += Chr(bytes(i))
            Next
            ListView1.Items.Add(New ListViewItem(t))
        End Using
    End Sub


End Class

Hoffe ich konnte euch helfen. Solltet ihr Probleme haben oder Fehler im Tutorial finden könnt ihr das gerne drunter Posten!

MfG TheTrust3343

Zitat von Loganx3

Mellnik:
Ich versteh's nicht.
Ich programmier seit langem selber mit .NET (Visual Studio , C++ , VB etc)
Probleme, Geschwindigkeitsverlust hatte ich nicht.
Solange man richtig programmiert geht alles einwandfrei

@TheTrust3343:
Bitte einmal Pawn Editor draus machen :^)
Dann setze ein Icon bzw. verstecke es. Dazu kannst du (ShowIcon = False) in den Eigenschaften rechts unten machen oder deinen "FormBorderStyle" verändern.
Achte darauf, dass alles im Anchor ist bzw. das du ein "Fixed" (Sprich man kann das Fenster nicht größer oder kleiner ziehen) verwendest. Anchor wär da die bessere Variante

Alles anzeigen

´
Habe es geändert
Ich habe das Programm schon so eingestellt das man es beliebig groß ziehen kann. Finde es persönlich besser, so kann jeder Benutzer sich das selbst Einstellen.
Zum Icon. Da werde ich mir noch ein eigenes erstellen. Solange bleibt das Standard Icon

Zitat von Montero

Klingt doof, aber wieso sollte ich beispielsweise diesen Editor verwenden und nicht den von Sa-Mp "mitgelieferten" Pawn Editor (Pawno) abgesehen von der Fahrzeugliste?

Noch gibt es keinen Grund diesen Editor zu benutzen. Ich weiß aber auch nicht ob ich ihn überhaupt veröffentliche. Wollte lediglich Feedback und vielleicht die ein oder andere Idee für eine Funktion die man implementieren könnte

MfG

Zitat von Mellnik

.NET? Haus in den Mülleimer

Was ist an .NET so schlimm? Solange es funktioniert ist doch alles ok^^

Hallo liebe Community,
ich wollte euch heute mal meinen selbst geschriebenen Pawno Editor zeigen und würde gerne Wissen was ihr davon haltet.

Momentane Features:
- Pawno Syntax Highlighting
- Include Liste
- Scripts kann man in verschiedenen Tabs öffnen
- Eine Fehlerliste die bei Klick auf den Fehler in die Entsprechende Zeile springt.
- Vehicle liste mit den ID's (Nicht fertig!)

Hier ein paar Bilder wie der Editor momentan aussieht:
Auf diesem Bild sieht man denke ich ganz gut das Syntax Highlighting sowie die Include liste.

Hier sieht man die Vehicle liste auf der Rechten Seite.

Und auf dem letztem Bild sieht man die Fehlerliste und die entsprechende Makierte Zeile in der sich der Fehler befindet.

Wie findet ihr meinen Editor?
Was für Funktionen würdet ihr gerne sehen?

Danke im Vorraus für euer Feedback!

MfG TheTrust3343 aka. ViPeR124

Aber trotzdem wird ja jede Sekunde (in dem Fall) eine PHP Datei aufgerufen, da der Webspace den ich derzeit habe eine Art ddos Schutz hat wird die IP nach einer bestimmten Anzahl Aufrufen für 5 - 10 Minuten blockiert. Dadurch würde also das Auktionshaus nach ca. 5 - 10 Minuten nicht mehr funktionieren.

Hey Community,

ich möchte eine Art Auktionshaus erstellen und wollte mal fragen welche Möglichkeiten es dafür alle gibt.
Die einzige die ich kenne ist über Ajax (+ PHP), allerdings läuft das nicht zu 100% bei jedem flüssig.
Außerdem würde das bestimmt auch eine Menge Traffic (oder sonstiges) produzieren.
Was ich genau machen will ist eigentlich ziemlich Simple.
Man hat als Beispiel 3 Auktionen. Dann kann man mit einem Klick auf einen "Bieten" Button den Preis erhöhen,
bei den anderen soll es natürlich auch gleich angezeigt werden ohne dass die User diese Seite aktualisieren müssen.
Danke schon mal im voraus.

Mit freundlichen Grüßen

Zitat von xDJPerfectTube

Hallo!
Nun zur Bewertung :


Die Vorstellung :
12 Screenshots Mehr erwartet hätte ich schon........ Als ich Elite Gun Game sah dachte ich sehr nice Server & Vorstellung.
Aber die Vorstellung ist kein bisschen wert. Man muss sich schon 1 - 2 Stunden dafür lassen.
7 Features..... okay, wenigstens 7 einige haben nicht mal des.
Mehr kann & sage ich nicht :
3/10 (Bewertung) ( Vorstellung )


Das Forum/Teamspeak :
So,kommen wir zum Forum/Teamspeak
Es gibt überhaupt kein Forum & kein TS³.
Ich denke wenn man ein Projekt starten will MUSS man ein vorhandenen Forum / Teamspeak³ haben.
So wird das nichts. Hoffentlich kommt Teamspeak / Forum bald daher :
0/10


Der Server :
So als ich rein kam hatte ich eine Pistole 0$ und keine Leute.
Daher negativ.Da waren auch keine Autos zum Server anschauen & ich wusste keine Befehle!
Sollte es kein /hilfe ---> /help geben?
Ich denke schon.
Draus wird denke ich leider nichts.
Alles ist gesagt ich halte mich jetzt raus!
0/10


Gesamt : 3/30
Bewertung : ( Sehr schlecht ) Kein Bedarf mehr zu kommen!!!

Alles anzeigen

Erstens ist das eine ziemlich unfaire Bewertung von dir!
Was erwartest du bitte von einem GunGame Server?
So ein Server brauch nicht viele Features um zu glänzen!
Inzwischen wurde auch die Werbung überarbeitet wie man Deutlichst sehen kann.

Zweitens: Wozu brauch ein GunGame Server ein Forum?
Es gibt nichts was großartig ausdisskutiert oder besprochen werden muss wie z.B
bei Reallife Servern!

Drittens: Wenn du richtig gelesen hättest, würdest du auch keinen Autos erwarten um dir den Server anzuschauen.
Es ist kein Reallife/Stuntage oder derartiger Server.
Und meiner Meinung nach hättest du dich von Anfang an raushalten sollen.
Deine Bewertung ist ziemlich unfair und somit nicht beachtens wert.

Das musste ich jetzt einfach mal sagen...

MfG TheTrust3343 a.k.a ViPeR124

Zitat von Daxter

Ich habe noch 5€ auf meinem Steam Account. Welches Spiel könnt ihr mit empfehlen? Oder soll ich warten, bis manche Spiele wieder im Angebot sind?

Auf jedenfall warten. In den Ferien werden wieder massenhaft gute spiele runtergesetzt

geht auch paypal?

Das liegt warscheinlich daran das du die plugins nicht in die script datei reingeschrieben hast.

So müsste das dann aussehen wenn du die plugins reinschreibst und folgende plugins als beispiel reinschreibst
Windows Server:

plugins streamer audio sscanf

Linux Server:

plugins streamer.so audio.so sscanf.so

Da Nitrado Server auf Linux basieren solltest du sie so wie gezeigt schreiben. Also alle plugins mit der (.so) endung

Hab ein problem krieg es zwar kompiliert aber der server startet sich nicht weiß einer warum?

Zitat von *<strike>ex[y]

Wie soll ich was releasen was ich nicht besitze ? Sry aber ich habe nichts mehr von SA:MP auf
meinem PC...

MFG...

Wenn du kein SA:MP mehr spielst wieso bist du dann auf ThugLife Roleplay dein Ingame name ist doch K3VIN wenn ich mich nichte irre oder?