[FRAGEN]Allgemeine Fragen

[Vertas Studio]

Tagchen^^

Ich hätte mal ein paar Fragen an euch.

 ▼Server Nachricht▼

Wie ändere ich die Schriftfarbe von der Server Nachricht, ich habe schon in der ColorInfo.shn geschaut so wie es mir des öfteren gesagt wurde, dennoch finde ich nichts darunter, es gibt in ToG ein paar Server die es geschafft haben die Server Nachricht Schriftfarbe zu ändern, aus deren Servern habe ich mir auch schon die ColorInfo.shn Kopiert und bei mir Server/Clientside eingefügt, leider brachte dies recht wenig denn es passierte nichts, weder noch die Schriftfarbe änderte sich noch etwas anderes.


Wie ändere ich die Schriftfarbe der Server Nachricht !?

 ▼Gildenpreis▼

Gildenpreis?! Des öfteren habe ich diesbezüglich schon gefragt wo man dies ändern kann, gesagt wurde mir das dies in der Datenbank möglich ist, ich habe schon mein bestes gegeben um die Datenbank mal etwas zu durchsuchen, leider finde ich darunter nichts was mit dem Gildenpreis zu tun hat.

Wie, und wo ändere ich den Gildenpreis von 1 Gold auf z.b 1 Gem oder 10 Gold eig. müsste es ja irgendwo eine Zeile geben in dem Bereich "Gilde" wo zumindest "100000" ( 1 Gold ) <- Stehen müsste aber ich finde nichts, villeicht hätte jemand ein paar Minuten um mir dies zu Erklären.

 ▼Register▼

Es gab irgendwo ein Release wo eine Regi für Odin Releaste wurde die sich wie eine msgbox als html oder php öffnet.

Besitzt die noch jemand, wenn ja könnte er mir die Hochladen und Link Posten.

Momentan habe ich keine weiteren Fragen, aber sollte ich noch welche besitzen, hoffe ich das ihr nichts dagegen habt wenn ich die hier einfach Poste.



Positive Antworten bekommen natürlich = Thanks !

Ps. Und bitte kein Flame, denn sowas haben wir alle nicht nötig ! Wer es doch macht, hat hier in diesem Thread nichts zu suchen !

[Cℓoud]

Servernachricht ist in der ColorInfo.shn die Zeile 50.

[0xDnFx3]

3. Du hast eine Webseite inc. Register-Button und wenn das "ClickEvent" in kraft tritt
slidet es runter ?

Wenn du es so gemeint hast: Mir ist lw würde es für dich schreiben.

[xKeRnx]

Hoffe sowas hast du gemeint
->

[Vertas Studio]

Originally Posted by 0xDnFx3

3. Du hast eine Webseite inc. Register-Button und wenn das "ClickEvent" in kraft tritt
slidet es runter ?

Wenn du es so gemeint hast: Mir ist lw würde es für dich schreiben.

Ja, genau das meine ich, wenn du die Langeweile hättest wäre es sehr nett.



Kern, ja so in etwa, es gab das schon einmal irgendwo als Release ich finde es nur nicht mehr ... :/

[Vertas Studio]

#PUSH

Hat keiner eine Idee des Gildenpreises ?
Habe noch einmal alles durchgeschaut, ich finde es einfach nicht.

[D0n!]

Hatte iKasu nicht schon ein mal gepostet wie man es ändern kann?
Die Prozedur "p_Guild_Make" regelt das, diese kannst du so anpassen das der
gewünschte Wert abgezogen wird anstelle der Standard 1 Gold.
Nachteil der Sache ist, dass dies nur Serverside geschieht und der Client dann nicht
mehr den tatsächlichen Wert anzeigt den man besitzt, dazu wäre dann ein relogg nötig.

[Vertas Studio]

Ahh okay, schade dann lasse ich das lieber, danke dir !



Anbei habe ich noch eine nächste frage, wenn ich Cen fallen lasse bzw Droppen lasse, und es aufhebe wird das Geld mir direkt Transferiert, aber unten rechts in der SystemBox steht drin das ich Lederschuhe erhalten habe, wie ändere ich das?

[D0n!]

Bin mir nicht sicher ob das überhaupt zu ändern geht. Wollte eigentlich schon mal drüber schauen aber aus irgendeinem mir unerklärlichem grund funzt das bei mir überhaupt nicht :O
Scheinbar hab ich da irgendwas verkehrt gemacht

[Vertas Studio]

Also, ich bin da auch schon am schauen woran das liegt, ...


solltest du eine Lösung finden ( sofern du noch einmal drüber schaust ) dann könntest du es Posten.
Sollte ich es natürlich vorher herausgefunden haben dann schreibe ich es hier genau so.

Und ich hätte direkt mal die nächste frage...


Also, wenn ein Spieler Online ist, und Schreibt ganz normal im Öfftl. Chat "Hallo", dann kann ich als GM ein Rechtsklick machen auf dem geschriebenen "Hallo", dann kommt ein Reiter der sich "send to jail" heißt ( oder so ähnlich ) damit kann ich den Spieler in den Knast schicken, für 3000 Minuten, sobald die 3000 Minuten abgelaufen sind, wird der Spieler Automatisch nach Roumen "Rou" geportet.

Meine Frage hierbei nun,

1. Wie kann ich die Automatische vor gegebende Zeit ändern, bzw wo? ( 3000 Minuten auf 60 Minuten )

2. Wie kann ich das ändern das der Spieler nachdem die Zeit abgelaufen ist, nicht in Rou geportet wird, sondern in RouN

Ich bin schon Server Side 99% alles durch gegangen, finden tue ich nichts, kann das sein das dies wieder einmal über die Datenbank eingestellt werden muss ?



||EDIT: Sry für die Schreibweise, recht doof mit Handy zu Tippseln... <.<

[D0n!]

zu 1: Die Automatisch vorgegebene Zeit ist buggy und liegt bei 30000 millisekunden.
Eigentlich ist dafür eine weiter Nif vorgesehen gewesen die dir ein Fenster anzeigt
in dem man dann Zeit, Grund un namen des Spielers angibt aber das ist wohl nie im Client eingebaut worden oder so.
Du kannst allerdings nen workaround finden indem du dir mal die Prozeduren
p_Prison_Add2
p_Prison_Alter2
p_Prison_End
p_Prison_Get
p_Prison_UpdateCharPrisonMin
anschaust.

zu 2: Die Prozedur "p_Prison_End" wird gecallt wenn die Zeit abgelaufen ist
und legt auch die Map fest auf der man respawnt wenn ich mich nicht ganz täusche.

Es ist jetzt einige Zeit her das ich daran gebastelt habe um die Jailtime zu ändern
und was viel wichtiger ist das die Zeit auch immer aktuell ist wenn man einloggt daher
kann ich nicht mehr genau sagen in welchen prozeduren ich überall was ändern musste dazu.
Möglicherweise setze ich mich da nochmal dran, überarbeite das und poste den workaround
dann mal hier im Forum.
Gesagt sei jedenfalls das in sämtlichen Prozeduren das @nMinute immer auf 30000
steht wegen dem Bug im Client oder Server. Das an den richtigen Stellen in die gewünschte Zeit geändert dann noch eine Prozedur ändern die beim login schon überprüft ob der Spieler noch im jail ist und das system funktioniert.

Gruß D0n

[Vertas Studio]

Okay, ich werd mich auch nochmal dran machen und jegliches Versuchen, danke dir !

Ich hätte direkt noch eine frage, es geht dabei um Visual Basic 2010 Express.


Ich besitze den Odin Launcher.

Ich würde gerne sobald ich meine Daten eingegeben habe, nicht auf Login drücken wollen, sondern einfach auf "Enter" um das dies weiter geht, wie mache ich das?
Momentan steht dieser Code im Button zum weiter drin:

 Spoiler

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Label3.Text = ""

        Dim tempPassToken As String() = GetMD5Hash(TextBox2.Text).Split("-")

        Dim passMD5 As String = ""

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim wc As WebClient = New WebClient()

        Dim Login As String() = wc.DownloadString("http://91.250.80.50:8080/patcher/Login.php?Username=" & TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            Form1.Show()
            Me.Hide()
        ElseIf Login(0) = "Wrong Password." Then
            Label3.Text = Login(0)
        ElseIf Login(0) = "Account Not Found." Then
            Label3.Text = Login(0)
        Else
            Label3.Text = "Unknow Error"
        End If
    End Sub

Nächste Frage,
wenn der Patch gedownloadet wird, steht da die Kilobyte/s anzahl, ich würde gerne die MB Anzahl dort zu stehen haben, wie ändere ich das ganze?
Dazu hier der Code von dem:

 Spoiler

Imports System.Security.Cryptography
Imports System.Net
Imports System.Net.WebException
Imports System
Imports System.IO
Imports System.Text
Imports System.Collections.Generic
Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Sockets
Imports System.Threading
Imports RARNET
Public Class Form1

    Dim meuser As String
    Dim ipshow As New Net.WebClient()
    Dim ipadress As String
    Dim mestatus As String
    Dim Checking As New Net.WebClient
    Dim serverip As String
    Dim settingsfile As String
    Dim connectallow As String
    Dim newsforecolor As String
    Dim newsbackcolor As String
    Dim exename As String
    Dim usefilesec As String
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
      ByVal wParam As Integer, ByVal lParam As Integer) As Integer

    Dim cpx, cpy As Int32
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        cpx = e.X
        cpy = e.Y
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Top = Windows.Forms.Cursor.Position.Y() - cpy
            Me.Left = Windows.Forms.Cursor.Position.X() - cpx
        End If
    End Sub
    Public WithEvents downloader As WebClient
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub
    WithEvents NetworkString As NetworkStringConnection
    Public Shared Function GetMD5Hash(ByVal TextToHash As String) As String
        If TextToHash = "" Or TextToHash.Length = 0 Then
            Return String.Empty
        End If

        Dim md5 As MD5 = New MD5CryptoServiceProvider()
        Dim toHash As Byte() = Encoding.Default.GetBytes(TextToHash)
        Dim result As Byte() = md5.ComputeHash(toHash)

        Return System.BitConverter.ToString(result)
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'COPYRIGHT BY [Admin]Uchiha
        acc.Hide()
        pw.Hide()
        settingsfile = "ClientSetting1.txt"
        Label21.Hide()
        NetworkString = New NetworkStringConnection
        GoTo program



program:
                    ofmb.Hide()
                    mbof.Hide()
                    mb.Hide()
                    Label21.Hide()
                    Me.Show()
                    Me.Refresh()
                    If File.Exists("Update.exe") Then
                        File.Delete("Update.exe")
                    End If
        My.Computer.Network.DownloadFile("http://91.250.80.50:8080/patcher/Update.exe", "Update.exe")
                    If Not Directory.Exists("Dump") Then
                        Directory.CreateDirectory("Dump")
                    End If
                    If Not File.Exists("Dump/your.txt") Then
                        File.WriteAllText("Dump/your.txt", "1")
                    End If
                    downloader = New WebClient
                    If File.Exists("Dump/Snow.exe") Then
                        File.Delete("Dump/Snow.exe")
                    End If
                    If File.Exists("Dump/Version.txt") Then
                        File.Delete("Dump/Version.txt")
                    End If
        My.Computer.Network.DownloadFile("http://91.250.80.50:8080/patcher/Version.txt", "Dump/Version.txt")
                    Dim version
                    FileOpen(99, "Dump/Version.txt", OpenMode.Input)
                    version = LOF(99)
                    Label21.Text = InputString(99, version)
                    FileClose(99)
                    If Not Label21.Text = Label2.Text Then
                        System.Diagnostics.Process.Start("Update.exe")
                        Me.Close()
                    Else : Label20.Hide()
                    End If
                    If Not File.Exists("UnRAR.exe") Then
            My.Computer.Network.DownloadFile("http://91.250.80.50:8080/patcher/UnRAR.exe", "UnRAR.exe")
                    End If
                    'System.Diagnostics.Process.Start("iexplore.exe", "http://topofgames.com/index.php?do=votes&id=41222")
                    Button1.Enabled = False
                    Label13.Hide()
                    Label3.Hide()
                    Label8.Hide()
                    Label10.Hide()
                    Dim filelenght2
                    FileOpen(2, "Dump/your.txt", OpenMode.Input)
                    filelenght2 = LOF(2)
                    Label7.Text = InputString(2, filelenght2)
                    FileClose(2)
        If My.Computer.FileSystem.FileExists("Dump/need.txt") Then
            My.Computer.FileSystem.DeleteFile("Dump/need.txt")
        End If
        My.Computer.Network.DownloadFile("http://91.250.80.50:8080/patcher/need.txt", "Dump/need.txt")
                    Dim filelenght3
                    FileOpen(3, "Dump/need.txt", OpenMode.Input)
                    filelenght3 = LOF(3)
                    Label5.Text = InputString(3, filelenght3)
                    FileClose(3)
                    If Label7.Text = Label5.Text Then
            Button1.Enabled = True
            Me.Size = New Size(603, 448)
                        Label11.Text = "Keinen neuen Updates!"
                        Label9.Text = ""
                        ProgressBar1.Hide()
                        Label12.Hide()
                        Me.Refresh()
                    Else
                        ProgressBar1.Value = 0
                        Label9.Text = Label7.Text + Val("1")
            downloader.DownloadFileAsync(New Uri("http://91.250.80.50:8080/patcher/data/" + "00" + Label9.Text + ".rar"), "00" + Label9.Text + ".rar")
                    End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label3.Text = ""

        Dim tempPassToken As String() = GetMD5Hash(Form3.TextBox2.Text).Split("-")

        Dim passMD5 As String = ""

        For i = 0 To tempPassToken.Length - 1
            passMD5 = passMD5 & tempPassToken(i)
        Next

        Dim wc As WebClient = New WebClient()

        Dim Login As String() = wc.DownloadString("http://91.250.80.50:8080/patcher/Login.php?Username=" & Form3.TextBox1.Text & "&Password=" & passMD5.ToLower()).Split("#")
        wc.Dispose()

        If Login(0) = "OK" Then
            Process.Start("Game.exe", "-osk_server 91.250.80.50 -osk_token " & Login(1) & " -osk_store www.google.de")
            Close()
        ElseIf Login(0) = "Wrong Password." Then
            Label3.Text = Login(0)
        ElseIf Login(0) = "Account Not Found." Then
            Label3.Text = Login(0)
        Else
            Label3.Text = "Unknow Error"
        End If
    End Sub
    Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
        On Error Resume Next
        Label9.Show()
        ofmb.Hide()
        mbof.Hide()
        mb.Hide()
        Me.Refresh()
        'Der Patch wird entpackt
        Dim oProcess As Process
        oProcess = System.Diagnostics.Process.Start("UnRAR.exe", "x -y -ac " + "00" + Label9.Text + ".rar")
        'extract.extract()
        'extract.Hide()
        'Patch löschen
        oProcess.WaitForExit()
        File.Delete("00" + Label9.Text + ".rar")
        Label11.Text = "Getting Patch:"
        Label9.Text = Val(Label9.Text) + Val("1")
        Label7.Text = Val(Label7.Text) + Val("1")
        File.WriteAllText("Dump\your.txt", Label7.Text)
        'Es wird geprüft ob es neue updates gibt
        If Label5.Text = Label7.Text Then
            Button1.Enabled = True
            Label11.Text = "No new Updates!"
            Label9.Text = ""
            Me.Size = New Size(603, 448)
            Label12.Hide()
            Me.Refresh()
        End If
        'Es wird ein neues Update gestartet
        If Not Label5.Text = Label7.Text Then
            ProgressBar1.Value = 0
            downloader.DownloadFileAsync(New Uri("http://91.250.80.50:8080/patcher/data/" + "00" + Label9.Text + ".rar"), "00" + Label9.Text + ".rar")
        End If
        'Das Update ist beendet
    End Sub
    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
        'Der fortschritt des Downloads wird hier mithilfe einer Progressbar und einem Label angezeigt
        ofmb.Show()
        mbof.Show()
        mb.Show()
        Label12.Text = e.ProgressPercentage & "%"
        Timer1.Start()
        ProgressBar1.Value = e.ProgressPercentage
        mbof.Text = e.BytesReceived / 1000000 & " MB"
        mb.Text = e.TotalBytesToReceive / 1000000 & " MB"
        If Label12.Text = "100%" Then
            ProgressBar1.Value = 100
        End If
    End Sub
    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Form2.Show()
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If File.Exists("Dump/" + Label9.Text & ".txt") Then
            File.Delete("Dump/" + Label9.Text & ".txt")
        End If
        Application.Exit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

    End Sub

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

    End Sub

    Private Sub Label20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label20.Click

    End Sub

    Private Sub pw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pw.Click

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
       
    End Sub

    Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

    End Sub

    Private Sub LinkLabel5_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub

    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub
End Class

Noch eine frage...

Wie der ist der Code, um das Angezeigt wird, was ich gerade Downloade.



Wäre sehr dankbar eine Positive Antwort zu Erhalten, natürlich ist bei mir (immer) ein Thanks drin

[Vertas Studio]

#PUSH

Keiner ne Idee?

Don?

p_Prison_Add2
p_Prison_Alter2
p_Prison_End
p_Prison_Get
p_Prison_UpdateCharPrisonMin
anschaust.

zu 2: Die Prozedur "p_Prison_End" wird gecallt wenn die Zeit abgelaufen ist
und legt auch die Map fest auf der man respawnt wenn ich mich nicht ganz täusche.

Wo befinden sich die Prozeduren, ich finde sie nicht

[Flainity]

Die Prozeduren sind in der w00_Character Datenbank gespeichert. Geh mal in dein SQL und geh so vor:

Datenbanken (Erweitern) -> w00_Character (Erweitern) -> Programmierbarkeit (Erweitern) -> Gespeicherte Prozeduren (Erweitern) -> dbo.p_Prison_Add2 usw. -> Rechtsklick -> Modifizieren

Da sollten die drin sein und wenn nich hast du keinen Fiesta Server gemacht *Badumm Tss"

#Edit: In der Add2 steht drin dass du halt rein geportet wirst, heißt Map & Koordinaten und noch n bisschen anderes Zeug xD Alter2 Is der Port zu Roumen & Koordinaten wenn die Zeit abgelaufen ist. End sollte sich dann auch erklären sowie Get & UpdateCharPrisonMin.

Und wenn noch iwas sein sollte kannste mich ja auch in Skype adden wenn du Bock hast^^

[Vertas Studio]

So, auf zur nächsten Frage, ich habe Minihäuser geaddet, sobald ich sie ingame Benutze wird mir die Pyramide angezeigt, habe euch hier mal ein Bild Hochgeladen dazu...




Was habe ich Falsch gemacht