Phoenix-Games Patcher

[.Yasin]

[.Bloodseeker]

????

[Gawa™]

????

[.αpeх']

Was soll denn das werden?

[.Bloodseeker]

Is das der source oder wie?...
Wer ist dieser Yasin?

[[Patrick]]

Wirklich deins?

Aber erklär mal bisschen..bitte..

[Special]

Rausnehmen sonst reported

[MissUnderstoodOne]

Das ist nicht der Source!
Das ist lediglich das Design, welches von Aza gemacht wurde!

Ich kann nur soviel sagen, das ist NICHT Yasin/Kenan!

[.Bloodseeker]

Warum wundert mich sowas nicht?
Immer diese Hater... tzzzz

[Gawa™]

- Ist das der RICHTIGE Patcher ?
- Wieso hat dieser Yasin ihn ?
viel wichtiger, woher hat er ihn ?

- Wieso ist dieses Release hier ?

bitte mal etwas erklären, bin grade etwas verwirrt ...


Grüße

[[Patrick]]

Originally Posted by .Bloodseeker

Warum wundert mich sowas nicht?
Immer diese Hater... tzzzz

Hat doch nix mit hat'en zutun..

Wenn es nicht seins ist hat man sowas nicht zu releasen..

[xCPx]

Also 2 Sachen:
1. Das ding hier ist uralt und kann nichtmal Patchen.
2. Daran funktioniert genau eins und das auch nicht perfekt: das design
3. Den hab ich gestern und heute komplett neu geschrieben.
4. Freu dich mal drauf, dass du richtig stress mit aza mir und marv kriegen wirst, da wir das Design und das Script selbstgemacht haben und somit auch alle Rechte daran haben.


Sorry aber wer das:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BackColor = Color.Gray
        TransparencyKey = BackColor
        status_aktu(10, 100)
        status_ges(90, 100)
    End Sub






    'statusanzeige
    Public Sub status_ges(ByVal aktu As Integer, ByVal max As Integer)
        PictureBox8.Width = aktu / max * 320
    End Sub
    Public Sub status_aktu(ByVal aktu As Integer, ByVal max As Integer)
        PictureBox10.Width = aktu / max * 320
    End Sub
    'Hover
    'Serverbuttons
    Private Sub illirea_hover() Handles PictureBox3.MouseEnter
        PictureBox3.BackgroundImage = My.Resources.illirea_h
    End Sub
    Private Sub illirea_normal() Handles PictureBox3.MouseLeave
        PictureBox3.BackgroundImage = My.Resources.illirea
    End Sub

    Private Sub newvision2_hover() Handles PictureBox6.MouseEnter
        PictureBox6.BackgroundImage = My.Resources.newvision_h
    End Sub
    Private Sub newvision2_normal() Handles PictureBox6.MouseLeave
        PictureBox6.BackgroundImage = My.Resources.newvision
    End Sub

    Private Sub arius2_hover() Handles PictureBox5.MouseEnter
        PictureBox5.BackgroundImage = My.Resources.arius2_h
    End Sub
    Private Sub arius2_normal() Handles PictureBox5.MouseLeave
        PictureBox5.BackgroundImage = My.Resources.arius2
    End Sub

    Private Sub enyalios_hover() Handles PictureBox4.MouseEnter
        PictureBox4.BackgroundImage = My.Resources.enyalios_h
    End Sub
    Private Sub enyalios_normal() Handles PictureBox4.MouseLeave
        PictureBox4.BackgroundImage = My.Resources.enyalios
    End Sub

    'Start etc
    Private Sub start_hover() Handles PictureBox14.MouseEnter
        PictureBox14.BackgroundImage = My.Resources.start_h
    End Sub
    Private Sub start_normal() Handles PictureBox14.MouseLeave
        PictureBox14.BackgroundImage = My.Resources.start
    End Sub

    Private Sub hp_hover() Handles PictureBox15.MouseEnter
        PictureBox15.BackgroundImage = My.Resources.homepage_h
    End Sub
    Private Sub hp_normal() Handles PictureBox15.MouseLeave
        PictureBox15.BackgroundImage = My.Resources.homepage
    End Sub
    Private Sub forum_hover() Handles PictureBox16.MouseEnter
        PictureBox16.BackgroundImage = My.Resources.forum_h
    End Sub
    Private Sub forum_normal() Handles PictureBox16.MouseLeave
        PictureBox16.BackgroundImage = My.Resources.forum
    End Sub
    Private Sub Config_hover() Handles PictureBox17.MouseEnter
        PictureBox17.BackgroundImage = My.Resources.config_h
    End Sub
    Private Sub Config_normal() Handles PictureBox17.MouseLeave
        PictureBox17.BackgroundImage = My.Resources.config
    End Sub



    'Rumziehen
    Dim mouseOffset As Point

    Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseDown
        mouseOffset = New Point(-e.X, -e.Y)
    End Sub

    Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove

        If e.Button = MouseButtons.Left Then
            Dim mousePos = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If
    End Sub
End Class

Für den Source unsres Patchers hält, gehört verhauen xD
Die version des patchers, die hier dargeboten wird, ist mehrere Wochen alt, hat noch keinerlei funktion und lag zwischenzeitlich für ca 12 stunden auf nem Webspace von uns.

Man merke sich---> in zukunft nurnoch via Skype.

[MissUnderstoodOne]

@Gawa: Das ist NICHT der richtige, das ist lediglich das Design!
Woher er den hat, weiß ich nicht
Das ist NICHT yasin/kenan

@Patrick: Natürlich ist das nicht seiner <.<

[Special]

So ein Vollidiot, jetzt muss man wieder neuen Patcher machen weil der released wurde. Zwei weitere Wochen länger bis zum Serverstart.

[.Bloodseeker]

Troll ^.^